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

    Всего: 162

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

    +125

    1. 1
    Безопасная работа с Tstringlist из потоков

    Товарищи, гламурно ли будет создать класс на базе tstringlist и все методы вызывать через criticalsection? Иначе потоки злобно ухмыляясь показывают голый член и грозят меня изнасиловать.

    Stertor, 30 Июня 2013

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

    +146

    1. 1
    Бляяяяяяяяяяяяяяяяяяяяя! Где этот шекель??

    Ваш сайт меня сильно испортил. Мне перестали нравиться голые парни, а вчера приснилось, как я деру телку. Не знаю, хорошо это или плохо, но как-то необычно.

    Stertor, 30 Июня 2013

    Комментарии (1)
  4. VisualBasic / Говнокод #13270

    −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
    var
      h,sh,g: integer;
    label
       m2;
    begin
      m2:
      application.ShowMainForm:=false;
      sleep(10);
      h:=FindWindow('#32770',nil);
      If h > 0 then
      sh:=FindWindowEx(h,0,'Static',nil);
      g:= findwindowex(h,sh,'Static',nil);
      SendMessage(g,WM_SETTEXT,0,lparam(LPCTSTR(' Свой текст  ')));// меняем текст в окне
      SetWindowText(FindWindow('#32770',Nil), 'Свой текст'); // меняем заголовок окна
    
    if h = 0 then
    Goto m2;
    sleep(1000);
    application.ProcessMessages;
    exitprocess(0);
    end;
    end.

    Ловля рыбы руками, как сказал бы капитан Очевидность.
    Взято с филиала сайта go..okod.ru boolean.name, точнее
    http://forum.boolean.name/showthread.php?p=262271#post262271

    Stertor, 30 Июня 2013

    Комментарии (15)
  5. VisualBasic / Говнокод #13269

    −100

    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
    procedure TForm1.Button3Click(Sender: TObject);
    var
    list: TStringList;
    begin
     list := TStringList.Create;
      WebBrowser1.Navigate('http://wmmail.ru/');
      list.Add('cf=akk-login');
      list.Add('ulogin=Мой логин');
      list.Add('pass=Мой пароль');
      list.Add('x=16');
      list.Add('y=18');
         list.Add('remember=on');
      try
    memo1.lines.text := IdHTTP1.Post('http://wmmail.ru/index.php',list);
    memo1.Lines.SaveToFile('aaa.htm');
    WebBrowser1.Navigate(extractfilepath(application.exename)+'aaa.htm');
    
      finally
    
        list.Free;
        IdHTTP1.Disconnect;
      end;
    end;

    Автор наверно слабо понимал, что делает. Будем гуманны, товарищи!
    Взято с http://forum.boolean.name/showthread.php?p=262338#post262338

    Stertor, 30 Июня 2013

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

    −112

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    NewList Chars.s( )
    
    For Char = 0 To 1000
    	AddElement( Chars( ) )
    	Chars( ) = Chr( Char & 255 )
    Next
    
    StrListRemDups( Chars( ) )
    
    Debug ListSize( Chars( ) ); должно быть 256, выводит 412

    А вот так, товарищи, кодит Platon с Булки:
    http://forum.boolean.name/showthread.php?t=18297

    (_o_), (_._), (_O_)

    На любой вкус )

    Stertor, 30 Июня 2013

    Комментарии (11)
  7. VisualBasic / Говнокод #13267

    −110

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    ResetList( Chars( ) )
    While NextElement( Chars( ) )
    	Define Address.l = @Chars( )
    	Define Reference.s = Chars( )
    	While NextElement( Chars( ) )
    		If Chars( ) = Reference
    			DeleteElement( Chars( ) )
    		EndIf
    	Wend
    	ChangeCurrentElement( Chars( ), Address )
    Wend

    ололо. Этот код ищет дубликаты в списке и лишает их невинности. Но поглядите товарищи, сколько же итераций должен выполнить цикл, чтобы дефлорировать все элементы! :O
    Взято с http://forum.boolean.name/showthread.php?t=18297

    Stertor, 30 Июня 2013

    Комментарии (1)
  8. VisualBasic / Говнокод #13266

    −109

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    ; извлечь из архива список содержащихся в нем файлов
    ; jopaU - Jammed Objects Packaged Archive (Unit)
    Procedure.s GetJopaList(JopaFilename.s)
      Protected Text.s = ""
      If FileExists(JopaFilename)
        OpenPack(JopaFilename)
        Text = PeekS(NextPackFile())
        Text = Left(Text, PackFileSize())
        ClosePack()
      EndIf
      ProcedureReturn Text
    EndProcedure

    >>JopaFilename

    Название этой переменной как бы отображает сущность всей программы.
    Взято с http://forum.boolean.name/showthread.php?t=15802

    Stertor, 30 Июня 2013

    Комментарии (0)
  9. Perl / Говнокод #13262

    −121

    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
    * g o a t s e x * g o a t s e x * g o a t s e x *
    g                                               g  
    o /     \             \            /    \       o
    a|       |             \          |      |      a
    t|       `.             |         |       :     t
    s`        |             |        \|       |     s
    e \       | /       /  \\\   --__ \\       :    e
    x  \      \/   _--~~          ~--__| \     |    x  
    *   \      \_-~                    ~-_\    |    *
    g    \_     \        _.--------.______\|   |    g
    o      \     \______// _ ___ _ (_(__>  \   |    o
    a       \   .  C ___)  ______ (_(____>  |  /    a
    t       /\ |   C ____)/      \ (_____>  |_/     t
    s      / /\|   C_____)       |  (___>   /  \    s
    e     |   (   _C_____)\______/  // _/ /     \   e
    x     |    \  |__   \\_________// (__/       |  x
    *    | \    \____)   `----   --'             |  *
    g    |  \_          ___\       /_          _/ | g
    o   |              /    |     |  \            | o
    a   |             |    /       \  \           | a
    t   |          / /    |         |  \           |t
    s   |         / /      \__/\___/    |          |s
    e  |           /        |    |       |         |e
    x  |          |         |    |       |         |x
    * g o a t s e x * g o a t s e x * g o a t s e x *

    * g o a t s e x * g o a t s e x * g o a t s e x *
    g g
    o / \ \ / \ o
    a| | \ | | a
    t| `. | | : t
    s` | | \| | s
    e \ | / / \\\ --__ \\ : e
    x \ \/ _--~~ ~--__| \ | x
    * \ \_-~ ~-_\ | *
    g \_ \ _.--------.______\| | g
    o \ \______// _ ___ _ (_(__> \ | o
    a \ . C ___) ______ (_(____> | / a
    t /\ | C ____)/ \ (_____> |_/ t
    s / /\| C_____) | (___> / \ s
    e | ( _C_____)\______/ // _/ / \ e
    x | \ |__ \\_________// (__/ | x
    * | \ \____) `---- --' | *
    g | \_ ___\ /_ _/ | g
    o | / | | \ | o
    a | | / \ \ | a
    t | / / | | \ |t
    s | / / \__/\___/ | |s
    e | / | | | |e
    x | | | | | |x
    * g o a t s e x * g o a t s e x * g o a t s e x *

    Stertor, 29 Июня 2013

    Комментарии (4)
  10. Си / Говнокод #13261

    +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
    * g o a t s e x * g o a t s e x * g o a t s e x *
    g                                               g  
    o /     \             \            /    \       o
    a|       |             \          |      |      a
    t|       `.             |         |       :     t
    s`        |             |        \|       |     s
    e \       | /       /  \\\   --__ \\       :    e
    x  \      \/   _--~~          ~--__| \     |    x  
    *   \      \_-~                    ~-_\    |    *
    g    \_     \        _.--------.______\|   |    g
    o      \     \______// _ ___ _ (_(__>  \   |    o
    a       \   .  C ___)  ______ (_(____>  |  /    a
    t       /\ |   C ____)/      \ (_____>  |_/     t
    s      / /\|   C_____)       |  (___>   /  \    s
    e     |   (   _C_____)\______/  // _/ /     \   e
    x     |    \  |__   \\_________// (__/       |  x
    *    | \    \____)   `----   --'             |  *
    g    |  \_          ___\       /_          _/ | g
    o   |              /    |     |  \            | o
    a   |             |    /       \  \           | a
    t   |          / /    |         |  \           |t
    s   |         / /      \__/\___/    |          |s
    e  |           /        |    |       |         |e
    x  |          |         |    |       |         |x
    * g o a t s e x * g o a t s e x * g o a t s e x *

    Stertor, 29 Июня 2013

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

    +129

    1. 1
    Что за питух мои г-коды удаляет?

    Stertor, 29 Июня 2013

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