Perl Forum nickname grabbers

[sQuo]

# Forums nicknames grabber #

# C0ded by ph1l1ster #

# ICQ: 612-672 #

[HIDE-THANKS]

>#!/usr/bin/perl 
use LWP::UserAgent; 
system('cls');
print qq(
#============================#
#  Forums nicknames grabber  #
#    C0ded by ph1l1ster      #
#       ICQ: 612-672         #
#============================#\n
Forum for parsing?\n\n1 - vBulletin\n2 - phpBB\n3 - IPB
4 - SMF\n5 - MyBB\n6 - Woltlab Burning Board\n7 - PunBB
8 - XMBForum\n9 - FUDforum\n10 - Ikonboard\n\n> );
$do = ;chomp($do);
#vbulletin
if ($do == 1){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=;
chomp($adr);
print qq(
Enter numbers of page:
e.g. - 294
> );
$page=;
chomp($page);
open (VB, ">>vbulletin_nicknames.txt");
$count = 1;
while ($count $url=$adr."memberlist.php?do=getall&order=asc&sort=username&page=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /(.*)/g;
print VB join "\n", @nicknames;}}
#phpbb
if ($do == 2){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 500
> );
$page=;
chomp($page);
open (PHPBB, ">>phpbb_nicknames.txt");
$count = 0;
while ($count $url=$adr."memberlist.php?start=".$count."0";
$count ++,$count ++,$count ++,$count ++,$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /(.*)/g;
print PHPBB join "\n", @nicknames;}}
#ipb
if ($do == 3){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=;
chomp($page);
open (IPB, ">>ipb_nicknames.txt");
$count = 0;
while ($count $url=$adr."index.php?act=members&st=".$count ++."0";
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /(.*)[^��о�мо��е�� .*]/g;
print IPB join "\n", @nicknames;}}
#smf
if ($do == 4){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 500
> );
$page=;
chomp($page);
open (SMF, ">>smf_nicknames.txt");
$count = 0;
while ($count $url=$adr."index.php?action=mlist;start=".$count."0";
$count ++,$count ++,$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /(.*)/g;
print SMF join "\n", @nicknames;}}
#mybb
if ($do == 5){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=;
chomp($page);
open (MYBB, ">>mybb_nicknames.txt");
$count = 1;
while ($count $url=$adr."memberlist.php?page=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /(.*)/g;
print MYBB join "\n", @nicknames;}}
#Woltlab Burning Board
if ($do == 6){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=;
chomp($page);
open (WBB, ">>wmm_nicknames.txt");
$count = 1;
while ($count $url=$adr."index.php?page=MembersList&pageNo=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /(.*)
print WBB join "\n", @nicknames;}}
#PunBB
if ($do == 7){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=;
chomp($page);
open (PUNBB, ">>punbb_nicknames.txt");
$count = 1;
while ($count $url=$adr."userlist.php?p=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /(.*)/g;
print PUNBB join "\n", @nicknames;}}
#XMB
if ($do == 8){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=;
chomp($page);
open (XMB, ">>xmb_nicknames.txt");
$count = 1;
while ($count $url=$adr."misc.php?action=list&page=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /(.*)/g;
print join "\n", @nicknames;}}
if ($do == 9){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=;
chomp($page);
open (XMB, ">>xmb_nicknames.txt");
$count = 1;
while ($count $url=$adr."index.php?t=finduser&&&start=".$count."0";
$count ++,$count ++,$count ++,$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /(.*)/g;
print join "\n", @nicknames;}}
#Ikonboard
if ($do == 10){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=;
chomp($page);
open (IKB, ">>ikb_nicknames.txt");
$count = 1;
while ($count $url=$adr."memberlist.cgi?page=".$count++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /(.*)/g;
print IKB join "\n", @nicknames;}}

###########################

[/HIDE-THANKS]