- 1
- 2
- 3
- 4
- 5
- 6
- 7
<?php
echo "
<b>
Ахуеть
</b>
";
?>
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+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;
+157
function month_to_number(a) {
if (a == 'Jan') {
a = '01';
}
if (a == 'Feb') {
a = '02';
}
if (a == 'Mar') {
a = '03';
}
if (a == 'Apr') {
a = '04';
}
if (a == 'May') {
a = '05';
}
if (a == 'Jun') {
a = '06';
}
if (a == 'Jul') {
a = '07';
}
if (a == 'Aug') {
a = '08';
}
if (a == 'Sep') {
a = '09';
}
if (a == 'Oct') {
a = '10';
}
if (a == 'Nov') {
a = '11';
}
if (a == 'Dec') {
a = '12';
}
return a;
};
+159
echo "<tr><td></td><td><small><font color=red>$sum0</font>/<font color=blue>$sum00</font></small></td>
<td> </td><td align=center><strong><!--$duse,--> $sum1</strong></td><td align=right><strong>".str_replace(".",",",c_mon($sum2))."</strong></td><td align=right><strong>".str_replace(".",",",c_mon($sum3))."</strong></td>\n
<td align=right><strong>".str_replace (".", ",", $sum4)."</strong></td>
<td align=right><strong>".str_replace (".", ",", sprintf("%01.2f",$straf/1024/1024))."</strong></td>
<td align=right><strong>".str_replace(".",",",c_mon($sum_pl))."</strong></td>
<td align=right nowrap><strong id=red>".str_replace(".",",",c_mon($sum_mn))."</strong></td>
<td> </td>
<td align=right><strong>".str_replace (".", ",", $sum5)."</strong></td>
<td> </td></tr>";
Точки и запятые в числах
+74
protected void setPhones(ArrayList<MBPhone> phones) {
if(phones!=null)
this.phones=phones;
else
phones.clear();
}
Код из одного западного вэб-сервиса для профессионалов в сфере недвижимости.
Мораль: не надо игнорировать подсказки IDE. Автор на самом деле хотел очистить this.phones. И Intelij Idea подсказывает, что в этом месте может быть брошен NullPointerException. Увидеть эту проблему можно было только используя аннотацию @SuppressWarnings. Потому что варнингов так много, что различить среди них опасные очень сложно.
+164
<?
$mult=$mult+0;
if ($mult<1 and $mult>38) $mult="001";
$mult = substr("00".$mult, 0,3);
//echo "mult=".$mult."<br>";
$title="Мультик №".$mult;
include ('../../novost/l1.htm');
$minmult=1+1;
$maxmult=38-1;
$multa= "00".($mult-1);
$multb= "00".($mult+1);
$multa = substr($multa, -3);
$multb = substr($multb, -3);
if ($mult>$maxmult) $multb="001";
if ($mult<$minmult) $multa="038";
?>
<!-- ********************************************** -->
<SCRIPT SRC="embedFlash.js" LANGUAGE="JavaScript" TYPE="text/javascript"></SCRIPT>
<CENTER>
<SCRIPT LANGUAGE="JavaScript">embedFlash("<? echo $mult; ?>.swf","100%","100%");</SCRIPT>
<br>
<a href="play.php?mult=<? echo $multa; ?>">Предыдущий</a> |
<a href="./">Список</a> |
<a href="play.php?mult=<? echo $multb; ?>">Следующий</a>
</CENTER>
<!-- ********************************************** -->
<?php include ('../../novost/l3.htm'); ?>
код моего друга админа)
+168
function func()
{
$func = array(
"*3jd9asl4ksh8kl" => "Core::psUser->updateSelf",
"*9dkvls3kfrj54a" => "Core::psUser->setPassword",
"*3lso35ne9d0kek" => "Core::psUser->login",
"*487fj409z91dkv" => "Core::psUser->register_step1",
"*ns252lo3a8ps11" => "Core::psUser->register_step2",
"*ale93kvnwo4pdz" => "Core::psUser->closeRequest",
"*ble93kv1wo4pdz" => "Core::psUser->checkEmail",
"*wpv48k9k2054k1" => "Core::psUser->recover",
"*3lsd8cjfdl3mdk" => "Core::Exchange->startExchange",
"*42sd9cjfd24mdk" => "Core::Exchange->startExchangeNew",
"*53se9cjfd35mdk" => "Core::Exchange->ExchangeStep2",
"*64se0cjfd46mdk" => "Core::Exchange->ExchangeStep3",
"*4164-4622-1270" => "Core::Exchange->dest1",
"*8273-7121-7643" => "Core::Exchange->dest2",
"*8710-4879-0216" => "Core::Exchange->dest3",
"*5566-0506-6230" => "Core::Exchange->dest4",
"*0635-1830-1345" => "Core::Exchange->dest5",
"*3265-0565-4871" => "Core::Exchange->dest6",
"*0914-1921-7194" => "Core::Exchange->dest7",
"*8126-3901-3136" => "Core::Exchange->dest8",
"*2711-0035-9992" => "Core::Exchange->dest9",
"*2846-4302-4032" => "Core::Exchange->dest10",
"*3879-1991-4154" => "Core::Exchange->dest11",
"*8557-5244-6506" => "Core::Exchange->dest12",
"*9455-7047-8778" => "Core::Exchange->dest13",
"*7329-2394-7939" => "Core::Exchange->dest14",
"*4168-0400-0156" => "Core::Exchange->dest15",
"*4672-6100-6653" => "Core::Exchange->dest16",
"*4930-5681-4263" => "Core::Exchange->dest17",
"*2028-3904-4406" => "Core::Exchange->dest18",
"*3344-7461-9263" => "Core::Exchange->dest19",
"*9282-3030-8891" => "Core::Exchange->dest20",
"*8198-3749-8009" => "Core::Exchange->dest21",
"*7254-2894-6243" => "Core::Exchange->dest22",
"*7969-8488-0540" => "Core::Exchange->dest23",
"*0202-7596-3531" => "Core::Exchange->dest24",
"*3321-4063-6580" => "Core::Exchange->dest25",
"*8319-8427-1264" => "Core::Exchange->dest26",
"*9606-3792-8045" => "Core::Exchange->dest27",
"*0242-6362-5886" => "Core::Exchange->dest28",
"*9362-4435-1538" => "Core::Exchange->dest29",
"*9332-4235-1337" => "Core::Exchange->dest30",
"*5362-2352-1350" => "Core::Exchange->dest31",
"*3262-4356-1670" => "Core::Exchange->dest32",
"*4562-4786-9440" => "Core::Exchange->dest33",
"*3222-3454-1430" => "Core::Exchange->dest34",
"*6573-3226-5683" => "Core::Exchange->dest35",
"*6543-9807-2573" => "Core::Exchange->dest36",
"*3455-7639-6268" => "Core::Exchange->dest37",
"*4523-6563-0978" => "Core::Exchange->dest38",
"*3485-7339-6298" => "Core::Exchange->dest39",
"*3489-8339-6238" => "Core::Exchange->dest40",
"*5485-9339-6295" => "Core::Exchange->dest41",
"*3445-7369-6248" => "Core::Exchange->dest42",
"*3945-7769-3248" => "Core::Exchange->dest43",
"*5945-7369-3568" => "Core::Exchange->dest44",
"*8945-7769-3868" => "Core::Exchange->dest45",
"*5948-1369-3578" => "Core::Exchange->dest46",
"*9362-4435-1539" => "Core::Order->setStatusByUser",
"*9864-4532-2579" => "Core::Feedback->saveFeedback"
);
return $func;
}
Передача action'а с обфускацией.