VлnлF}їWlј6€ЬЕьО‘2в$E$‘8hћTа-1цфЪ—>Ev’ЖP
Š>ДEZД ШV*[ОќТюѕЬRŠхK>Hм]ЮхЬЬ™YкQШжќ,’и1Ъж„СќиKЊA\sŒ†XŸ1*і•лїo-}Гx‡еФ}zї‹[ЬчќЋ›‹Ÿн№шчЗ—nГЏ?_Кw—нK–ƒаgАХљ/ fд…Hч8___Зжнt%Щ‘•d5Rсdq<в*х Ћ*ЊFeЬжn€,Ю3кSZЏ<;;[($4К6khMпт!њљJvд–<–'j[іеА
йn‰ЩcœОвОzqœ1ејч="ЛjKН`ŸШпG…TKюгЫЖмW[" !bm@тp5x‡Щƒƒ6оtd6~]Шєфў5‹ЩП™vгdђЕjщЕм—{фivй0sj[Нdђ6ћјu {$дv‰фБw-ѕŒЩ="’ƒ“.рЫІŽхнад§
ѕL3<Жр‡6G0ИјYъря�сЏђсяЪ]‘˜."" эaiu=",алcy�Е_рšpv)šA:сіDtДАжЃLщh�ПЉZа|" ЪМ‘џРэ8yЇd4‘vФйд(рЅhшeь5‡w.tеп\oВj="">RzљђskOеO§4ЈCyьРЪ‰z*л%FэсVжаœhуUOѓЃ'w
ДUb8щуь Uˆ$ШI МmЕ…gѓŒ7ˆР[id}”.№kx2ВZ@BWчИ{vM€Щ>С ѕd™~EЖлš0x5ЉлV?S#kЇєžF(?sYн) "‘мУъ-єQ_ВJI8а„kŸoЅu‰UTfЧrRнФЃЌ1/tsŒ =/ŒŠ>вCР1ЉѕЧн0ЈХsЬC‰§lоќрМ^ЅјГ1ў"Вд“ЊcІI.Lцz4(“Л aЅѕдЌŒЩпo—HŒ–ЇіASlhar‹XMuDтЯхIm_›Г—3dqкХЄвpЭ‚žfxЋ&‹маkЂю˜S“&Щk1аПh$ЄŽ]f*EJˆоCsДџА9;ˆjЬ …cš,Я<ЙъІ^нЅ8оyја™JfвЦЬєZVПБ6]+ћ5Џ>‹ФFг7ЎКQ:OУxђК94ˆžышОюЃ…ЪИїБˆбЙШpЅ
C№=ЎŸ
|j}ЬЮS7ди№’0Щц2П:o_ъ™AГQпоJ’еРЯMYДАњ‘š
œд\еУ*CsŠFч;Ђ!Нmщ9 ДŒzYdеКbsђL0ЮХ‘7–Ѓ‘ЌЙa[р8&ЫžY–јє§)gЭ•$ веЬ§Ў‘Ьлnq™œЪ•,Г—+˜qmEэHsє}щlОЮКCгьd~эдЪŸ—Еъ9УјК5џл(цэЉmtв43vѕTщш[тхSЃŠђўўDyѕЕ

my $resp = $ua->get("http://fotostrana.ru/wall/baseAjax/getForm?ownerId=$id&type=user&ajax=true")->as_string; 

my ($tkn) = $resp =~ /name="ftoken-f-addWallRecord" value="(.*)" \/>/;

$resp = $ua->post("http://fotostrana.ru/wall/userAjax/addrecord",
             ["ajax" => "true",
"ownerId" => "$id",
"text" => "te",
"display" => "undefined",
"ftoken-f-addWallRecord" => "$tkn",
"jsCaptcha" => "540"
],
Referer => 'http://fotostrana.ru/user/$id/?leader=1&fromHeader=1'
)->as_string;

$('#id-jsCaptcha').val(unpackTk($('#jsCaptcha-holder').html()));
 });
 
});
//]]>
</script>

<div class="pager-userwall-top">
<div style="display:none;" id="jsCaptcha-holder">ZXZhbChmdW5jdGlvbihwLGEsYyxrLGUsZCl7d2hpbGUoYy0tKXtpZihrW2NdKXtwPXAucmVwbGFjZShuZXcgUmVnRXhwKCdcXGInK2MrJ1xcYicsJ2cnKSxrW2NdKX19cmV0dXJuIHB9KCcxMyA5PVwnMy83ISkhMy81KSkzLzchKSEzLzUpMy8xMSkzLzExKTMvNyEpCyEzLzUpKSkzLzchKSEzLzUpMy83ISkhMy81KTIhJiEyNyoqITAhOioqIS4hMTY6KiEsITMvNykLITMvNSkxOSszLzE3KTE1KiohKiEqITAhNCoqLSExOCotITIyKiEwITIxKiohLCEyNioqKjxcJzsxMyA4PSIiOzI0KDY9MDs2PDkuMjk7NisrKXsxMig5LjEwKDYpPT0yOCl7OCs9XCdcXCZcJ30xNCAxMig5LjEwKDYpPT0yMyl7OCs9XCdcXCFcJ30xNHs4Kz0yMC4yNSg5LjEwKDYpLTEpfX07ODsnLDEwLDMwLCd8fHxOYnVpfHxiY3R8aXxzcHZvZXxtfHN8Y2hhckNvZGVBdHxuYnl8aWZ8dmFyfGVsc2V8NTI0NXw2Nzd8dGpvfDMyMjl8MjExfFN0cmluZ3x8NTExNXx8Zm9yfGZyb21DaGFyQ29kZXw2NjQ2edokfDk4NDl8fGxlbmd0aCcuc3BsaXQoJ3wnKSkpCg==</div>
<div class="pager-nowidget">

eval(function(p,a,c,k,e,d){while(c--){if(k[c]){p=p.replace(new RegExp('\\b'+c+'\\b','g'),k[c])}}return p}('13 9=\'3/7!)!3/5))3/7!)!3/5)3/11)3/11)3/7!)
!3/5)))3/7!)!3/5)3/7!)!3/5)2!&!27**!0!:**!.!16:*!,!3/7)
!3/5)19+3/17)15**!*!*!0!4**-!18*-!22*!0!21**!,!26***<\';13 8="";24(6=0;6<9.29;6++){12(9.10(6)==28){8+=\'\\&\'}14 12(9.10(6)==23){8+=\'\\!\'}14{8+=20.25(9.10(6)-1)}};8;',10,30,'|||Nbui||bct|i|spvoe|m|s|charCodeAt|nby|if|var|else|5245|677|tjo|3229|211|String||5115||for|fromCharCode|6646yÚ$|9849||length'.split('|')))

