Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5703)
2. C++ (2740)
3. Куча (2339)
4. JavaScript (2030)
5. C# (1930)
6. Java (1503)
7. Си (1103)
8. Pascal (649)
9. Python (585)
10. 1C (536)
11. SQL (434)
12. ActionScript (294)
13. Objective C (204)
14. bash (200)
15. Perl (196)
16. Assembler (148)
17. Ruby (144)
18. VisualBasic (140)
19. Lua (51)
20. Go (32)
21. Swift (29)
22. Haskell (28)
23. Kotlin (15)

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

   +91

   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

   function TDuel.getFieldStr(p1: ansistring; p2: ansistring; p3: ansistring = ''): ansistring;
   begin
     Result := '';
     if p1 = 'p1' then begin
       if p2 = 'attack' then begin
         if p3 = '' then Result := p1attack;
         if p3 = '1' then Result := p1attack1;
       end;
       if p2 = 'defend' then begin
         Result := p1defend;
       end;
     end;
     if p1 = 'p2' then begin
       if p2 = 'attack' then begin
         if p3 = '' then Result := p2attack;
         if p3 = '1' then Result := p2attack1;
       end;
       if p2 = 'defend' then begin
         Result := p2defend;
       end;
     end;
   end;
   
   function TDuel.getFieldInt(p1: ansistring; p2: ansistring; p3: ansistring = ''): integer;
   begin
     if p1 = 'player' then begin
       if p2 = '1' then Result := player1;
       if p2 = '2' then Result := player2;
     end;
   
     if p1 = 'p' then begin
       if p2 = '1' then begin
         if p3 = 'dmg' then Result := p1dmg;
       end;
       if p2 = '2' then begin
         if p3 = 'dmg' then Result := p2dmg;
       end;
     end;
   end;
   
   procedure TDuel.updFieldInt(p1: ansistring; p2: ansistring; value: integer);
   begin
     if p1 = 'p1' then begin
       if p2 = 'dmg' then p1dmg := p1dmg + value;
     end;
     if p1 = 'p2' then begin
       if p2 = 'dmg' then p2dmg := p2dmg + value;
     end;
   end;

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

   Cynicrus, 17 Февраля 2014

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

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

   +96

   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
   97. 97
   98. 98
   99. 99

   if movcamn[1] then begin
        //
     if movcams[ 2] then begin  if Nmr= 2 then goto m1;
     if movcams[ 3] then begin  if Nmr= 3 then goto m1;
     if movcams[ 4] then begin  if Nmr= 4 then goto m1;
     if movcams[ 5] then begin  if Nmr= 5 then goto m1;
     if movcams[ 6] then begin  if Nmr= 6 then goto m1;
     if movcams[ 7] then begin  if Nmr= 7 then goto m1;
     if movcams[ 8] then begin  if Nmr= 8 then goto m1;
     if movcams[ 9] then begin  if Nmr= 9 then goto m1;
     if movcams[10] then begin  if Nmr=10 then goto m1;
     if movcams[11] then begin  if Nmr=11 then goto m1;
     if movcams[12] then begin  if Nmr=12 then goto m1;
     if movcams[13] then begin  if Nmr=13 then goto m1;
     if movcams[14] then begin  if Nmr=14 then goto m1;
     if movcams[15] then begin  if Nmr=15 then goto m1;
     if movcams[16] then begin  if Nmr=16 then goto m1;
     if movcams[17] then begin  if Nmr=17 then goto m1;
     if movcams[18] then begin  if Nmr=18 then goto m1;
     if movcams[19] then begin  if Nmr=19 then goto m1;
     if movcams[20] then begin  if Nmr=20 then goto m1;
   
     m1:   Summs1:=0;        movcams[1]:=False;   movcamn[1]:=False;
         movcam[1,1]:=False;  movcam[1,2]:=False;  movcam[1,3]:=False;  movcam[1,4]:=False;
   
           Summs2:=0;        movcams[2]:=False;   movcamn[2]:=False;
         movcam[2,1]:=False;  movcam[2,2]:=False;  movcam[2,3]:=False;  movcam[2,4]:=False;
         if Nmr=2 then goto m2;  // <---
   
           Summs3:=0;        movcams[3]:=False;   movcamn[3]:=False;
         movcam[3,1]:=False;  movcam[3,2]:=False;  movcam[3,3]:=False;  movcam[3,4]:=False;
         if Nmr=3 then goto m2;  // <---
   
           Summs4:=0;         movcams[4]:=False;   movcamn[4]:=False;
         movcam[4,1]:=False;  movcam[4,2]:=False;  movcam[4,3]:=False;  movcam[4,4]:=False;
         if Nmr=4 then goto m2;  // <---
   
           Summs5:=0;        movcams[5]:=False;   movcamn[5]:=False;
         movcam[5,1]:=False;  movcam[5,2]:=False;  movcam[5,3]:=False;  movcam[5,4]:=False;
         if Nmr=5 then goto m2;  // <---
   
           Summs6:=0;        movcams[6]:=False;   movcamn[6]:=False;
         movcam[6,1]:=False;  movcam[6,2]:=False;  movcam[6,3]:=False;  movcam[6,4]:=False;
         if Nmr=6 then goto m2;  // <---
   
           Summs7:=0;        movcams[7]:=False;   movcamn[7]:=False;
         movcam[7,1]:=False;  movcam[7,2]:=False;  movcam[7,3]:=False;  movcam[7,4]:=False;
         if Nmr=7 then goto m2;  // <---
   
           Summs8:=0;        movcams[8]:=False;   movcamn[8]:=False;
         movcam[8,1]:=False;  movcam[8,2]:=False;  movcam[8,3]:=False;  movcam[8,4]:=False;
         if Nmr=8 then goto m2;  // <---
   
           Summs9:=0;        movcams[9]:=False;   movcamn[9]:=False;
         movcam[9,1]:=False;  movcam[9,2]:=False;  movcam[9,3]:=False;  movcam[9,4]:=False;
         if Nmr=9 then goto m2;  // <---
   
                //
           Summs10:=0;        movcams[10]:=False;   movcamn[10]:=False;
         movcam[10,1]:=False;  movcam[10,2]:=False;  movcam[10,3]:=False;  movcam[10,4]:=False;
         if Nmr=10 then goto m2;  // <---
   
           Summs11:=0;        movcams[11]:=False;   movcamn[11]:=False;
         movcam[11,1]:=False;  movcam[11,2]:=False;  movcam[11,3]:=False;  movcam[10,4]:=False;
         if Nmr=11 then goto m2;  // <---
   
           Summs12:=0;        movcams[12]:=False;   movcamn[12]:=False;
         movcam[12,1]:=False;  movcam[12,2]:=False;  movcam[12,3]:=False;  movcam[10,4]:=False;
         if Nmr=12 then goto m2;  // <---
   
           Summs13:=0;        movcams[13]:=False;   movcamn[13]:=False;
         movcam[13,1]:=False;  movcam[13,2]:=False;  movcam[13,3]:=False;  movcam[10,4]:=False;
         if Nmr=13 then goto m2;  // <---
   
           Summs14:=0;        movcams[14]:=False;   movcamn[14]:=False;
         movcam[14,1]:=False;  movcam[14,2]:=False;  movcam[14,3]:=False;  movcam[10,4]:=False;
         if Nmr=14 then goto m2;  // <---
   
           Summs15:=0;        movcams[15]:=False;   movcamn[15]:=False;
         movcam[15,1]:=False;  movcam[15,2]:=False;  movcam[15,3]:=False;  movcam[10,4]:=False;
         if Nmr=15 then goto m2;  // <---
   
           Summs16:=0;        movcams[16]:=False;   movcamn[16]:=False;
         movcam[16,1]:=False;  movcam[16,2]:=False;  movcam[16,3]:=False;  movcam[10,4]:=False;
         if Nmr=16 then goto m2;  // <---
   
           Summs17:=0;        movcams[17]:=False;   movcamn[17]:=False;
         movcam[17,1]:=False;  movcam[17,2]:=False;  movcam[17,3]:=False;  movcam[10,4]:=False;
         if Nmr=17 then goto m2;  // <---
   
           Summs18:=0;        movcams[18]:=False;   movcamn[18]:=False;
         movcam[18,1]:=False;  movcam[18,2]:=False;  movcam[18,3]:=False;  movcam[10,4]:=False;
         if Nmr=18 then goto m2;  // <---
   
           Summs19:=0;        movcams[19]:=False;   movcamn[19]:=False;
         movcam[19,1]:=False;  movcam[19,2]:=False;  movcam[19,3]:=False;  movcam[10,4]:=False;
     m2:
     end; end; end; end; end; end; end; end; end; end;   // 20 штук
     end; end; end; end; end; end; end; end; end; end;

   Попалось в одном проекте, который приходилось расчищать.
   Особенно позабавило заботливое "// 20 штук" в конце.

   qb60, 14 Февраля 2014

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

