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

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

В номинации:

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

За время:

C# / Говнокод #949

+151

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

public static DataSet ExecuteStoredProcedure(StoredProcedures procedure, Hashtable parameters, int nTries)
		{
			int retries = 0;

			while(retries<nTries)
			{
				try
				{
					return ExecuteStoredProcedure(procedure, parameters);
				}
				catch(Exception)
				{
					retries++;
				}
			}
			return null;
		}

Вот так вот екзекутились некоторые процедуры в проекте под CF. Возможно так хотели решить проблему с потерей коннекшена у девайса при врадении в слип? :)

guest, 24 Апреля 2009

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

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

+151

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

procedure Load_flashDEF_setings;
var
  Reg: TRegistry;
  RegKeyPath: string;
begin
 Reg := TRegistry.Create;
 try
  with Reg do begin
   RootKey := HKEY_CURRENT_USER;
   RegKeyPath := 'Software\fuckinSoft';
   OpenKey(RegKeyPath, True);
   if ReadBool('Wipe_File')=false then begin Main.frmMain.CBx_wipe_file.Checked:=false;
   end
   else
   if ReadBool('Wipe_File')=true then begin Main.frmMain.CBx_wipe_file.Checked:=true;
   end
   else
   if ReadBool('Def_Module')=false then begin Main.frmMain.CBx_defence_module.Checked:=false;
   end
   else
   if ReadBool('Def_Module')=true then begin Main.frmMain.CBx_defence_module.Checked:=true;
   end
  end
 finally
  Reg.CloseKey;
  Reg.Free;
 end;
end;
 
procedure Save_flashDEF_setings;
var
  Reg: TRegistry;
  RegKeyPath: string;
begin
 Reg := TRegistry.Create;
 try
  with Reg do begin
   RootKey := HKEY_CURRENT_USER;
   RegKeyPath := 'Software\fuckinSoft';
   OpenKey(RegKeyPath, True);
   if Main.frmMain.CBx_wipe_file.Checked=true then begin WriteBool('Wipe_File', true);
   end
   else
   if Main.frmMain.CBx_wipe_file.Checked=false then begin WriteBool('Wipe_File', false);
   end
   else
   if Main.frmMain.CBx_defence_module.Checked=true then begin WriteBool('Def_Module', true);
   end
   else
   if Main.frmMain.CBx_defence_module.Checked=false then begin WriteBool('Def_Module', false);
   end
  end
 finally
  Reg.CloseKey;
  Reg.Free;
 end;
end;

Ифы хороши в меру =\

guest, 23 Апреля 2009

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

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

+151

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

if kol=1 then begin
 if GSravn.Cells[kol,Str]='VF'
            then GSravn.Cells[kol,Str]:='RF'
            else if GSravn.Cells[kol,Str]='RF'
                    then GSravn.Cells[kol,Str]:='PF'
                    else if GSravn.Cells[kol,Str]='PF'
                            then GSravn.Cells[kol,Str]:='PT'
                            else if GSravn.Cells[kol,Str]='PT'
                                    then GSravn.Cells[kol,Str]:='RT'
                                    else if GSravn.Cells[kol,Str]='RT'
                                            then GSravn.Cells[kol,Str]:='VT'
                                            else if GSravn.Cells[kol,Str]='VT'
                                                    then GSravn.Cells[kol,Str]:='VF';

%)

guest, 23 Апреля 2009

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

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

+151

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

<?php
class A {
	function __get($prop) {
		var_dump($prop);
		$this->$prop = '123';
		return null;
	}
}

$a = new A;
$prop = '01.01.01';
$a->$prop;
var_dump($a);

guest, 20 Апреля 2009

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

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

+151

1
2
3

if (null == ids || (null != ids && !ids.isEmpty())) {
	requests = dao.getMyAnsweredRequests(userId, firstResult, maxResults, ids);
}

Выполняеться в любом случае

guest, 14 Апреля 2009

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

Куча / Говнокод #849

+151

1
2
3

</div>
    <b class="r1"></b><b class="r1"></b><b class="r1"></b><b class="r2"></b><b class="r2"></b><b class="r3"></b><b class="r4"></b><b class="r5"></b><b class="r7"></b><b class="r10"></b>
</div>

говнокод из хтмл-ки >>>ЭТОГО<<< сайта! ;)

guest, 10 Апреля 2009

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

Куча / Говнокод #823

+151

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

# Безлимит со статических адресов
### здесь с адресов 192.168.0.0/24 пускает только в сеть 10.x.x.x, но не в интернет.
### при задании четко route add x.x.x.x gw 10.254.254.254, то на этот x.x.x.x ходит нормально, а дальше нини...
iptables -t nat -A POSTROUTING -s 192.168.0.0/24 -o eth2 -j SNAT --to-source 10.x.x.x

# Лимит с адресов полученных при подключении к pptpd
### здесь вообще все нормально, все кто подключаются к pptpd ходят в интернет по правильному ипу.
iptables -t nat -A POSTROUTING -s 192.168.1.0/24 -o eth1 -j SNAT --to-source 212.x.x.x

# результат route
Kernel IP routing table
Destination     Gateway         Genmask         Flags Metric Ref    Use Iface
192.168.1.50    *               255.255.255.255 UH    0      0        0 ppp0
### здесь все клиента pptpd...
212.x.x.x       *               255.255.255.224 U     0      0        0 eth1
192.168.0.0     *               255.255.255.0   U     0      0        0 eth0
10.0.0.0        *               255.0.0.0       U     0      0        0 eth2
default         212.x.x.x       0.0.0.0         UG    0      0        0 eth1
default         10.x.x.x        0.0.0.0         UG    1      0        0 eth2

