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

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

В номинации:

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

За время:

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

+149

1

$txt['aeva_gallery'] = isset($txt['aeva_gallery']) ? $txt['aeva_gallery'] : 'Media';

Кусочек языкового файла модуля медиагалереи

prodigy, 27 Марта 2011

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

bash / Говнокод #6070

−126

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

#!/bin/bash

sed -e 's/й/y/g' -i $1
sed -e 's/ц/c/g' -i $1
sed -e 's/у/u/g' -i $1
sed -e 's/к/k/g' -i $1
sed -e 's/е/e/g' -i $1
sed -e 's/н/n/g' -i $1
sed -e 's/г/g/g' -i $1
sed -e 's/ш/sh/g' -i $1
sed -e 's/щ/sch/g' -i $1
sed -e 's/з/z/g' -i $1
sed -e 's/х/h/g' -i $1
sed -e 's/ф/f/g' -i $1
sed -e 's/ы/i/g' -i $1
sed -e 's/в/v/g' -i $1
sed -e 's/а/a/g' -i $1
sed -e 's/п/p/g' -i $1
sed -e 's/р/r/g' -i $1
sed -e 's/о/o/g' -i $1
sed -e 's/л/l/g' -i $1
sed -e 's/д/d/g' -i $1
sed -e 's/ж/j/g' -i $1
sed -e 's/э/e/g' -i $1
sed -e 's/я/ya/g' -i $1
sed -e 's/ч/ch/g' -i $1
sed -e 's/с/s/g' -i $1
sed -e 's/м/m/g' -i $1
sed -e 's/и/i/g' -i $1
sed -e 's/т/t/g' -i $1
sed -e 's/б/b/g' -i $1
sed -e 's/ю/yu/g' -i $1

Перевод в английские буквы

AliceGoth, 23 Марта 2011

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

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

+75

01
02
03
04
05
06
07
08
09
10
11
12
13
14

private void configComponents(/* params */) throws MyException {
	String err_msg = null;
	try {
		// some code here...
		return;
	} catch (ComponentConfigurationException e) {
		err_msg = e.getMessage();
	} catch (MyException e) {
		err_msg = e.getMessage();
	} catch (Exception e) {
		err_msg = setupProcessErrorMessage;
	}
	throw new MyException(err_msg);
}

А rethrowing у нас уже не в почете. Правильно контрагаить ретурном из трай-секции и выбросом исключения, если трай-секция не дожила до ретурна.

mdcool, 16 Марта 2011

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

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

+162

1
2
3
4
5

foreach ($_REQUEST as $key => $value)
		{
			if (substr($key, 0, strlen("ORDER_PROP_"))=="ORDER_PROP_")
				$arPropValsTmp[$key] = htmlspecialchars($value);
		}

Забавная проверка.. Из битрикса.

revis0r, 07 Марта 2011

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

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

+96

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18

procedure TForm1.RegHttpRedirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
Log('Redirect № ' + IntToStr(NumRedirect)+ ' - '+ Dest ,  true, MainClr);
end;

procedure TForm1.HTTPCoreStatus(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
Log('Статус: '+ AStatusText, true, MainClr);
end;

{procedure TForm1.RegHttpW0rk(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin

end;}

лошарский код

megaruliz, 28 Февраля 2011

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

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

+147

1
2
3

if ($result and mysql_num_rows($result) > 0) {
   /*здесь код*/
}

бля..... ну это же php...

Sulik78, 28 Февраля 2011

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

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

+85

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
84
85
86
87
88
89
90
91
92
93

// ComPort1: TComPort; компонент для работы RS-232
type
 Tst5=string[5];
var
  Form1: TForm1;
  lastcnl:byte;
  CommonShiftTT:integer;
  roundtt:integer;
  Start_Proces:boolean;
  intN,intdg0,intdg50:integer;
  cerr,cerr0,cerr50:integer;
  intdg:integer;
  cnl:integer;
  b:array [1..5]of byte;
  s,sdg50,sdg0,ss:Tst5;
  tt,realdg:real;

implementation

{$R *.dfm}

procedure TForm1.ComPort1RxBuf(Sender: TObject; const Buffer;
  Count: Integer);
var
  i:integer;
  p:pointer;
begin
 for i:=1 to 5 do b[i]:=0;
 ListBox1.Items.clear;
 if ComPort1.Connected then begin
    p:=@Buffer;
    b[1]:=byte(p^);
  end
  else begin
    exit;
  end;
  cnl:=b[1];
  if cnl=0 then begin
    Start_Proces:=true;
  end;
  ListBox1.Items.Add(inttostr(cnl));
  if Start_Proces=true then begin
    b[2]:=Byte(pointer(longint(p)+1)^);
    b[3]:=Byte(pointer(longint(p)+2)^);
    b[4]:=Byte(pointer(longint(p)+3)^);
    b[5]:=Byte(pointer(longint(p)+4)^);

    if (b[2] and $20)>0 then ss[1]:='+' else ss[1]:='-';
    if (b[2] and $40)>0 then ss[2]:='0' else ss[2]:='1';

    FOR i:=3 TO 5 DO begin
    case b[i] of
          $82:ss[i]:='0';
          $CF:ss[i]:='1';
          $A4:ss[i]:='2';
          $85:ss[i]:='3';
          $C9:ss[i]:='4';
          $91:ss[i]:='5';
          $90:ss[i]:='6';
          $C7:ss[i]:='7';
     {min}$80:ss[i]:='8';
          $81:ss[i]:='9';
          $FF:ss[i]:='x'
        else ss[i]:=chr(b[i]);
    end;
    ss[0]:=#5;

    case cnl of
      0:begin
        vaL(ss,intdg0,cerr0);
        stR(intdg0,sdg0);
        Label1.Caption:=inttostr(intdg0);
      end;
      1:begin
        vaL(ss,intdg50,cerr50);
        stR(intdg50,sdg50);
        Label2.Caption:=inttostr(intdg50);
      end;
      2..26:begin
        vaL(ss,intN,cerr);
        intN:=intN-intdg0+CommonShiftTT;
        realdg:=intN/((intdg50-intdg0)/500);{real type}
        intdg:=SMALLINT(round(realdg));{integer type}
        tt:=intdg/10;
        roundtt:=SMALLINT(round(tt));{integer}
        stR(roundtt:5,s);
      end;
    end;
  end;
  ListBox1.Items.Add('float='+floattostr(tt));
  ListBox1.Items.Add(inttostr(cnl)+'='+ss+' = '+inttostr(roundtt));
 end;
end;

Процедура приема и обработки Кодов АЦП с контроллера. Контроллер обрабатывает данные полученные с температурных (аналоговых) датчиков и передает на COM в цифровом виде.
Сделано для АКГУП Индустриальный г. Барнаул

zak, 25 Февраля 2011

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

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