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

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

В номинации:

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

За время:

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

+1000

1
2
3
4

procedure PP.Execute;
begin inherited;
(Sender as TIndusImage).KOT;
end;

В Delphi XE, не знаю с какой версии начиная (в XE7 и XE8 точно) крупные проблемы с TGifImage, а если точнее - если быстро и много их менять, то рано или поздно вываливается тупо всё вместе с интерфейсом (100% где-то в потоках налажали), причем если быстро менять BMP, то всё ОК.

Пришла в голову идея в потоке самому менять кадры анимации, подгружая их как BMP, и дабы затестить сработает ли вообще, начал писать тестовую прогу.

Писал особо не заботясь ни о чем, а потом заметил вот таких индусских котов.

KOTOM, 03 Августа 2015

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

bash / Говнокод #18531

−392

1

test "$(whoami)" != 'root' && (echo you are using a non-privileged account; exit 1)

Real Programmers
Most programmers will prefer to use the test built-in command, which is equivalent to using square brackets for comparison, like this

http://tldp.org/LDP/Bash-Beginners-Guide/html/sect_07_01.html#sect_07_01_02_03

Вот такие они, real programmers.
Подсказка: Круглые скобки в шелле запускают саб-шелл

Elvenfighter, 25 Июля 2015

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

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

+38

1

link.setUrlDownload(url.replaceAll("%21", "!").replaceAll("%20", ""));

Необучаемость.

3_14dar, 08 Июля 2015

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

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

−94

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

# Мы хотели бы подключиться к базе данных. Мы не знаем, верны ли логин и пароль
# Если соединение с базой будет неуспешно, то
# Он бросит исключение. Обратите внимание, что MyDatabase и DatabaseException
# НЕ являются реальными классами, мы просто используем их в качестве примеров.

try:
    database = MyDatabase(db_host, db_user, db_password, db_database)
    database_connection = database.connect()
except DatabaseException:
    pass

if database_connection is None:
    print('The database could not connect')
else:
    print('The database could connect')

Часто вы хотите выполнить действие, которое может работать либо завершиться неудачно. Используя None, вы можете проверить успех действия. Вот пример:

3_14dar, 09 Мая 2015

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

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

+147

1
2
3
4
5
6

