comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl Tk] Panel Control 0.3

  • 4 Respuestas
  • 1804 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Junio 09, 2012, 11:30:38 am »
Version Tk de un programa en Perl para buscar el famoso panel de admin.

Una imagen



El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #Panel Control 0.3
  3. #Version Tk
  4. #Coded By Doddy H
  5. #The arrays are a collection of several I found on the web
  6.  
  7. use Tk;
  8. use Tk::Dialog;
  9. use LWP::UserAgent;
  10.  
  11. my @paneles = (
  12.     'admin/admin.asp',               'admin/login.asp',
  13.     'admin/index.asp',               'admin/admin.aspx',
  14.     'admin/login.aspx',              'admin/index.aspx',
  15.     'admin/webmaster.asp',           'admin/webmaster.aspx',
  16.     'asp/admin/index.asp',           'asp/admin/index.aspx',
  17.     'asp/admin/admin.asp',           'asp/admin/admin.aspx',
  18.     'asp/admin/webmaster.asp',       'asp/admin/webmaster.aspx',
  19.     'admin/',                        'login.asp',
  20.     'login.aspx',                    'admin.asp',
  21.     'admin.aspx',                    'webmaster.aspx',
  22.     'webmaster.asp',                 'login/index.asp',
  23.     'login/index.aspx',              'login/login.asp',
  24.     'login/login.aspx',              'login/admin.asp',
  25.     'login/admin.aspx',              'administracion/index.asp',
  26.     'administracion/index.aspx',     'administracion/login.asp',
  27.     'administracion/login.aspx',     'administracion/webmaster.asp',
  28.     'administracion/webmaster.aspx', 'administracion/admin.asp',
  29.     'administracion/admin.aspx',     'php/admin/',
  30.     'admin/admin.php',               'admin/index.php',
  31.     'admin/login.php',               'admin/system.php',
  32.     'admin/ingresar.php',            'admin/administrador.php',
  33.     'admin/default.php',             'administracion/',
  34.     'administracion/index.php',      'administracion/login.php',
  35.     'administracion/ingresar.php',   'administracion/admin.php',
  36.     'administration/',               'administration/index.php',
  37.     'administration/login.php',      'administrator/index.php',
  38.     'administrator/login.php',       'administrator/system.php',
  39.     'system/',                       'system/login.php',
  40.     'admin.php',                     'login.php',
  41.     'administrador.php',             'administration.php',
  42.     'administrator.php',             'admin1.html',
  43.     'admin1.php',                    'admin2.php',
  44.     'admin2.html',                   'yonetim.php',
  45.     'yonetim.html',                  'yonetici.php',
  46.     'yonetici.html',                 'adm/',
  47.     'admin/account.php',             'admin/account.html',
  48.     'admin/index.html',              'admin/login.html',
  49.     'admin/home.php',                'admin/controlpanel.html',
  50.     'admin/controlpanel.php',        'admin.html',
  51.     'admin/cp.php',                  'admin/cp.html',
  52.     'cp.php',                        'cp.html',
  53.     'administrator/',                'administrator/index.html',
  54.     'administrator/login.html',      'administrator/account.html',
  55.     'administrator/account.php',     'administrator.html',
  56.     'login.html',                    'modelsearch/login.php',
  57.     'moderator.php',                 'moderator.html',
  58.     'moderator/login.php',           'moderator/login.html',
  59.     'moderator/admin.php',           'moderator/admin.html',
  60.     'moderator/',                    'account.php',
  61.     'account.html',                  'controlpanel/',
  62.     'controlpanel.php',              'controlpanel.html',
  63.     'admincontrol.php',              'admincontrol.html',
  64.     'adminpanel.php',                'adminpanel.html',
  65.     'admin1.asp',                    'admin2.asp',
  66.     'yonetim.asp',                   'yonetici.asp',
  67.     'admin/account.asp',             'admin/home.asp',
  68.     'admin/controlpanel.asp',        'admin/cp.asp',
  69.     'cp.asp',                        'administrator/index.asp',
  70.     'administrator/login.asp',       'administrator/account.asp',
  71.     'administrator.asp',             'modelsearch/login.asp',
  72.     'moderator.asp',                 'moderator/login.asp',
  73.     'moderator/admin.asp',           'account.asp',
  74.     'controlpanel.asp',              'admincontrol.asp',
  75.     'adminpanel.asp',                'fileadmin/',
  76.     'fileadmin.php',                 'fileadmin.asp',
  77.     'fileadmin.html',                'administration.html',
  78.     'sysadmin.php',                  'sysadmin.html',
  79.     'phpmyadmin/',                   'myadmin/',
  80.     'sysadmin.asp',                  'sysadmin/',
  81.     'ur-admin.asp',                  'ur-admin.php',
  82.     'ur-admin.html',                 'ur-admin/',
  83.     'Server.php',                    'Server.html',
  84.     'Server.asp',                    'Server/',
  85.     'wp-admin/',                     'administr8.php',
  86.     'administr8.html',               'administr8/',
  87.     'administr8.asp',                'webadmin/',
  88.     'webadmin.php',                  'webadmin.asp',
  89.     'webadmin.html',                 'administratie/',
  90.     'admins/',                       'admins.php',
  91.     'admins.asp',                    'admins.html',
  92.     'administrivia/',                'Database_Administration/',
  93.     'WebAdmin/',                     'useradmin/',
  94.     'sysadmins/',                    'admin1/',
  95.     'system-administration/',        'administrators/',
  96.     'pgadmin/',                      'directadmin/',
  97.     'staradmin/',                    'ServerAdministrator/',
  98.     'SysAdmin/',                     'administer/',
  99.     'LiveUser_Admin/',               'sys-admin/',
  100.     'typo3/',                        'panel/',
  101.     'cpanel/',                       'cPanel/',
  102.     'cpanel_file/',                  'platz_login/',
  103.     'rcLogin/',                      'blogindex/',
  104.     'formslogin/',                   'autologin/',
  105.     'support_login/',                'meta_login/',
  106.     'manuallogin/',                  'simpleLogin/',
  107.     'loginflat/',                    'utility_login/',
  108.     'showlogin/',                    'memlogin/',
  109.     'members/',                      'login-redirect/',
  110.     'sub-login/',                    'wp-login/',
  111.     'login1/',                       'dir-login/',
  112.     'login_db/',                     'xlogin/',
  113.     'smblogin/',                     'customer_login/',
  114.     'UserLogin/',                    'login-us/',
  115.     'acct_login/',                   'admin_area/',
  116.     'bigadmin/',                     'project-admins/',
  117.     'phppgadmin/',                   'pureadmin/',
  118.     'sql-admin/',                    'radmind/',
  119.     'openvpnadmin/',                 'wizmysqladmin/',
  120.     'vadmind/',                      'ezsqliteadmin/',
  121.     'hpwebjetadmin/',                'newsadmin/',
  122.     'adminpro/',                     'Lotus_Domino_Admin/',
  123.     'bbadmin/',                      'vmailadmin/',
  124.     'Indy_admin/',                   'ccp14admin/',
  125.     'irc-macadmin/',                 'banneradmin/',
  126.     'sshadmin/',                     'phpldapadmin/',
  127.     'macadmin/',                     'administratoraccounts/',
  128.     'admin4_account/',               'admin4_colon/',
  129.     'radmind-1/',                    'Super-Admin/',
  130.     'AdminTools/',                   'cmsadmin/',
  131.     'SysAdmin2/',                    'globes_admin/',
  132.     'cadmins/',                      'phpSQLiteAdmin/',
  133.     'navSiteAdmin/',                 'server_admin_small/',
  134.     'logo_sysadmin/',                'server/',
  135.     'database_administration/',      'power_user/',
  136.     'system_administration/',        'ss_vms_admin_sm/'
  137. );
  138.  
  139. my $nave = LWP::UserAgent->new();
  140. $nave->timeout(5);
  141. $nave->agent(
  142. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  143. );
  144.  
  145. #if ($^O eq 'MSWin32') {
  146. #use Win32::Console;
  147. #Win32::Console::Free();
  148. #}
  149.  
  150. my $color_texto = "red";
  151. my $color_fondo = "black";
  152.  
  153. my $newdaxz =
  154.   MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  155.  
  156. $newdaxz->title("Panel Control 0.3 || Coded By Doddy H");
  157. $newdaxz->geometry("345x350+50+50");
  158. $newdaxz->resizable( 0, 0 );
  159.  
  160. $menula = $newdaxz->Frame(
  161.     -relief     => "sunken",
  162.     -bd         => 1,
  163.     -background => $color_fondo,
  164.     -foreground => $color_texto
  165. );
  166. my $menulnowaxm = $menula->Menubutton(
  167.     -text             => "Options",
  168.     -underline        => 1,
  169.     -background       => $color_fondo,
  170.     -foreground       => $color_texto,
  171.     -activebackground => $color_texto
  172. )->No tienes permisos para ver links. Registrate o Entra con tu cuenta( -side => "left" );
  173. my $aboutnowaxm = $menula->Menubutton(
  174.     -text             => "About",
  175.     -underline        => 1,
  176.     -background       => $color_fondo,
  177.     -foreground       => $color_texto,
  178.     -activebackground => $color_texto
  179. )->No tienes permisos para ver links. Registrate o Entra con tu cuenta( -side => "left" );
  180. my $exitnowaxm = $menula->Menubutton(
  181.     -text             => "Exit",
  182.     -underline        => 1,
  183.     -background       => $color_fondo,
  184.     -foreground       => $color_texto,
  185.     -activebackground => $color_texto
  186. )->No tienes permisos para ver links. Registrate o Entra con tu cuenta( -side => "left" );
  187. $menula->No tienes permisos para ver links. Registrate o Entra con tu cuenta( -side => "top", -fill => "x" );
  188.  
  189. $menulnowaxm->command(
  190.     -label      => "Scan",
  191.     -background => $color_fondo,
  192.     -foreground => $color_texto,
  193.     -command    => \&findpanel
  194. );
  195. $menulnowaxm->command(
  196.     -label      => "Open Logs",
  197.     -background => $color_fondo,
  198.     -foreground => $color_texto,
  199.     -command    => \&openlogsk
  200. );
  201.  
  202. $aboutnowaxm->command(
  203.     -label      => "About",
  204.     -background => $color_fondo,
  205.     -foreground => $color_texto,
  206.     -command    => \&aboutxa
  207. );
  208.  
  209. $exitnowaxm->command(
  210.     -label      => "Exit",
  211.     -background => $color_fondo,
  212.     -foreground => $color_texto,
  213.     -command    => \&exitnow
  214. );
  215.  
  216. $newdaxz->Label(
  217.     -text       => "Page : ",
  218.     -font       => "Impact",
  219.     -background => $color_fondo,
  220.     -foreground => $color_texto
  221. )->place( -x => 20, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 40 );
  222. my $paget = $newdaxz->Entry(
  223.     -width      => 40,
  224.     -background => $color_fondo,
  225.     -foreground => $color_texto
  226. )->place( -x => 70, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 45 );
  227.  
  228. $newdaxz->Label(
  229.     -text       => "Panels Found",
  230.     -font       => "Impact",
  231.     -background => $color_fondo,
  232.     -foreground => $color_texto
  233. )->place( -x => 120, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 80 );
  234. my $admins = $newdaxz->Listbox(
  235.     -width      => 40,
  236.     -height     => 10,
  237.     -background => $color_fondo,
  238.     -foreground => $color_texto
  239. )->place( -x => 50, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 130 );
  240.  
  241. $newdaxz->Label(
  242.     -text       => "Status : ",
  243.     -font       => "Impact",
  244.     -background => $color_fondo,
  245.     -foreground => $color_texto
  246. )->place( -x => 63, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 300 );
  247. my $tatus = $newdaxz->Entry(
  248.     -width      => 25,
  249.     -background => $color_fondo,
  250.     -foreground => $color_texto
  251. )->place( -x => 120, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 305 );
  252.  
  253. $admins->No tienes permisos para ver links. Registrate o Entra con tu cuenta( "<Double-1>", [ \&loader ] );
  254.  
  255. MainLoop;
  256.  
  257. sub findpanel {
  258.     my $hage = $paget->get;
  259.     $admins->No tienes permisos para ver links. Registrate o Entra con tu cuenta( "0.0", "end" );
  260.     $tatus->configure( -text => "Starting" );
  261.     for my $path (@paneles) {
  262.         $newdaxz->update;
  263.         $tatus->configure( -text => $path );
  264.         $code = tomados( $hage . "/" . $path );
  265.         if ( $code->is_success ) {
  266.             $controlt = 1;
  267.             $admins->insert( "end", $hage . "/" . $path );
  268.             savefile( "admins-founds.txt", $hage . "/" . $path );
  269.         }
  270.     }
  271.  
  272.     if ( $controlt ne 1 ) {
  273.         $newdaxz->Dialog(
  274.             -title            => "Error",
  275.             -buttons          => ["OK"],
  276.             -text             => "Not found anything",
  277.             -background       => $color_fondo,
  278.             -foreground       => $color_texto,
  279.             -activebackground => $color_texto
  280.         )->Show();
  281.     }
  282.     $tatus->configure( -text => "Finished" );
  283. }
  284.  
  285. sub loader {
  286.     $adminsa = $admins->curselection();
  287.     for my $id (@$adminsa) {
  288.         my $linkar = $admins->get($id);
  289.         No tienes permisos para ver links. Registrate o Entra con tu cuenta("start firefox $linkar");
  290.     }
  291. }
  292.  
  293. sub openlogsk {
  294.     my $f = "admins-founds.txt";
  295.     if ( -f $f ) {
  296.         No tienes permisos para ver links. Registrate o Entra con tu cuenta($f);
  297.     }
  298.     else {
  299.         $newdaxz->Dialog(
  300.             -title            => "Error",
  301.             -buttons          => ["OK"],
  302.             -text             => "File Not Found",
  303.             -background       => $color_fondo,
  304.             -foreground       => $color_texto,
  305.             -activebackground => $color_texto
  306.         )->Show();
  307.     }
  308. }
  309.  
  310. sub aboutxa {
  311.     $newdaxz->Dialog(
  312.         -title            => "About",
  313.         -buttons          => ["OK"],
  314.         -text             => "Coded By Doddy H",
  315.         -background       => $color_fondo,
  316.         -foreground       => $color_texto,
  317.         -activebackground => $color_texto
  318.     )->Show();
  319. }
  320.  
  321. sub exitnow {
  322.     No tienes permisos para ver links. Registrate o Entra con tu cuenta 1;
  323. }
  324.  
  325. sub savefile {
  326.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( SAVE, ">>" . $_[0] );
  327.     No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE $_[1] . "\n";
  328.     No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE;
  329. }
  330.  
  331. sub tomados {
  332.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->get( $_[0] );
  333. }
  334.  
  335. sub repes {
  336.     my @limpio;
  337.     foreach $test (@_) {
  338.         No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio, $test unless $repe{$test}++;
  339.     }
  340.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio;
  341. }
  342.  
  343. #The End ?
  344.  
