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

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

В номинации:

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

За время:

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

−98

1

lDate = DateSerial(Year(Date), Month(Date), Day(Date) - Day(Date) + 1)

Человек формирует дату - 1 число текущего месяца.
В каком классе учат упрощать выражения вида х-х+у?

govnobot, 11 Июня 2010

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

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

+90

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

procedure TForm1.registration;
var
reg:TRegistry;
i,lbc:integer;
aentsys,alawarkey:boolean;
const
dw:DWORD =1800000;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  aentsys:= reg.KeyExists('software\Aent Sys');

  alawarkey:=reg.KeyExists('software\Alawar');
  //aentsys
     if aentsys = true  then
   begin
  reg.OpenKey('software\Aent Sys\pr',true);
  reg.GetKeyNames(ListBox1.Items);
  reg.CloseKey;
  lbc:=listbox1.Items.Count;
  sProgressBar1.Max:=lbc*10;
  i:=0;
  while not (i=lbc) do
  begin
   reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('software\Aent Sys\pr',true);
  reg.OpenKey(ListBox1.Items.Strings[i],true);
  reg.GetKeyNames(ListBox2.Items);
  reg.OpenKey(ListBox2.Items.Strings[0],true);
  reg.WriteInteger('Program',dw);
  sProgressBar1.Position:= sProgressBar1.Position+10;
  i:=i+1;
  listbox2.Clear;
  reg.CloseKey;
  end;
  end;
  i:=0;
  listbox2.Clear;
  listbox1.clear;
  lbc:=0;
  //alawar key
   if alawarkey = true  then
   begin
  reg.OpenKey('software\Alawar\play',true);
  reg.GetKeyNames(ListBox1.Items);
  reg.CloseKey;
  lbc:=listbox1.Items.Count;
  sProgressBar1.Max:=lbc*10;
  i:=0;
  while not (i=lbc) do
  begin
   reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('software\Alawar\play',true);
  reg.OpenKey(ListBox1.Items.Strings[i]+'\trial',true);
  reg.GetKeyNames(ListBox2.Items);
  reg.OpenKey(ListBox2.Items.Strings[0],true);
  reg.WriteInteger('Program',dw);
  sProgressBar1.Position:= sProgressBar1.Position+10;
  i:=i+1;
  listbox2.Clear;
  reg.CloseKey;
  end;
  end;

end;

Заново даёт триццать минут для игры от компании Alawar))) аццкое гавно

mistmax, 10 Июня 2010

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

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

+144

1

textPane.setText(<span style="font-size: 20pt">Big</span>);

http://www.dynamicdrive.com/forums/showthread.php?t=18899

O_O

я подозревал, что вас обрезают, но что бы так?

Lure Of Chaos, 08 Июня 2010

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

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

−93

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

if (!DocumentClass.getInstance().branding)
    DocumentClass.getInstance().branding = new Branding;
if (!DocumentClass.getInstance().encryption)
    DocumentClass.getInstance().encryption = new TEAEncryption;
 if (!DocumentClass.getInstance().eventManager)
    DocumentClass.getInstance().eventManager = new EventManager;
 if (!DocumentClass.getInstance().panelManager)
    DocumentClass.getInstance().panelManager = new PanelManager;
 if (!DocumentClass.getInstance().playLogger)
    DocumentClass.getInstance().playLogger = new PlayLogger;
 if (!DocumentClass.getInstance().sharedObject)
    DocumentClass.getInstance().sharedObject = new SharedObjectManager;
 if (!DocumentClass.getInstance().soundManager)
    DocumentClass.getInstance().soundManager = new SoundManager;
 if (!GameDocumentClass.getInstance().dataManager)
    GameDocumentClass.getInstance().dataManager = new DataManager;

Кусочек template для игростроя :)

dimas_art, 08 Июня 2010

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

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

+106

1
2
3
4
5
6

bool tos = true;
               susid:
                   while (tos)
                    {
                          goto susid;
                }

