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

[Chaak]

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


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

[etc]

А смысл?

[demonoid]

$act=='del'
это что такое ? строчное равно ? =]
$act eq 'del'


$host='vkontakte.ru';
......
chomp($host);
Зачем? =] разве в скаляре который объявлен выше есть перенос строки ?

[biophreak]

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

[Spyder]

use 0day;

[svesve]

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

[m9chik]

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

[etc]

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

[krypt3r]

#!/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

[nc.STRIEM]

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

[Spyder]

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