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

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

В номинации:

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

За время:

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

−155

1
2
3
4
5
6

Девушкой, которую я любил
Оказался педофил
Он на 1С все показал
И научил
Теперь я здесь настраиваю все
Прямо как во сне

Александр Сергеевич Пушкин-Блок

alexoy, 14 Октября 2011

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

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

+136

01
02
03
04
05
06
07
08
09
10

(defparameter *pcl-files-map*
  '#(("introduction-why-lisp"
      "Введение: почему Lisp?" 
      "%D0%B2%D0%B2%D0%B5%D0%B4%D0%B5%D0%BD%D0%B8%D0%B5%D0%BF%D0%BE%D1%87%D0%B5%D0%BC%D1%83lisp") ; <- WTF???
    
     ("lather-rinse-repeat-a-tour-of-the-repl"
      "Намылить, смыть, повторить: знакомство с REPL"
      "%D1%82%D1%83%D1%80%D0%B2repl")   ; <- WTF???
      ;; ...
))

Practical Common Lisp такой Practical.
https://github.com/archimag/rulisp/blob/master/src/pcl.lisp

Матёрые лисперы просветите, если я что-то не понимаю: неужели хранение ссылок в исходном коде в таком виде чем-то обосновано?

roman-kashitsyn, 13 Октября 2011

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

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

−97

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

Private Sub CommandButton1_Click() 'необходимо
    For q = 2 To 500
    For w = 25 To 34
    For e = 3 To 13
        If Лист1.Cells(q, 4) = "Затрачено [...]" Or Лист1.Cells(q, 4) = "Затрачено на [...]" Then
        If Лист1.Cells(q, 7) = Лист11.Cells(w, 1) Then
        If Лист1.Cells(q, 6) = Лист11.Cells(3, e) Then
            Лист11.Cells(w, e) = Лист11.Cells(w, e) + Лист1.Cells(q, 5)
            Rem Лист1.Cells(q, 11) = 151
        End If
        End If
        End If
    Next
    Next
    Next
End Sub

...

TextBox4.Value = CLng(cdop1 * (TextBox15.Value * Лист5.Cells(10, 11)) + cdop2 * (TextBox15.Value * Лист5.Cells(10, 11))) + CLng(TextBox53.Value)

...

Лист1.Cells(a, 45) = TextBox32.Value ' отсрочка

If IsDate(TextBox58.Value) And IsDate(TextBox62.Value) Then
Лист1.Cells(a, 46) = CDate(TextBox62.Value) - CDate(TextBox58.Value) ' прошло дней
End If
Лист1.Cells(a, 47) = TextBox55.Value ' зарплата
Лист1.Cells(a, 48) = TextBox63.Value ' штраф

If CheckBox6.Value = True Then
Лист1.Cells(a, 49) = 1 ' комплект
Else
Лист1.Cells(a, 49) = 0
End If

Ну и так далее.

Беда, коль пироги начнёт печи сапожник, а макросы писать бухгалтер.

lucidfox, 11 Октября 2011

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

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

+163

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

switch(true) {
            case ((0x7F & $bytes) == $bytes):
                // this case should never be reached, because we are in ASCII range
                // see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
                return chr(0x7F & $bytes);

            case (0x07FF & $bytes) == $bytes:
                // return a 2-byte UTF-8 character
                // see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
                return chr(0xC0 | (($bytes >> 6) & 0x1F))
                     . chr(0x80 | ($bytes & 0x3F));

            case (0xFFFF & $bytes) == $bytes:
                // return a 3-byte UTF-8 character
                // see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
                return chr(0xE0 | (($bytes >> 12) & 0x0F))
                     . chr(0x80 | (($bytes >> 6) & 0x3F))
                     . chr(0x80 | ($bytes & 0x3F));
        }

В одной из реализаций JSON.php

* @package Services_JSON
* @author Michal Migurski <[email protected]>
* @author Matt Knapp <mdknapp[at]gmail[dot]com>
* @author Brett Stimmerman <brettstimmerman[at]gmail[dot]com>
* @copyright 2005 Michal Migurski
* @version CVS: $Id: JSON.php,v 1.31 2006/06/28 05:54:17 migurski Exp $
* @license http://www.opensource.org/licenses/bsd-license.php
* @link http://pear.php.net/pepr/pepr-proposal-show.php?id=198

