держите старый скрипт создания доров на li.ru

Где-то недели две назад успешно работал мой скрипт:

<?

set_time_limit(0);



$gg = 5;   // сколько делать доров.



for ($a=0;$a<$gg;$a++)

{

	$addinfo = "HTML код который будет автоматически создан на странице блога!!!";

	complete($addinfo);

}





function complete($addinfo)

{

global $g,$gg;



sleep(1);

$g++;



















$rnd = rand(10,99);







$mailss[] = "gmail.com";

$mailss[] = "mail.ru";

$mailss[] = "rambler.ru";

$mailss[] = "pochta.ru";

$mailss[] = "yandex.ru";

$mailss[] = "androm.ru";	

$mailss[] = "unikum.ru";

$mailss[] = "ruskos.com";

$mailss[] = "wmt.net";

$mailss[] = "chat.ru";





$mpref = rand(0,sizeof($mailss)-1);

$mpref = $mailss[$mpref];



$rlr = rand(6,9);

$username = random_letters($rlr);









$password = random_letters(6);

$email= $username."@".$mpref;



















$sc[] = "M";

$sc[] = "W";

$sexchar = rand(0,1);

$sexchar = $sc[$sexchar];



$day= rand(3,20);

$month = rand(1,11);

$year = rand(1974,1990);





$ti[] = "424793";

$ti[] = "424749";

$ti[] = "424709";

$ti[] = "424687";

$ti[] = "424719";



$themeid =rand(0,sizeof($ti)-1);

$themeid = $ti[$themeid];

















$hash =	 "46b2604c164ca9278cfe152818744960";

$id 	= "4668484";



$ci[]="1417";

$ci[]="1849";

$ci[]="1019";

$city = rand(0,sizeof($ci)-1);

$city = $ci[$city];

$addinfo = urlencode($addinfo);









$headers = "POST /journal_register.php HTTP/1.0\n";

$headers .= "HOST: www.liveinternet.ru\n";

$headers .= "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.16) Gecko/20080702 Firefox/2.0.0.16\n";

$headers .= "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5\n";

$headers .= "Accept-Language: ru-ru,en-us;q=0.8,ru;q=0.5,en;q=0.3\n";

$headers .= "Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7\n";

$headers .= "Keep-Alive: 300\n";

$headers .= "Connection: keep-alive\n";

$headers .= "Referer: http://www.liveinternet.ru/journal_register.php\n";

$headers .= "Content-Type: application/x-www-form-urlencoded\n";









$data = "username=".$username."&comm=0&sexchar=".$sexchar."&day=".$day."&month=".$month."&year=".$year."&city=".$city."&addinfo=".$addinfo."&themeid=".$themeid."&familyname=&firstname=&password=".$password."&email=".$email."&passwordconfirm=".$password."&imagehash=&regkey=&invite_id=0&regkeynb=&url_redirect=&url2=&action=add_step1&h=".$hash."&id=".$id."&Submit=%D1%EE%F5%F0%E0%ED%E8%F2%FC";







$headers .= "Content-Length: ".strlen($data)."\n\n".$data."\n\n\n\n\n\n\n";







$fp = fsockopen("www.liveinternet.ru", 80);

fwrite($fp, $headers);

fclose($fp);



















$tof = "$username|$password|$email|http://www.liveinternet.ru/users/$username";



$handlew = fopen("completeAccount", 'a+');

fwrite($handlew, $tof."\n");

fclose($handlew);

echo "$g of $gg: ".$tof."\n";

}







function random_letters ($numofletters) {

    if (!isset($numofletters)) $numofletters = 10;

    $literki = array('0', '1', '2', '3', '4', '5', '6', '7', '8','9', '10', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'r', 's', 't', 'u', 'w');

    $ilosc_literek = count($literki);

    for ($licz = 0; $licz < $numofletters; $licz++) 

	{

    	$rand = rand(0, $ilosc_literek-1);

    	$vercode = $vercode.$literki[$rand];

    }

return $vercode;

} 





?>

С помощью него я наделал кучу вот таких "доров"

http://www.liveinternet.ru/users/i7l8g78n

Сейчас они что-то поменяли, что именно разбираться лень, так как трафика там не особо много, а ссылки можно и лучшим способом получать.

Если кто-то модернизирует - будет хорошо ;)

П.С, они фильтруют текст блога на слово "порно" и "porno" - если этот текст будет - то ак не зарегиться.