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

    +89

    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
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    // пароль как при входе в Win XP
     Edit1.Font.Name:='Wingdings';
     Edit1.PasswordChar:='l'; // символ "точка"
     //
     j:=78575;
     j1:=j;
     Edit6.Text:='1234567890АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюяABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz~ .,:;"-=+\/|!?@#$%^&*_№<>()[]{}`';
     try
      RichEdit2.Lines.LoadFromFile('conf.ps');
     except
      MessageDlg('Файл "conf.ps" не найден!',mtError,[mbOK],0);
      Close;
     end;
     st:='1234567890АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюяABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz~ .,:;"-=+\/|!?@#$%^&*_№<>()[]{}`';
     a:=RichEdit2.Lines.Strings[0];
     x:=length(a);
     try
      for i:=1 to x do
       begin
        if pos(a[i],Edit6.Text)<>0 then
         begin
          Edit6.SelStart:=pos(a[i],Edit6.Text)-1;
          n:=Edit6.SelStart;
          s1:=n+1;
          j:=j1;
          s:=s1-j;
          if ((s<=159) and (s>=0)) then
           begin
            s:=s1-j;
            a[i]:=st[s];
            goto M;
           end;
          j:=j1-n-1;
          repeat
           tt:=j-159;
           s:=abs(tt);
           j:=s;
          until (s<=159);
          s:=159-s;
          a[i]:=st[s];
          M:
         end
        else
       end;
      shif_str:=a;
     except
      MessageDlg('Ошибка открытия пароля!',mtError,[mbOK],0);
     end;

    вот такая процедура "проверки" пароля попалась)))

    Запостил: stasuss, 05 Марта 2012

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

    • Не понял, там что, свойства RichEdit2 и Edit6 используются в качестве переменных в алгоритме? О_о
      Ответить
    • да. там только поле ввода пароля видно. остальные скрыты
      Ответить
    • Автор кода сделал все правильно. Вы ни чего не понимаете в обфускации.
      Ответить
    • А еще говно в том, что используется обычный Edit, из которого пароль можно тупо скопировать. Если не путаю, для паролей есть специальный компонент.
      Ответить
      • не компонент тот же только свойства некоторые изменены.
        Ответить
      • в пятых виндах гайки закрутили, и скопипастить стало невозможно, если у контрола установлен стуле ES_PASSWORD
        на самом деле тут специфика былдодельфяшечки, тот красивый кружочек можно было бы выставить одной строкой, если бы ленивые жопы запилили бы уникод сразу, а не через 10 лет
        Ответить
    • Wingdings??? зер гут
      Ответить

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