Лучший говнокод за всё время

Лучший говнокод

В номинации:

Лучший рейтинг
Самый комментируемый

За время:

Pascal / Говнокод #7624

+123

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83

function HexWrdToStr(Dval : integer) : string;
var i : integer;
retstr : string;
begin
retstr := '';
i := (Dval AND $F000) DIV $1000;
case i of
  0 : retstr := retstr + '0';
  1 : retstr := retstr + '1';
  2 : retstr := retstr + '2';
  3 : retstr := retstr + '3';
  4 : retstr := retstr + '4';
  5 : retstr := retstr + '5';
  6 : retstr := retstr + '6';
  7 : retstr := retstr + '7';
  8 : retstr := retstr + '8';
  9 : retstr := retstr + '9';
  10 : retstr := retstr + 'A';
  11 : retstr := retstr + 'B';
  12 : retstr := retstr + 'C';
  13 : retstr := retstr + 'D';
  14 : retstr := retstr + 'E';
  15 : retstr := retstr + 'F';
end;
i := (Dval AND $F00) DIV $100;
case i of
  0 : retstr := retstr + '0';
  1 : retstr := retstr + '1';
  2 : retstr := retstr + '2';
  3 : retstr := retstr + '3';
  4 : retstr := retstr + '4';
  5 : retstr := retstr + '5';
  6 : retstr := retstr + '6';
  7 : retstr := retstr + '7';
  8 : retstr := retstr + '8';
  9 : retstr := retstr + '9';
  10 : retstr := retstr + 'A';
  11 : retstr := retstr + 'B';
  12 : retstr := retstr + 'C';
  13 : retstr := retstr + 'D';
  14 : retstr := retstr + 'E';
  15 : retstr := retstr + 'F';
end;
i := (Dval AND $F0) DIV $10;
case i of
  0 : retstr := retstr + '0';
  1 : retstr := retstr + '1';
  2 : retstr := retstr + '2';
  3 : retstr := retstr + '3';
  4 : retstr := retstr + '4';
  5 : retstr := retstr + '5';
  6 : retstr := retstr + '6';
  7 : retstr := retstr + '7';
  8 : retstr := retstr + '8';
  9 : retstr := retstr + '9';
  10 : retstr := retstr + 'A';
  11 : retstr := retstr + 'B';
  12 : retstr := retstr + 'C';
  13 : retstr := retstr + 'D';
  14 : retstr := retstr + 'E';
  15 : retstr := retstr + 'F';
end;
i := Dval AND $F;
case i of
  0 : retstr := retstr + '0';
  1 : retstr := retstr + '1';
  2 : retstr := retstr + '2';
  3 : retstr := retstr + '3';
  4 : retstr := retstr + '4';
  5 : retstr := retstr + '5';
  6 : retstr := retstr + '6';
  7 : retstr := retstr + '7';
  8 : retstr := retstr + '8';
  9 : retstr := retstr + '9';
  10 : retstr := retstr + 'A';
  11 : retstr := retstr + 'B';
  12 : retstr := retstr + 'C';
  13 : retstr := retstr + 'D';
  14 : retstr := retstr + 'E';
  15 : retstr := retstr + 'F';
end;
HexWrdToStr := retstr;
end;

Авторы - программисты из FTDI, взято из экзамплов работы с USB-конвертерами.
Полный текст можно найти здесь: __http://www.ftdichip.com/Support/SoftwareExamples/CodeExamples/Delphi.htm

З.Ы. Ниже по тексту идет аналогичная функция HexByteToStr. Алгоритм, так сказать, тот же.

1291, 23 Августа 2011

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

C++ / Говнокод #7610

+161

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

