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

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

В номинации:

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

За время:

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

+78.4

Мне немногозначно дали понять, что анонимы всех достали. Пишут в почту, в icq, в реформал и даже смски шлют.
Проект уже вырос из того нежного возраста, когда его судьбу мог решать я сам. Посему предлагаю обсудить сложившуюся ситуацию и прийти к соглашению, выпиливать ли анонимов или оставлять.

striker, 17 Апреля 2010

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

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

−3

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

Public Function DescendingSort(ByRef Data As Variant) As Variant
    Dim i As Long
    For i = LBound(Data) To UBound(Data) - 1
        Dim j As Long
        For j = i + 1 To UBound(Data)
            If Data(i) < Data(j) Then
                Dim Temp As Variant
                Temp = Data(j)
                Data(j) = Data(i)
                Data(i) = Temp
            End If
        Next
    Next

    DescendingSort = Data
End Function

Вот все спрашивают, зачем на собеседованиях требуют сортировки писать — так вот для этого! Вдруг вам придётся писать на «VBA»?
> Как в VBA правильно создавать одномерный массив. ArrayList
https://habr.com/ru/post/712000/

ISO, 23 Января 2023

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

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

+124

1
2
3
4
5
6
7

http://www.youtube.com/watch?v=swAEcc9JX4Q

(автор пишет троян на дельфях, и комментирует)

убила фраза:

"...реестр[...]. Так как в линуксе все по-другому, Вы должны быть уверены, что ваша программа запускается на Windows"

убила фраза:

"...реестр[...]. Так как в линуксе все по-другому, Вы должны быть уверены, что ваша программа запускается на Windows"

Stertor, 01 Марта 2014

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

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

−1

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

if (isset($_GET['org'])) {
$org=htmlspecialchars($_GET["org"]);
}
else $org=1;
if ($num_resultsdop) {
$sql = "SELECT * FROM `baza`, `sankomerc`, `sandop` WHERE baza.id='$org' and sankomerc.id='$org' and sandop.id='$org'";
}
else {
    $sql = "SELECT * FROM `baza`, `sankomerc` WHERE baza.id='$org' and sankomerc.id='$org'";
}
$row = mysql_fetch_array($result);
    $chotz=$row['chotz'];
    $nazvanie=$row['nazvanie'];
    $nazvaniech=$row['nazvanie'];

    //типографим название
    $typograph->set_text($nazvanie);
    $nazvanie = $typograph->apply();
    $nazvanienotags = strip_tags($nazvanie);

SEO: #nazvanienotags

SemaReal, помнишь, я тебе говорил, что летом скорее всего перейду на другую работу или восстановлюсь в универе?
Тогда моя претензия была в том, что используют устаревающий Yii2, что нет CI, нет тестов…
После импровизированного отпуска я пришёл, и получил проект, пример реального кода из которого ты видишь.

vistefan, 06 Июля 2018

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

Assembler / Говнокод #2172

+240.1

1
2

fld qword ptr [d]
call @ROUND

Это творчество дельфийского компилятора на тему i := round(d);
Он делает вызов функции ради одной пустяковой команды, что очень влияет на скорость.

TarasB, 24 Ноября 2009

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

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

−163

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

SET DELETED ON
store 0 to r_klot,r_kpot,r_vspot,r_klgv,r_kpgv,r_vspgv,r_klvod,r_kpvod,r_vspvod,r_klngv,r_kpngv,r_vspngv
store 0 to r_klkan,r_kpkan,r_sumkan,r_klmys,r_kpmys,r_summys,r_klmys1,r_kpmys1,r_summys1,r_vspmys,r_vspkan,r_vspmys1
STORE 0 TO r_klmys2,r_kpmys2,r_summys2,r_vspmys2
STORE 0 TO r_klmys3,r_kpmys3,r_summys3,r_vspmys3
STORE 0 TO r_klmys4,r_kpmys4,r_summys4,r_vspmys4
STORE 0 TO r_klmys5,r_kpmys5,r_summys5,r_vspmys5
SELECT 2
USE tarif INDEX tarif SHARED
SELECT 1
use kw SHARED
SET RELATION TO kodtar INTO tarif
go top
do while .not. eof()
if kw.ot=0
r_klot=r_klot+1
r_kpot=r_kpot+kp
r_vspot=r_vspot+vsp
endif
if kw.gv#0 .or. prgvod=0
r_klgv=r_klgv+1
r_kpgv=r_kpgv+kp
r_vspgv=r_vspgv+vsp
endif
if kw.vod#0 .or. prv=0
r_klvod=r_klvod+1
r_kpvod=r_kpvod+kp
r_vspvod=r_vspvod+vsp
endif
IF tarif.tgv#0
r_klngv=r_klngv+1
r_kpngv=r_kpngv+kp
r_vspngv=r_vspngv+vsp
ENDIF
IF kw.kan#0
r_klkan=r_klkan+1
r_kpkan=r_kpkan+kp
r_sumkan=r_sumkan+kan
r_vspkan=r_vspkan+vsp
ENDIF
IF kw.mys#0
r_klmys=r_klmys+1
r_kpmys=r_kpmys+kp
r_summys=r_summys+mys
r_vspmys=r_vspmys+vsp
ENDIF
*газ.плита 2-х комфорочная
IF kw.gpp=1
r_klmys1=r_klmys1+1
r_kpmys1=r_kpmys1+kp
r_summys1=r_summys1+gps
r_vspmys1=r_vspmys1+vsp
ENDIF
*газ.плита 4-х комфорочная
IF kw.gpp=2
r_klmys2=r_klmys2+1
r_kpmys2=r_kpmys2+kp
r_summys2=r_summys2+gps
r_vspmys2=r_vspmys2+vsp
ENDIF
*нагреватель проточный (обычная колонка)
IF kw.gkp=1
r_klmys3=r_klmys3+1
r_kpmys3=r_kpmys3+kp
r_summys3=r_summys3+gks
r_vspmys3=r_vspmys3+vsp
ENDIF
*нагреватель емкостной, газовый (титан)
IF kw.gkp=2
r_klmys4=r_klmys4+1
r_kpmys4=r_kpmys4+kp
r_summys4=r_summys4+gks
r_vspmys4=r_vspmys4+vsp
ENDIF
*водоотведение
IF kw.yb#0
r_klmys5=r_klmys5+1
r_kpmys5=r_kpmys5+kp
r_summys5=r_summys5+yb
r_vspmys5=r_vspmys5+vsp
ENDIF
skip
enddo
REPORT FORM spr1r TO PRINTER prompt PREVIEW 
---
set date british
  select 2
 use sprstr index sprstr SHARED 
