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

    +111

    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
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    procedure TForm1.Timer1Timer(Sender: TObject);
    function UpTime(sf:string):boolean;
    var time:string;
     t:textfile;
    begin
     if form1.MaskEdit5.Text<>'' then
     if Findmas_u(255,0,sf)<0 then
     begin UpTime:=false;exit;end;
     if not FileExists(sf) then
     begin UpTime:=false;exit;end;
     time:=DateUpdating_u(sf);
     if time<>'' then
     begin
     try
     assignfile(t,ExtractFilePath(form1.MaskEdit1.Text)+ChangeFileExt(ExtractFileName(sf),'.tim'));
     rewrite(t);
     writeln(t,time);
     closefile(t);
     except UpTime:=false;exit;end;
     end;
     UpTime:=true;
    end;
    var x,y,i1,i2,i3,xf,yf:integer;
     sf,id,ff:string;
     b:boolean;
    begin
     form1.Timer1.Enabled:=not form1.Timer1.Enabled;
     try
     form1.ProgressBar1.Position:=0;
     application.ProcessMessages;
     masopt_u(254,x,y);
     if form1.MaskEdit1.Text='' then
     form1.BitBtn3.Click else
     if (DateUpdating_u(form1.MaskEdit1.Text)<>DateUpdatingMas_u(254))or(y>0) then
     begin
     if form1.MaskEdit3.Text<>'' then
     if form1.CheckBox1.Checked then
     sf:=TJ7PassAutentikR_u(form1.MaskEdit3.Text,form1.MaskEdit2.Text) else
     sf:=TJ7PassAutentik_u(form1.MaskEdit3.Text,form1.MaskEdit2.Text) else
     sf:=form1.MaskEdit2.Text;
     if not OpenOneNu_u(form1.MaskEdit1.Text,'read:PSQL-Srv'+booltostr(form1.RadioButton2.Checked),3) then
     begin
     DeleteFile(ChangeFileExt(form1.MaskEdit1.Text,'.tmp'));
     form1.RichEdit1.Lines.Add('('+datetostr(date)+' '+timetostr(time)+') Превышен интервал времени доступа.');
     OpenOneNu_u(form1.MaskEdit1.Text,'read:PSQL-Srv'+booltostr(form1.RadioButton2.Checked),3);
     end;
     i1:=TJ7ReadMas_u(254,form1.MaskEdit1.Text,sf);
     CloseOneNu_u(form1.MaskEdit1.Text,'read:PSQL-Srv'+booltostr(form1.RadioButton2.Checked));
     if (i1<>0)and(i1<>11) then
     begin
     form1.RichEdit1.Lines.Add('('+datetostr(date)+' '+timetostr(time)+') Ошибка чтения команд, код: '+inttostr(i1)+'.');
     closemas_u(254);
     initmas_u(254,2,0);
     TJ7CreateMas_u(254,form1.MaskEdit1.Text,sf,false,false,false,false,false);
     closemas_u(254);
     form1.Timer1.Enabled:=not form1.Timer1.Enabled;
     exit;
     end;
     masopt_u(254,x,y);id:='';
     if not form1.RadioButton1.Checked then
     begin
     for i1:=0 to y-1 do
     if (masr_u(254,1,i1)<>'') then
     if ((form1.RadioButton2.Checked)and(ord(masr_u(254,1,i1)[1])mod 2=0))or
     ((form1.RadioButton3.Checked)and(ord(masr_u(254,1,i1)[1])mod 2<>0))then
     begin id:=masr_u(254,1,i1);break;end;
     end else id:=masr_u(254,1,0);
     if (id='')or(y=0) then
     begin
     if RTime_u(strtodatetime(DateUpdatingMas_u(254)),date+time)<1200 then
     closemas_u(254);
     form1.Timer1.Enabled:=not form1.Timer1.Enabled;
     exit;
     end;
     if y>0 then form1.StaticText13.Caption:='в обработке';
     application.ProcessMessages;
     form1.RichEdit1.Lines.Add('('+datetostr(date)+' '+timetostr(time)+'/Старт):'+id);
     if form1.CheckBox3.Checked then
     begin
     masopt_u(255,xf,yf);
     ff:=ExtractFilePath(form1.MaskEdit1.Text)+id+'.tj7';
     masw_u(255,0,yf,ff);
     end;
     application.ProcessMessages;
     if form1.MaskEdit6.Text<>'' then
     PsevdoSQL_u(form1.MaskEdit6.Text);
     for i1:=0 to y-1 do
     if masr_u(254,1,i1)=id then
     begin
     if form1.CheckBox3.Checked then
     begin
     i2:=pos('TId',masr_u(254,0,i1));
     if i2>0 then
     masw_u(254,0,i1,copy(masr_u(254,0,i1),1,i2-1)+id+copy(masr_u(254,0,i1),i2+3,255));
     end;
    // *** И дальше в том же духе

    Автор сего поделия, кусок которого приведён выше (привёл бы полностью, но там 160 строк), называет ЭТО "сервером распределённых вычислений" и "самой прогрессивной СУБД в мире, которая лучше всех этих ваших ораклов. При этом автор вроде как и не школьник...

    Запостил: Vinny_the_POOH, 17 Сентября 2010

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

    • Это этот, щитоли: http://sql.ru/forum/actualthread.aspx?bid=23&tid=708039&pg=1
      ?
      Если да -то он лол ходячий.
      Ответить
      • >JErik
        >Member [заблокирован]
        Jerk - новое божество говнокода?
        Ответить
      • Он самый! Таки да, неиссякаемый генератор отборнейшего говнокода!
        Ответить
      • Сложилось впечатление, что этот код пару раз откомпили и декомпили @[email protected]
        Ответить
    • Там ещё есть, так что будет вам =)))
      Ответить
      • Да я иногда почитаю его тему. Уж больно он дурной. А так, он пропалился во всех интернетах русских со своими виртуальными псеводмассивами.
        Ответить
    • Jeric, он-же Dedal, он-же Кердыперды-кун, (возможно, он-же Кольчурин Юрий Сергеевич)
      Закончил ТУСУР (видимо со скрипом)
      Обитает на SQL.ru
      Где его толсто троллят (или он толсто троллит, не знаю)
      Имеет страничку на народе (что характерно): http://ykolchurin.narod.ru/
      Не женат (И не будет, с такими-то выкидонами)
      Ответить
      • Чуваки, надо было бы на лурьке его поиметь. Страна должна знать своих героев! Это ж такая бездонная бочка лулзов!
        Ответить
        • Постили туда уже, так выпилили статью. Надо попробовать ещё раз, но на этот раз хорошо подключить коллективный разум
          Ответить
          • А когда постили? о0 я щитото пропустил?
            Ответить
            • Давноооо ещё. Но там статья вроде как кривенькая была
              Ответить
              • Тогда чего все ждем? Надо срочно всем и вся и туда, на лурьк.

                Такие дела...
                Ответить
                • Ага, соберу в теме Коллективный Разум, и будем креотивить статью.
                  Ответить
                  • Уже есть.
                    http://lurkmore.to/Индусский_код (раздел «делфишколокод»)
                    и
                    http://lurkmore.to/Копипаста:Дедал
                    Ответить
        • Спасибо, кэп!

          А вообще - тут у нас весело.
          Ответить
      • http://giantess.cwx.ru/pay.php?agent=125386&id_d=992863&from=ne ar

        >>программное обеспечение для Школы,

        [quote]
        Требования для работы программного обеспечения:
        1) 2-ва компьютера для сервера + клиентские рабочие места!
        2) Подключение к Интернет сервера с постоянным внешним IP-адресом.
        Для запуска Web-интерфейса можно использовать IIS 6.0 или SmallHTTP.
        Программное обеспечение написано под Windows 95-Vista/Seven!
        [/quote]
        Ответить
    • BolgenSQL ?
      Ответить
      • Не, тут фалосос. Чувак реальне дурной какой-то.

        А так, вы почти рядом!
        Ответить
      • лично мне так хотелось плакать, что было смешно
        http://bash.org.ru/quote/407953

        хорошо идет с этим
        http://govnokod.ru/3032
        Ответить
        • Мне было страшно! Когда я сходил по ссыли!
          Ответить
          • А я люблю искать на башорке цитаты быдлокодеров, мнящих себе кул-прогерами (потому что их высеры плюсуюет офисный планктон не знающий как работает if). И постить их на говнокоде со своими коментариями. Каждый день я лажу по башорге и собираю все унылые цитаты что вижу. На две годные быдлоцитаты целый день уходит. Зато, когда после тяжёлого дня я захожу на говнокод, иду в коментарии, ...ммм и постю туда
            цитаты мудачков, коментируя их. Мне вообще кажется, что быдлоцитаты, умеют думать, у них есть свои поклонники, с них смеются, не минусуйте их, лучше запостите на говнокод, посмеемся с постящих их выблядков вместе. А вчера на мне приснился чудный сон, как будто зашел на баш, а там сплошь и рядом цитаты - быдляцкие, унылые, петросян-стайл и все доведены до топа такими же быдланами.
            Ответить
        • Ахахаха
          Ответить
    • form1.Timer1.Enabled:=not form1.Timer1.Enabled;
      Хоть это он написал правильно =) Без if'ов
      Ответить
    • Никогда не поверю, что... хм... человек, форматировавший этот... хм... код, хотя бы понимал, что это код, а не, скажем, текст на китайском языке в альтернативной кодировке.

      Вчитываться неохота, отмечу только продуманные имена компонентов и понтовый лог.
      Ответить
      • Форматирование - вырвиглазное. Читать такое тяжело и бесполезно. С этим я совершеннейше согласен.
        Ответить
    • в этом коде так много буков, что там наверное не только субд, но еще и операционная система и 3Д игра и сервер приложений зашиты. Просто вы их не видите пока.

      А еще там зашит искуственный интеллект, родивший этот сайт:
      http://ykolchurin.narod.ru/FVMas.html
      Ответить
    • блжат! я это скачав! Там один файл main.pas, в котором все.
      В нем есть процедура "procedure TForm1.BitBtn8Click(Sender: TObject);"
      в которую я сразу влюбился.
      procedure TForm1.BitBtn8Click(Sender: TObject);
      var t1,t2:tdatetime;
          s1,s2:shortstring;
          io:byte;
          x,y,i1,i2,i3,i4,row,col:integer;
          ExcelApp:TExcelApplication;
          f:olevariant;
      begin
       closemas_u(1);
       closemas_u(254);
       t1:=time;
        form1.StatusBar1.Panels.Items[1].Text:='Чтение...';
        form1.StatusBar1.Panels.Items[2].Text:='-';
       if form1.MaskEdit1.Text='' then
        begin
         form1.StatusBar1.Panels.Items[1].Text:='Не задано имя файла.';
         exit;
        end;
       case form1.ComboBox1.ItemIndex of
       0:begin
        s2:='('+char(random(10)+48)+char(random(10)+48)+')';
        if (form1.CheckBox1.Checked){and(not form1.CheckBox2.Checked)} then
         if not OpenOneNu_u(form1.MaskEdit1.Text,GetUserName+s2,30) then
          begin
           form1.StatusBar1.Panels.Items[1].Text:='Превышен таймаут времени доступа.';
           exit;
          end;
        if form1.CheckBox3.Checked then s1:=shifr_u(ChangeFileExt(ExtractFileName(form1.MaskEdit3.Text),''),form1.MaskEdit2.Text) else s1:='';
        if form1.MaskEdit3.Text<>'' then
          s1:=TJ7PassAutentik_u(form1.MaskEdit3.Text,form1.MaskEdit2.Text+s1) else
          s1:=form1.MaskEdit2.Text;
        io:=TJ7ReadMas_u(1,form1.MaskEdit1.Text,s1);
        txtreadmas_u(254,ChangeFileExt(form1.MaskEdit1.Text,'.ini'),#9);
        if (form1.CheckBox1.Checked){and(not form1.CheckBox2.Checked)} then
          /далее еще 2000 строк
      Ответить
    • Что это за хрень?
      я на это смотреть не могу - глаза болят. От такого форматирования отучают на первом курсе на первом занятии.
      В смысл даже вникать не буду - вполне достаточно строк:
      procedure TForm1.Timer1Timer(Sender: TObject);
      ...
      form1.ProgressBar1.Position:=0;
      ...
      чтобы понять что это 100% говнокод
      /* обращение к конкретному экземпляру класса из его метода + имена полей класса и глобальных переменных */
      Ответить
    • этот человек - учитель nemo
      Ответить
    • Парень какой-то нездоровый. Сложилось впечатление, что он в детстве часто спотыкался и билась головой об грязные московские мостовые.
      Ответить
      • Интересно, по какой части кода заметно что это писал парень? :D
        Ответить
    • весело тут у вас
      Ответить

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