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

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

В номинации:

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

За время:

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

+94

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

for k:=1 to 5 do begin
new (z2);
z2^.pole1:=k;
z2^.pole2:=z1;
z1:=z2;
end;

for k:=1 to 5 do begin
z2^.pole3:=z1;
z1:=z2;
z2:=z2^.pole2;
end;

Вот так в нашем универе учат создавать двунаправленые массивы. Код кстати не только принципиально индусский, но еще и не рабочий.

Tairesh, 31 Января 2012

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

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

+146

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

function WGen()
{
    $words  = array();
    $words  = array(
        'я',
        'ты',
        'он',
        'она',
        'купил',
        'машина',
        'а',
        'и',
        'да',
        'нет',
        'дом',
        'получил',
        'чипсы',
        'съел',
        'секс',
        'было',
        'много',
        'дура'
    );
    $Random = sizeof($words) - mt_rand(1, sizeof($words) - 2);
    for ($i = 0; $i < $Random; $i++) {
        $k      = array_rand($words);
        $sent[] = $words[$k];
    }
    foreach ($sent as $s) {
        echo $s . ' ';
    }
}

http://codepaste.ru/1049/

Unknown, 28 Января 2012

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

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

+159

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

//Перевод в 2/10 систему
BOOL
CChannel::DecTo2Dec(UCHAR Dec,
					CHAR *Dec2)
{
	TCHAR digitstring[10] = {0};
	INT	Hi = 0;
	INT	Lo = 0;

	_stprintf_s(digitstring,TEXT("%d"),Dec);
	INT digitstringLen = _tcslen(digitstring);
	Lo = _ttoi(digitstring + 1);
	*(digitstring + 1) = 0;
	Hi = _ttoi(digitstring);
	
	if(digitstringLen>1)
	{
		*Dec2 = Lo + Hi * 0x10;
	}
	else
		*Dec2 = Hi;
	return TRUE;
}

Перевод в BCD через строку!

azote, 27 Января 2012

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

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

+127

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

resid := "ANeNaidenVidShortNameNA";
defval := "(Не найден вид '(ShortNameNA)')";
nenay:=@DbLookup("":"NoCache";"":"ResDB.nsf";"(Res)";lng+resid;2);
nenay:=@If(@IsError(nenay);defval;nenay);

key:=@Name([Abbreviate]; @UserName);

serv:=@GetProfileField("CommonDBProfile"; "StructServer"; @ServerName);
db:=@GetProfileField("CommonDBProfile"; "StructDB"; @ServerName);

@If (serv="" | db=""; @Do(
@Prompt([Ok];osh; vstr);
@Return(vstr)
); "");

StructServer1:=@DbLookup("":"NoCache"; serv:db; "(NAShortNamePost)"; key; "StructServer" ) ;
StructDB1:=@DbLookup("":"NoCache"; serv:db; "(NAShortNamePost)"; key; "StructDB" ) ;

@If(StructDB1 = ""; @Do(@Prompt([Ok]; vnim; vstr); @Return("")); @Success);
a := @Trim(@PickList([Custom];StructServer1 :StructDB1; "(ShortNameNA)";sel; sel1; 5));
@If(@IsError(a); @Do(@Prompt([Ok]; osh; nenay); @Return("")); @Success);
@If(a = ""; @Do(@Prompt([Ok]; vnim; vneob); @Return("")); @Success);

FIELD NamesAlias:=  @Middle(a; "$"; "#");
FIELD IndDepart := @Explode(@Implode(@Trim(@Left(a;"*"));";");";");
FIELD Depart := @Middle(a; "*"; "$");
FIELD Empl :=  @Middle(a; "$"; "#");

FIELD EmplNotesAdr:= @Explode(@Implode(@Trim(@Middle(a; "#"; "%"));";");";");
FIELD Replacer := @Trim(@Middle(a; "%"; "?"));

FIELD ReplacerNotesAdr := @Explode(@Implode(@Trim(@Middle(a; "?"; "+"));";");";");

FIELD ServerName:=@Explode(@Implode(@Trim(@Right(a;"+"));";");";");
REM {FIELD CtrlDate:=@Adjust(@Today;0;1;0;0;0;0 )};
FIELD a3:=@Date(@Today);

FIELD a6:=@Middle(a; "$"; "#")+"<< >> " ;

FIELD IndDepart:=IndDepart ;
FIELD Depart:=Depart;
FIELD Replacer :=@Unique(Replacer );
FIELD ReplacerNotesAdr:=@Unique(@Name([Abbreviate];  ReplacerNotesAdr));
FIELD ServerName:=@Unique(@Name([Abbreviate];ServerName));
@Command([RunAgent];"(CheckWall)");
@Command([RefreshFrame];"Document")

документооборот епта

d_dev, 27 Января 2012

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

VisualBasic / Говнокод #9220

−98

01
02
03
04
05
06
07
08
09
10

For I = nrow_Start To nrow_Stop
    Do
        If Nrow_Frm1 = I Then Exit Do
        If Nrow_Frm2 = I Then Exit Do
        If Nrow_Frm3 = I Then Exit Do
        If Nrow_Frm4 = I Then Exit Do
    
        Cells(I, ncol_Period).FormulaR1C1 = formula
    Loop While False
Next I

И такое встречается..

hexman, 25 Января 2012

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

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

+157

1
2

if (!isset($GLOBALS['abort']) || ! $GLOBAL['abort'] || $GLOBALS['abort'] !== true || !$_SESSION["AMP_user"]->checkSection('999')) {
			if (core_devices_add($deviceid,$tech,$devinfo_dial,$devicetype,$deviceuser,$description,$emergency_cid)) {

Нашёл внутри Elastix'a

admincheg, 21 Января 2012

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

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

+145

1
2
3
4
5
6
7
8

<i id="hdrtxt"><?php echo $item['header']; ?></i>
<style>
...
#hdrtxt{
font-style:normal;
}
...
</style>

khaletskiy, 20 Января 2012

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

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

+106

01
02
03
04
05
06
07
08
09
10
11

public void CheckMemoStyle(bool isChecked)
{
    if (isChecked)
    {
        memoStyleLayoutCntrl.Selected = true;
    }
    else
    {
        memoStyleLayoutCntrl.Selected = false;
    }
}

memoStyleLayoutCntrl.Selected = isChecked; уже не модно?

alpha2050, 19 Января 2012

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

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

+114

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

public void Dispose()
        {
            Dispose(true);  
            GC.SuppressFinalize(this);
        }

        protected virtual void Dispose(bool disposing)
        {
            _channelRedrawManager.StopProcessing();
        }

        ~ChannelControlViewModel()
        {
            Dispose(false);
        }

Деструкти правильно..

Lifter, 19 Января 2012

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

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

+150

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

if(!$this->user->isVip())
			{
				$balls_us=$this->user->balls_video;
				$balls_comm=$this->user->balls_comm;
				$balls_summ=$balls_comm+$balls_us;
				if ($balls_summ>=1000)
				{
					$this->user->add('roles',ORM::factory('role',2));
				}
				else if($this->user->isVip())
				{
					if($balls_summ<1000)
					{
						$this->user->remove('roles',ORM::factory('role',2));
					}
					else
					{}
				}
			}

как работает этот else if($this->user->isVip()), если вначале условие что если не вип..
ппц..

Samedi, 18 Января 2012

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

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