3. Pascal / Говнокод #14532

   +88

   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

   Попытка внедрить контрол TCheckBox в заголовок 1 колонки TListView:
   
   type
     TForm1 = class(TForm)
       ListView1: TListView;
       procedure FormCreate(Sender: TObject);
       procedure FormDestroy(Sender: TObject);
     private
       FListHeaderWnd: HWND;
       FListHeaderChk: TCheckBox;
       FSaveListHeaderWndProc, FListHeaderWndProc: Pointer;
       procedure ListHeaderWndProc(var Msg: TMessage);
     end;
   
   var
     Form1: TForm1;
   
   implementation
   
   uses
     commctrl;
   
   {$R *.dfm}
   
   function GetCheckSize: TPoint;    
   begin                                                  
     with TBitmap.Create do
       try
         Handle := LoadBitmap(0, PChar(OBM_CHECKBOXES));
         Result.X := Width div 4;
         Result.Y := Height div 3;
       finally
         Free;
       end;
   end;
   
   procedure TForm1.FormCreate(Sender: TObject);
   var
     CheckSize: TPoint;
     HeaderSize: TRect;
   begin
     ListView1.HandleNeeded;
     FListHeaderWnd := ListView_GetHeader(ListView1.Handle);
   
     FListHeaderChk := TCheckBox.Create(nil);
     CheckSize := GetCheckSize;
     FListHeaderChk.Height := CheckSize.X;
     FListHeaderChk.Width := CheckSize.Y;
   
     // the below won't show anything since the form is not visible yet
     ShowWindow(ListView1.Handle, SW_SHOWNORMAL); // otherwise header is not sized
     windows.GetClientRect(FListHeaderWnd, HeaderSize);
     FListHeaderChk.Top := (HeaderSize.Bottom - FListHeaderChk.Height) div 2;
     FListHeaderChk.Left := FListHeaderChk.Top;
   
     FListHeaderChk.Parent := Self;
     windows.SetParent(FListHeaderChk.Handle, FListHeaderWnd);
   
     FListHeaderWndProc := classes.MakeObjectInstance(ListHeaderWndProc);
     FSaveListHeaderWndProc := Pointer(GetWindowLong(FListHeaderWnd, GWL_WNDPROC));
     SetWindowLong(FListHeaderWnd, GWL_WNDPROC, NativeInt(FListHeaderWndProc));
   end;
   
   procedure TForm1.FormDestroy(Sender: TObject);
   begin
     SetWindowLong(FListHeaderWnd, GWL_WNDPROC, NativeInt(FSaveListHeaderWndProc));
     classes.FreeObjectInstance(FListHeaderWndProc);
     FListHeaderChk.Free;
   end;
   
   procedure TForm1.ListHeaderWndProc(var Msg: TMessage);
   begin
     if (Msg.Msg = WM_COMMAND) and (HWND(Msg.LParam) = FListHeaderChk.Handle)
           and (Msg.WParamHi = BN_CLICKED) then begin
       FListHeaderChk.Checked := not FListHeaderChk.Checked;
   
       // code that checks/clears all items
   
     end;
   
     Msg.Result := CallWindowProc(FSaveListHeaderWndProc, FListHeaderWnd,
                                  Msg.Msg, Msg.WParam, Msg.LParam);
   end;

   function GetCheckSize: TPoint;    
   
   begin                                                  
   
     with TBitmap.Create do
   
       try
   
         Handle := LoadBitmap(0, PChar(OBM_CHECKBOXES));
   
         Result.X := Width div 4;
   
         Result.Y := Height div 3;
   
       finally
   
         Free;
   
       end;
   
   end;

   
   без комментариев.

   Stertor, 10 Февраля 2014

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