lobovkin, 10 Октября 2011

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

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

+162

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

var BrowserDetect={
init: function () {
this.browser=this.searchString(this.dataBrowser) || "An unknown browser";
this.version=this.searchVersion(navigator.userAgent)
|| this.searchVersion(navigator.appVersion)
|| "an unknown version";
this.OS=this.searchString(this.dataOS) || "an unknown OS";
},
searchString: function (data) {
for (var i=0;i<data.length;i++) {
var dataString=data[i].string;
var dataProp=data[i].prop;
this.versionSearchString=data[i].versionSearch || data[i].identity;
if (dataString) {
if (dataString.indexOf(data[i].subString) !=-1)
return data[i].identity;
}
else if (dataProp)
return data[i].identity;
}},
searchVersion: function (dataString) {
var index=dataString.indexOf(this.versionSearchString);
if (index==-1) return;
return parseFloat(dataString.substring(index+this.versionSearchString.length+1));
},
dataBrowser: [
{
string: navigator.userAgent,
subString: "Chrome",
identity: "Chrome"
},
{  string: navigator.userAgent,
subString: "OmniWeb",
versionSearch: "OmniWeb/",
identity: "OmniWeb"
},

},
   ...... // сокращу 
{
string: navigator.userAgent,
subString: "MSIE",
identity: "Explorer",
versionSearch: "MSIE"
},
{
string: navigator.userAgent,
subString: "Gecko",
identity: "Mozilla",
versionSearch: "rv"
},
{
string: navigator.userAgent,
subString: "Mozilla",
identity: "Netscape",
versionSearch: "Mozilla"
}
],
dataOS : [
{
string: navigator.platform,
subString: "Win",
identity: "Windows"
},
{
string: navigator.platform,
subString: "Mac",
identity: "Mac"
},
{
string: navigator.userAgent,
subString: "iPhone",
identity: "iPhone/iPod"
},
{
string: navigator.platform,
subString: "Linux",
identity: "Linux"
}
]
};
BrowserDetect.init();

Самое интересное, что после сего мудозвонства в коде идет : google.load("jquery", "1"); ради одной карусельки.

http://sng.garena.com/ - вот здесь этот стыд, и много-много чего еще интересного.

jQuery, 09 Октября 2011

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

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

+123

1
2
3
4

При попытке выйти с из логина:
http://govnokod.ru/user/exit/?url=http%3A%2F%2Fgovnokod.ru%2Fadd
получаем говно:
Fatal error: Allowed memory size of 134217728 bytes exhausted (tried to allocate 72 bytes) in /home/striker/www/index.php on line 507

ohlol, 06 Октября 2011

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

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

+164

1

$alice = array_reduce(array($bob, $charlie), create_function('$a,$b', 'return "$a$b";'));

http://www.sklar.com/blog/archives/116-Let-a-thousand-string-concatenations-bloom.html

jokz, 03 Октября 2011

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

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

+83

1
2
3
4
5
6
7
8

defaultHomeName = read("defaultHomeName") == null ? "1" : read("defaultHomeName");
		homesPerPage = Integer.getInteger(read("homesPerPage")) == null ? 9 : Integer.getInteger(read("homesPerPage"));
		correctRegex = read("correctRegex") == null ? "[A-Za-z0-9-]+" : read("correctRegex");
		respawnAtHome = load().getProperty("respawnAtHome") == null ? true : readBoolean("respawnAtHome");
		teleportToNearest = load().getProperty("teleportToNearest") == null ? false : readBoolean("teleportToNearest");
		warmup = (load().getProperty("warmup") == null ? 0 : (int)(readLong("warmup")));
		cooldown = load().getProperty("cooldown") == null ? 60 : (int)(readLong("cooldown"));
		freezeOnWarmup = load().getProperty("freezeOnWarmup") == null ? true : readBoolean("freezeOnWarmup");

Bukkit. Немного из моего плагина. :)

Uhehesh, 02 Октября 2011

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

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

+157

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

/**
 * Experiments...
 */
class poltergeist {

	private $className;
	private $methods;

	function  __construct() {

		$this->className=array(
			'page',
			'source',
			'user',
			// etc
		);

		foreach ($this->className as $v) {

			$this->$v = new $v();
			$this->methods[$v] = get_class_methods($v);
		}
	}

