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

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

В номинации:

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

За время:

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

−1

1

Почему пхпшники получают поболя крестоблядей?

Почему пхпшники получают поболя крестоблядей?

crestoblyad, 16 Декабря 2018

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

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

+75

1
2
3
4
5
6
7
8
9

function rus (s:string):string;             {русификатор}
var m:integer;
begin
for m := 1 to length (s) do
case s [m] of
'А'..'п':S[m]:=chr(ord (S[m])-64);
'р'..'я':S[m]:=chr(ord(S[m])-16);
end;
rus:=S; end;

Кусок лабы на делфи

_113, 26 Июня 2013

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

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

−1

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

<form>
<link rel="stylesheet" href="css4.css">
<div class="four"><h1 align="center"><b>Выберите что будете накручивать:</b></h1></div><br>
<center><input class="fti" type="radio" name="message" value="Подписчики" id="marg2" required><b>Подписчики(1000шт. - 200₽)</b><br></center>
<center><input class="fti" type="radio" name="message" value="Лайки" id="marg2" required><b>Лайки(1000шт. - 200₽)</b><br></center>
<center>Укажите количество:</center>
<center><input type="number" name="count" class="iinput" value="1" id="a" name="count" min="10" max="10000" required oninput="b.value=(this.value*.2).toFixed(2)"> шт.<br></center>
<center>Укажите ссылку:</center>
<center><input type="url" name="url" class="iinput" placeholder="www.instagram.com/example/" id="marg" required><br></center>
<center>Укажите ваш Email:</center>
<center><input type="email" name="email" class="iinput" placeholder="[email protected]" id="marg" required><br></center>
<center>Будет списано:</center>
<center><input type="number" id="b" name="out" class="iinput" readonly="readonly">₽</center>
<a href="glavn.html" id="al">На главную</a>

<center><input type="submit" href="glavn.html" id="af" value="Отправить"></div></center><br>
<center><i class="fa fa-info-circle" aria-hidden="true" style="color:#D3D3D3;"><b style="color:#D3D3D3;">ЗАКАЗ ПРИДЁТ В ТЕЧЕНИИ 24 ЧАСОВ</b></i></center>

</form>
<?

Давайте течь от «PHPClub».

https://phpclub.ru/talk/threads/Помогите-с-отправкой-формы-на-email.86557/
>>> Я не могу отправлять данные с форм на сайте на свою почту.Я пробовал много способов но у меня не получалось.Буду благодарен за помощь в создании кода php.
>>> Выберите что будете накручивать

gost, 10 Марта 2020

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

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

+2

1
2

tar -czvf arhiv.tar.hz .
tar -xzf arhiv.tar.hz

Как запомнить эти команды? Бывает гуглю их в день по нескольку раз )))
Сделать алиаснюшню "tar pack" и "tar unpack"?

3_dar, 17 Августа 2020

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

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

+6

1
2
3
4
5
6
7
8
9

# coding: inlinec
from inlinec import inlinec

@inlinec
def test():
    #include<stdio.h>
    void test() {
        printf("Hello, world");
    }

https://www.opennet.ru/opennews/art.shtml?num=52306 - Inlinec - новый способ использования Си-кода в Python-скриптах

Сишные вставки в питоне

j123123, 04 Февраля 2020

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

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

+5

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

template<typename T>
T* sanitize(T* p)
{
    return reinterpret_cast<T*>(
      reinterpret_cast<uintptr_t>(p) & ~(alignof(T)-1));
}

template<typename T>
constexpr size_t avaliable_width()
{
  	switch(alignof(T))
    {
      case 1: return 0;
      case 2: return 1;
      case 4: return 2;
      case 8: return 3;
      case 16: return 4;
      case 32: return 5;
      case 64: return 6;
      case 128: return 7;
      case 256: return 8;
      default: return 0;
    }
}

template<size_t bit, typename T>
T* set_tag(T* p, bool tagged = true)
{
  	static_assert(bit < avaliable_width<T>(), "bad_width");

	if(tagged) {
     	return reinterpret_cast<T*>(
        	reinterpret_cast<uintptr_t>(p) | 1 << bit); 
    }
  	return reinterpret_cast<T*>(
      	reinterpret_cast<uintptr_t>(p) & ~(uintptr_t(1) << bit));
}