/// ...хде-то в начале огромной-преогромной функции...
#define ADD_GRAPH(gid,gmod) m_Registry[TGraphId(gid,gmod)] = new
/// ...хде-то по её середине...
#define ADD_MAP_WEAPON_OVERLAY(name_base,file_name)\
  for (i=0; i<8; i++)\
  {\
    ADD_GRAPH(name_base _T("S"),i) (CLoadImage (\
      file_name,\
      TImageFX ()\
      .SetColorReplacementFX (g_WeaponRecolor[i],2,0)\
      ));\
    ADD_GRAPH(name_base _T("Q"),i) (CLoadImage (\
      file_name,\
      TImageFX ()\
      .SetColorReplacementFX (g_WeaponRecolor[i],2,1)\
      ));\
  }
#define ADD_MAP_WEAPON_OUTLINE(name_base,file_name)\
  ADD_GRAPH(name_base _T("C"),0) (CLoadImage (\
      file_name,\
      TImageFX ()\
      .SetColorReplacementFX (g_WeaponRecolor[0],2,2)\
      ));

ADD_MAP_WEAPON_OVERLAY (_T("CellSword"),_T("cell_weap_sword.png"));
ADD_MAP_WEAPON_OVERLAY (_T("CellAxe"),_T("cell_weap_axe.png"));
ADD_MAP_WEAPON_OVERLAY (_T("CellEshock"),_T("cell_weap_eshock.png"));
ADD_MAP_WEAPON_OVERLAY (_T("CellLance"),_T("cell_weap_lance.png"));
//... тут очень много в таком же духе ...
ADD_MAP_WEAPON_OUTLINE (_T("CellXbow"),_T("cell_weap_xbow.png"));
ADD_MAP_WEAPON_OUTLINE (_T("CellRifle"),_T("cell_weap_rifle.png"));
ADD_MAP_WEAPON_OUTLINE (_T("CellPistol"),_T("cell_weap_pistol.png"));

>Как бы оно выглядело без макросов, предоставляю гадать желающим.
Эстеты, разумеется, могут возопить: "Пошто было не вынести всё это в функцию?!" Пото, что функцию (а она потребовалась бы методом) пришлось бы описывать в хедере вместе с классом + имплементировать где-то снаружи текущей функции - весёлое занятие, нечего сказать. Это при том, что данный конкретный кусок кода на момент написания сильномутабелен в плане кол-ва требующихся параметров, и в перспективе мог вообще исчезнуть/слиться с другим. И таких кусков там ~100500. Возможностей, с которыми использование функций для подобного действа не является злобным буратинством, в моём местном С++ пока не наличенствует. А так все релевантные к специфике данного куска пиписьки сконцентрированы в одном месте, умещаются на 1 экран, и я спокоен за возвращение к нему через много времени.

CPPGovno, 21 Августа 2011

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

C++ / Говнокод #7600

+164

1

for(int i(0); i<5; i++)

Мне интересно, кто-нибудь так же пишет?

Говногость, 20 Августа 2011

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

PHP / Говнокод #7579

+169

1
2
3
4
5
6
7

<?php

 $xml = simplexml_load_string($xmlstring);
$json = json_encode($xml);
$array = json_decode($json,TRUE);

?>

"Three line xml2array"
http://www.php.net/manual/en/book.simplexml.php#105330

striker, 18 Августа 2011

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

SQL / Говнокод #7571

−857

1

CREATE DOMAIN D_TRIBOOL AS SMALLINT DEFAULT 0 NOT NULL CHECK (VALUE IN (-1,0,1));

Возможно, вопрос о говнокодистости этой строчки является холиварным. Но меня приведённый отрывок по крайней мере немало удивил.

konsoletyper, 17 Августа 2011

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

PHP / Говнокод #7561

+173

1

define('style', '<link rel="stylesheet" type="text/css" href="/style.css">');

такого еще не встречал... o_O

Sulik78, 17 Августа 2011

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

Java / Говнокод #7525

+71

1
2
3
4

if (wdContext.nodeTable().size() <= 5)
	wdContext.currentContextElement().setRowsIn(-1);
else
	wdContext.currentContextElement().setRowsIn(-1);

