По колено в коде — Говнокод.ру

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

+75.7

1
2
3
4

bool SCG__PROCEDURE_DestroyThreadAfterFinalizeExecutedTaskForThisThreadAndFreeMemoryAllocatedForThreadsStructuresIfNeed(TThread* ThreadForDestroy)
{
	...
};

Из проэкта моего знакомого. Комментарии он пишет очень редко.

Говногость, 02 Сентября 2009

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

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

+103.9

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

la:
for j:=8 to (length(a)-length(b) div 2) do
begin
	...
	if(a[j]>'5') goto la;
	...
	if(a[j]>'7') goto la;
	...
	if(a[j]>'2') goto la;
	...
	j:=j-8;
	...
	form1.memo1.text=form1.memo1.text+'; '+inttostr(j)+'5';
	...
	if(a[j]>'1') goto g;
	...
	j:=j+8;
end;
g:

Не знаю почему, но меня охватывают фиерические чувства. Найденно на просторах рунета в разделах готовых решений задач для студентов.

Говногость, 02 Сентября 2009

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

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

+57.4

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

volatile void* AllocatedMemory;

int AllocateMemoryThread(const int size)
{
	char buffer[size];
	AllocatedMemory=(void*)buffer;
	AllocatingDone.Signal();
	Sleep(INFINITY);
	return 0;
};

...

void* MAlloc(const int size)
{
	CriticalSection.Lock();
	if( !CreateThread(AllocateMemoryThread,true,size,0) )
		return NULL;
	AllocatingDone.Wait();
	const void* AllocatedBuffer=AllocatedMemory;
	CriticalSection.UnLock();
	return AllocatedBuffer;
};

CriticalSection - критическая секция.
AllocatingDone - какой-то семафор.
Вообще не могу понять код. Что он этим хотел сказать...

Говногость, 02 Сентября 2009

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

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

−128.3

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

Select Case Microsoft.VisualBasic.Right(FileLBL.Text.Trim, 3)
                    Case "pdf"
                        IconIMG.ImageUrl = "~/img/pdf.bmp"
                    Case "doc"
                        IconIMG.ImageUrl = "~/img/word.bmp"
                    Case "xls", "csv"
                        IconIMG.ImageUrl = "~/img/excel.bmp"
                    Case "rpt"
                        IconIMG.ImageUrl = "~/img/crystal.bmp"
                    Case "txt"
                        IconIMG.ImageUrl = "~/img/text.bmp"
                    Case Else
                        IconIMG.ImageUrl = "~/img/blank.bmp"
                End Select

Valera, 02 Сентября 2009

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

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

+71.1

1

if (getHook() != null ? !getHook().equals(pmCounty.getHook()) : pmCounty.getHook() != null) return false;

Код западной enterprise системы для риэлторов. Написан русскими.

vladimir.loshchin, 02 Сентября 2009

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

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

+58.4

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

// кусок из хидера

#define b__bl {
#define e__bl }

#define b__st {
#define e__st }

#define b__un {
#define e__un }
...
#define end_if else ;

// Один коротенький метод

void  Sud::vosstkdr()
b__fu  int i=0, imv=0, imasOut=0, lpovt;
  for(; i<isl; i++) b__fo
    if(imv < lmv)
      if(i==(Pmvosst=mvosst+imv)->imkdrish)
	{  lpovt=Pmvosst->nvosst+1; imv++;}
      else lpovt=1;
    else lpovt=1;
    for(int k=0; k<lpovt; k++) b__fo
      masOut[imasOut] = mkdrish[i];
      if(mdm) if(++imasOut == 35) return; end_if
      else    if(++imasOut == 32) return; end_if
    e__fo
  e__fo
e__fu

Вот так у нас пишет один матёрый программист (юникс). Привёл для примера коротенький метод.
Особое внимание заслуживает идентификатор mkdrish. Это какая-то комбинация слов "массив", "кадр", "short"

Dimarius, 02 Сентября 2009

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

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

+132.9

01
02
03
04
05
06
07
08
09
10
11

if ("Recap".Equals(Request["post_back"]))
            {
               <...>
                if (Request["apply_coupon.x"] != null)
                {
                    ValidateCoupon();
                }
                else if ("Recap".Equals(Request["post_back"]))
                { <...> }
               <...>
        }

Из одного очень древнего проекта, с самопальным post back'ом

Капитан Очевидность, 02 Сентября 2009

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

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

+152.9

1
2
3

if(empty($result) || false === $result) {
    //
}

Написано человеком с 9ти летним опытом... Что б точно не прошло...

makadaw, 02 Сентября 2009

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

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

+136

