- 1
- 2
- 3
- 4
- 5
- 6
- 7
<?php
echo "
<b>
Ахуеть
</b>
";
?>
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 5
+143
<?php
echo "
<b>
Ахуеть
</b>
";
?>
+90
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))) аццкое гавно
+83
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;
При просмотре данного говнокода будьте осторожны пжл. Прсомтор может вызвать ФГМ (Фимоз Головного Мозга)
+98
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;
МЯдаль мне ! Это говнокод говнокодов ! Супер генератор паролей !
+104
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;