« Última modificación: Marzo 14, 2015, 10:24:01 am por Expermicid »

Desconectado Cronos

  • *
  • Underc0der
  • Mensajes: 1000
  • Actividad:
    0%
  • Reputación 1
  • Mientras mas se, me doy cuenta de lo poco que se.
    • Ver Perfil
    • Email
  • Skype: cronos.labs
« Respuesta #1 en: Junio 09, 2012, 12:05:46 pm »
Gracias, estoy sirve mucho, ya que muchos pagina no llegan a ser vulneradas ya que no llegamos a encontrar el panel de administracion xD
Saludos,, Cronos.-

Desconectado panik0

  • *
  • Underc0der
  • Mensajes: 42
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #2 en: Septiembre 30, 2012, 09:47:21 pm »
como se usa??? tengo backtrack 5r3 

Desconectado ~ Yoya ~

  • *
  • Underc0der
  • Mensajes: 152
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #3 en: Octubre 01, 2012, 02:08:08 am »
Copias el contenido y guardas el archivo con extencion .pl. Luego desde la terminal ingresas al directorio donde guardaste el archivo y lo ejecutas de la siguiente manera:
Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
perl archivoCopiado.pl
Aunque estoy seguro que no funcionara ya que tienes que instalar los módulos Tk y Tk::Dialog. Ya que este script no esta utilizando modulos estándar de Perl.

No tienes permisos para ver links. Registrate o Entra con tu cuenta

Saludos.
Mi madre me dijo que estoy destinado a ser pobre toda la vida.
Engineering is the art of balancing the benefits and drawbacks of any approach.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« Respuesta #4 en: Octubre 01, 2012, 10:04:51 am »
sip  , me olvide de mencionar que solo funciona en Windows debido a que soy windosero a muerte xDD , ademas el  activeperl que estoy usando en mi windows seven si trae por defecto Tk.

lo probe con ubuntu despues de instalar los modulos de Tk y funciona pero se ve todo corrido y mal.

« Última modificación: Octubre 01, 2012, 11:32:19 am por Doddy »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3243
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1518
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1172
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1316
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1403
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX