1. Pascal / Говнокод #3319

    +116

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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, 26 Мая 2010

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

    • ava turdman 26.05.2010 16:08 # 0

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

    • ava Lure Of Chaos 26.05.2010 16:23 # 0

      криптопорнография
      Ответить

    • ava guest 26.05.2010 16:53 # 0

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

      • ava guest 26.05.2010 17:02 # 0

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

        • ava guest 26.05.2010 17:08 # 0

          Или xor какой-нибудь унылый.
          Ответить

          • ava 3.14159265 26.05.2010 18:21 # 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 26.05.2010 17:53 # 0

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

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

    • ava bugmenot 01.06.2010 20:32 # +1

      „Шифр Виженера изобретался многократно.“
      Ответить

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