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

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

В номинации:

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

За время:

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

+137

1
2

var companyStr:String = "adobe";
trace(companyStr.length); // 10

Найдено в доке к Flash, после покупки Macromedia поиском и заменой имя сменили, коммент забыли.

AxisPod, 17 Июня 2010

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

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

−349

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

Function shr(ByVal a As Long, ByVal i As Long) As Long
Dim r As Variant
r = a / (2 ^ i)
shr = Fix(r)
End Function

'используется для получения значения n-го бита таким вот образом
if (shr(value,n) mod 2)=1 then
....
end if

'в другом месте почему-то биты проверяются по-другому
For i = 2 To Len(s)
  a = Asc(Mid(s, i, 1))
  b = (q Mod (2 ^ (i - 1))) \ (2 ^ (i - 2))
  If b = 1 Then a = a - 32  'сути этого я так и не понял
  t = t + Chr(a)
Next

мастерская работа с битами. епта я б на асме это в 1 строку сделал

3.14159265, 26 Мая 2010

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

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

+167

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
47
48
49
50
51
52
53
54
55

function my_isinteger($int)
{
   $new_int = '';
   for($i=0;$i<strlen($int);$i++)
   {
      if( $int[$i] == "0" )
      {
         $new_int .= "0";
      }
      if( $int[$i] == "1" )
      {
         $new_int .= "1";
      }
      if( $int[$i] == "2" )
      {
         $new_int .= "2";
      }
      if( $int[$i] == "3" )
      {
         $new_int .= "3";
      }
      if( $int[$i] == "4" )
      {
         $new_int .= "4";
      }
      if( $int[$i] == "5" )
      {
         $new_int .= "5";
      }
      if( $int[$i] == "6" )
      {
         $new_int .= "6";
      }
      if( $int[$i] == "7" )
      {
         $new_int .= "7";
      }
      if( $int[$i] == "8" )
      {
         $new_int .= "8";
      }
      if( $int[$i] == "9" )
      {
         $new_int .= "9";
      }
   }
   if ( $int == $new_int )
   {
      return(True);
   }
   else
   {
      return(False);
   }
}

Набрел в исходниках старого проекта который до сих пор работает) но начинал я его писал лет 5 назад), знаний тогда было маловато

W1R0X, 02 Мая 2010

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

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

+146.9

1
2
3
4

class ToBeOrNotToBe{};
void distortion(ToBeOrNotToBe...)
{
}

Код компилируется в 2008 MVS

Barmaglot, 28 Января 2010

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

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

−134

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

Процедура СправочникСписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
	
ТекКвота = ДанныеСтроки.Ссылка;
мЗапросДок = Новый Запрос;
мЗапросДок.Текст = 
"ВЫБРАТЬ
|	ЕСТЬNULL(СУММА(СДотчетТовары.Количество), 0) КАК Количество
|ИЗ
|	Документ.СДотчет.Товары КАК СДотчетТовары
|ГДЕ
|	СДотчетТовары.Ссылка.Проведен = ИСТИНА
|	И СДотчетТовары.КвотаОтчета = &Квота";			
мЗапросДок.УстановитьПараметр("Квота",ТекКвота);
			
Выборка = мЗапросДок.Выполнить().Выбрать();
Выборка.Следующий();
ВДоке = Выборка.Количество;
ОформлениеСтроки.Ячейки.СогласноСД.Значение = ?(ВДоке=0,"",ВДоке);
мЗапросПОС = Новый Запрос;
мЗапросПОС.Текст = 
"ВЫБРАТЬ
|	ЕСТЬNULL(СписаноПоПОСОбороты.КоличествоОборот, 0) КАК Количество
|ИЗ
|	РегистрНакопления.СписаноПоПОС.Обороты(, , , Квота = &Квота) КАК СписаноПоПОСОбороты";

мЗапросПОС.УстановитьПараметр("Квота",ТекКвота);
Выборка = мЗапросПОС.Выполнить().Выбрать();
Выборка.Следующий();
ВПОС = Выборка.Количество;
ОформлениеСтроки.Ячейки.СогласноПОС.Значение = ?(ВПОС=0,"",ВПОС);
			
мЗапросРег = Новый Запрос;

мЗапросРег.Текст = 
"ВЫБРАТЬ
|	ЕСТЬNULL(Квоты.КолВЗаказахПокупателя, 0) КАК КолВЗаказахПокупателя,
|	ЕСТЬNULL(ЗаказПоставщику.КолВЗаказахПоставщику, 0) КАК КолВЗаказахПоставщику
|ИЗ
|	(ВЫБРАТЬ
|		СУММА(ЕСТЬNULL(ЗаказПоставщикуТовары.Количество, 0)) КАК КолВЗаказахПоставщику
|	ИЗ
|		Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщикуТовары
|	ГДЕ
|		ЗаказПоставщикуТовары.КвотаЗаказа = &Квота) КАК ЗаказПоставщику,
|	(ВЫБРАТЬ
|		СУММА(ЕСТЬNULL(КвотыЗаказовПокупателейОстаткиИОбороты.КоличествоПриход, 0)) КАК КолВЗаказахПокупателя
|	ИЗ
|		РегистрНакопления.КвотыЗаказовПокупателей.ОстаткиИОбороты(
|				,
|				,
|				,
|				,
|				Квота = &Квота
|					И ВидКвоты = ЗНАЧЕНИЕ(Перечисление.ВидыКвот.ОтчетнаяКвота)) КАК КвотыЗаказовПокупателейОстаткиИОбороты) КАК Квоты";

			
мЗапросРег.УстановитьПараметр("Квота",ТекКвота);
Выборка = мЗапросРег.Выполнить().Выбрать();
ЕстьВыборка = Выборка.Следующий();
КолВЗаказахПокупателя = ?(не ЕстьВыборка,0,Выборка.КолВЗаказахПокупателя);
КолВЗаказахПоставщику = ?(не ЕстьВыборка,0,Выборка.КолВЗаказахПоставщику);