function offer_status($s, $return_type = "select", $title = "status") {

	(integer) $s;
	(string) $return_type;
	(string) $title;
...

rax, 28 Апреля 2015

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

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

+66

1
2
3
4

AnimationAnimator* AnimationAnimator::getThis()
{
    return this;
}

Я не знаю что это было, но теперь оно такое. Вызывается из трех мест. Мне страшно :С

netherwire, 23 Апреля 2015

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

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

+122

01
02
03
04
05
06
07
08
09
10
11

➜ git push
fatal: The current branch master has no upstream branch.
To push the current branch and set the remote as upstream, use

    git push --set-upstream origin master


➜ fuck
git push --set-upstream origin master
Counting objects: 9, done.
...

Это прекрасно! https://github.com/nvbn/thefuck

dzzpchelka, 19 Апреля 2015

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

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

−159

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

Запрос = Новый Запрос();
	Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
	Запрос.Текст = 	"ВЫБРАТЬ
   	|	Проекты.Ссылка КАК Проект, Проекты.Менеджер КАК Менеджер, Проекты.СтатусПроекта, Проекты.ТипПроекта, Проекты.ВидПродукции,
   	|	Проекты.ДатаТретейПодписи, Проекты.ДатаНачалаСтадии, Проекты.РасчетнаяДатаОкончанияСтадии, Проекты.Приоритет
   	|ИЗ Справочник.Проекты КАК Проекты
   	|ГДЕ (Проекты.ДатаОтправкиТЗ >= &НачДата И Проекты.ДатаОтправкиТЗ <= &КонДата ИЛИ Проекты.ДатаОтправкиТЗ = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0))
   	|	И (&ВыбМенеджер = ЗНАЧЕНИЕ(Справочник.Сотрудники.ПустаяСсылка) ИЛИ Проекты.Менеджер = &ВыбМенеджер)
   	|	И (&ВыбСтатусПроекта = ЗНАЧЕНИЕ(Перечисление.Статусы.ПустаяСсылка) ИЛИ Проекты.СтатусПроекта = &ВыбСтатусПроекта)
   	|	И Проекты.ПометкаУдаления = &ЗначПометкиНаУдаление";			   
	Запрос.УстановитьПараметр("НачДата",НачДата);		
	Запрос.УстановитьПараметр("КонДата",КонДата);
	Запрос.УстановитьПараметр("ВыбМенеджер",ВыбМенеджер);
	Запрос.УстановитьПараметр("ВыбСтатусПроекта",ВыбСтатусПроекта);
	Запрос.УстановитьПараметр("ЗначПометкиНаУдаление",ложь);
	ТЗ = Новый ТаблицаЗначений;
	ТЗ.Колонки.Добавить("Менеджер"); 
	ТЗ.Колонки.Добавить("Проект");
	ТЗ.Колонки.Добавить("ТипПроекта");
	ТЗ.Колонки.Добавить("ВидПродукции");
	ТЗ.Колонки.Добавить("ДатаТретейПодписи");
	ТЗ.Колонки.Добавить("ДатаНачалаСтадии");
	ТЗ.Колонки.Добавить("РасчетнаяДатаОкончанияСтадии");
	ТЗ.Колонки.Добавить("ПлановаяДатаОтправкиТЗ");
	ТЗ.Колонки.Добавить("Статус"); //Статус проекта
	ТЗ.Колонки.Добавить("Приоритет"); //Статус проекта
	Результат = Запрос.Выполнить();
	ВыборкаДетальныеЗаписи = Результат.Выбрать();
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Если (ВыборкаДетальныеЗаписи.СтатусПроекта = Перечисления.Статусы.Выполнено) Тогда 
			Продолжить;
		КонецЕсли;	
		Если ЗначениеЗаполнено(ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияПроекта) = Ложь Тогда 
			Продолжить;
		КонецЕсли;
		Если СокрЛП(ВыборкаДетальныеЗаписи.ДатаОтправкиТЗ) = "01.01.0001 0:00:00" Тогда
			если (ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияПроекта-60*60*24*45 >= НачДата) и (ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияПроекта-60*60*24*45<= КонДата) Тогда
			Иначе
				продолжить;
			КонецЕсли;	
		КонецЕсли; 
		НоваяСтрока = ТЗ.Добавить();
		НоваяСтрока.Проект = ВыборкаДетальныеЗаписи.Проект;
		НоваяСтрока.Менеджер = ВыборкаДетальныеЗаписи.Менеджер;
		НоваяСтрока.ВидПродукции = ВыборкаДетальныеЗаписи.ВидПродукции;
		НоваяСтрока.ТипПроекта = ВыборкаДетальныеЗаписи.ТипПроекта;
		НоваяСтрока.ДатаТретейПодписи = ВыборкаДетальныеЗаписи.ДатаТретейПодписи;
		НоваяСтрока.РасчетнаяДатаОкончанияСтадии = ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияСтадии;
		НоваяСтрока.ДатаНачалаСтадии = ВыборкаДетальныеЗаписи.ДатаНачалаСтадии;
		НоваяСтрока.Статус = ВыборкаДетальныеЗаписи.СтатусПроекта;
		НоваяСтрока.ПлановаяДатаОтправкиТЗ = ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияПроекта-60*60*24*45;//-45 дней
		НоваяСтрока.Приоритет = ВыборкаДетальныеЗаписи.Приоритет;
	КонецЦикла;
	тз.Сортировать("Менеджер,ТипПроекта возр, Приоритет Убыв,Проект");
	РФ = РеквизитФормыВЗначение("Отчет");
	Макет = РФ.ПолучитьМакет("ПечатьПроектов");
	ОбластьШапки	= Макет.ПолучитьОбласть("Шапка");
	ОбластьСтроки	= Макет.ПолучитьОбласть("Строка");
	ОбластьТипаПроекта	= Макет.ПолучитьОбласть("ТипПроекта");
	ОблатстьОтложенныхПроектов = Макет.ПолучитьОбласть("Отложенные");
	ОбластьМенеджеры	= Макет.ПолучитьОбласть("МЕНЕДЖЕР");
	ТабДок 	= Новый ТабличныйДокумент;
	ТабДок.Очистить();
	ТабДок.Вывести(ОбластьШапки);
	Если тз.Количество()>0  Тогда
		ТекущийТипПроекта = 0; ТекущийМенеджер = 0; пн = 0;
		Для Каждого ТекущаяСтрока Из тз Цикл
			Если ТекущаяСтрока.Статус = Перечисления.Статусы.Отложено Тогда
				продолжить;
			КонецЕсли;
			Если (ТекущийМенеджер = 0) или (ТекущийМенеджер <> ТекущаяСтрока.Менеджер) Тогда
				ТекущийМенеджер = ТекущаяСтрока.Менеджер;
				ОбластьМенеджеры.Параметры.тМенеджер = ТекущийМенеджер;
				ТабДок.Вывести(ОбластьМенеджеры);
			КонецЕсли;
			Если (ТекущийТипПроекта = 0) или (ТекущийТипПроекта <> ТекущаяСтрока.ТипПроекта) Тогда
				ТекущийТипПроекта = ТекущаяСтрока.ТипПроекта;
				ОбластьТипаПроекта.Параметры.тТипПроекта = ТекущийТипПроекта;
				ТабДок.Вывести(ОбластьТипаПроекта);
			КонецЕсли;	
			пн = пн + 1;
			ОбластьСтроки.Параметры.ПН = пн;
			ОбластьСтроки.Параметры.тПроектАртикул = СокрЛП(ТекущаяСтрока.ВидПродукции) + Символы.ПС + СокрЛП(ТекущаяСтрока.проект.Наименование);
			ОбластьСтроки.Параметры.тПроектРасшифровка = ТекущаяСтрока.проект;
			ОбластьСтроки.Параметры.тПлановаяДатаОтправкиТЗ = формат(ТекущаяСтрока.ПлановаяДатаОтправкиТЗ,"ДФ=dd.MM.yyyy");//-45 дней от расчетной даты окончания
			ОбластьСтроки.Параметры.тДатаТретейПодписи = СокрЛП(Формат(ТекущаяСтрока.ДатаТретейПодписи,"ДФ=dd.MM.yyyy"));
			ТабДок.Вывести(ОбластьСтроки);
		КонецЦикла;
		Попытка
			ТабДок.Области.Строка.АвтоВысотаСтроки = Истина;
			ТабДок.АвтоМасштаб = Истина;
			ТабДок.ПолеСправа = 0;
			ТабДок.ПолеСлева = 0;
			ТабДок.ПовторятьПриПечатиСтроки = ТабДок.Область(1,,2,);
			ТабДок.ФиксацияСверху = 2;
		Исключение
		КонецПопытки;
	КонецЕсли; 
	ТД = ТабДок;
	ТД.Напечатать();