iptables

guest, 07 Апреля 2009

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

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

+151

1
2
3
4
5

case PInboxMessage(InboxMessagesList.Items[Item.Index])^.MsgState of
    0 : Item.ImageIndex:=0;
    1 : Item.ImageIndex:=1;
  end;
    1 : Item.ImageIndex:=1;  end;

Зачем использовать оператор case для проверки...

guest, 04 Апреля 2009

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

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

+151

1
2
3
4
5
6
7
8

//файл config.php
$include_path = "../newincludes/";

//хедер КАЖДОЙ страницы
$include_path = "../../includes/";
include_once($include_path."config.php");
//а вот тут уже ни разу не тот путь!
include_once ($inсlude_path."page-template.php");

так прописывают пути только мудаки - и вот накуя одну и туже переменную мало того, что задавать в конфиге, так ещё и в хедере каждой страницы зафигачивать (причём чаще всего с разными значениями)?

guest, 18 Марта 2009

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

C# / Говнокод #688

+151

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
94
95
96
97
98

 DESCRIBE TABLE name_org LINES count. "Кол-во организаций
  DESCRIBE TABLE targ_pos LINES count1.
  SORT name_org BY org.
*  SORT targ_pos BY org sign_dk shkzg regn_doc.
  IF count > 2.
    SORT targ_pos BY shkzg org regn_doc.
  ELSE.
    SORT targ_pos BY shkzg org sign_dk regn_doc.
  ENDIF.
  LOOP AT targ_pos.
    metka = sy-tabix.
    IF count > 2.
      CONCATENATE targ_pos-org targ_pos-shkzg INTO comp.
    ELSE.
      CONCATENATE targ_pos-org targ_pos-sign_dk targ_pos-shkzg
                  INTO comp.
    ENDIF.
    IF comp <> comp1.
      IF metka <> 1.
        WRITE: AT /pole sy-uline.
        WRITE: AT /pole 'Итого: '.
        IF s_nds IS NOT INITIAL.
          WRITE: AT (14) snds UNDER targ_pos-nds NO-SIGN INPUT ON."<e1>
        ENDIF.
        WRITE: AT (15) ssum UNDER targ_pos-dmbtr NO-SIGN.
        PERFORM ad_itog USING comp1(10)"targ_pos-org
                              shkzg
                              snds
                              ssum.
        SKIP 1.
      ENDIF.
      IF count > 2.
        READ TABLE name_org WITH KEY org = targ_pos-org BINARY SEARCH.
      ELSE.
        IF metka = 1.
          READ TABLE name_org WITH KEY org = 'ABCDE' BINARY SEARCH.
        ELSE.
          READ TABLE name_org WITH KEY org = targ_pos-org
               BINARY SEARCH.
        ENDIF.
      ENDIF.
      org = name_org-name.CONDENSE org.
      IF name_org-org NE 'ABCDE'.
        CONCATENATE org '(' name_org-org ')' INTO org SEPARATED BY ''.
      ENDIF.
      IF count > 2 AND metka = 1.
        READ TABLE name_org WITH KEY org = 'ABCDE' BINARY SEARCH.
        CONCATENATE name_org-name '-' org INTO org SEPARATED BY space.
      ENDIF.
      WRITE: AT /pole 'Плательщик:', org. "name_org-name.
      WRITE: AT /pole sy-uline.
      WRITE: AT /pole text-002, ' ' NO-GAP,
                text-003, ' ' NO-GAP, text-004, ' ' NO-GAP,
                text-010, ' ' NO-GAP, text-005.
      IF s_nds IS NOT INITIAL. "<e1>
        WRITE:  text-006 RIGHT-JUSTIFIED.
      ELSE.
        WRITE:  '              '.
      ENDIF.
      WRITE:    text-007 RIGHT-JUSTIFIED,
                ' ' NO-GAP, text-008.
      WRITE: AT /pole sy-uline.
*      SKIP 1.
      snds = 0.
      ssum = 0.
      IF metka <> 1.
        comp = comp1.
      ENDIF.
    ENDIF.
    WRITE: AT /pole targ_pos-regn_doc HOTSPOT, ' ' NO-GAP,
             targ_pos-regn_dat, ' ' NO-GAP,
             targ_pos-acc_sch, ' ' NO-GAP,
             targ_pos-n_doc(6), ' ' NO-GAP,
             targ_pos-matkl(27) INPUT ON.
 WRITE: AT (15) targ_pos-dmbtr NO-SIGN, ' ' NO-GAP, targ_pos-hkont.
    HIDE: targ_pos-regn_doc, targ_pos-gjahr.
    shkzg = targ_pos-shkzg.
    if lv_flag is not initial. 
      ADD targ_pos-nds TO snds.
    endif. 
    ADD targ_pos-dmbtr TO ssum.
    IF count > 2.
      CONCATENATE targ_pos-org targ_pos-shkzg INTO comp1.
    ELSE.
      CONCATENATE targ_pos-org targ_pos-sign_dk targ_pos-shkzg
                  INTO comp1.
    ENDIF.
    IF metka = count1.
      WRITE: AT /pole sy-uline.
      WRITE: AT /pole 'Итого: ',
*             AT (14) snds UNDER targ_pos-nds NO-SIGN INPUT ON,
             AT (15) ssum UNDER targ_pos-dmbtr NO-SIGN.
      PERFORM ad_itog USING comp1(10)  "targ_pos-org
                            shkzg
                            snds
                            ssum.
    ENDIF.
  ENDLOOP.

Расширьте, пожалуйста, список доступных языков для говнокода.

guest, 10 Марта 2009

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

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