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

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

В номинации:

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

За время:

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

−166

1
2
3
4
5
6
7
8

Function toString(aDate) export
		s=Format(Строка(aDate),"ДФ=ддMMгггг");
		return лев(s,10);
endFunction

.......
ДатаДД=uDates.toString(Отбор.Дата);
.......

Функция находится в общем модуле uDates.
Вызов функции происходит в одном из документов:

Danik, 17 Июля 2013

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

JavaScript / Говнокод #13432

+156

01
02
03
04
05
06
07
08
09
10
11

var indparents = [72,74,62,6,71,783,3,63,67,76,75,61,4,65,5,73,199,195,70,2,69,68,64,66];
var ev = "";
var onmouse = [];
var delayon = 100;
var delayover = 200;
var speedppd = 300;
for (var indparent in indparents) {
	var val=indparents[indparent];
	ev += "$(\"div#indparent-"+val+"\").mouseleave(function(){window.onmouse["+val+"]=false;setTimeout(function(){if(!window.onmouse["+val+"]){$(\"div#indchild-"+val+"\").slideUp(window.speedppd);}},window.delayover);});$(\"div#indparent-"+val+"\").mouseenter(function(){window.onmouse["+val+"]=true;setTimeout(function(){if(window.onmouse["+val+"]){$(\"div#indchild-"+val+"\").slideDown(window.speedppd);}},window.delayon);});$(\"div#indchild-"+val+"\").mouseleave(function(){window.onmouse["+val+"]=false;setTimeout(function(){if(!window.onmouse["+val+"]){$(\"div#indchild-"+val+"\").slideUp(window.speedppd);}},window.delayover);});$(\"div#indchild-"+val+"\").mouseenter(function(){window.onmouse["+val+"]=true;setTimeout(function(){if(window.onmouse["+val+"]){$(\"div#indchild-"+val+"\").slideDown(window.speedppd);}},window.delayon);});";
}
$(document).ready(function(){eval(ev)});

Эвалим~ Сегодня мы с тобой эвалим~

Stallman, 16 Июля 2013

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

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

+147

1
2
3
4
5
6
7
8
9

<?php
 session_start();
  unset($_SESSION['login']);
  session_destroy();
  echo"<script type='text/javascript'>";
  echo"document.location.href='/'";
  echo"</script>";
 }
?>

Такой вот выход

MERRON, 03 Июля 2013

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

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

+130

1

<option value="Какое ваше девичья фамилия вашей матери?">Какое ваше девичья фамилия вашей матери?</option>

Экономим на переводах...

nonamez, 25 Июня 2013

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

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

+128

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

// используемые переменные
 var
   Dummy: integer = 0;
   OldKbHook: HHook = 0;

 implementation

 function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
 begin
   if code < 0 then
     Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
   else
     Result := 1;
 end;

// включение клавы

 procedure TForm1.KeyBoardOn(Sender: TObject);
 begin
   if OldKbHook <> 0 then
   begin
     UnHookWindowshookEx(OldKbHook);
     OldKbHook := 0;
   end;
   SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, 0, 0);
   SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
 end;

 // выключение клавы

 procedure TForm1.KeyBoardOff(Sender: TObject);
 begin
   SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
   SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
   OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
 end;

Попытка вырубить клаву, сев на нее.

Stertor, 23 Июня 2013

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

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

−166

01
02
03
04
05
06
07
08
09
10

Попытка
	ФС.КопироватьФайл(Каталог+Файл+Расширение,НовоеИмя,1);
	Если ФС.СуществуетФайл(НовоеИмя)=0 Тогда
		СоздатьОбъект("АбсолютнаяЧушь");
	КонецЕсли;
	НовоеЗначение=Сред(НовоеИмя,СтрДлина(Лев(КаталогИБ(),СтрДлина(КаталогИБ())-1)+"-MEDIA\")+1);
	НовоеСтрока=НовоеЗначение;
Исключение
	Предупреждение("Не удаётся скопировать файл!",5);
КонецПопытки;

Классный способ вызвать исключение.

jerokee, 16 Мая 2013

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

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

+136

1
2
3
4
5

void ps(const char *a)
{/*means putstring*/
	for(; '\0' != *a; a++)
		putchar(' ' != *a ? *a : (putchar('\n'),'\t'));
}

Как-то ночью, в час унылый, в голове собрав все силы,
Разум темный, как могила, начал свой хромой закон.
Начиная выражаться, а точнее проявляться,
В мир безбрежный и зеленый, зло построило свой ход:
Пальцы тонкие и злые, подчиняясь темной силе,
Выхватив перо в чернилах, вывели сей говногод.

ntfshard, 18 Апреля 2013

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

Objective C / Говнокод #12884

−112

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

+(NSString*)filterDigits:(NSString*)number
{
    unichar zer = '0', nine = '9', cur;
    unsigned long l = [number length];
    NSMutableData *buf = [NSMutableData data];
    for (unsigned long j = 0; j!=l; j++)
    {
        cur = [number characterAtIndex:j];
        if (cur>=zer&&cur<=nine)
        {
            char digit = (char)cur;
            [buf appendBytes:&digit length:sizeof(char)];
        }
        
    }
    NSString* ret = [[[NSString alloc] initWithData:buf encoding:NSUTF8StringEncoding] autorelease];
    return ret;
}

Золотые у тебя руки парень. Но всеравно не оттуды растут (;

Psionic, 11 Апреля 2013

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

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

+13

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

std::string StringUtilities::replace(const std::string& strValue,
                                     uint8_t piWhat,
                                     uint8_t piWith)
{  
  size_t len = strValue.length();
  uint8_t* lTemp = new uint8_t[len + 1];
  memset(lTemp, '\0', len + 1); //+ 1 for \0
  memcpy(lTemp, strValue.c_str(), len);
  for (size_t i = 0; i < len; i++)
  {
    if (lTemp[i] == piWhat)
      lTemp[i] = piWith;
  }
  return string( (int8_t*) lTemp );  
}

Любители велосипедов...

blackhearted, 10 Апреля 2013

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

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