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

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

В номинации:

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

За время:

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

+147

1

eval("document.getElementById('bmnu_rbt').onclick = function () { menu_to_left(); }");

Без комментанриев

kostoprav, 22 Июля 2013

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

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

+132

1
2
3

Прокси-граббер

http://rghost.ru/47337858

Прокси-граббер

http://rghost.ru/47337858

Stertor, 11 Июля 2013

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

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

+73

1
2
3
4
5
6

Дорогой участник! Не спеши покидать страницу. Я прошу тебя помочь:
не поленись, пройдись по всем постам, и поставь каждому участнику по минусу;
минусуя других участников ты воспитываешь в себе чувство меры и помогаешь обществу снижать ЧСВ. 
Заранее спасибо, друг мой. Ты будешь вознагражден за это деяние!

Тот, кто покинул страницу, но не выполнил моей просьбы, умрет через 9 дней.

Дорогой участник! Не спеши покидать страницу. Я прошу тебя помочь:
не поленись, пройдись по всем постам, и поставь каждому участнику по минусу;
минусуя других участников ты воспитываешь в себе чувство меры и помогаешь обществу снижать ЧСВ.
Заранее спасибо, друг мой. Ты будешь вознагражден за это деяние!

Тот, кто покинул страницу, но не выполнил моей просьбы, умрет через 9 дней.

Stertor, 11 Июля 2013

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

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

+139

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

procedure TMyTr.Execute;
var
s,resp,ip,port:string;
cw,i:integer;
begin
  http:=TIdHTTP.Create(nil);
  cw:=getnumberproxy;
  while cw<form1.Memo1.Lines.Count do
  begin
    s:=form1.Memo1.Lines[cw];
    i := Pos(':',s);
    IP := Copy(s,1,i-1);
    PORT := Copy(s,i+1,Length(s));

    try
      http.ProxyParams.ProxyServer:=ip;
      http.ProxyParams.ProxyPort:=StrToInt(port);
      http.ReadTimeout:=Form1.SpinEdit2.Value*1000;
      resp:=http.Get('http://ya.ru/');
      if pos('ya.ru',resp)<>0 then
      form1.Memo2.Lines.Add(ip+':'+port);
      except
        end;
      cw:=getnumberproxy;
      checked:=checked+1;
      end;
  http.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  ind:=-1;
  label6.caption:=inttostr(Memo1.Lines.count);
  for i:=1 to spinedit1.Value do
  begin
    thr[i]:=TMyTr.Create;
    thr[i].Pause(1);
    thr[i].Resume;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.label4.caption:=IntToStr(Form1.Memo2.Lines.Count);
Form1.Label6.Caption:=IntToStr(form1.Memo1.Lines.Count);
Form1.Label3.Caption:=IntToStr(checked);

end;



procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Memo1.Clear;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Memo2.Clear;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if SaveDialog1.Execute=true then
Form1.Memo2.Lines.SaveToFile(Form1.SaveDialog1.FileName);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if Form1.OpenDialog1.Execute=True
then
Form1.Memo1.lines.LoadFromFile(Form1.OpenDialog1.FileName);
end;


procedure TForm1.Button6Click(Sender: TObject);
begin
Form1.CoolTrayIcon1.IconVisible:=True;
Form1.Hide;
end;

procedure TForm1.Show1Click(Sender: TObject);
begin
Form1.Show;
Form1.CoolTrayIcon1.IconVisible:=false;
end;

procedure TForm1.SaveGood1Click(Sender: TObject);
begin
if SaveDialog1.Execute=true then
Form1.Memo2.Lines.SaveToFile(Form1.SaveDialog1.FileName);

end;

procedure TForm1.ClearGood1Click(Sender: TObject);
begin
Form1.Memo2.Clear;
end;

Продолжение. Начало на http://govnokod.ru/13317

Stertor, 06 Июля 2013

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

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

+132

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

procedure TNewThread.Execute;
var Shellapi,  Account, Username, Password:string;
    Pars_1, Pars_2:integer;
begin
Form1.Caption:='E-mail spamer by klychev - Work!'; 
while Work do
begin
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;
if Form1.Edit3.Text=Form1.Edit4.Text then
begin
Work:=False;
Form1.Button1.Enabled:=True;
Form1.Button2.Enabled:=False;
Form1.Caption:='E-mail spamer by klychev - Finish!';
end
else
begin
Account:='.'+Form1.Memo1.Lines[strtoint(Form1.Edit1.Text)]+'.';
Pars_1:=Pos('.',Account)+Length('.');
for Pars_2:=Pars_1 to Length(Account) do
if Account[Pars_2]=';' then Break;
Username:=Copy(Account,Pars_1,Pars_2-Pars_1);
Pars_1:=Pos(';',Account)+Length(';');
for Pars_2:=Pars_1 to Length(Account) do

Попытка посношаться, через открытое окно движущегося поезда.

Stertor, 04 Июля 2013

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

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

+147

1

Николас Вирт - Бог

Stertor, 26 Июня 2013

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

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

+143

1

Лучший язык программирования, я считаю. Ставь лойс, если думаешь так жи

Stertor, 26 Июня 2013

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

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

+129

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

function stringreplaceall(text, byt, mot: string): string;
var
  plats: integer;
begin
  while pos(byt, text) > 0 do
  begin
    plats := pos(byt, text);
    delete(text, plats, Length(byt));
    insert(mot, text, plats);
  end;
  Result := text;
end;

Найди десять отличий с родной дельфийской StringReplace. (trollface)

Stertor, 23 Июня 2013

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

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

+154

1
2
3
4
5
6
7
8
9

<ul>
  <script>
  $(function(){
        $(".catalog-menu ul li a[href='/newshop/cat_id:12']").parent().addClass("active");
  });
  </script>
  <li class="active">...</li>
  <li>...</li>
</ul>

Переделываю один магазин, выполненный на говноcms, в менюшечке увидел это.

nkarakin, 14 Июня 2013

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

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