Школоло / Говнокод #3319 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
for m:=0 to 9 do
      mas[m]:=inttostr(m);
  if ((Form1.edit1.text='')or(Form1.Memo2.text='')) then    begin
      if Form1.Memo2.text='' then
          ShowMessage('Ошибка! Введите пожалуйста текст или подключите файл,который необходимо расшифровать!!!');
      if Form1.edit1.text='' then
          ShowMessage('Ошибка! Введите пожалуйста ключ,которым будет расшифрован текст!!!');
    end
  else    begin
      //проверка ключа
      key:=Form1.edit1.text;
      k:=length(key);
      c:=0;
      k_p:=true;
      for j:=1 to k do
      for m:=0 to 9 do begin
          if (key[j]=mas[m]) then  
              inc(c)
          else Begin
              if (m=9) then
                if (c=0) then Begin
                    ShowMessage('Ошибка!!!Введите пожалуйста ключ,которым будет расшифрован текст-целые числа');
                    k_p:=false;
                  end
                else
                  c:=0;
            end;
        end;
    end;

говнокриптография...

Запостил: 3.14159265 3.14159265, (Updated )

Комментарии (19) RSS

  • ava turdman # Ссылка на оригинал 0

    Безумно хочется посмотреть на само шифрование
    Ответить

  • ava guest # Ссылка на оригинал 0

    Запостите сам алгоритм шифрвания плиз. Очень интересно. 🙂
    Ответить

    • ava guest # Ссылка на оригинал 0 ⇈

      да там ропы наверное много, нечего алгоритм глядеть.
      Ответить

        • ava 3.14159265 # Ссылка на оригинал 0 ⇈

          кстати зацените говноперестановку
          правда это из другой проги
          Function zakod(ByVal bl As Long, ByVal kl As Long) As Long
          'Сложение
          bl = (bl + kl) Mod 16
          'Смещение
          Dim b1 As Long
          Dim b2 As Long
          Dim b4 As Long
          Dim b8 As Long
          b1 = bl Mod 2
          b2 = (bl Mod 4) \ 2
          b4 = (bl Mod 8) \ 4
          b8 = (bl Mod 16) \ 8
          bl = b4 + b8 * 2 + b1 * 4 + b2 * 8
          'Перестановка
          Select Case bl
          Case 0
          bl = 7
          Case 1
          bl = 4
          Case 2
          bl = 8
          Case 3
          bl = 15
          Case 4
          bl = 1
          Case 5
          bl = 10
          Case 6
          bl = 9
          Case 7
          bl = 0
          Case 8
          bl = 2
          Case 9
          bl = 6
          Case 10
          bl = 5
          Case 11
          bl = 14
          Case 12
          bl = 13
          Case 13
          bl = 12
          Case 14
          bl = 11
          Case 15
          bl = 3
          End Select
          zakod = bl
          End Function
          Ответить

    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

      а смысл? там говно в том же стиле
      если и это не плюсуют
      толку наводять горами этого кала ресурс?
      если это наплюсуют, запостю и алгоритм

      >>>Или xor какой-нибудь унылый.
      сложение по модулю
      Ответить

Добавить комментарий

Семь раз отмерь — один отрежь, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