1
2
3
4
5
6
7
8
9

public bool IsPositiveNumber(String strNumber)
{
    Regex objNotPositivePattern = new Regex("[^0-9.]");
    Regex objPositivePattern = new Regex("^[.][0-9]+$|[0-9]*[.]*[0-9]+$");
    Regex objTwoDotPattern = new Regex("[0-9]*[.][0-9]*[.][0-9]*");
    return !objNotPositivePattern.IsMatch(strNumber) &&
    objPositivePattern.IsMatch(strNumber) &&
    !objTwoDotPattern.IsMatch(strNumber);
}

Валидатор :)

Coffeeholic, 01 Сентября 2009

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

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

+101.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
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98

function DatePlusOneDay(Date: TDate): TDate;
var
  Day, Month, Year: string;
begin
  Day := Copy(DateToStr(Date), 1, 2);
  Month := Copy(DateToStr(Date), 4, 2);
  Year := Copy(DateToStr(Date), 7, 4);
  if frac(StrToFloat(Year) / 4) <> 0 then
    if (Month = '01') or (Month = '03') or (Month = '05') or (Month = '07') or (Month = '08') or (Month = '10') or (Month = '12') then
      if Day <> '31' then
        if StrToInt(Day) < 9 then Day := '0' + IntToStr(StrToInt(Day) + 1)
        else Day := IntToStr(StrToInt(Day) + 1)
      else
      begin
        Day := '01';
        if StrToInt(Month) < 9 then
          Month := '0' + IntToStr(StrToInt(Month) + 1)
        else
          if Month = '12' then
          begin
            Month := '01';
            Year := IntToStr(StrToInt(Year) + 1);
          end
          else Month := IntToStr(StrToInt(Month) + 1);
      end
    else
      if (Month = '04') or (Month = '06') or
      (Month = '09') or (Month = '11') then
        if Day <> '30' then
          if StrToInt(Day) < 9 then Day := '0' + IntToStr(StrToInt(Day) + 1)
          else Day := IntToStr(StrToInt(Day) + 1)
        else
        begin
          Day := '01';
          if StrToInt(Month) < 9 then Month := '0' + IntToStr(StrToInt(Month) + 1)
          else Month := IntToStr(StrToInt(Month) + 1);
        end
      else
        if Day <> '28' then
          if StrToInt(Day) < 9 then Day := '0' + IntToStr(StrToInt(Day) + 1)
          else Day := IntToStr(StrToInt(Day) + 1)
        else
        begin
          Day := '01';
          if StrToInt(Month) < 9 then Month := '0' + IntToStr(StrToInt(Month) + 1)
          else Month := IntToStr(StrToInt(Month) + 1);
        end
  else
    if (Month = '01') or (Month = '03') or (Month = '05') or (Month = '07') or (Month = '08') or (Month = '10') or (Month = '12') then
      if Day <> '31' then
        if StrToInt(Day) < 9 then Day := '0' + IntToStr(StrToInt(Day) + 1)
        else Day := IntToStr(StrToInt(Day) + 1)
      else
      begin
        Day := '01';
        if StrToInt(Month) < 9 then
          Month := '0' + IntToStr(StrToInt(Month) + 1)
        else
          if Month = '12' then
          begin
            Month := '01';
            Year := IntToStr(StrToInt(Year) + 1);
          end
          else
            Month := IntToStr(StrToInt(Month) + 1);
      end
    else
      if (Month = '04') or (Month = '06') or
      (Month = '09') or (Month = '11') then
        if Day <> '30' then
          if StrToInt(Day) < 9 then
            Day := '0' + IntToStr(StrToInt(Day) + 1)
          else
            Day := IntToStr(StrToInt(Day) + 1)
        else
        begin
          Day := '01';
          if StrToInt(Month) < 9 then
            Month := '0' + IntToStr(StrToInt(Month) + 1)
          else
            Month := IntToStr(StrToInt(Month) + 1);
        end
      else
        if Day <> '28' then
          if StrToInt(Day) < 9 then
            Day := '0' + IntToStr(StrToInt(Day) + 1)
          else
            Day := IntToStr(StrToInt(Day) + 1)
        else
        begin
          Day := '01';
          if StrToInt(Month) < 9 then
            Month := '0' + IntToStr(StrToInt(Month) + 1)
          else
            Month := IntToStr(StrToInt(Month) + 1);
        end;
  DatePlusOneDay := StrToDate(Day + '.' + Month + '.' + Year);
end;

Писалось, когда не знали о эквиваленте (Date + 1)

SaNdMaN, 01 Сентября 2009

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

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

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

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

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

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

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

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

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

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

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

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