1. Список говнокодов пользователя Stertor

    Всего: 162

  2. Pascal / Говнокод #13234

    +141

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    function TForm1.Pars(T_, ForS, _T: string): string;
    var a, b:integer;
    	begin
    	Result := '';
    	if (T_='') or (ForS='') or (_T='') then Exit;
    	a:=Pos(T_, ForS);
    	if a=0 then Exit else a:=a+Length(T_);
    	ForS:=Copy(ForS, a, Length(ForS)-a+1);
    	b:=Pos(_T, ForS);
    	if b>0 then
    	Result:=Copy(ForS, 1, b - 1);
    	end;

    Давно хотел выложить эту дуру на форум.
    В чем лажа? Я подозреваю, что перегруженный оператор '=' применительно к строкам (сравнение двух строк) это вызов lstrcmp.
    следовательно, POS ЧУВСТВИТЕЛЬНА к регистру!! Это значит, что функция вернет фалс, сравнивая ВоТ эТО и вот это.
    Но это полбеды. Иные горемыки передают ей километровый текст в качестве шаблона - это нормально.

    И потом еще кто то наивно удивляется, почему функция пропускает нужное или хватает лишнее.

    Stertor, 26 Июня 2013

    Комментарии (16)
  3. Pascal / Говнокод #13231

    +122

    1. 1
    Привет, посетите наш сайт [color=red]yadelphi.ru[/color]!

    Stertor, 25 Июня 2013

    Комментарии (3)
  4. Куча / Говнокод #13228

    +126

    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
    Здравствуй, анон. Хочу представить тебе свой взглад на этот сайт.
    Первое время здесь выкладывались действительно годные
    говнокоды с двачей и других имиджборд, но теперь каждый
    желающий может написать что-то свое.
    Иногда это, сука, раздражает. Не всем всегда охота слушать
    сопливое нытье прыщавого нью хикке о том или другом языке,
    например. Как отличить, годный говнокод или нет? Ответ прост.
    Имхо, каждый говнокод с порядковым номером
    больше 1500 чаще всего оказывается калом фекалоида.
    Я могу объяснить это тем, что вначале здесь сидели вполне
    себе адекватные ребята, но вот, и на этот сайт перекинулась
    раковая клетка. Новые говнокоды читать просто неинтересно. 
    Пожалуйста, анон, читай действительно годные говнокоды,
    не забивай свою относительно чистую голову всяким дешевым бредом.
    Не надо.

    Stertor, 24 Июня 2013

    Комментарии (25)
  5. Pascal / Говнокод #13227

    +123

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    Судя по Вашим оценкам, образцы моего кода не так у ж и плохи. Это радует; но в таком случае, получается, что я ошибся форумом. 
    Если это действительно так, я спешу сменить амплуа г.кодера. 
    Непонаслышке зная, что бан тут получить практически нереально, я все таки сделаю отчаянную попытку:
    
    Логин: [email protected]
    Пароль: gcode116
    
    Я желаю Вам всего самого наилучшего. С Вами было весело.  
    За сим, остаюсь, ваш Stertor. Списаться со мной можно по вышеуказанному адресу.

    Stertor, 24 Июня 2013

    Комментарии (9)
  6. VisualBasic / Говнокод #13221

    −104

    1. 1
    private sub RegistraciyaNaMeil.ru ()

    У сайта http://govnokod.ru/ появился филиал!
    vbbook.ru

    Stertor, 23 Июня 2013

    Комментарии (26)
  7. Pascal / Говнокод #13220

    +127

    1. 1
    2. 2
    3. 3
    4. 4
    function GetBiosNumber: string;
     begin
       result := string(pchar(ptr($FEC71)));
     end;

    Windows NT поддерживает прерывания!!! А Вы знали?

    Stertor, 23 Июня 2013

    Комментарии (246)
  8. Pascal / Говнокод #13219

    +128

    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
    // используемые переменные
     var
       Dummy: integer = 0;
       OldKbHook: HHook = 0;
    
     implementation
    
     function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
     begin
       if code < 0 then
         Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
       else
         Result := 1;
     end;
    
    // включение клавы
    
     procedure TForm1.KeyBoardOn(Sender: TObject);
     begin
       if OldKbHook <> 0 then
       begin
         UnHookWindowshookEx(OldKbHook);
         OldKbHook := 0;
       end;
       SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, 0, 0);
       SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
     end;
    
     // выключение клавы
    
     procedure TForm1.KeyBoardOff(Sender: TObject);
     begin
       SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
       SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
       OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
     end;

    Попытка вырубить клаву, сев на нее.

    Stertor, 23 Июня 2013

    Комментарии (12)
  9. Pascal / Говнокод #13218

    +127

    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
    Function DiskInDrive(ADriveLetter : Char) : Boolean;
    var
      SectorsPerCluster,
      BytesPerSector,
      NumberOfFreeClusters,
      TotalNumberOfClusters   : Cardinal;
    begin
      Result := GetDiskFreeSpace(PChar(ADriveLetter+':\'),
                                  SectorsPerCluster,
                                  BytesPerSector,
                                  NumberOfFreeClusters,
                                  TotalNumberOfClusters);
    
    end;
    
    // еще один шедевр:
    
    var
     SR  : TSearchRec;
     Res : integer;
     OldErrMode : integer;
    begin
     // Запоминаем текущий режим обработки ошибок и устанавливаем SEM_FAILCRITICALERRORS
     // Это необходимо для подавления появления окна с сообщение о том, что устройство не готово
     OldErrMode = SetErrorMode(SEM_FAILCRITICALERRORS);
     try
      Res := FindFirst('a:\*.*', faAnyfile, SR);
      FindClose(SR);
     finally
      SetErrorMode(OldErrMode)
     end;
    end;

    С помощью этих процедур Олежик Зайцев на своем сайте предлагает определять доступность дисков, минуя сообщение WINDOWS "Диск не готов".
    Без комментариев.

    Stertor, 23 Июня 2013

    Комментарии (70)
  10. Pascal / Говнокод #13217

    +130

    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
    procedure TMyTr.Execute; // метод потока; эта процедура выполняется в отдельном потоке.
    var
    s,resp,ip,port:string;
    cw,i:integer;
    begin
      http:=TIdHTTP.Create(nil);
      cw:=getnumberproxy;
      while cw<form1.Memo1.Lines.Count do 
      begin
        s:=form1.Memo1.Lines[cw];
        i := Pos(':',s);
        IP := Copy(s,1,i-1);
        PORT := Copy(s,i+1,Length(s));
        try
          http.ProxyParams.ProxyServer:=ip;
          http.ProxyParams.ProxyPort:=StrToInt(port);
          http.ReadTimeout:=Form1.SpinEdit2.Value*1000;
          resp:=http.Get('http://ya.ru/');
          if pos('ya.ru',resp)<>0 then
          form1.Memo2.Lines.Add(ip+':'+port);
          except
            end;
          cw:=getnumberproxy;
          checked:=checked+1;
          end;
      http.Free;
    
    end;

    Вот так живут Америка с Европой; что интересно, ни поток ни форма ни разу не заглючили.

    Stertor, 23 Июня 2013

    Комментарии (17)
  11. Pascal / Говнокод #13216

    +129

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    function stringreplaceall(text, byt, mot: string): string;
    var
      plats: integer;
    begin
      while pos(byt, text) > 0 do
      begin
        plats := pos(byt, text);
        delete(text, plats, Length(byt));
        insert(mot, text, plats);
      end;
      Result := text;
    end;

    Найди десять отличий с родной дельфийской StringReplace. (trollface)

    Stertor, 23 Июня 2013

    Комментарии (2)