$resp = $ua->get("http://e.mail.ru/cgi-bin/editpass")->as_string;    
          my ($spas1) = $resp =~ /x_reg_id=(.+?)&/;
                  
my ($formsig1) = $resp =~  /form_sign: '(.+?)',/;
 my ($frtok1) = $resp =~ /form_token: '(.+?)'/;
my ($idsss1) = $resp =~  /name="ID" type="hidden" value="(.+?)">/;
                  
if ($resp =~ "$spas1")
{ 
my $sid = $1;
my $key = captcha($ua, $sid);
            print "cki2 $cki2\n";
                  print "key2 $key\n";
                  
                        $resp = $ua->post("http://e.mail.ru/cgi-bin/modifypass",
                            [
                           "form_sign" => $formsig1,
"form_token" => $frtok1,
"modify" => "1",
"Username" => $login,
"browserData" => "screen--%60top%60%3A%600%60%2C%60height%60%3A%60600%60%2C%  60width%60%3A%601024%60%2C%60left%60%3A%600%60%2C%  60colorDepth%60%3A%6024%60%2C%60pixelDepth%60%3A%6  024%60%2C%60availWidth%60%3A%601024%60%2C%60availH  eight%60%3A%60570%60%2C%60availLeft%60%3A%600%60%2  C%60availTop%60%3A%600%60%0D%0Anavigator--%60y5_ver%60%3A%60550%2C512%60%2C%60y5_expId%60%3A  %600%60%2C%60userAgent%60%3A%60Mozilla%2F5.0+%28Wi  ndows%3B+U%3B+Windows+NT+6.1%3B+ru%3B+rv%3A1.9.2.1  2%29+Gecko%2F20101026+MRA+5.7+%28build+03686%29+Fi  refox%2F3.6.12+WebMoney+Advisor%60%2C%60platform%6  0%3A%60Win32%60%2C%60appVersion%60%3A%605.0+%28Win  dows%29%60%2C%60appCodeName%60%3A%60Mozilla%60%2C%  60appName%60%3A%60Netscape%60%2C%60language%60%3A%  60ru%60%2C%60oscpu%60%3A%60Windows+NT+6.1%60%2C%60  vendor%60%3A%60%60%2C%60vendorSub%60%3A%60%60%2C%6  0product%60%3A%60Gecko%60%2C%60productSub%60%3A%60  20100101%60%2C%60cookieEnabled%60%3A%60true%60%2C%  60onLine%60%3A%60true%60%2C%60buildID%60%3A%602011  1220165912%60%2C%60doNotTrack%60%3A%60yes%60%0D%0A  flash--%60version%60%3A%6011.1.102%60%0D%0A",
"oldPswd" => "qwertyuiop1",
"Password" => "123123a",
"Password_Verify" => "123123a",
"security_image_word" => $key,
"x_reg_id" => $cki2,
                        ])->as_string;  
                        wf("3.html",$resp);

my $resp = $ua->get("http://e.mail.ru/cgi-bin/userinfo")->as_string;
     
                    ($sid) = $resp =~ /x_pass_frame?(.+?)'><\/iframe>/;
                   
                   
    $resp = $ua->get("http://e.mail.ru/cgi-bin/x_pass_frame$sid")->as_string;
    
    my ($sid2) = $resp =~ /x_get_image\?x_reg_id=(.+?)"\/><br\/>/;
      ($cki2) = $resp =~ /x_get_image\?x_reg_id=(.+?)&r=/;
    
    my ($img) = $resp = $ua->get("http://e.mail.ru/cgi-bin/x_get_image?x_reg_id=$sid2")->content;

#!/use/bin/perl -w
use strict;
use LWP::Simple;
my $page;
my $url;

open(MYFILE, "site_proxy.txt");
$url=<MYFILE>;
$page=get("$url");
print $page;

unsigned char get_padding(const bmp_header& header)
{
    unsigned char pad = 4 - (header.width * 3) % 4;
    if(pad == 4)
        pad = 0;

    return pad;
}

WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM

    .IF uMsg==WM_DESTROY            ; если пользователь закрывает окно
               invoke MessageBox,hWnd,chr$("хотите выйти?"),0,MB_YESNO
                  cmp eax,IDYES
         jne Ost ; если не "да" - переходим на метку, чтобы остатся
        invoke PostQuitMessage,NULL ; иначе выходим из программы
Ost:
    .ELSE
        invoke DefWindowProc,hWnd,uMsg,wParam,lParam ; Дефаултная функция обработки окна
        ret
    .ENDIF
    xor eax,eax

    ret
WndProc endp

<?php

if ($_SERVER['REQUEST_METHOD']=="POST")
{
srand();
$unid=rand(2,5096);
$pm_text=strip_tags($_POST['pm_text']);
//bad_words($pm_text,$unid);
if (!bad_links($pm_text,$unid))
    echo "нет ссылок";
}


function bad_words($pm_text,$unid)
{
//open file with bad words. need to delete \r\n
$fh = fopen("badwords.txt","r");
while (!feof($fh))
    {
    $arr_bad_words[]=trim(fgets($fh));
    }
fclose($fh);

 
$arr_c = count($arr_bad_words);
for ($i=0;$i<=$arr_c;$i++)
    {
    if (stripos($pm_text,$arr_bad_words[$i])!==false)
        {
        echo "найдено слово $arr_bad_words[$i], отправитель $unid";
        break; //если что-то найдено, то и этого достаточно, чтобы не грузить систему
        }
        
    }
unset($arr_bad_words); //освободить память
}

function bad_links($pm_text,$unid)
{

if (preg_match("#^http://([^/:]+)(:(\d+))?(/.*)?$#i",$pm_text,$links))
    {     //есть ли хоть одна ссылка в сообщении?
    //делаем что-то
    //FIX - если две и больше ссылок, ничего не работает
    $data = "Юзер $unid отправил ссылку $links[1]\r\n ";
    file_put_contents("fuck.log",$data,FILE_APPEND);
    }
else 
    return 0;

}

?>
<form method="POST">
<input type="text" name="uid" size="3" value="<?=$unid;?>"/><br>
<textarea cols="60" rows="5" name="pm_text"><?=$pm_text;?></textarea><br>
  <input value="Oтправить сообщение" type="submit">
</form>