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

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• 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. VisualBasic / Говнокод #1411

   −363.8

   1. 1
   2. 2
   3. 3
   4. 4

   If dd.Items.Count < 1 Then
       dd.Items.Clear()
       ...
   End If

   guest, 23 Июля 2009

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

2. JavaScript / Говнокод #1410

   +166.8

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6

   if (document.getid.txtemail.value.search("@") == -1)
   {
   	alert("This is not a valid email account.");
   	return(false);
   }
   //check for valid email address required.

   Нашел вот тут в одном индусском проекте, валидакия имейла XD

   guest, 23 Июля 2009

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

3. PHP / Говнокод #1409

   +149

   1. 1
   2. 2
   3. 3

   $pizdeckakoyzaprosische = "SELECT DISTINCT direct_pay.*, t_user.name AS username, kart.nominal, kart.name AS kartname, exemplyar.serial, exemplyar.usdok, exemplyar.balance FROM direct_pay, t_user, t_dealer, kart, exemplyar WHERE direct_pay.id_device = t_user.id AND t_user.id = {$_SESSION['id']} AND exemplyar.id = direct_pay.id_kart AND exemplyar.id_kart = kart.id$sql$stord";
   	$result = pg_query($dbconnk, $pizdeckakoyzaprosische);
   	while ($row = pg_fetch_assoc($result)) {

   3-4 года назад.. начинал писать платежную систему.. до сих пор знакомый в коде разбирается :)

   guest, 23 Июля 2009

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

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

   +128.5

   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

   program kot;
   
   var r,i,j, z : integer ;
    famnom: array[1..11,1..26] of char;
   Label lb1, lb2;
   
       begin
   
   Assign(input, 'c:\pascal\kot.txt');
   Reset(input);
    Assign(output, 'c:\pascal\tok.txt');
   Rewrite(output);
   for j:=1 to 10 do
   for i:=1 to 26 do           (*каждому символу присваивается свой номер в массиве*)
   
    begin
    read(input,famnom[j,i]);
    write(famnom[j,i]);        (*исходные данные копируются в файл*)
    end;
   
   writeln('');
   writeln('');
   close(input);
   
   Assign(input, 'c:\pascal\kot.txt');
   Reset(input);
   begin
   
   
   lb1 :   for j:=1 to 10 do
   begin
         i:= 16;                            
   while famnom[j,i]=famnom[j+1,i] do      
   i:=i+1;                               (*блабла*)
   if  famnom[j,i]<famnom[j+1,i] then    
   begin
   for i := 1 to 26 do
   begin
   famnom[11,i]:=famnom[j,i];            (*сравниваются символы короч*)
   famnom[j,i]:=famnom[j+1,i];
   famnom[j+1,i]:=famnom[11,i];
   
   
   end;
   goto lb1;
   end;
   end;
   end;
   
   for j:=1 to 10 do                
   for i:= 1 to 26 do
   begin
   write(famnom[j,i]);
   
   end;
   close(input);
   close(output);
   end.

   Ужас какойто

   guest, 23 Июля 2009

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

5. Си / Говнокод #1407

   +108.1

   1. 1
   2. 2

   int i;
   if(i/2 == i - i/2) { ... }

   Тоже из лабораторки. Проверка на четность

   guest, 23 Июля 2009

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

6. Си / Говнокод #1406

   +140

   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

   char *bukva="qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM";
   char *cifra="1234567890";
   
   //тут получаем строку
   
   while((ch = getc(fp)) != EOF) {
       putc(ch,stdout);
       if(ch == ' ') {probel++; continue;}
       for (j = 0; j < (strlen(cifra)); j++) {
           if(ch == cifra[j])
               countcifra++;
       }
   
       for (j = 0;j < (strlen(bukva)); j++) {
           if(ch == bukva[j])
               countbukva++;
       }
    }

   Из лабораторки однокурсника. Подсчет количества букв и цифр в строке

   guest, 23 Июля 2009

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

7. PHP / Говнокод #1405

   +143

   1. 1
   2. 2
   3. 3
   4. 4

   if (xmlHttp.status==200){
   xmlResponse=xmlHttp.responseXML;
   xmlDocumentElement=xmlResponse.documentElement;		helloMessage=xmlDocumentElement.firstChild.data;
   }

   if (xmlHttp.status==200){
   xmlResponse=xmlHttp.responseXML;
   xmlDocumentElement=xmlResponse.documentE lement; helloMessage=xmlDocumentElement.firstChi ld.data;
   }

   guest, 23 Июля 2009

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

