Забань дурова и его компанию!!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>;

Юзаем!

P.S подержите его часика три. Оч помогает жертвам контакта.

 

А смысл?

 

Code:

$act=='del'

это что такое ? строчное равно ? =]

Code:

$act eq 'del'

Code:

$host='vkontakte.ru'; 
......
chomp($host);   

Зачем? =] разве в скаляре который объявлен выше есть перенос строки ?

 

Насчет перла - почитай про видимость переменных и прочее, однажды можешь с этим очень сильно наеб....хммм наколоцца...
ЗЫЖ use warnings; use strict И use diagnostics; юзай

 

use 0day;

 

то то я думаю че у меня контакт не пашет )

 

очередное говно на тему "в контакте"

 

Пашка говоришь не посмотрит? Он че, по-твоему, блок снять не может? ГГггГгг

 

Code:

 #!/usr/bin/perl 
###################### 
#Забань дурова и его компанию# 
###################### 


use Socket; 
[color=red]# no strict? no warnings?[/color]
$email=""; #мыло  @ на %40 
$pass= '' ; # Хэш пароля в md5 
$id=''; # ваш id 
[color=red]# my ($email, $pass, $id...)[/color]
$d1='1';     # начало диапозрна 
[color=red]# don't quote numbers[/color]
$d2='99998888';     # конец диапозрна 
[color=red]# same lame shit[/color]
$act='del';  #del для удаления, add для добавления 
$ft=''; 
# my $ft;
if($act=='del'){ 
    $ft='From'; 
}else{ 
    $ft='To'; 
} 
[color=red]# wtf? use if ($act eq 'del')[/color]
$host='vkontakte.ru';    #Хост 
$port="80";        #Порт 
[color=red]# quotes again?[/color]

for($i=$d1;$i<$d2;$i++){ 
[color=red]# for my $i ($d1 .. $d2-1) {...}[/color]
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
[color=red]# socket my $SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp') or die "look ma, and error message $!";[/color]
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
[color=red]#connect $SOCK, sockaddr_in($port, inet_aton($host)) or die "connect() error: $!";[/color]
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); 
[color=red]# mmm unneeded parens[/color]
print "[+] $i - ok\n";     
} 

print "\nPress enter"; 
<STDIN>; 
[color=red]#btw, learn russian[/color]

 

когда коту не*** делать он яйца лижит

 

nc.STRIEM, флудер!1111