Серверная процедура в 8.2. Автор - "семёрочник-многостаночник". Переписываю и рыдаю...

Ужимал как мог, чтобы вместилось.

dsfix, 07 Апреля 2015

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

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

+160

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

$Result = MySQL_Query("SELECT name FROM users WHERE name='$Login'") or ("Can't execute query.");
                
if (MySQL_Num_Rows($Result))
{
          echo "Account <b>".$Login."</b> is exists";
}
...
elseif ((StrLen($Pass) < 4) or (StrLen($Pass) > 10)) 

{
echo "Password must have more 4 and not more 10 symbols.";
}

elseif ((StrLen($Repass) < 4) or (StrLen($Repass) > 10)) 
{
echo "Repeat password must have more 4 and not more 10 symbols.";
}

elseif ((StrLen($Email) < 4) or (StrLen($Email) > 25)) 
{
echo "Email must have more 4 and not more 25 symbols.";
}

elseif ($Pass != $Repass)
{
echo "Password mismatch.";
}

Фрагмент регистрации из кода сайта MMO игры. Видимо die забыли и в итоге вся проверка фтопку. Так же там педантично кроме проверки несовпадения введенных паролей оба проверяют на длину и содержание символов (это еще можно описать заботой о юзвере).

Мартин, 22 Марта 2015

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

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