8. Куча / Говнокод #1401

   +150

   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

   <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema"
                    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
   <soapenv:Body>
    <ns1:PurchaseResponse xsi:type="ns1:PurchaseResponse" xmlns="urn:qpass-PurchaseTypes"
                          xmlns:ns1="urn:qpass-PurchaseTypes">
      <ns1:responseCode xsi:type="xsd:integer">0</ns1:responseCode>
      <ns1:responseMessage xsi:type="xsd:string">Success</ns1:responseMessage>
      <ns1:vendorProductId xsi:type="xsd:string">XXXXXXXXXXXX</ns1:vendorProductId>
      <ns1:quantity xsi:type="xsd:integer">X</ns1:quantity>
      <ns1:price xsi:type="xsd:decimal">X.XX</ns1:price>
      <ns1:tax xsi:type="xsd:decimal">0</ns1:tax>
      <ns1:purchaseIdentifier xsi:type="xsd:string">XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX</ns1:purchaseIdentifier>
    </ns1:PurchaseResponse>
   </soapenv:Body>
   </soapenv:Envelope>

   guest, 22 Июля 2009

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

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

   +143.2

   1. 001
   2. 002
   3. 003
   4. 004
   5. 005
   6. 006
   7. 007
   8. 008
   9. 009
   10. 010
   11. 011
   12. 012
   13. 013
   14. 014
   15. 015
   16. 016
   17. 017
   18. 018
   19. 019
   20. 020
   21. 021
   22. 022
   23. 023
   24. 024
   25. 025
   26. 026
   27. 027
   28. 028
   29. 029
   30. 030
   31. 031
   32. 032
   33. 033
   34. 034
   35. 035
   36. 036
   37. 037
   38. 038
   39. 039
   40. 040
   41. 041
   42. 042
   43. 043
   44. 044
   45. 045
   46. 046
   47. 047
   48. 048
   49. 049
   50. 050
   51. 051
   52. 052
   53. 053
   54. 054
   55. 055
   56. 056
   57. 057
   58. 058
   59. 059
   60. 060
   61. 061
   62. 062
   63. 063
   64. 064
   65. 065
   66. 066
   67. 067
   68. 068
   69. 069
   70. 070
   71. 071
   72. 072
   73. 073
   74. 074
   75. 075
   76. 076
   77. 077
   78. 078
   79. 079
   80. 080
   81. 081
   82. 082
   83. 083
   84. 084
   85. 085
   86. 086
   87. 087
   88. 088
   89. 089
   90. 090
   91. 091
   92. 092
   93. 093
   94. 094
   95. 095
   96. 096
   97. 097
   98. 098
   99. 099
   100. 100

   if o is TSpellChecker then
         begin
           TSpellChecker(o).FinishMessage := ml(TSpellChecker(o).FinishMessage, form.Name);
           TSpellChecker(o).caption := ml(TSpellChecker(o).caption, form.Name);
         end else
           if o is Tform then
           begin
             TMenuItem(o).Caption := ml(TMenuItem(o).Caption, form.Name);
             TMenuItem(o).Hint := ml(TMenuItem(o).Hint, form.Name);
           end else
             if o is TComboBox then
             begin
       //TComboBox(o).Caption:=ml(TMenuItem(o).Caption,form.Name);
               TComboBox(o).Hint := ml(TComboBox(o).Hint, form.Name);
             end else
               if o is TMenuItem then
               begin
                 TMenuItem(o).Caption := ml(TMenuItem(o).Caption, form.Name);
                 TMenuItem(o).Hint := ml(TMenuItem(o).Hint, form.Name);
               end else
                 if (o is TTBXButton) then
                 begin
                   TTBXButton(o).Caption := ml(TTBXButton(o).Caption, form.Name);
                   TTBXButton(o).Hint := ml(TTBXButton(o).Hint, form.Name);
                 end else
                   if (o is TTBXLink) then
                   begin
                     TTBXLink(o).Caption := ml(TTBXLink(o).Caption, form.Name);
                     TTBXLink(o).Hint := ml(TTBXLink(o).Hint, form.Name);
                   end else
                     if (o is TRzGroup) then
                     begin
                       TRzGroupBox(o).Caption := ml(TRzGroup(o).Caption, form.Name);
                       TRzGroupBox(o).Hint := ml(TRzGroup(o).Hint, form.Name);
                     end else
                       if (o is TRzPanel) then
                       begin
                         TRzGroupBox(o).Caption := ml(TRzPanel(o).Caption, form.Name);
                         TRzGroupBox(o).Hint := ml(TRzPanel(o).Hint, form.Name);
                       end else
                         if (o is TRzButton) then
                         begin
                           TRzButton(o).Caption := ml(TRzButton(o).Caption, form.Name);
                           TRzButton(o).Hint := ml(TRzButton(o).Hint, form.Name);
                         end else
                           if (o is TRzTabControl) then
                           begin
                             TRzTabControl(o).Hint := ml(TRzTabControl(o).Hint, form.Name);
                             for k := 0 to TRzTabControl(o).Tabs.Count - 1 do
                             begin
                               TRzTabControl(o).Tabs.Items[k].Caption := ml(TRzTabControl(o).Tabs.Items[k].Caption, form.Name);
                               TRzTabControl(o).Tabs.Items[k].Hint := ml(TRzTabControl(o).Tabs.Items[k].Hint, form.Name);
                             end;
                           end else
                             if (o is TRzTabSheet) then
                             begin
                               TRzTabSheet(o).Caption := ml(TRzTabSheet(o).Caption, form.Name);
                             end else
                               if (o is TRzGroupBox) then
                               begin
                                 TRzGroupBox(o).Caption := ml(TRzGroupBox(o).Caption, form.Name);
                                 TRzGroupBox(o).Hint := ml(TRzGroupBox(o).Hint, form.Name);
                               end else
                                 if (o is TRzGroupItems) then
                                 begin
                                   TRzGroupBox(o).Caption := ml(TRzGroupBox(o).Caption, form.Name);
                                   TRzGroupBox(o).Hint := ml(TRzGroupBox(o).Hint, form.Name);
                                 end else
                                   if (o is TToolButton) then
                                   begin
                                     TToolButton(o).Caption := ml(TToolButton(o).Caption, form.Name);
                                     TToolButton(o).Hint := ml(TToolButton(o).Hint, form.Name);
                                   end else
                                     if o is TButton then
                                     begin
                                       TButton(o).Caption := ml(TButton(o).Caption, form.Name);
                                       TButton(o).Hint := ml(TButton(o).Hint, form.Name);
                                     end else
                                       if o is TBitBtn then
                                       begin
                                         TBitBtn(o).Caption := ml(TBitBtn(o).Caption, form.Name);
                                         TBitBtn(o).Hint := ml(TBitBtn(o).Hint, form.Name);
                                       end else
                                         if o is TSpeedButton then
                                         begin
                                           TSpeedButton(o).Caption := ml(TSpeedButton(o).Caption, form.Name);
                                           TSpeedButton(o).Hint := ml(TSpeedButton(o).Hint, form.Name);
                                         end else
   
                                           if o is TRzToolButton then
                                           begin
                                             TRzToolButton(o).Caption := ml(TRzToolButton(o).Caption, form.Name);
                                             TRzToolButton(o).Hint := ml(TRzToolButton(o).Hint, form.Name);
                                           end else
   
                                             if o is TRadioButton then
                                             begin
                                               TRadioButton(o).Caption := ml(TRadioButton(o).Caption, form.Name);
                                               TRadioButton(o).Hint := ml(TRadioButton(o).Hint, form.Name);
                                             end else

   это пестец

   guest, 22 Июля 2009

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