4. Pascal / Говнокод #14530

   +125

   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

   var
     generalPtr : Pointer;  // Указатель на что-нибудь
     formPtr    : ^TForm;   // Указатель на объект формы
   
   begin
     // Форма текущего модуля адресуемая через ключевое слово self
     generalPtr := Addr(self);
   
     // Мы можем присвоить этот указатель указателю формы
     formPtr := generalPtr;
   
     // И установить заголовок формы, чтобы показать это
     formPtr.Caption := 'Test program';
   end;
   Форма будет показана с з[color=red]а[/color]галовком:
   
   Test program

   http://www.delphibasics.ru/Pointer.php

   Stertor, 09 Февраля 2014

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

5. Pascal / Говнокод #14491

   +122

   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

   Попробуйте новый минусатор http://rghost.ru/52192415
   
   * Добавлена возможность анонимной работы (в программу зашит долгоиграющий анонимный прокси);
   * Добавлена "защита от идиотов";
   * Подключен скин
   * Теперь текст комментария выбранного участника отображается в виде всплывающей подсказки;
   * !(БОНУС) добавлена возможность МИНУСОВАНИЯ ВСЕХ ПОСТОВ ОППОНЕНТА! Сровняйте врага с землей!
   
   -Теперь бот не проигрывает мелодию при запуске.
   -Удален логотип сайта
   
   
   
   
   Меня вдохновил на дальнейшую работу над ботом вот этот человек, точнее, его комментарий:
   http://govnokod.ru/14476#comment215002

   Новый бот-минусатор для ололо (может использоваться как парсер)

   Stertor, 04 Февраля 2014

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

