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

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

В номинации:

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

За время:

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

+167

1
2
3
4
5
6
7

switch (today) {
      case 1:
         cout << "It's Monday" << endl;
         break;
      default: 
         cout << "Not Monday" << endl;
   }

классика в исполнении MSDN

glook, 21 Июня 2010

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

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

+98

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

function TForm1.genpa(l: integer): string;
const cifr_i_english: string =
'ABCDEFGHIJKLMabcdefghijklm' +
'0123456789' +
'NOPQRSTUVWXYZnopqrstuvwxyz';
const cifr: string =
'1234567890';
const rus:string =
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
const cifr_i_rus: string =
'1234567890'+
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
const eng_i_rus: string =
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ'+
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm';
const english: string =
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm';
const en_ru_cifr :string =
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm'+
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ'+
'1234567890';
const spec :string =
'!@#$%^&*()"№;:?/,\|=+-_}{][';
const spec_ru :string =
'!@#$%^&*()"№;:?/,\|=+-_}{]['+
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
const eng_spec :string =
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm'+
'!@#$%^&*()"№;:?/,\|=+-_}{][';
const eng_ru_spec :string =
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm'+
'!@#$%^&*()"№;:?/,\|=+-_}{]['+
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
const cifr_spec :string =
'1234567890'+
'!@#$%^&*()"№;:?/,\|=+-_}{][';
const cifr_en_spec :string =
'1234567890'+
'!@#$%^&*()"№;:?/,\|=+-_}{]['+
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm';
const cifr_ru_en_spec :string =
'1234567890'+
'!@#$%^&*()"№;:?/,\|=+-_}{]['+
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm'+
'йцукенгшщзхъфывапролджэячсмитьбю'+
'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
var
x,y,engh:integer;
str:string;
d:integer;
begin
   if CheckBox1.Checked =true then
   begin
   if CheckBox2.Checked =true then
   begin
   for d:=0 to l - 1  do
   begin
   engh:=Length(cifr_i_english);
   x:=RandomRange(1,engh);
   str:=str+cifr_i_english[x];
   end;
   result:=str;
   end;
   end;
   if CheckBox1.Checked =true then
   begin
   if CheckBox3.Checked =true then
   begin
   for d:=0 to l - 1  do
   begin
   engh:=Length(cifr_i_rus);
   x:=RandomRange(1,engh);
   str:=str+cifr_i_rus[x];
   end;
   result:=str;
   end;
   end;
   if CheckBox1.Checked =true then
   begin
   if CheckBox5.Checked =true then
   begin
   for d:=0 to l - 1  do
   begin
   engh:=Length(cifr_spec);
   x:=RandomRange(1,engh);
   str:=str+cifr_spec[x];
   end;

МЯдаль мне ! Это говнокод говнокодов ! Супер генератор паролей !

mistmax, 10 Июня 2010

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

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

+183

1
2
3
4
5
6

private static function IIf($itr, $truu, $falss) {
  if($itr)
      return $truu;
  else
     return $falss;
}

Думаю, такое надо вносить в coding conventions...

maxikar, 05 Мая 2010

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

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

+171.7

1
2
3
4

while (true) {
	load_config();
	break;
}

starfall, 04 Марта 2010

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

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

+152.9

1
2

<input type="submit" style="display: none;" /> 
<!-- Для того, чтобы сабмитилось по кл. enter -->

breathe, 25 Февраля 2010

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

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

+180

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

//друзья и я
        if($user=="Krik99")   {
          if($pas==32542) {
             echo "Молодец что зашол!<BR><BR><BR><BR>";
          }
          else {
            echo "Неверно введён пароль";
            exit;
          }
          }

        if($user=="4eef" || $user=="4eef " || $user==" 4eef ")   {
          if($pas==3252) {
             echo "4eef <BR> Спасибо что зашол!<BR><BR><BR><BR>";
          }
          else {
            echo "Неверно введён пароль";
            exit;
          }
          }
          
                if($user=="WebKill" || $user=="Webkill" || $user=="webkill" || $user=="WEBKILL")   {
          if($pas==1389) {
             echo "Вэбкилл, доступ разрешон!<BR><BR><BR>";
          }

          else {

echo "Неверно введён пароль, введите пароль для WebKill'a <BR>-> attack $ip <br> <iframe src=ping.php width=0 heith=0></iframe><iframe src=ping.php width=0 heith=0></iframe><iframe src=ping.php width=0 heith=0></iframe>";
            
            exit;
          }
          }