10. PHP / Говнокод #1399

    +132.3

    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

    include "include/template.php";
    stdhead(null,'Он-лайн табло');
    
    echo '<table><tr><td>';
    	$firarray = mysql_query("SELECT * FROM online_firs GROUP BY fir ASC");
    	while ($fir = mysql_fetch_array($firarray)){ // пробегаемся по РЦентрам 
    		$firnamearray = mysql_query("SELECT * FROM firdata WHERE fir='".$fir[fir]."'");
    		$firname = mysql_fetch_array($firnamearray); // получим название текущего РЦ
    
    		// вложенная таблица районного центра
    		echo '<table width=100%>';
    		echo '<tr><td background="images/airport_header.gif"> '.$fir[fir].'  '.$firname[name].' FIR</td></tr><tr><td>';
    		//вложенная таблица диспетчерских пунктров 
    		echo '<table>';
    		$atcarray = mysql_query("SELECT * FROM online WHERE atc_fir='".$fir[fir]."' and clienttype='ATC' ORDER BY atc_callsign ASC");
    		while ($atc = mysql_fetch_array($atcarray)){ // пробегаемся по позициям
    			// если позиция существует - то отображаем
    			$positionarray=explode("_",$atc[callsign]); //  расхуячиваем код позывного на Икао и  Позицию.
    			$positiontype=array_pop($positionarray); // выдёргиваем последний элемент, т.е. тип позиции (app twr gnd итд)
    			if (($positiontype=='GND') || ($positiontype=='TWR') || ($positiontype=='APP') || ($positiontype=='CTR') || ($positiontype=='FSS') || ($positiontype=='DEL') ){
    				// расхуячим АТИС построчно
    				$atis='';
    				$atisarray=explode("^§",$atc[atc_atis]); // разбираем общую строку на ВПП по разделителю %		
    				foreach ($atisarray as $x => $atisdetalis){  // пробегаем по всем параметрам ВПП, поочерёдно для каждой
    					$atis=$atis.$atisdetalis.'; ';}
    
    					echo '<tr style="color: #ff0000">'. // задаётся цвет шрифта 
    					'<td width="90">'.$atc[callsign]. '</td>'.
    					'<td width="200" title="'.$atis.'">'.$atc[atc_callsign]. '</td>'.
    					'<td width="90">'.$atc[atc_freq]. '</td>'.
    					'<td width="200" title="'.$atc[pid].' '.$atc[atc_rating].'"><a href="http://stats.vatsim.net/search_id.php?id='.$atc[pid].'">'.$atc[fio]. '</a></td></tr>';
    			}
    		}	
    		echo '</table >'; //закрывающий таблицы диспетчерских пунктов
    		//вложенная таблица ВС 
    		echo '<table >';
    		$portarray = mysql_query("SELECT * FROM online_firs WHERE fir='".$fir[fir]."' GROUP BY port ASC");
    		while ($port = mysql_fetch_array($portarray)){ // пробегаемся по портам
    			if ($port[port]){
    				// получим название аэродрома . И если есть такой АД в базе данных тогда добавим ссыль не его страницу
    				$airport = mysql_fetch_array(mysql_query("SELECT * FROM airportdata WHERE port='".$port[port]."' "));
    				$airportpage = mysql_fetch_array(mysql_query("SELECT * FROM airport WHERE ikao='".$port[port]."' "));
    				if ($airportpage[name]) $link='<a href="airport.php?icao='.$port[port].'"><img src="images/icon/info.png"></img> </a>';
    				echo '<tr><td colspan="8"> - '.$port[port].' '.$airport[name].' </td><td>'.$link.'</td></tr>'; $link='';
    				// получим прибытия и выведем нахуй
    				$arrivalarray = mysql_query("SELECT * FROM online WHERE fp_arrival_port='".$port[port]."' ORDER BY time_arr ASC");
    				while ($arrival = mysql_fetch_array($arrivalarray)){ // пробегаемся по прибытиям 
    
    					echo '<tr style="color: #000000">'. // задаётся цвет шрифта прибывающих
    					'<td width="90" title="'.$arrival[fio].'"><a href="http://vataware.com/pilot.cfm?cid='.$arrival[pid].' ">'.$arrival[callsign].' </a></td>'.
    					'<td width="95">'.$arrival[fp_acfttype].'</td>';
    					// Если расстояние до АД прилёта более 10 км
    					if ($arrival[dist_from_ad_arr] > 10) echo '<td width="65" title="Время прибытия">'.$arrival[time_arr].'</td>';
    					else echo'<td style="color: #a0a0a0" width="65" >arrived</td>';
    					echo'<td width="110" title="'.$arrival[fp_route].'">'.$arrival[fp_departure_port].'-'.$arrival[fp_arrival_port].'</td>'.
    					'<td width="100" title="Текущий эшелон | Эшелон по плану">FL'.ceil($arrival[alt]/100).'|'.$arrival[fp_flevel].'</td>'.
    					'<td width="40" title="Скорость (км/ч) ">'.ceil($arrival[speed]).'</td>'.
    					'<td width="40">'.$arrival[fp_sq].'</td></tr>';
    				}
    				// получим отправления и выведем нахуй
    				$departurearray = mysql_query("SELECT * FROM online WHERE fp_departure_port='".$port[port]."' ORDER BY time_arr ASC");
    				while ($departure = mysql_fetch_array($departurearray)){ // пробегаемся по прибытиям 
    					echo '<tr style="color: #a0a0a0">'. // задаётся цвет шрифта вылетающих
    					'<td width="90" title="'.$departure[fio].'"><a href="http://vataware.com/pilot.cfm?cid='.$departure[pid].'  " target="_blank">'.$departure[callsign].' </a></td>'.
    					'<td width="95" >'.$departure[fp_acfttype].'</td>';
    					// Если расстояние от АД вылета менее 60ти километов
    					if ($departure[dist_from_ad_dep] < 60) echo'<td width="65" >departing</td>';
    					else echo'<td width="65" >in flight</td>';
    					echo'<td width="110"  title="'.$departure[fp_route].'">'.$departure[fp_departure_port].'-'.$departure[fp_arrival_port].'</td>'.
    					'<td width="100"  title="Текущий эшелон | Эшелон по плану">FL'.ceil($departure[alt]/100).'|'.$departure[fp_flevel].'</td>'.
    					'<td width="40"  title="Скорость (км/ч) ">'.ceil($departure[speed]).'</td>'.
    					'<td width="40" >'.$departure[fp_sq].'</td></tr>';
    				}
    			}
    		}	
    		echo '</table >'; // закрывающий таблицы ВС
    	echo '</td></tr></table >'; // закрывающий таблицы РЦ
    	}
    echo '</td></tr></table >'; // закрывающий главной таблицы
    
    stdfoot(null);

    guest, 21 Июля 2009

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

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

• 2104
• …
• 138
• 137
• 136
• 135
• 134
• 133
• 132
• 131
• 130
• …
• 1