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

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

В номинации:

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

За время:

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

+150

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

VAR FL:TEXTFILE;
    l:string;
    i:integer;
    xmass,itrmass:array [1..100] of real;
begin
{...}
 ASSIGNfile(FL,'results.txt');
   reset(fl);
   readln(fl,l);
   i:=1;
    while L[i]<>' ' do begin
     xmass[i]:=strtoint(L[1]);
     i:=i+1;
                       end;
{...}
end;

В файле хранилась последовательность вещественных чисел... Такой вот вариант ее оттуда выкорчевать о_О

guest, 19 Февраля 2009

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

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

+146

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

<?php

// Функция рассылки писем
// .........

if ($row['site_id'] == 0 and array_search($template, $not_readnotify) === false)
	{
		$to = $row['email'].'.readnotify.com';
	}
	else{
		$to = $row['email'];
	}

        $to = $row['email'];

// ..........

?>

Я видел всякие чудеса на свете. Но мне после отработки скрипта один раз пришло письмо от [email protected]
o_O

(c) n3m0

guest, 18 Февраля 2009

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

ActionScript / Говнокод #566

−100

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

...
@font-face 
{
  src: url("/components/TimeNewRoman.swf");
  fontFamily: "Times New Roman";
}
...
TextArea { 
    backgroundAlpha: 0.07;
    backgroundColor: #ffffff;
    borderColor: #99ff00;
    color: #99ff66;
    font-family: "Times New Roman";
}
...

обнаружил в css своего РАБОЧЕГО проекта... не, спать все-таки надо временами)

guest, 18 Февраля 2009

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

SQL / Говнокод #565

−30.1

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

select t1.PosTag, t1.KlTOt, t1.NameKipID, t1.TypMarkaName, t1.Lim, t1.EdIzm,
t1.OD_NUMMNF, t1.PeriodP, t1.PeriodK, 
D3, D5, 
case
--поверка
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.DataOchP))  =1 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_1p)) =1 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_2p)) =1 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_3p)) =1 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_4p)) =1 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_5p)) =1 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd6_1p)) =1 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd6_2p)) =1 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.ddp)) =1 then 'Пм'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.DataOchP))  =1 then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_1p)) =1  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_2p)) =1  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_3p)) =1  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_4p)) =1  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_5p)) =1  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd6_1p)) =1  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd6_2p)) =1  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.ddp)) =1  then 'П'
--калибровка
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.DataOchK))  =1 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd3_1k)) =1 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd3_2k)) =1 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd3_3k)) =1 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd3_4k)) =1 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd3_5k)) =1 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd6_1k)) =1 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd6_2k)) =1 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.ddk)) =1 then 'Км'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.DataOchK))  =1 then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd3_1k)) =1  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd3_2k)) =1  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd3_3k)) =1  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd3_4k)) =1  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd3_5k)) =1  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd6_1k)) =1  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd6_2k)) =1  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.ddk)) =1  then 'К' end a1,
case
--поверка
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.DataOchP))  =2 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_1p)) =2 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_2p)) =2 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_3p)) =2 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_4p)) =2 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_5p)) =2 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd6_1p)) =2 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd6_2p)) =2 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.ddp)) =2 then 'Пм'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.DataOchP))  =2 then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_1p)) =2  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_2p)) =2  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_3p)) =2  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_4p)) =2  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_5p)) =2  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd6_1p)) =2  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd6_2p)) =2  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.ddp)) =2  then 'П'
--калибровка
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.DataOchK))  =2 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd3_1k)) =2 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd3_2k)) =2 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd3_3k)) =2 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd3_4k)) =2 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd3_5k)) =2 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd6_1k)) =2 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.dd6_2k)) =2 then 'Км'
when Convert(varchar,t1.ArealK) = '1' and Convert(varchar,MONTH(t1.ddk)) =2 then 'Км'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.DataOchK))  =2 then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd3_1k)) =2  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd3_2k)) =2  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd3_3k)) =2  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd3_4k)) =2  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd3_5k)) =2  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd6_1k)) =2  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.dd6_2k)) =2  then 'К'
when Convert(varchar,t1.ArealK) <> '1' and Convert(varchar,MONTH(t1.ddk)) =2  then 'К' end a2, 
case
--поверка
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.DataOchP))  =3 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_1p)) =3 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_2p)) =3 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_3p)) =3 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_4p)) =3 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd3_5p)) =3 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd6_1p)) =3 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.dd6_2p)) =3 then 'Пм'
when Convert(varchar,t1.ArealP) = '1' and Convert(varchar,MONTH(t1.ddp)) =3 then 'Пм'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.DataOchP))  =3 then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_1p)) =3  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_2p)) =3  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_3p)) =3  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_4p)) =3  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd3_5p)) =3  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd6_1p)) =3  then 'П'
when Convert(varchar,t1.ArealP) <> '1' and Convert(varchar,MONTH(t1.dd6_2p)) =3  then 'П'

Взято со знаменитого топика на sql.ru: http://sql.ru/forum/actualthread.aspx?tid=591607
Писано ручками некоего безумца. Тому, кто занял его место впоследствии, было дано задание оптимизировать это под угрозой увольнения.
P.S. Функционал сайта, как выяснилось, не держит больше 100 строк говнокода, поэтому с полным текстом лучше ознакомиться по данной выше ссылке.

guest, 18 Февраля 2009

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

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

+147

1
2
3

private static string ParseDate(DateTime date) {
    return date.ToString(Consts.Formatting.SHORT_DATE_WITH_SHORT_YEAR_DATA_FORMAT, CultureInfo.InvariantCulture);
}

неожиданный нейминг naming. после использования - сжечь

guest, 17 Февраля 2009

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

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

+141.5

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

$db = S4Y::getInstance()->getDb();
        $sql = 'INSERT INTO publish_groups (domain, name)
            VALUES (:domain, :name)';
        $db->query(
            $sql, array('domain' => S4Y::$domain, 'name' => $_POST['subgroup'])
        );
        if ($this->_groupId) {
            $last_insert_id = $db->lastInsertId();
            $sql = 'UPDATE publish_groups
                SET parent_id = :parent
                WHERE id = :id';
            $db->query(
                $sql,
                array('parent' => $this->_groupId, 'id' => $last_insert_id)
            );

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

guest, 16 Февраля 2009

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

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

+145

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

<?

$mytext = iconv('windows-1251', 'utf-8', $mytext);
echo $mytext;

//There is a little problem with iconv in such using
//This code isn't work correctly. Solution is:

$mytext = iconv('windows-1251', 'utf-8', $mytext);
echo $mytext;

?>

Я всегда говорил что бездумная перепечатка чужих мануалов это зло...

guest, 13 Февраля 2009

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

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

−270.2

1

Private m_FuckupDate As Date   'date when fuckup happened

Глобальная переменная в классе

guest, 12 Февраля 2009

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

Python / Говнокод #538

−354.8

1
2
3
4

infle = list()
for line in inf.read().splitlines():
  infle.append(line.decode('windows-1251'))
infile = iter(infle)

Функция принимает параметр inf... через пол-экрана:

guest, 11 Февраля 2009

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

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