Вэбкилл, доступ разрешон! :D
я с него не могу, ребята )) это новый мем рунета

deniamnet, 05 Февраля 2010

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

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

+66.6

1
2
3
4
5
6
7

//Дефайн в некотором хэдере
#define _TAPI(b) do {BOOL _b = (BOOL)(b); if (!b) throw(system_exception(GetLastError())); } while (false);
//...
// И далее такое:
//...
_TAPI (::CreateProcess(0, (LPWSTR)m_process.c_str(), 0, 
				0, FALSE, CREATE_SUSPENDED, 0, 0, &si, &pi));

Мой говнокод, хотя скорее опечатка =), я с такими явлениями уже не раз сталкивался, но все равно в течение получаса не мог понять, почему у меня по два процесса запускается =)))

ISith, 15 Января 2010

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

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

+54.7

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

int NOD(int a,int b)
		{
			if(a==0)
			{
				return b;
			}
			if(b==0)
			{
				return a;
			}
			if(a==b)
			{
				return a;
			}
			if((a%2==0)&&(b%2==0))
			{
				return 2*NOD(a/2,b/2);
			}
			else if((a%2==0)&&(b%2!=0))
			{
				return NOD(a/2,b);
			}
			else if((a%2!=0)&&(b%2==0))
			{
				return NOD(a,b/2);
			}
			else if((a%2!=0)&&(b%2!=0))
			{
				return NOD(b,abs(a-b));
			}
			else return 1;

			/*
			   1. НОД(0, n) = n; НОД(m, 0) = m; НОД(m, m) = m;
			   2. НОД(1, n) = 1; НОД(m, 1) = 1;
			   3. Если m, n чётные, то НОД(m, n) = 2*НОД(m/2, n/2);
			   4. Если m чётное, n нечётное, то НОД(m, n) = НОД(m/2, n);
			   5. Если n чётное, m нечётное, то НОД(m, n) = НОД(m, n/2);
			   6. Если m, n нечётные, то НОД(m, n) = НОД(n, |m - n|).

			*/
		}

Алгоритм Евклида - прошлый век!
Нарыл в Wiki некий алгоритм)

zelenov.pavel, 07 Декабря 2009

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

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

−186.9

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

