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

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

В номинации:

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

За время:

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

+153

1
2
3
4
5
6
7
8

b:=['F','G','K','L','N'];
for i:=1 to 10 do
for j:=1 to 10 do
begin
repeat
M[i,j] := chr(random(9)+70);
until M[i,j] in b;
end;

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

guest, 22 Марта 2009

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

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

+153

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

var c:longint;
begin
  c:= 12345;
  write( char(  ( ((( (c div 10000) mod 10 ) mod 2) + 1) mod 2) * (( (c div 10000) mod 10 ) +
         byte( '0' )) + (( (c div 10000) mod 10 ) mod 2) * byte(' ') ) ,
         char(  ( ((( (c div 1000)  mod 10 ) mod 2) + 1) mod 2) * (( (c div 1000)  mod 10 ) +
         byte( '0' )) + (( (c div 1000)  mod 10 ) mod 2) * byte(' ') ) ,
         char(  ( ((( (c div 100)   mod 10 ) mod 2) + 1) mod 2) * (( (c div 100)   mod 10 ) +
         byte( '0' )) + (( (c div 100)   mod 10 ) mod 2) * byte(' ') ) ,
         char(  ( ((( (c div 10)    mod 10 ) mod 2) + 1) mod 2) * (( (c div 10)    mod 10 ) +
         byte( '0' )) + (( (c div 10)    mod 10 ) mod 2) * byte(' ') ) ,
         char(  ( ((( (c div 1)     mod 10 ) mod 2) + 1) mod 2) * (( (c div 1)     mod 10 ) +
         byte( '0' )) + (( (c div 1)     mod 10 ) mod 2) * byte(' ') ) );

readln;
end.

На одном чайникофоруме попросили решить задачу на паскале: вывести все чётные цифры пятизначного числа. При этом нельзя пользоваться функциями, циклами и условными операторами. Вот, что у меня из этого получилось :)

guest, 05 Марта 2009

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

Си / Говнокод #659

+153

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

//заполнение рандомными числами двух первых массивов и вывод их на экран:
for (i=0;i<n;i++){
for (j=0;j<m;j++){
	randomize();
	A[i][j]=random(100)-50;
	printf("A[%d][%d]:",i,j);
	printf("%d",A[i][j]);
}}
for (i1=0;i1<n1;i1++){
for (j1=0;j1<m1;j1++){
	randomize();
	B[i1][j1]=random(100)-50;
	printf("B[%d][%d]:",i1,j1);
	printf("%d",B[i1][j1]);
}}
//сложение матриц:
for (i=0;i<n;i++){
for (j=0;j<m;j++){
for (i1=0;i1<n1;i1++){
for (j1=0;j1<m1;j1++){
	C[i2][j2]=A[i][j]+B[i1][j1]
}}}}
//а описание одних только счетчиков выглядит так:
int i,j,i1,j1,i2,j2,i3,j3,i4,j4,is,js,ir,jr;

Восстановлено по памяти из незаконченной лабы одной программистки-первокурсницы

guest, 04 Марта 2009

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

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

+153

01
02
03
04
05
06
07
08
09
10

foreach (DirectoryInfo dir in dirs.GetDirectories())
            {
                stream.Write(new byte[] { (byte)NetworkMessage.MakeDir }, 0, 1);//crea\te folder{16}
                stream.Read(new byte[1],0,  1);
                stream.Write(BitConverter.GetBytes(Encoding.UTF8.GetBytes(SubFolder.Replace('\\', '/') + dir.Name.Replace('\\', '/')).Length),0,  4);
                stream.Write(Encoding.UTF8.GetBytes(SubFolder.Replace('\\', '/') + dir.Name.Replace('\\', '/')),0,  Encoding.UTF8.GetBytes(SubFolder.Replace('\\', '/') + dir.Name.Replace('\\', '/')).Length);
                //send folder name

                stream.Read(new byte[1], 0, 1);//Ok
            }

Краткость-сестра таланта =)))

guest, 04 Марта 2009

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

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

+153

1
2
3
4
5
6
7

if (Connected == 0))
{
	rez = setup();
	fl_end = true;	// выход
}
else
	fl_end = true;

наверно был тяжелый день

guest, 12 Февраля 2009

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

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

+153

1

echo '<a href="#" onclick="RequestTrainList(\'' . $dateStamp . '\', this, \'' . $modeFull . '\'); return false;"' . ($dateStart == $dateStamp ? ' class="active"' : '') . '>' . $cDay . ' ' . $months[$cMonth - 0] . '</a>';

Харе Кришна, Харе Рама!

guest, 10 Февраля 2009

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

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

+153

1
2
3

Bool IsNumber (string str) {
return (str.Replace ("0", "").Replace ("1", "").Replace ("2", "").Replace ("3", "").Replace ("4", "").Replace ("5", "").Replace ("6", "").Replace ("7", "").Replace ("8", "").Replace ("9", "").Length == 0);
}

Где-то находил. Вроде это на Java

guest, 08 Февраля 2009

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

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

+153

1
2
3

function db_encode_blob($data) {
 return $data;
}

Drupal

guest, 27 Января 2009

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

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

+152.9

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
var hwndPM:hwnd;
PMH:thandle;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Enabled:=false;
Sleep(100);
hwndPM:=FindWindow('ProgMan', Nil);
if (hwndPM=0)or(hwndPM=$ffffffff) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
pmh:=0;
{GetWindowThreadProcessId(hwndPM,PMH);
if (PMh=0)or(PMh=$ffffffff) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;}
{PostMessage(hwndpm,wm_close,0,0);
PostMessage(hwndpm,wm_destroy,0,0);}
if not PostMessage(hwndpm,wm_quit,0,0) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
Sleep(1000);
if winexec('explorer.exe',SW_SHOWNORMAL	)<=31 then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
Sleep(4000);
Halt;
end;

end.

Это в принципе почти вся прога. Запускается с рабочего стола и сразу закрывается, сделав своё дело.
Поставляется даже с инсталятором. O_o
Друзья, говорили, что работу свою делает исправно. Если система заглючила - её запускают. Покрайней мере так делали во времена ХР. Пользуются ли ей сейчас - незнаю, давно не разговаривал.

Говногость, 13 Марта 2010

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

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

+152.9

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

program CDPower;
uses  windows,mmsystem;
{$R *.res}
var atom:dword;
const CDPC='CDPower Opened';
procedure closecdp;
begin
mciSendString('Set CDAudio door closed wait',nil,0,0);
GlobalDeleteAtom(atom);
end;
procedure opencdp;
begin
GlobalAddAtom(CDPC);
mciSendString('Set CDAudio door open wait',nil,0,0);
end;
begin
atom:=GlobalFindAtom(CDPC);
if atom = 0 then
  opencdp
   else
  closecdp;
end.

Программа при запуске со значка с рабочего стола открывает лоток СD/DVD привода и закрывает.
Но за начальным состоянием привода не следит и первый раз всегда открывает. :D

А у меня дома два DVD. Ыыы.))

Говногость, 13 Марта 2010

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

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