	function __call($name, $arg){

		if ( ($k=$this->arraySearch( $name )) ) {

				return $this->$k->$name($arg);
		}
	}

	function arraySearch( $name ){

		foreach ( $this->methods as $k=>$v ) {
			if ( in_array( $name, $v) ) return $k;
		}
	return false;
	}
}

Откопал вот...

istem, 01 Октября 2011

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

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

+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

AddEventHandler("iblock", "OnAfterIBlockElementUpdate", Array("MyClass", "OnAfterIBlockElementUpdateHandler"));
class MyClass
{
    // создаем обработчик события "OnAfterIBlockElementUpdate"
    function OnAfterIBlockElementUpdateHandler(&$arFields)
    {
//привязка элементов (формирование комплектов)
if(CModule::IncludeModule('iblock')){
$id=$arFields['ID'];
$i=0;
$komplekt=array();
$elements=array();
$db_props = CIBlockElement::GetProperty(24, $id, "sort", "asc", Array("CODE"=>"KOMPLEKT"));
while($ar_props = $db_props->Fetch()){
$i++;
$komplekt[$i]=$ar_props["VALUE"];
}
for($j=1; $j<=$i; $j++){
$elements[$komplekt[$j]][0]=$id;
for($k=1; $k<=$i; $k++){
if($komplekt[$j]!=$komplekt[$k]){
$elements[$komplekt[$j]][$k]=$komplekt[$k];
}
}
}
for($z=1; $z<=$i; $z++){
CIBlockElement::SetPropertyValueCode($komplekt[$z], "KOMPLEKT", $elements[$komplekt[$z]]);
}
}
//автоматически добавляем скидку в торговом каталоге
if(CModule::IncludeModule('iblock')&& CModule::IncludeModule('catalog')){
$discount10=array();
$discount15=array();
$discount20=array();
$dbProductDiscounts = CCatalogDiscount::GetDiscountProductsList(
array(),
array(),
false,
false,
array()
);
while ($arProductDiscounts = $dbProductDiscounts->Fetch())
{
if($arProductDiscounts['DISCOUNT_ID']==5){
$discount10[]=$arProductDiscounts['PRODUCT_ID'];
}
if($arProductDiscounts['DISCOUNT_ID']==6){
$discount15[]=$arProductDiscounts['PRODUCT_ID'];
}
if($arProductDiscounts['DISCOUNT_ID']==7){
$discount20[]=$arProductDiscounts['PRODUCT_ID'];
}
}
$db_props2 = CIBlockElement::GetProperty(24, $id, "sort", "asc", Array("CODE"=>"SALE"));
while($ar_props2 = $db_props2->Fetch()){

if(!in_array($id, $discount10) && $ar_props2['VALUE']==66){
$discount10[]=$id;
}
if(in_array($id, $discount10) && $ar_props2['VALUE']==""){
$num=count($discount10);
for($i=0; $i<$num; $i++){
if($discount10[$i]==$id){
unset($discount10[$i]);
}
}
}
if(!in_array($id, $discount15) && $ar_props2['VALUE']==67){
$discount15[]=$id;
}
if(in_array($id, $discount15) && $ar_props2['VALUE']==""){
$num=count($discount15);
for($i=0; $i<$num; $i++){
if($discount15[$i]==$id){
unset($discount15[$i]);
}
}
}
if(!in_array($id, $discount20) && $ar_props2['VALUE']==68){
$discount20[]=$id;
}
if(in_array($id, $discount20) && $ar_props2['VALUE']==""){
$num=count($discount20);
for($i=0; $i<$num; $i++){
if($discount20[$i]==$id){
unset($discount20[$i]);
}
}
}
}
if($discount10){
CCatalogDiscount::Update(5, array("ACTIVE"=>"Y", "PRODUCT_IDS"=>$discount10));
}
else{
CCatalogDiscount::Update(5, array("ACTIVE"=>"N"));
}
if($discount15){
CCatalogDiscount::Update(6, array("ACTIVE"=>"Y", "PRODUCT_IDS"=>$discount15));
}
else{

Оригинальное форматирование кода сохранено. Код до 7-ой строчки - копипаста из документации. Жаль все не влезло, шедевр

inside, 23 Сентября 2011

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

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