Энто был я=(

BlincAttack, 24 Мая 2010

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

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

+160

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

//browser detect for NN 4.xx and IE 4.xx and below, if so redirect to upgrade page.
	var agt=navigator.userAgent.toLowerCase();
    var appVer = navigator.appVersion.toLowerCase();
    var is_minor = parseFloat(appVer);
    var is_major = parseInt(is_minor);
	// If Mac platform, also use the Macintosh style sheet.
	if (navigator.platform.indexOf('Mac') != -1) {
		document.write('<link rel="stylesheet" href="/Shared/css/screen_mac.css?v=5.0">');
		document.write('<link rel="stylesheet" href="/Local/'+locale+'/css/local_mac.css?v=5.0">');
	}	
	
	function isIEUnsupported() 
	{
		var iePos  = appVer.indexOf('msie');
		if (iePos !=-1) {
		   is_minor = parseFloat(appVer.substring(iePos+5,appVer.indexOf(';',iePos)));
		   is_major = parseInt(is_minor);
		}
		if ((iePos!=-1) && is_major<6) {
			if (isRetail.toLowerCase() == "true") {return false} 
			else {return true}
		}	
		else {return false}
	}
	
	function isSafariUnsupported() 
	{
		if((agt.indexOf('safari') > 0) && agt.indexOf('mac') > 0 )
		{
			is_minor = parseFloat(agt.substring(agt.indexOf('safari')+7,agt.indexOf('safari')+12));
			is_major = parseInt(is_minor);
			if (is_major < 412) {return true}
			else {return false}
		}
	}
	
	function isSafari3Plus()
	{
		if(agt.indexOf('safari') > 0)
		{
			is_minor = parseFloat(agt.substring(agt.indexOf('safari')+7,agt.indexOf('safari')+12));
			is_major = parseInt(is_minor);
			if (is_major >= 500) {return true}
			else {return false}
		}
		return false;
	}

	var browserName=navigator.appName;
	var browserVer=parseInt(navigator.appVersion);
	var isMac = (navigator.appVersion.indexOf("Mac") != -1);
	//Do Object detection
	if (document.getElementById) {
		if ((browserName=="Netscape" && browserVer<5) || isIEUnsupported() || isSafariUnsupported() || (browserName=="Microsoft Internet Explorer" && isMac)) 
			{
				document.location.href = "/Common/errors/upgrade.aspx";
			}
	}
	else {document.location.href = "/Common/errors/upgrade.aspx";}

	
	function shouldPriceBeVisible()
	{
		if ((locale.toLowerCase() == "intl" && isRetail.toLowerCase() == "false") || (locale.toLowerCase() == "zh-cn"))
		{
			return false;
		}
		return true;
	}
	
    function Redirect(url)
    {
	    window.location = url;
    }
	
	// ND: Added so that tIFR could access user agent through ExternalInterface
	function getUserAgent()
	{
		return navigator.userAgent.toLowerCase();
	}
	
	// ND: Added so that tIFR could access browser detection through ExternalInterface
	function isBrowserIE()
	{
		var iePos = appVer.indexOf('msie');
		if (iePos !=-1) 
		{
		   is_minor = parseFloat(appVer.substring(iePos+5,appVer.indexOf(';',iePos)));
		   is_major = parseInt(is_minor);
		}
		
		if ((iePos!=-1) && is_major >= 4) 
		{
			return true;
		}	
		else 
		{
			return false;
		}
	}

Прошу прощения за многабукаф. Найдено на просторах www.tiffany.com. Помимо этого, там ещё много отжигов - например, hidden-поля в формах, содержащие несколько десятков килобайт Base64-кодированных данных. Что-то похожее как-то раз уже проскальзывало; как и в том случае, сайт сделан на ASP.NET.

telnet, 22 Мая 2010

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

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

−368

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

Public Function Chten(adr As String, TK As Boolean) As String
Dim str As String
Dim strr As String
Dim i As Long
If DirectoryExists(adr) = True Then
  Dim FLong As Long
  Open adr For Binary As #1
  FLong = Loc(1)
  Do While FLong < LOF(1)
    str = str + Input(1, #1)
    FLong = Loc(1)
  Loop
  Close #1
  strr = str
  If TK = True Then
  strr = ""
  Dim j As Long
  j = Len(str)
  For i = 1 To j
    If ((i Mod 8) = 0) Or (i = j) Then
        strr = strr + RTK(Mid(str, 1, 8))
        str = Mid(str, 9)
    End If
  Next
  End If
  Chten = strr
End If
End Function

'есть ли
'видно что функцию он где-то взял - см. другой стиль именования переменных и отступы
'но при этом сама и функция тоже попахивает
Public Function DirectoryExists(ByVal strPathName As String) As Boolean
    Dim DirectoryFound As String
    Const errPathNotFound As Integer = 76
    On Error GoTo 0
    DirectoryFound = Dir(strPathName, vbDirectory)
    If (Len(DirectoryFound) = 0 Or Err = errPathNotFound) Then
        DirectoryExists = False
    Else
        DirectoryExists = True
    End If
End Function

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

3.14159265, 21 Мая 2010

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

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

+144

1
2
3
4

public function __toString( $defaultText = '' )
{
  return $this->getHtmlMaterial( $defaultText );
}

Продолжение серии "ОО П..."

vatson, 20 Мая 2010

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

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

+165

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

for($i=0; $i < $fldCount; $i++) {
      if($fldType[$i]==8) {
        eval("\$f_".$fld[$i]."_year = substr(\$f_".$fld[$i].", 0, 4);");
        eval("\$f_".$fld[$i]."_month = substr(\$f_".$fld[$i].", 5, 2);");
        eval("\$f_".$fld[$i]."_day = substr(\$f_".$fld[$i].", 8, 2);");
        eval("\$f_".$fld[$i]."_hours = substr(\$f_".$fld[$i].", 11, 2);");
        eval("\$f_".$fld[$i]."_minutes = substr(\$f_".$fld[$i].", 14, 2);");
        eval("\$f_".$fld[$i]."_seconds = substr(\$f_".$fld[$i].", 17, 2);");
      }
      else if ($fldType[$i]==6 && $fldValue[$i]) {
        ${"f_".$fld[$i]."_old"} = $fldValue[$i];

        $fileinfo = $db->get_row("SELECT * FROM `Filetable`
          WHERE `Field_ID` = ".$fldID[$i]." AND `Message_ID` = ".$message, ARRAY_A);
    
        if ($fileinfo) {
          ${"f_".$fld[$i]} = $SUB_FOLDER . rtrim($HTTP_FILES_PATH, "/") . $fileinfo["File_Path"] . "h_" . $fileinfo["Virt_Name"];
          ${"f_".$fld[$i]."_url"} = $SUB_FOLDER . rtrim($HTTP_FILES_PATH, "/") . $fileinfo["File_Path"] .        $fileinfo["Virt_Name"];
          ${"f_".$fld[$i]."_name"} = $fileinfo["Real_Name"];
          ${"f_".$fld[$i]."_size"} = $fileinfo["File_Size"];
          ${"f_".$fld[$i]."_type"} = $fileinfo["File_Type"];
        }
        else {
          preg_match("/^(.+?(\.[^.]+)?):(.+):(.+)$/", $fldValue[$i], $regs);
          ${"f_".$fld[$i]} = $SUB_FOLDER.$HTTP_FILES_PATH.$fldID[$i]."_".$message.$regs[2];
          ${"f_".$fld[$i]."_url"} = $SUB_FOLDER.$HTTP_FILES_PATH.$fldID[$i]."_".$message.$regs[2];
          ${"f_".$fld[$i]."_name"} = $regs[1];
          ${"f_".$fld[$i]."_size"} = $regs[4];
          ${"f_".$fld[$i]."_type"} = $regs[3];
        }
      }
    }

И ещё один кусочек из того же файла (/netcat/message.php).

telnet, 18 Мая 2010

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

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