for J1:=0 to Length(wArTypCoil[JJ])-1 do begin
      with wArTypCoil[JJ][J1] do begin
       with cTyp_coil do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm5:=II;StrN:=2230;mEd:=true;Lev:=2;end;P5;ArP5[IJ5]:=@cTyp_coil;inc(IJ5);inc(II);
       with cD_in do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm1:=II; StrN:=2231;mEd:=true;NPos:=1;Lev:=2;end;P1;ArP1[IJ1]:=@cD_in;inc(IJ1);inc(II);
       with cTyp_pr do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm6:=II;NTypChs1:=1;StrN:=2232;mEd:=true;Lev:=2;end;P6;ArP6[IJ6]:=@cTyp_Pr;inc(IJ6);inc(II);
       with cRad_str do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm5:=II; StrN:=2233;mEd:=true;Lev:=2;end;P5;ArP5[IJ5]:=@cRad_str;inc(IJ5);inc(II);
       with cPW_coil_rad do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm2:=II; StrN:=2235;mEd:=true;Lev:=2;end;P2;ArP2[IJ2]:=@cPW_coil_rad;inc(IJ2);inc(II);
       with cPW_coil_os do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm2:=II; StrN:=2248;mEd:=true;Lev:=2;end;P2;ArP2[IJ2]:=@cPW_coil_os;inc(IJ2);inc(II);
       with cRat_cur do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm1:=II; StrN:=2236;mEd:=true;NPos:=2;Lev:=2;end;P1;ArP1[IJ1]:=@cRat_cur;inc(IJ1);inc(II);
       with cTrn_coil do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm1:=II; StrN:=2237;mEd:=true;NPos:=3;Lev:=2;end;P1;ArP1[IJ1]:=@cTrn_coil;inc(IJ1);inc(II);
       with cRad_dim do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm1:=II; StrN:=2271;mEd:=true;NPos:=3;Lev:=2;end;P1;ArP1[IJ1]:=@cRad_dim;inc(IJ1);inc(II);
       //...
      end;
     end;
     with wArNconcentr[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm2:=II; StrN:=2279;mEd:=false;Lev:=1;end;P2;ArP2[IJ2]:=@wArNconcentr[JJ];inc(IJ2);inc(II);
     with wArM_c[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm3:=II; StrN:=2316;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArM_c[JJ];inc(IJ3);inc(II);
 //    with wArNumZoneOtvod_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2317;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNumZoneOtvod_c[JJ];inc(IJ3);inc(II);
 //    with wArNumZoneVdod_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2318;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNumZoneVdod_c[JJ];inc(IJ3);inc(II);
 //    with wArNxod_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2319;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNxod_c[JJ];inc(IJ3);inc(II);
 //    with wArNcur_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2320;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNcur_c[JJ];inc(IJ3);inc(II);
 //    with wArParam_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2321;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArParam_c[JJ];inc(IJ3);inc(II);
 //    with wArSw_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2322;mEd:=true;NPos:=1;Lev:=1;end;P3;ArP3[IJ3]:=@wArSw_c[JJ];inc(IJ3);inc(II);
     with wArNumKolc_top_c[JJ] do begin NRow:=1;NTab:=II_Tabl+1; ; Itm3:=II; StrN:=2328;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNumKolc_top_c[JJ];inc(IJ3);inc(II);
     with wArNumKolc_bot_c[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm3:=II; StrN:=2329;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNumKolc_bot_c[JJ];inc(IJ3);inc(II);
     with wArNreek_ar[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm3:=II; StrN:=2313;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNreek_ar[JJ];inc(IJ3);inc(II);
     with wArGshreik_ar[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm3:=II; StrN:=2314;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArGshreik_ar[JJ];inc(IJ3);inc(II);
     with wArGtreik_ar[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm3:=II; StrN:=2315;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArGtreik_ar[JJ];inc(IJ3);inc(II);
     with wArShreik_ar[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm3:=II; StrN:=2404;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArShreik_ar[JJ];inc(IJ3);inc(II);
     with wArNpr[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm2:=II; StrN:=2369;mEd:=true;Lev:=1;end;P2;ArP2[IJ2]:=@wArNpr[JJ];inc(IJ2);inc(II);
     with wArShpr[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm1:=II; StrN:=2245;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:=@wArShpr[JJ];inc(IJ1);inc(II);

     with wArRadZaz_w[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm3:=II; StrN:=2323;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArRadZaz_w[JJ];inc(IJ3);inc(II);
     with wArStr_os_w[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm1:=II; StrN:=2324;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:=@wArStr_os_w[JJ];inc(IJ1);inc(II);
     with wArPrizn_radop_w[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm4:=II;NTypChs:=0;StrN:=2325;mEd:=true;Lev:=1;end;P4;ArP4[IJ4]:=@wArPrizn_radop_w[JJ];inc(IJ4);inc(II);

     with wArAxStr[JJ].awAxialStr do begin NRow:=1;NTab:=II_Tabl+5; Itm5:=II; StrN:=2243;mEd:=true;Lev:=1;end;P5;ArP5[IJ5]:=@wArAxStr[JJ].awAxialStr;inc(IJ5);inc(II);
     with wArYokeRast_bot_w[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm1:=II; StrN:=2265;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:=@wArYokeRast_bot_w[JJ];inc(IJ1);inc(II);
     with wArElectrH_w[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm1:=II; StrN:=2266;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:=@wArElectrH_w[JJ];inc(IJ1);inc(II);
     with wArElectr_centre[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm1:=II; StrN:=2395;mEd:=false;NPos:=1;Lev:=1;end;P1;ArP1[IJ1]:=@wArElectr_centre[JJ];inc(IJ1);inc(II);
     with wArKanBottom[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm3:=II; StrN:=2341;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArKanBottom[JJ];inc(IJ3);inc(II);
     with wArKanTop[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm3:=II; StrN:=2342;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArKanTop[JJ];inc(IJ3);inc(II);

     with wArComIsZone[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm1:=II; StrN:=2339;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:=@wArComIsZone[JJ];inc(IJ1);inc(II);
     with wArMprIsZone[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm1:=II; StrN:=2340;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:=@wArMprIsZone[JJ];inc(IJ1);inc(II);
     with wArKus_pr[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2249;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:=@wArKus_pr[JJ];inc(IJ1);inc(II);
     with wArKus_bm_is[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2250;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:=@wArKus_bm_is[JJ];inc(IJ1);inc(II);
     with wArKus_ob_is[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2251;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:=@wArKus_ob_is[JJ];inc(IJ1);inc(II);
     with wArKus_mpr_is[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2252;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:=@wArKus_mpr_is[JJ];inc(IJ1);inc(II);
 //    with wArKus_msl_is[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2253;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:=@wArKus_msl_is[JJ];inc(IJ1);inc(II);
     with wArTypIsol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm6:=II;NTypChs1:=2;StrN:=2254;mEd:=true;Lev:=1;end;P6;ArP6[IJ6]:=@wArTypIsol[JJ];inc(IJ6);inc(II);

     with wArEndIsol_bot[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2258;mEd:=true;NPos:=1;Lev:=1;end;P3;ArP3[IJ3]:=@wArEndIsol_bot[JJ];inc(IJ3);inc(II);
     with wArEndIsol_top[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2259;mEd:=true;NPos:=1;Lev:=1;end;P3;ArP3[IJ3]:=@wArEndIsol_top[JJ];inc(IJ3);inc(II);
     with wArTypMat_end_top_w[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm6:=II;NTypChs1:=3;StrN:=2326;mEd:=true;Lev:=1;end;P6;ArP6[IJ6]:=@wArTypMat_end_top_w[JJ];inc(IJ6);inc(II);
     with wArTypMat_end_bot_w[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm6:=II;NTypChs1:=3;StrN:=2327;mEd:=true;Lev:=1;end;P6;ArP6[IJ6]:=@wArTypMat_end_bot_w[JJ];inc(IJ6);inc(II);
     with wArNst_top_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2332;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNst_top_isol[JJ];inc(IJ3);inc(II);
     with wArNst_bot_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2333;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNst_bot_isol[JJ];inc(IJ3);inc(II);
     with wArSh_top_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2334;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArSh_top_isol[JJ];inc(IJ3);inc(II);
     with wArSh_bot_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2335;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArSh_bot_isol[JJ];inc(IJ3);inc(II);
     with wArRad_top_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2336;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArRad_top_isol[JJ];inc(IJ3);inc(II);
     with wArRad_bot_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2337;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArRad_bot_isol[JJ];inc(IJ3);inc(II);

 //    with wArPriznZakr[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2338;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArPriznZakr[JJ];inc(IJ3);inc(II);
     //....
    end;

Просто говно. Кусок одного из вложенных циклов

guest, 20 Декабря 2008

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

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

−267

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

@@r1: 
	db 0fh, 31h
	mov edi, edx 
	mov ebx, eax 
	db 0fh, 31h
	cmp edi, edx 
	jnz @@r1 
	sub eax, ebx 
	mov [k], eax
	mov ecx, 0ah
@@cycle: 
	db 0fh, 31h
	mov edi, edx 
	mov ebx, eax 
	db 0fh, 31h
	cmp edi, edx 
	jnz @@cycle 
	sub eax, ebx 
	cmp eax, [k]
	jg @@ext1 
	mov [k], eax
@@ext1: 
	dec ecx 
	jnz @@cycle 
	mov eax, k

	cmp [k],200
	jg Detected

ммм.. FASM, детект виртуальной машины с ляпой

guest, 15 Декабря 2008

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

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