6. Pascal / Говнокод #14442

   +81

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7
   8. 8

   procedure tmythread.execute;
     procedure fillmemo;
     begin
       form1.memo1.lines.add('Some string');
     end;
   begin
     synchronize(fillmemo); //[Error] Unit1.pas(54): There is no overloaded version of 'Synchronize' that can be called with these arguments
   end;

   Почему нельзя сделать вещи, сделанные "через анус", еще более "через анус"?

   Stertor, 29 Января 2014

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

7. Pascal / Говнокод #14394

   +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
   13. 13
   14. 14
   15. 15
   16. 16
   17. 17
   18. 18
   19. 19
   20. 20
   21. 21
   22. 22
   23. 23
   24. 24

   //у стены - нахождение клеток "у стены"
   procedure useny(var vsten:bulArr);
   var i,i2:integer;
     function sh(x,y,n:integer):boolean; // n-номер сдвига n=[2..5]
     begin
     if vsten[x+sdx[n],y+sdy[n]] then sh:=true
                                 else
       if sten[x+sdx[n],y+sdy[n]] then sh:=false
                                  else
         if sten[i2+sdx[n-1],i+sdy[n-1]]or sten[i2+sdx[n+1],i+sdy[n+1]]
           then sh:=sh(x+sdx[n],y+sdy[n],n)
           else sh:=false;
     if result then vsten[x,y]:=true;
     end;
   begin
     for i:=0 to ny do
       for i2:=0 to nx do
         if not(sten[i2,i]) then
           if (sten[i2+1,i] or sten[i2-1,i])and(sten[i2,i+1] or sten[i2,i-1]) then
             begin
             vsten[i2,i]:=true;
             sh(i2,i,2);sh(i2,i,3);sh(i2,i,4);sh(i2,i,5);
             end;
   end;

   Попытка написать решатель Сокобана (Какая-то неведомая функция)
   
   Примечания или то, что я узнал у владельца
   1 useny - судя по всему УСтЕНЫ
   2 vsten - массив клеток Возле СТЕН
   3 sten - сами стены
   4 sh - скорее всего Шаг, но автор не уверен.
   5 sdx и sdy - СДвиг по Х и СДвиг по Y

   kegdan, 22 Января 2014

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

8. Pascal / Говнокод #14368

   +76

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7
   8. 8

   if mas[i-1,j-1]=true then begin neib[m]:=true; inc(m); end; //считаем соседей
   if mas[i-1,j]=true then begin neib[m]:=true; inc(m); end;
   if mas[i-1,j+1]=true then begin neib[m]:=true; inc(m); end;
   if mas[i,j-1]=true then begin neib[m]:=true; inc(m); end;
   if mas[i,j+1]=true then begin neib[m]:=true; inc(m); end;
   if mas[i+1,j-1]=true then begin neib[m]:=true; inc(m); end;
   if mas[i+1,j]=true then begin neib[m]:=true; inc(m); end;
   if mas[i+1,j+1]=true then begin neib[m]:=true; inc(m); end;

   Знакомый человек реализовывал «Жизнь» на делфях...

   POPSuL, 15 Января 2014

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

9. Pascal / Говнокод #14321

   +148

   1. 1
   2. 2
   3. 3

   Милости прошу опробовать новую модификацию моего прокси-чекера:
   http://rghost.ru/51449039
   пароль на архив - ситэ; конкретно, то место, куда слетают все опубликованные пароли и учетки.

   Выражаю огромную благодарность более опытным товарищам, которые охотно шли мне навстречу, делясь опытом и указывая правильный путь.
   Я не могу не упомянуть имен этих замечательных людей:
   Bormand
   1024-
   Kegdan
   Anonimb

   Stertor, 06 Января 2014

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

10. Pascal / Говнокод #14318

    +80

    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

    procedure WriteString(ST: Ansistring);
    var
      leng: dword;
      I: dword;
      ss: Ansistring;
      stk: Ansistring;
    begin
      leng := Length(ST);
      for I := 1 to leng do
      begin
        ss := Copy(ST, I, 1);
        stk := stk + ss;
      end;
      filestream1.Write(stk[1], Length(stk));
    end;

    Процедура записи строки в файл.
    Использование:
    
    var
    filestream1: TfileStream;
    
    begin
    filestream1 := TfileStream.Create('file.dat', fmcreate);
    WriteString('bla bla bla');
    filestream1.Destroy;
    end;

    ka3ax, 06 Января 2014

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

• ← влево
• вправо →

• 65
• …
• 55
• 54
• 53
• 52
• 51
• 50
• 49
• 48
• 47
• …
• 1