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

    +137

    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
    procedure TForm1.Button1Click(Sender: TObject);
var
Result, str, str1, str2, str3, str4, str5, str6 : string;
PLen, stroka, i : integer;
begin
Randomize;
str:='';
Memo1.Clear;
stroka := SpinEdit2.Value;
str1 := '1234567890';
str2 := 'abcdefghijklmnopqastuvwxyz';
str3 := 'ABCDEFGHIJKLMNOPQASTUVWXYZ';
str4 := '!@#$%^&*()_+|\=-<>.,/?''; :"][}{';
str5 := 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
str6 := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
PLen := SpinEdit1.Value;
if CheckBox1.Checked = True
then str:=str+str1;
if CheckBox2.Checked = True
then str:=str+str2;
if CheckBox3.Checked = True
then str:=str+str3;
if CheckBox4.Checked = True
then str:=str+str4;
if CheckBox5.Checked = True
then str:=str+str5;
if CheckBox6.Checked = True
then str:=str+str6;
if CheckBox1.Checked or
CheckBox2.Checked or
CheckBox3.Checked or
CheckBox4.Checked or
CheckBox5.Checked or
CheckBox6.Checked = False
then
MessageDlg('Выберите символы, которые вы хотите использовать!',mtWarning,[mbOK],0)
else
for i := 1 to stroka do begin
Result := '';
repeat
Result := Result+str[Random(Length(str))+1];
until (Length(Result) = PLen);
Memo1.Lines.Add(Result);
end;
end;

    Пример генератора паролей на Delphi
    http://delphistudio.ru/primery-na-delphi/sistema/119-generator-porolej.-primer-na-delphi.html

    вспоминается цитата какого говнокодера с баша
    http://bash.org.ru/quote/406823
    которую быдлота наплюсовала

    Запостил: 3.14159265, 31 Мая 2010

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

    • ava 3.14159265 31.05.2010 19:52 # 0

      тут насколько хватает моих знаний паскаля в 29-34 строчках ошибка. судя по всему говноавтор хотел написать другое.

      кстати калькулятор оттуда же доставляет не меньше
      procedure TForm1.Button1Click(Sender: TObject);
      var
      a, b, rezult : integer;
      begin
      a := StrToInt(Edit1.Text);
      b := StrToInt(Edit2.Text);
      if CheckBox1.Checked = True then
      rezult := a + b;
      if CheckBox2.Checked = True then
      rezult := a - b;
      if CheckBox3.Checked = True then
      rezult := a * b;
      if CheckBox4.Checked = True then
      rezult := a div b;
      Label1.Caption := IntToStr(rezult);
      end;
      Ответить

      • ava TarasB 31.05.2010 20:34 # −1

        Это ты на форматирование кода положил, или так и было?
        Ответить

      • ava Stalker 31.05.2010 20:42 # 0

        "29-34 строчках ошибка" Не, тут правильно, но скобки бы не помешали.
        За вот это: "var Result" казнить :)
        6 строковых переменных там нафиг не нужны...
        В остальном вообще-то пойдет.
        Ответить

    • ava guest 31.05.2010 23:39 # −2

      Набеги, набеги!
      Ответить

    • ava guest 01.06.2010 10:02 # +3

      На бошорке уже давно быдланы и выблядки.
      Ответить

    • ava ganja_boy 01.06.2010 12:53 # −3

      ужоснах
      Ответить

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