1 - vBulletin
2 - phpBB
3 - IPB
4 - SMF
5 - MyBB
6 - Woltlab Burning Board
7 - PunBB
8 - XMBForum
9 - FUDforum
10 - Ikonboard

#!/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 = <STDIN>;chomp($do);
#vbulletin
if ($do == 1){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (VB, ">>vbulletin_nicknames.txt");
$count = 1;
while ($count <= $page) {
$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 =~ /<a href=\"member.*?u=.*\">(.*)<\/a>/g;
print VB join "\n", @nicknames;}}
#phpbb
if ($do == 2){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 500
> );
$page=<STDIN>;
chomp($page);
open (PHPBB, ">>phpbb_nicknames.txt");
$count = 0;
while ($count <= $page) {
$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 =~ /<a href=\".*?mode=viewprofile.*\" class=\"gen\">(.*)<\/a>/g;
print PHPBB join "\n", @nicknames;}}
#ipb
if ($do == 3){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (IPB, ">>ipb_nicknames.txt");
$count = 0;
while ($count <= $page) {
$url=$adr."index.php?act=members&st=".$count ++."0";
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"http:.*index.*?showuser=.*\">(.*)[^Просмотреть .*]<\/a>/g;
print IPB join "\n", @nicknames;}}
#smf
if ($do == 4){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 500
> );
$page=<STDIN>;
chomp($page);
open (SMF, ">>smf_nicknames.txt");
$count = 0;
while ($count <= $page) {
$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 =~ /<a href=\"http:.*index.*?action=profile.*\" title=\".*\">(.*)<\/a>/g;
print SMF join "\n", @nicknames;}}
#mybb
if ($do == 5){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (MYBB, ">>mybb_nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."memberlist.php?page=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"member.*?action=profile.*\">(.*)<\/a>/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=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (WBB, ">>wmm_nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."index.php?page=MembersList&pageNo=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"http.*index.*?page=User.*\" title=\".*\">(.*)<\/a><\/p><p class=\"/g;
print WBB join "\n", @nicknames;}}
#PunBB
if ($do == 7){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (PUNBB, ">>punbb_nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."userlist.php?p=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"profile.*?id=.*\">(.*)<\/a><\/td>/g;
print PUNBB join "\n", @nicknames;}}
#XMB
if ($do == 8){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (XMB, ">>xmb_nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."misc.php?action=list&page=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"member.*?action=viewpro.*member=.*\">(.*)<\/a>/g;
print join "\n", @nicknames;}}
if ($do == 9){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (XMB, ">>xmb_nicknames.txt");
$count = 1;
while ($count <= $page) {
$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 =~ /<a href=\"index.*usrinfo.*id=.*\">(.*)<\/a><\/td>/g;
print join "\n", @nicknames;}}
#Ikonboard
if ($do == 10){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (IKB, ">>ikb_nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."memberlist.cgi?page=".$count++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"profile.*action=show.*member=.*\"><b>(.*)<\/b><\/a>/g;
print IKB join "\n", @nicknames;}}