template<size_t bit, typename T>
bool get_tag(T* p)
{
  	static_assert(bit < avaliable_width<T>(), "bad_width");
  	return reinterpret_cast<uintptr_t>(p) >> bit & 1;
}

Младшие биты указателей на выравненные типы всегда нулевые. Из за этого (по формуле Шеннона) указатель несёт в себе меньше информации, оставаясь того же размера. Битоёбов это расстраивает.

Soul_re@ver, 16 Июня 2016

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

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

+4

1

http://надальнийвосток.рф

ну не всем же напитон...

defecate-plusplus, 22 Мая 2016

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

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

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

// А какие-нибудь IDE с интегрированными отладчиками (или
// отладчики сами по себе) умеют нахрен выкидывать всякую
// там компилтайм-метушню из кода, оставляя лишь то, что
// реально исполняется в рантайме?

// Ну например, чтобы хуйня вида
if constexpr(хуйня1)
{
  bagor1();
  if constexpr(хуйня2)
  {
    bagor11();
  }
  else
  {
    bagor12();
  }
}
else
{
  bagor2();
  if constexpr (хуйня3)
  {
    bagor21();
  }
  bagor();
}

// и если хуйня1 == true и хуйня2 == false то чтоб в отладчике
// в какой-то там говноIDE я увидел бы не эту пидоросню с if consexpr
// а только лишь

bagor1();
bagor12();

Есть ли такое?

j123123, 18 Апреля 2021

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

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

+1

1
2
3

Вы уронили продуктовое приложение и SSH-доступ изнутри виртуалки к нему,
все сессии потеряны. Доступ к виртуалке надо просить через заказчика, и это косяк.
Ваши действия?

vistefan, 23 Июля 2020

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

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

−120

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

Option Explicit

Dim HTMLCode As String 'переменная для хранения кода страницы

Private Sub Command1_Click()
    Winsock1.RemotePort = 80                'устанавливаем порт сервера 80
    Winsock1.RemoteHost = "ippages.com"     'Хост
    Winsock1.Connect                        'Подключаемся
    Label4.Caption = Winsock2.LocalIP
End Sub

Function CutIP(HTML As String) As String
Dim p1 As Integer
    p1 = InStr(HTML, "Content-Type: text/html")
    CutIP = Trim(Mid(HTML, p1 + 27, Len(HTML) - p1 - 23))
End Function

Private Sub Label1_Click()

End Sub

Private Sub Winsock1_Close()        'Событие генерируется при закрытии Канала связи
    Form1.Caption = "Не подключен" 'Просто сообщаем о том что не подключены
    Winsock1.Close
End Sub

Private Sub Winsock1_Connect()      'Событие генерируется при подключении
   Form1.Caption = "Подключение"      'Подключены
   'Посылаем запрос на сервер  выдающему наш IP
  Winsock1.SendData "GET " + "/simple/" + " HTTP/1.0" + Chr(10) + Chr(10)
End Sub

'Событие генерируется когда нам приходят данные
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Temp As String
  Winsock1.GetData HTMLCode
  Label1.Caption = CutIP(HTMLCode)
End Sub

Получение ай-пи адреса посредством отправки на сайт запроса через компонент WinSock.
http://vbbook.ru/visual-basic/polychenie-svoego-ip/
Строго говоря, это не лажа кодера, просто используется (по незнанию?) очень глючный и непредсказуемый компонент.

Fixed by me:

Function GetCurrentIP() As String

  Dim txt As String

  Dim i, j As Integer

  Dim mshttp As New XMLHTTP 'по умолчанию сервер всегда зареган.

  mshttp.open "GET", "http://checkip.dyndns.org/", False ' синхронный get

  mshttp.send

  txt = mshttp.responseText

  i = InStr(1, txt, ":")

  

  If i > 0 Then

    i = i + 1

  Else

    GetCurrentIP = "" ' удобно было бы, если по присваиванию, подобному этому, происходило покидание процедуры. Ан, нет.

    Exit Function

  End If

  

  j = InStr(i, txt, "</")

  If j < 1 Then

    GetCurrentIP = ""

    Exit Function

  End If

  

  GetCurrentIP = Trim(Mid(txt, i, j - i))

End Function

Stertor, 15 Февраля 2014

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

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