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

    • ava Steve_Brown 05.03.2012 11:57 # +2

      Не понял, там что, свойства RichEdit2 и Edit6 используются в качестве переменных в алгоритме? О_о
      Ответить

    • ava stasuss 05.03.2012 12:17 # 0

      да. там только поле ввода пароля видно. остальные скрыты
      Ответить

    • ava BanTIk 06.03.2012 16:55 # +1

      Автор кода сделал все правильно. Вы ни чего не понимаете в обфускации.
      Ответить

    • ava Vindicar 06.03.2012 18:04 # 0

      А еще говно в том, что используется обычный Edit, из которого пароль можно тупо скопировать. Если не путаю, для паролей есть специальный компонент.
      Ответить

      • ava Vasiliy 08.03.2012 08:18 # 0

        не компонент тот же только свойства некоторые изменены.
        Ответить

      • ava bugmenot 08.03.2012 22:25 # +1

        в пятых виндах гайки закрутили, и скопипастить стало невозможно, если у контрола установлен стуле ES_PASSWORD
        на самом деле тут специфика былдодельфяшечки, тот красивый кружочек можно было бы выставить одной строкой, если бы ленивые жопы запилили бы уникод сразу, а не через 10 лет
        Ответить

    • ava Lure Of Chaos 08.03.2012 18:01 # 0

      Wingdings??? зер гут
      Ответить

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