Забань дурова и его компанию!!111

Забань дурова и его компанию!!111

10.06.2008, 21:52

Chaak

Познавший АНТИЧАТ

Регистрация: 01.06.2008

Сообщений: 1,047

С нами: 9443906

Репутация: 3313

Забань дурова и его компанию!!111

[VKONTAKTE]
Мой скрипт на перле, в рамках изучения соккетов)
Добавляет по диапозону в блэк лист

и удаляет из него.

PHP код:


		
			
#!/usr/bin/perl

######################

#Забань дурова и его компанию#

######################





use Socket;

$email=""; #мыло  @ на %40

$pass= '' ; # Хэш пароля в md5

$id=''; # ваш id

$d1='1';     # начало диапозрна

$d2='99998888';     # конец диапозрна

$act='del';  #del для удаления, add для добавления

$ft='';

if($act=='del'){

    $ft='From';

}else{

    $ft='To';

}

$host='vkontakte.ru';    #Хост

$port="80";        #Порт



for($i=$d1;$i<$d2;$i++){

socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));    

$iaddr = inet_aton($host);    

$paddr = sockaddr_in($port, $iaddr);    

connect(SOCK, $paddr);    

send (SOCK, "GET /settings.php?act=".$act.$ft."BlackList&id=$i HTTP/1.0\nHost: $host\nCookie: remixmid=$id; remixemail=$email; remixpass=$pass;\n\n", 0);

close(SOCK);

print "[+] $i - ok\n";    

}



print "\nPress enter";

<STDIN>;