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

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

В номинации:

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

За время:

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

+158

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

<?php
define('ROOT', './');
include ROOT.'func.php';
include ROOT.'class.php';
puthead();
if(isset($_GET['e'])){
  echo 'Ошибка '.$_GET['e'];
}
$incpage='';
for($i=0;$i<2;$i++){
  if(isset($_GET["i$i"]) && preg_match('/^[a-zA-Z0-9_]+$/', $_GET["i$i"])) $incpage=$_GET["i$i"];
}
if($incpage==''){
if($is_web) include ROOT.'about.tchtml';
else include ROOT.'index_page.tchtml';
}
else include ROOT.$incpage.'.tchtml';
putfoot();
?>

<?php
define('ROOT', './');
include ROOT.'func.php';
puthead('Заголовок');
?>
Пример создания страниц под двиг
<?
putfoot();
?>

The CMS. (Да, это такое название.)
Как ни странно, в состав входит полноценный форум, гостевая книга, модуль новостей и еще куча всякой херни.
И все это даже работает.
Но тут меня угораздило заглянуть в сорцы.
index.php и пример создания страницы.

7ion, 23 Января 2011

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

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

−135

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

#!/bin/bash

clear;
handle_terminate() {
    echo "(received signal) $1

Interrupted, cleaning up." >&2
    cleanup
    cleanup_finish
    $0;
    exit 255
}

trap handle_terminate 9 1 2 3 15 17 19 23 18 20 24
y=0;
x=0;
num=0;
for((i=0;i<=9;i++)){
for((j=0;j<=190;j++)){
  tput cup $x $y
  echo "-"
  let "y=j";
};
  let "x=x+5";
  y=0;
};

y=0;
x=0;
for((i=0;i<=38;i++)){
for((j=0;j<=46;j++)){
  tput cup $y $x
  echo "|"
  let "y=j";
};
  let "x=x+10";
  y=0;
};
kill -9 $$
while :
do
    sleep 1s;
done
exit 0

Сеточка

AliceGoth, 15 Января 2011

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

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

+164

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

// Licensed to Green Energy Corp (www.greenenergycorp.com) under one
// or more contributor license agreements. See the NOTICE file
// distributed with this work for additional information
// regarding copyright ownership. Green Enery Corp licenses this file
// to you under the Apache License, Version 2.0 (the
// "License"); you may not use this file except in compliance
// with the License. You may obtain a copy of the License at
// http://www.apache.org/licenses/LICENSE-2.0
// Unless required by applicable law or agreed to in writing,
// software distributed under the License is distributed on an
// "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
// KIND, either express or implied. See the License for the
// specific language governing permissions and limitations
// under the License.
//
#include "Objects.h"

#define MACRO_STATIC_INSTANCE(group, var) Group##group##Var##var Group##group##Var##var::mInstance;