foGa, 12 Августа 2011

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

PHP / Говнокод #7521

+170

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

foreach ( $HTTP_POST_VARS as $key => $value ) {$$key=$value;};

function check_existing_dateChK($checking_date) {
    	$query = "SELECT data FROM `kursChK` WHERE `data` = '$checking_date'";
    	$result = mysql_query($query) or die("Query failed");
    	$row = mysql_fetch_assoc($result);
	$exist_date=$row[data];
	if ($exist_date=="") 	{
        	return true;
    		}
	else 
		{return false;}
}

//Рисуем форму
	echo "<form method=post action=$PHP_SELF>
	<table border=0 align=center>\n
	
	<table border=0 align=center>\n
	<div style='font: 14px Tahoma; color: #F17D18; font-weight: bold;'>Заполнение курсов для Интернет-банка</div><br>
	<tr><td>Дата</td>\n
	<td><input type='text' name='dataChK' value = '$current_date' maxlength=10></td>\n
	</tr>\n
	<tr><td>Валюта</td><td>Покупка</td><td>Продажа</td></tr>\n
	<tr><td>USD</td>
	<td><input type='text' name='usdpoChK' value = '$usdpoChK_last' maxlength=5></td>
	<td><input type='text' name='usdprChK' value = '$usdprChK_last' maxlength=5></td></tr>\n
	<tr><td>EURO</td>
	<td><input type='text' name='eurpoChK' value = '$eurpoChK_last' maxlength=5></td>
	<td><input type='text' name='eurprChK'value = '$eurprChK_last' maxlength=5></td></tr>\n
	</table\n>
	
	
	<input type=submit value='Добавить курсы' name='sub'> 
	<input type=reset value=Вернуть name= reset value = '$data_l'> 
	</form><br><center><a href='http://10.1.1.234/ibank_kurs/trans.php'>Обновить курсы в ЧК</a></center><br>";

// ... много говна ...

  if ($sub=='Добавить курсы' and ($dataChK == "" or !check_existing_dateChK($dataChK)))
  {
    ?>
    <SCRIPT LANGUAGE="javascript"> alert("Запись с такой датой уже существует");
    javascript:history.back(1);
    </SCRIPT>
    <?
    $add_record=false;
  }
/.../ и так еще раз 20 в коде ниже

Обратите внимание, каким способом мы узнаем, какое действие совершил пользователь - по надписи на кнопочке! Про SQL-запрос я вообще молчу.

scriptin, 11 Августа 2011

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

1C / Говнокод #7514

−129

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

. . .
	ццц=0;                               
	Если Сотрудникз.Выбран()=0 Тогда
		Сомр= СоздатьОбъект("Справочник.Сотрудники");
		Сомр.ВыбратьЭлементы();     
		цццк=50000;
	Иначе
		Сомр=Сотрудникз;
		цццк=1;
	КонецЕсли;	  
	Пока ((ццц<цццк) ) цикл   
		ццц=ццц+1;    
		Если цццк>1 Тогда
			Если (Сомр.ПолучитьЭлемент()=0) Тогда
				Прервать;
			КонецЕсли;  
		КонецЕсли;	 
		Сотрудник = Сомр.ТекущийЭлемент();   
		Если Сотрудник.ЭтоГруппа()=1 Тогда
			продолжить;
		КонецЕсли;
                . . .

По нормальному решается:

    Сотр = СоздатьОбъект("Справочник.Сотрудники");
    Сотр.ВыбратьЭлементы();
    Пока  (Сотр.ПолучитьЭлемент() = 1)  Цикл
      . . . 
    КонецЦикла

Досталось в наследство на основной работе, самописная конфа на 7.7,
как выяснилось этот участок кода писала 50-ти летняя женщина-программист

adammartin, 11 Августа 2011

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

C++ / Говнокод #7482

+179

1

if(vara==((bool)(0)))

ОМГ.

Говногость, 07 Августа 2011

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

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