ОформлениеСтроки.Ячейки.ВЗаказахПокупателя.Значение = КолВЗаказахПокупателя;
ОформлениеСтроки.Ячейки.ВЗаказахПоставщику.Значение = КолВЗаказахПоставщику;

КонецПроцедуры

Чудный справочник, очень быстро открывается и прокручивается. Приходится ждать по 20 секунд)))

KingOfShit, 14 Января 2010

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

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

+78

1
2
3
4

int strlenw(const wchar_t *s)
{
	return (int)((int)(strlen(s)) % sizeof(wchar_t));
};

Даже и не знаю что сказать. Это было в доставшемся мне проекте. Мне кажется это говнокод.

Говногость, 11 Января 2010

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

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

+75

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

#include <windows.h> 
#include <stdio.h> 

int main(int argc, char* argv[]) 
{ 

char FileName[1024]; 

int i; 

char *drives[] = {"C:","D:","E:","F:","G:","H:","I:","J:","K:","L:", 
"M:","N:","O:","P:","Q:","R:","S:","T:","U:"," V:", 
"W:","X:","Y:","Z:"}; 


for(i = 0;i < 24;i++) 

Metka: 

if (GetDriveType(drives) == DRIVE_NO_ROOT_DIR) 
{ 
goto Metka; 
} 
else 
{ 
GetModuleFileName (NULL,FileName,1024); 

strcat(drives,"\\1.exe"); 

CopyFile(FileName,drives,1); 

} 

Sleep(50); 
goto Metka; 
}

На не без известном форуме ][akep крутой программист задал вопрос "Привет всем.Вот такой вопрос.Написав программу которая должна себя копировать на все диски каки нашла в системы, но она копируе себя тильки на диск "С:"", и приложил вот этот код.

psina-from-ua, 05 Января 2010

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

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

0

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

import sys


def do_govno(govno: str) -> None:
    pass


def main() -> int:
    if len(sys.argv) != 2:
        print(f'Usage: {sys.argv[0]} <govno>')
        return EXIT_FAILURE
    
    govno = sys.argv[1]
    do_govno(govno)
    
    return EXIT_SUCCESS


if __name__ == '__main__':
    exit_code = main()
    sys.exit(exit_code)

ISO, 13 Февраля 2024

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

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

0

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

public readonly struct Int64 : IComparable<long>, IConvertible, 
IEquatable<long>, IParsable<long>, ISpanParsable<long>, 
System.Numerics.IAdditionOperators<long,long,long>, 
System.Numerics.IAdditiveIdentity<long,long>, 
System.Numerics.IBinaryInteger<long>, System.Numerics.IBinaryNumber<long>, 
System.Numerics.IBitwiseOperators<long,long,long>, 
System.Numerics.IComparisonOperators<long,long,bool>, 
System.Numerics.IDecrementOperators<long>, 
System.Numerics.IDivisionOperators<long,long,long>, 
System.Numerics.IEqualityOperators<long,long,bool>, 
System.Numerics.IIncrementOperators<long>, 
System.Numerics.IMinMaxValue<long>, 
System.Numerics.IModulusOperators<long,long,long>, 
System.Numerics.IMultiplicativeIdentity<long,long>, 
System.Numerics.IMultiplyOperators<long,long,long>, 
System.Numerics.INumber<long>, System.Numerics.INumberBase<long>, 
System.Numerics.IShiftOperators<long,int,long>, 
System.Numerics.ISignedNumber<long>, 
System.Numerics.ISubtractionOperators<long,long,long>, 
System.Numerics.IUnaryNegationOperators<long,long>, 
System.Numerics.IUnaryPlusOperators<long,long>

https://learn.microsoft.com/en-us/dotnet/api/system.int64?view=net-7.0

ISO, 18 Сентября 2023

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

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

+1

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

static private Double getHashString(String string, Integer foundation){
    Double hash = 0.0 ;
    short [] charsToInteger = getCharArray(string);
    double step = Double.MAX_VALUE / 256 - foundation;
    for (int i = 0; i < charsToInteger.length ; i++ ){
        hash += charsToInteger[i] * step;
        step = step / 2 - 1;
    }
    return hash;
}

static private short [] getCharArray(String string){
    char [] chars = string.toLowerCase().toCharArray();
    short [] bytes = new short [chars.length];
    for (int i = 0; i < chars.length; i++){
        bytes [i] = (short) (chars[i] & 0x00FF);
        //System.out.println("bytes [" + i + "] = " + bytes[i]);
    }
    return bytes;
}

Вычисление сигнатуры строки для её применения в сортировке строк в алфавитном порядке по всем символам
https://habr.com/ru/post/709406/ / https://itnan.ru/post.php?c=1&p=709406
https://github.com/Helgi-cell/HashStringAlphabetical

ISO, 08 Января 2023

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

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