SET ORDER TO TAG KST OF SPRSTR.CDX
SELE 3
 USE TARIF INDEX TARIF SHARED
  select 1
 use kw index kw1 SHARED 

 set relation to kst into b,kodtar INTO c
SET FILTER TO ls=r_ls  
sdr=DTOC(thisform.text1.Value)
REPORT FORM subsid PREVIEW

Вот такой пиздец мне надо сопровождать и дописывать. Судя по говённости кода, по уёбскому названию переменных, по дико ебланской манере писать код - аффтар из Дульфистов, только у них может получиться настолько уёбский код.

DelphiGovno, 24 Июня 2015

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

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

+2

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

https://habr.com/ru/post/472970/

Критика протокола и оргподходов Telegram. Часть 1, техническая: опыт написания клиента с нуля

в Full самая наркомания, с точки зрения сетевика: длина,
sequence number, причем НЕ ТОТ, что в основном MTProto,
тело, CRC32. Да, всё это поверх TCP. Который предоставляет
нам надежный транспорт в виде последовательного потока байт,
никакие последовательности не нужны, тем более контрольные
суммы. Окей, мне сейчас возразят, что в TCP 16-битная
контрольная сумма, так что искажение данных случается.
Отлично, только у нас вообще-то криптографический протокол
с хэшами длиннее 16 байт, все эти ошибки — и даже
более — будут отловлены на несовпадении SHA уровнем выше.
Никакого смысла в CRC32 поверх этого — НЕТ.

Ебать дебилы

j123123, 27 Октября 2019

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

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

0

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

function loadQuestionsInTest() {
  $mysqli = connectDB();
  $testID = $_POST['testID'];
  $testSets = $mysqli -> query('select * from testsets where test_id = '.$testID.';');
  if ($testSets->num_rows > 0) {
    $query = [];
    while ($row = $testSets -> fetch_assoc()) {
      $loID = $row['lo_id'];
      $questionsCount = $row['count'];
      $questionsInLO = $mysqli -> query('select count(*) as num from questions where lo_id = '.$loID.';') -> fetch_assoc()['num'];
      if ($questionsCount > $questionsInLO)
        $questionsCount = $questionsInLO;
      $query[] = '(select id, content, result, lo_id from questions where lo_id = '.$loID.' order by rand() limit '.$questionsCount.')';
    }
    $query = implode(' union ', $query).' order by rand();';
    
    $questionRes = $mysqli -> query($query);
    $questions = array();
    while ($row = $questionRes->fetch_assoc()) {
      $questionType = json_decode($row['result']) -> type;
      if ($questionType == 'check') {
        $question = array(
          'id' => $row['id'],
          'content' => $row['content'],
          'loID' => $row['lo_id']
        );
        array_push($questions, $question);
      } else if ($questionType == 'input') {
        $questionContent = json_decode($row['result']);
        $questionText = $questionContent -> text;
        $answers = $questionContent -> answers;
        for ($i = count($answers) -1; $i >= 0; $i--)
          $questionText = mb_substr_replace($questionText, '(|answer'.$answers[$i] -> id.'|)', $answers[$i] -> posStart, $answers[$i] -> posEnd - $answers[$i] -> posStart);
        $content = array( 'type' => 'input', 'text' => $questionText );
        $question = array(
          'id' => $row['id'],
          'content' => json_encode($content, JSON_UNESCAPED_UNICODE),
          'loID' => $row['lo_id']
        );
        array_push($questions, $question);
      }
    }
    $response = json_encode($questions, JSON_UNESCAPED_UNICODE);
    echo $response;
    $mysqli -> close();
    return;
  }
  echo '[]';
  $mysqli -> close();
}

Моя дипломная работа по теме "тестирование студентов". Загрузка вопросов для прохождения теста из базы. Вопросы должны идти в рандомном порядке, варианты ответов тоже.

cotheq, 16 Мая 2016

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

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

−118

1
2
3
4
5

def get_a():
    print("Hello goblin")
    return get_a

get_a()()()()()()()()()()()()()

Осталось понять зачем

greenx, 30 Апреля 2015

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

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

+34

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

class cxx_query {
    elements operator()(const std::string &css_query);
    void operator()(std::function<void()> callback);
    http_request get(const std::string &url);
    // ...
} $;

#define function []

$(function() {
    $.get(some_url, function(const std::string &data) {
        $("#result").html(data);
    });
});

bormand, 30 Декабря 2013

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

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