namespace apl { namespace dnp {

MACRO_STATIC_INSTANCE(1,0)
MACRO_STATIC_INSTANCE(1,1)
MACRO_STATIC_INSTANCE(1,2)
MACRO_STATIC_INSTANCE(2,0)
MACRO_STATIC_INSTANCE(2,1)
MACRO_STATIC_INSTANCE(2,2)
MACRO_STATIC_INSTANCE(2,3)

<... 100500 строк ...>

MACRO_STATIC_INSTANCE(60,1)
MACRO_STATIC_INSTANCE(60,2)
MACRO_STATIC_INSTANCE(60,3)
MACRO_STATIC_INSTANCE(60,4)

MACRO_STATIC_INSTANCE(80,1)

MACRO_STATIC_INSTANCE(110,0)
MACRO_STATIC_INSTANCE(111,0)
MACRO_STATIC_INSTANCE(112,0)
MACRO_STATIC_INSTANCE(113,0)

//////////////////////////////////////////////
// Binary Input Types
//////////////////////////////////////////////

void Group1Var2::Write(apl::byte_t* p, const apl::Binary& v) const { DNPToStream::WriteQ(p, Group1Var2::Inst(), v); }
void Group2Var1::Write(apl::byte_t* p, const apl::Binary& v) const { DNPToStream::WriteQ(p, Group2Var1::Inst(), v); }
void Group2Var2::Write(apl::byte_t* p, const apl::Binary& v) const { DNPToStream::WriteQT(p, Group2Var2::Inst(), v); }
void Group2Var3::Write(apl::byte_t* p, const apl::Binary& v) const { DNPToStream::WriteQT(p, Group2Var3::Inst(), v); }

Binary Group1Var2::Read(const apl::byte_t* p) const { return DNPFromStream::ReadBinaryQV(p, Group1Var2::Inst()); }
Binary Group2Var1::Read(const apl::byte_t* p) const { return DNPFromStream::ReadBinaryQV(p, Group2Var1::Inst()); }
Binary Group2Var2::Read(const apl::byte_t* p) const { return DNPFromStream::ReadBinaryQV(p, Group2Var2::Inst()); }
Binary Group2Var3::Read(const apl::byte_t* p) const { return DNPFromStream::ReadBinaryQVT(p, Group2Var3::Inst()); }

"We provide world-class engineering services to companies leading the smart energy revolution."
посредством копипасты. малаца.

xXx_totalwar, 14 Января 2011

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

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

+43

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

function ntfs_filesize($filename) 
{
    return exec("
            for %v in (\"".$filename."\") do @echo %~zv
    ");
}
// LINUX SERVERS:
// str perl_filesize( str $filename );
/*
DESCRIPTION: returns the filesize of a large file in string format to... 
... prevent 32-bit integer walls  using perl through linux command line.
*/
function perl_filesize($filename) 
{
    return exec("
            perl -e 'printf \"%d\n\",(stat(shift))[7];' ".$filename."
    ");
}

вот вам!
http://ru.php.net/filesize отсюда.

вообще ебанутость filesize в пхп теперь не позволит мне без костылей хранить на сайте файлы больше 2х гиг. хнык хнык
(пока правдо не надо но я попутно свою файлопомойку хочу личную)

brainstorm, 13 Января 2011

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

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

+161

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

function toTrash($id)
    {
        $data = array(
            'order_id'          => $id,
            'order_archived'    => 0,
            'order_trashed'     => 1,
			'order_candelled' 	=> 0
        );

        return $this->update_order($data);
    }

    function toArchive($id)
    {
        $data = array(
            'order_id'          => $id,
            'order_archived'    => 1,
            'order_trashed'     => 0,
			'order_candelled' 	=> 0
        );

        return $this->update_order($data);
    }

    function restore($id)
    {
        $data = array(
            'order_id'          => $id,
            'order_archived'    => 0,
            'order_trashed'     => 0
			'order_candelled' 	=> 0
        );

        return $this->update_order($data);
    }
	    
	function cancelled($id)
	    {
	        $data = array(
	            'order_id'          => $id,
	            'order_archived'    => 0,
	            'order_trashed'     => 0,
				'order_candelled' 	=> 1
	        );

	        return $this->update_order($data);
	    }

DyX_LesA, 12 Января 2011

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

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

+166

1
2
3
4
5

$res['descr'] = str_replace("\n\n\n", "<br>", $res['descr']);
$res['descr'] = str_replace("\n\n", "<br>", $res['descr']);
$res['descr'] = str_replace("<br><br><br>", "<br>", $res['descr']);
$res['descr'] = str_replace("<br><br>", "<br>", $res['descr']);
$res['descr'] = str_replace("<br><br>", "<br>", $res['descr']);

Конвертируем переносы строк типа.

govnozmey, 12 Января 2011

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

SQL / Говнокод #5237

−858

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

billats=# select * from lists limit 40;
 type_ |        name        |        value
-------+--------------------+----------------------
   102 | debt_list_progress | 0
   102 | debt_size          | 0
     5 | 0                  | Тюменьпрофбанк
    10 | 1                  | Физ. лицо
    10 | 2                  | Юр. лицо
    10 | 3                  | Бюджет. орг.
    11 | 0                  | Все группы
    11 | 1                  | Приход. ордер
    11 | 3                  | Расч. счет
    11 | 4                  | Касса
    11 | 6                  | Взаимозачеты
    20 | 1                  | Установка
    20 | 2                  | Ремонт
    20 | 3                  | Задание
    20 | 4                  | Сообщение
    20 | 5                  | Авария
    21 | 1                  | Ген.директор
    21 | 12                 | Дежурный оператор
    21 | 3                  | Гл.бухгалтер
    21 | 5                  | Нач. абон.отдела
    21 | 6                  | Линейщик
    21 | 7                  | Инженер АТС
    21 | 9                  | Кассир
    22 | boss               | 1
    22 | irina              | 3
    22 | serg               | 100
    22 | tanya              | 9
    22 | ugin               | 100
    23 | 001                | сегодня
    23 | 002                | завтра
    23 | 003                | послезавтра
    23 | 010                | на этой неделе
    23 | 011                | 1 неделя
    23 | 012                | 2 недели
    23 | 020                | в этом месяце
    23 | 021                | 1 месяц
    23 | 022                | 2 месяца
    25 | ugin               | [email protected]
    30 | 103                | Прямая линия
    30 | 110                | 2-х мегабитный канал

Все есть объект.

SanityIO, 12 Января 2011

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

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

−174

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

Sub display(frm As Form)
    Dim lvl As Boolean
    Dim format As String
    If (frm.optSex(0).value) Then
        format = oI18n.translate("res_m")
        format = Replace(format, "\n", vbCrLf, 1, -1, vbBinaryCompare)
        format = Replace(format, "*", frm.cmbSchool.Text, 1, 1, vbTextCompare)
        format = Replace(format, "*", frm.txtForm.Text, 1, 1, vbTextCompare)
        format = Replace(format, "*", frm.txtName.Text, 1, 1, vbTextCompare)
        format = Replace(format, "*", frm.txtSurname.Text, 1, 1, vbTextCompare)
        lvl = False
        For Each optLvl In frm.chkLevel
            If (optLvl.value) Then
                format = Replace(format, "*", oI18n.translate(optLvl.Tag & "_m"), 1, 1, vbTextCompare)
                lvl = True
            End If
        Next optLvl
        If (Not lvl) Then format = Replace(format, "*", oI18n.translate("Bad" & "_m"), 1, 1, vbTextCompare)
    End If
    If (frm.optSex(1).value) Then
        format = oI18n.translate("res_f")
        format = Replace(format, "\n", vbCrLf, 1, -1, vbBinaryCompare)
        format = Replace(format, "*", frm.cmbSchool.Text, 1, 1, vbTextCompare)
        format = Replace(format, "*", frm.txtForm.Text, 1, 1, vbTextCompare)
        format = Replace(format, "*", frm.txtName.Text, 1, 1, vbTextCompare)
        format = Replace(format, "*", frm.txtSurname.Text, 1, 1, vbTextCompare)
        lvl = False
        For Each optLvl In frm.chkLevel
            If (optLvl.value) Then
                format = Replace(format, "*", oI18n.translate(optLvl.Tag & "_f"), 1, 1, vbTextCompare)
            End If
        Next optLvl
        If (Not lvl) Then format = Replace(format, "*", oI18n.translate("Bad" & "_f"), 1, 1, vbTextCompare)
    End If
    Dim dalykai As String
    Dim first As Boolean
    dalykai = ""
    first = True
    For Each chkFavorite In frm.chkFavorites
        If (chkFavorite.value) Then dalykai = dalykai & IIf(first, vbCrLf, vbCrLf) & (chkFavorite.Caption)
        first = False
    Next chkFavorite
    If (frm.chkFavoriteOther.value) Then dalykai = dalykai & IIf(first, vbCrLf, vbCrLf) & (frm.txtFavoriteOther.Text)
    Dim b As Boolean
    b = dalykai = ""
    If (b) Then
        If (frm.optSex(0).value) Then dalykai = oI18n.translate("nores_m")
        If (frm.optSex(1).value) Then dalykai = oI18n.translate("nores_f")
    End If
    If (Not b) Then
        If (frm.optSex(0).value) Then dalykai = oI18n.translate("res2_m") & dalykai
        If (frm.optSex(1).value) Then dalykai = oI18n.translate("res2_f") & dalykai
    End If
    
    MsgBox (format & vbCrLf & dalykai)
End Sub

заполняем строку-шаблон, заменяя звездочки реальными данными
вот не было в VB6 printf-подобной функции ((

Lure Of Chaos, 10 Января 2011

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

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

+161

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

foreach ($links as $key => $url) {
      $urlp=parse_url($url);
      $ch=1;
      if (substr($url,-1)!='/') {unset($links[$key]); $ch=0;};      
      if (strpos($url, '#')||$url==$begin_url||$url==substr($begin_url,0,-1)) {unset($links[$key]); $ch=0;};
      if ($ch){
        if ($urlp['host']!=$begin_host) {unset($links[$key]); $ch=0;};
      }
      if ($ch){
        foreach ($exurl as $k => $ext) { 
          if ((strpos($urlp['path'], $ext))) unset($links[$key]);
        }
      }
    }

Говнокод?

happy_me, 06 Января 2011

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

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