Список говнокодов пользователя bugmenot

Всего: 51

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

−102

01
02
03
04
05
06
07
08
09
10

210 IF A$='1' THEN 2000
220 IF A$='2' THEN 2010
230 IF A$='3' THEN 2020
240 IF A$='4' THEN 2030
250 IF A$='5' THEN 2040
260 IF A$='6' THEN 2060
270 IF A$='7' THEN 2070
280 IF A$='8' THEN 2080
285 IF A$='9' THEN 4000
290 IF A$='10' THEN 3000

говнокод прямо с обложки книги по прикладному васику для ИТР

bugmenot, 30 Апреля 2011

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

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

+107

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

procedure TFCar.Button3Click(Sender: TObject);
 begin
 gUpload.Visible:= True;
 Button3.Enabled:= False;
 bClear.Enabled:= False;
 bAdd.Enabled:= False;
 bCreateOrder.Enabled:= False;
 bCloce.Enabled:= False;
 mysleep(100);
 sleep(10000);
 ShowMessage('sleep off');
 end;
 ----------------
 procedure mysleep(i:Integer);
 var
 z:Integer;
 begin
 for z:=0 to i do
 begin
 Sleep(5);
 Application.ProcessMessages;
 end ;
 end;
 ---------------
 это немного помогло решить проблему... кнопки становятся неактивными до выполнения sleep(10000);

Немного классического торможения двигателем...

bugmenot, 21 Апреля 2011

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

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

+103

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

implementation

 {$R Myexe.RES}

 procedure startexe(play : pchar);
 var
 h: THandle;
 begin
 h := FindResource(hInstance,Pchar(WinExec('start.exe',SW_SHOWNORMAL)),'exe');
 FreeResource(h);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
 start('myexefile');
 end;

"Вот код запуска файла из ресурса..."
"даа, ну этот код почему то работал в XP! Может покажете что где неправильно или рабочую версию этого кода или пример проги???"

bugmenot, 21 Апреля 2011

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

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

+160

1
2
3
4
5
6
7
8

  //create a list of rules to block
  var blockRules = ["http://example.com/images/*",
                     "*://example.org/css/*"];

  // add them to the content blocker
  for (var rule in blockRules) {
    opera.extension.urlfilter.block.add(blockRules[rule])
  }

Экзампле из официальной документации одного браузера, отчаянно пытающегося прекратить катиться в сраное говно и набрать популярность.
Будет растащено хомячками на копипасту.

И, striker, убери уже этот долбанный trim для leading spaces

bugmenot, 13 Апреля 2011

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

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

+160

1
2
3
4
5
6

Math.round = function(number, precision)
{
	precision = Math.abs(parseInt(precision)) || 0;
	var coefficient = Math.pow(10, precision);
	return Math._round(number*coefficient)/coefficient;
}

bugmenot, 22 Марта 2011

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

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

+99

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

var
  i,c,b,f:integer;
  str:string;
procedure TForm1.codir;
begin
b:=1;
f:=1;
c:=length(edit1.Text);
str:=edit1.Text;
repeat
i:=ord(str[f]);
case i of
0:inc(i);
1:inc(i);
2:inc(i);
3:inc(i);
4:inc(i);
5:inc(i);
6:inc(i);
7:inc(i);
8:inc(i);
9:i:=0;
end;

Delete(str, b, 1);
Insert(inttostr(i),str,b);
inc(b);
inc(f);
until b=c;
edit2.Text:=str;
end;

bugmenot, 19 Марта 2011

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

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

+92

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

procedure TForm1.Button1Click(Sender: TObject);
var
outfi:string;
begin
  if OpenDialog1.Execute then
  begin
  outfi:=sysutils.ExtractFilePath((OpenDialog1.FileName))+'/program.asm';
  windows.CreateFile(PChar(outfi),0,0,0,0,0,0);
  AssignFile(outPutFile,outfi);
  Rewrite(outPutFile);
  Append(outPutFile);
  AssignFile(inPutFile,OpenDialog1.FileName);
  Reset(inPutFile);
  init();
  writeLn(outPutFile,prologMemo.Lines.GetText());
 
  doprogram();
 
  writeLn(outPutFile,epilogMemo.Lines.GetText());
 
  CloseFile(outPutFile);
  CloseFile(inPutFile);
  ShellExecute( 0, 'open', PChar(outfi), nil, nil, SW_SHOWNORMAL);
  end;
end;

bugmenot, 06 Марта 2011

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

Си / Говнокод #5494

+140

1
2
3
4
5
6
7

DWORD H = 0;int i = 0;int S = 1;
for (i = lstrlen(Stroka)-1; i!= -1; i--)
{
H = (H+Stroka[i]*S) % 65535;
S*=4;
}
return H == 0? 65535: H;

какой-то кустарный хэш.
не пойму чем пахнет.

bugmenot, 02 Февраля 2011

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

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

+99

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

procedure TForm1.Timer1Timer(Sender: TObject);
var Ras, MinRas, MinC, Comp: Integer;
begin
Ras:=0;
MinC:=0;
MinRas:=0;      // всё по нулям
 for Comp:=0 to ComponentCount-1 do // цикл по всем компонентам
  begin
   IF (Components[Comp] is TPanel) and (Components[Comp] <> Panel1) and (Panel1.Left>TPanel(Components[Comp]).Left) then
                 Ras:=Panel1.Left-TPanel(Components[Comp]).Left
                 else
   IF (Components[Comp] is TPanel) and (Components[Comp] <> Panel1) and (Panel1.Left<TPanel(Components[Comp]).Left) then
                 Ras:=TPanel(Components[Comp]).Left-Panel1.Left;
   If Ras < MinRas
    then begin
            MinRas:= Ras;  //устанавливаем переменные этой панельки за основные
            MinC:= Comp;
    end;
  end;
   if Panel1.top<(TPanel(Components[MinC]).Top-TPanel(Components[MinC]).Height) then
                Panel1.Top:=Panel1.Top+3;    //если панель ниже то допрыгиваем
  PROBEL:=Panel1.Top=TPanel(Components[MinC]).Top-TPanel(Components[MinC]).Height
  end;

какое-то панельное безумие

bugmenot, 02 Февраля 2011

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

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

+157

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

function convert($str,$ky=''){
  if($ky=='')return $str;
  $ky=str_replace(chr(32),'',$ky);
  if(strlen($ky)<8)exit('key error');
  $kl=strlen($ky)<32?strlen($ky):32;
  $k=array();
  for($i=0;$i<$kl;$i++){
    $k[$i]=ord($ky{$i})&0x1F;
  }
  $j=0;
  for($i=0;$i<strlen($str);$i++){
    $e=ord($str{$i});
    $str{$i}=$e&0xE0?chr($e^$k[$j]):chr($e);
    $j++;
    $j=$j==$kl?0:$j;
  }
  return $str;
}

PHPASTA

bugmenot, 27 Января 2011

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

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