Форум АНТИЧАТ - Забань дурова и его компанию!!111

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - Забань дурова и его компанию!!111 (https://forum.antichat.xyz/showthread.php?t=73345)

Забань дурова и его компанию!!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 подержите его часика три. Оч помогает жертвам контакта. ;)

Код:

$act=='del'

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

Код:

$act eq 'del'

Код:

$host='vkontakte.ru'; 

......

chomp($host);

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

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

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

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

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

Код:

 #!/usr/bin/perl 

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

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

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





use Socket; 

# no strict? no warnings?

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

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

$id=''; # ваш id 

# my ($email, $pass, $id...)

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

# don't quote numbers

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

# same lame shit

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

$ft=''; 

# my $ft;

if($act=='del'){ 

    $ft='From'; 

}else{ 

    $ft='To'; 

} 

# wtf? use if ($act eq 'del')

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

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

# quotes again?



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

# for my $i ($d1 .. $d2-1) {...}

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

# socket my $SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp') or die "look ma, and error message $!";

$iaddr = inet_aton($host);

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

connect(SOCK, $paddr);

#connect $SOCK, sockaddr_in($port, inet_aton($host)) or die "connect() error: $!";

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); 

# mmm unneeded parens

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

} 



print "\nPress enter"; 

<STDIN>; 

#btw, learn russian

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