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

Всего: 5

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

+143

1
2
3
4
5
6
7

<?php
echo "
<b>
Ахуеть
</b>
";
?>

mistmax, 10 Июня 2010

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

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

+90

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

procedure TForm1.registration;
var
reg:TRegistry;
i,lbc:integer;
aentsys,alawarkey:boolean;
const
dw:DWORD =1800000;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  aentsys:= reg.KeyExists('software\Aent Sys');

  alawarkey:=reg.KeyExists('software\Alawar');
  //aentsys
     if aentsys = true  then
   begin
  reg.OpenKey('software\Aent Sys\pr',true);
  reg.GetKeyNames(ListBox1.Items);
  reg.CloseKey;
  lbc:=listbox1.Items.Count;
  sProgressBar1.Max:=lbc*10;
  i:=0;
  while not (i=lbc) do
  begin
   reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('software\Aent Sys\pr',true);
  reg.OpenKey(ListBox1.Items.Strings[i],true);
  reg.GetKeyNames(ListBox2.Items);
  reg.OpenKey(ListBox2.Items.Strings[0],true);
  reg.WriteInteger('Program',dw);
  sProgressBar1.Position:= sProgressBar1.Position+10;
  i:=i+1;
  listbox2.Clear;
  reg.CloseKey;
  end;
  end;
  i:=0;
  listbox2.Clear;
  listbox1.clear;
  lbc:=0;
  //alawar key
   if alawarkey = true  then
   begin
  reg.OpenKey('software\Alawar\play',true);
  reg.GetKeyNames(ListBox1.Items);
  reg.CloseKey;
  lbc:=listbox1.Items.Count;
  sProgressBar1.Max:=lbc*10;
  i:=0;
  while not (i=lbc) do
  begin
   reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('software\Alawar\play',true);
  reg.OpenKey(ListBox1.Items.Strings[i]+'\trial',true);
  reg.GetKeyNames(ListBox2.Items);
  reg.OpenKey(ListBox2.Items.Strings[0],true);
  reg.WriteInteger('Program',dw);
  sProgressBar1.Position:= sProgressBar1.Position+10;
  i:=i+1;
  listbox2.Clear;
  reg.CloseKey;
  end;
  end;

end;

Заново даёт триццать минут для игры от компании Alawar))) аццкое гавно

mistmax, 10 Июня 2010

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

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

+83

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

function td1(text: string):string;
const cifr: string =
'1234567890';
english: string =
'NOPQRSTUVWXYZnopqrstuvwxyz'+
'ABCDEFGHIJKLMabcdefghijklm';
var
count, i, a, b, h, ss:integer;
special:string;
errform:TForm;
begin
try
application.ProcessMessages;
special:='';
  count:=length(text);
  if count < 210 then
  begin
  errform:=CreateMessageDialog('Неверный тип кода.',mtError,[mbOK]);
  errform.ShowModal;
  exit;
  end;
  for a:=1 to count do begin
  for i:=1 to count do begin
  for h:=1 to length(english) do begin
  for b:=1 to length(cifr) do begin
  application.ProcessMessages;
  if cifr[b]=text[a] then
      begin
  ss:=ss+(count+length(cifr))+12;
  end;
  if cifr[i]=text[a] then
    begin
  ss:=ss+14;
  end;
  if cifr[a]=text[b] then
  begin
  ss:=ss+(count+length(english))+b+a;
  end;
  //***********************
  if english[b]=text[a] then
  begin
  ss:=ss*7+(count+length(cifr))+a+b;

  end;
  if english[i]=text[a] then
  begin
  ss:=ss+(count*4+length(english)++length(cifr))+i+a-12;
  end;
  if english[a]=text[b] then
  begin
  ss:=ss+(count*7+length(english))+a+b+14;

  end;
  end;
  end;
  end;
   special:=special+inttostr(ss);
  end;
   result:=special;
   except
   end;
end;

При просмотре данного говнокода будьте осторожны пжл. Прсомтор может вызвать ФГМ (Фимоз Головного Мозга)

mistmax, 10 Июня 2010

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

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)

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

+104

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

procedure TForm1.save_to_file_coordinates;
label
f,d;
begin
 f:begin
 if str1=0 then
  begin
   memo1.items.Strings[0]:=memo3.Lines.Strings[0];
   str1:=str1+1;
  end;
 if str1=b then
  begin
    goto d;
  end;
 begin
   memo1.items.Strings[strtoint(floattostr(str1))]:=memo3.Lines.Strings[strtoint(floattostr(str1))];
   str1:=str1+1;
 end;
 goto f;
 end;
  d:begin
      begin
         if b=i then
          begin
            exit;
          end;
          begin
            memo2.items.Strings[strtoint(floattostr(str2))]:=memo3.Lines.Strings[strtoint(floattostr(b))];
            b:=b+1;
            str2:=str2+1;
            end;
  goto d;
end;
end;

end;

mistmax, 10 Июня 2010

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

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

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

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

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

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

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

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