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] Destroyer Shells 0.4

  • 0 Respuestas
  • 1242 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 29, 2012, 08:35:42 pm »
Version Tk de un script para buscar y borrar phpshells.

Una imagen



El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #DestroyerShells 0.4
  3. #Version Tk
  4. #Coded By Doddy H
  5.  
  6. use Tk;
  7. use Tk::Dialog;
  8. use LWP::UserAgent;
  9. use File::Find;
  10.  
  11. my @nombres = (
  12.     "C99Shell",
  13.     "r57shell",
  14.     "DxShell",
  15.     "HiddenShell",
  16.     "~ Andr3a92 ~ Sh3ll ~",
  17.     "CShell",
  18.     "Dark Shell",
  19.     "GsC SheLL",
  20.     "N3fa5t1cA Sh3ll",
  21.     "ONBOOMSHELL",
  22.     "StAkeR ~ Shell",
  23.     "MoDDeD By KinG-InFeT",
  24.     "31337 Shel"
  25. );
  26. my @founds;
  27.  
  28. #if ($^O eq 'MSWin32') {
  29. #use Win32::Console;
  30. #Win32::Console::Free();
  31. #}
  32.  
  33. my $color_texto = "orange";
  34. my $color_fondo = "black";
  35.  
  36. my $newdaxz =
  37.   MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  38.  
  39. $newdaxz->title("DestroyerShells 0.4 || Coded By Doddy H");
  40. $newdaxz->geometry("345x350+50+50");
  41. $newdaxz->resizable( 0, 0 );
  42.  
  43. $menula = $newdaxz->Frame(
  44.     -relief     => "sunken",
  45.     -bd         => 1,
  46.     -background => $color_fondo,
  47.     -foreground => $color_texto
  48. );
  49. my $menulnowaxm = $menula->Menubutton(
  50.     -text             => "Options",
  51.     -underline        => 1,
  52.     -background       => $color_fondo,
  53.     -foreground       => $color_texto,
  54.     -activebackground => $color_texto
  55. )->No tienes permisos para ver links. Registrate o Entra con tu cuenta( -side => "left" );
  56. my $aboutnowaxm = $menula->Menubutton(
  57.     -text             => "About",
  58.     -underline        => 1,
  59.     -background       => $color_fondo,
  60.     -foreground       => $color_texto,
  61.     -activebackground => $color_texto
  62. )->No tienes permisos para ver links. Registrate o Entra con tu cuenta( -side => "left" );
  63. my $exitnowaxm = $menula->Menubutton(
  64.     -text             => "Exit",
  65.     -underline        => 1,
  66.     -background       => $color_fondo,
  67.     -foreground       => $color_texto,
  68.     -activebackground => $color_texto
  69. )->No tienes permisos para ver links. Registrate o Entra con tu cuenta( -side => "left" );
  70. $menula->No tienes permisos para ver links. Registrate o Entra con tu cuenta( -side => "top", -fill => "x" );
  71.  
  72. $menulnowaxm->command(
  73.     -label      => "Scan",
  74.     -background => $color_fondo,
  75.     -foreground => $color_texto,
  76.     -command    => \&scan
  77. );
  78. $menulnowaxm->command(
  79.     -label      => "Delete Shells",
  80.     -background => $color_fondo,
  81.     -foreground => $color_texto,
  82.     -command    => \&delnow
  83. );
  84.  
  85. $aboutnowaxm->command(
  86.     -label      => "About",
  87.     -background => $color_fondo,
  88.     -foreground => $color_texto,
  89.     -command    => \&aboutxa
  90. );
  91.  
  92. $exitnowaxm->command(
  93.     -label      => "Exit",
  94.     -background => $color_fondo,
  95.     -foreground => $color_texto,
  96.     -command    => \&exitnow
  97. );
  98.  
  99. $newdaxz->Label(
  100.     -text       => "Directory : ",
  101.     -font       => "Impact",
  102.     -background => $color_fondo,
  103.     -foreground => $color_texto
  104. )->place( -x => 20, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 40 );
  105. my $dir = $newdaxz->Entry(
  106.     -text       => "C:/xampp/htdocs",
  107.     -width      => 37,
  108.     -background => $color_fondo,
  109.     -foreground => $color_texto
  110. )->place( -x => 95, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 45 );
  111.  
  112. $newdaxz->Label(
  113.     -text       => "Shells Founds",
  114.     -font       => "Impact",
  115.     -background => $color_fondo,
  116.     -foreground => $color_texto
  117. )->place( -x => 120, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 80 );
  118. my $files = $newdaxz->Listbox(
  119.     -width      => 40,
  120.     -height     => 10,
  121.     -background => $color_fondo,
  122.     -foreground => $color_texto
  123. )->place( -x => 50, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 130 );
  124.  
  125. $newdaxz->Label(
  126.     -text       => "Status : ",
  127.     -font       => "Impact",
  128.     -background => $color_fondo,
  129.     -foreground => $color_texto
  130. )->place( -x => 63, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 300 );
  131. my $tatus = $newdaxz->Entry(
  132.     -width      => 25,
  133.     -background => $color_fondo,
  134.     -foreground => $color_texto
  135. )->place( -x => 120, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 305 );
  136.  
  137. MainLoop;
  138.  
  139. sub delnow {
  140.  
  141.     my $total = $files->size - 1;
  142.  
  143.     for my $number ( 0 .. $total ) {
  144.         my $ruta = $files->get($number);
  145.         No tienes permisos para ver links. Registrate o Entra con tu cuenta($ruta);
  146.     }
  147.     $files->No tienes permisos para ver links. Registrate o Entra con tu cuenta( "0.0", "end" );
  148. }
  149.  
  150. sub scan {
  151.  
  152.     $files->No tienes permisos para ver links. Registrate o Entra con tu cuenta( "0.0", "end" );
  153.     my $dir = $dir->get;
  154.  
  155.     find( \&finder, $dir );
  156.  
  157.     sub finder {
  158.         my $file = $_;
  159.         if ( -f $file ) {
  160.             if ( $file =~ /\.txt$/ or $file =~ /\.php$/ ) {
  161.                 my $abrir = $File::Find::name;
  162.  
  163.                 $tatus->configure( -text => $abrir );
  164.  
  165.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta( FILE, $abrir );
  166.                 my $words = No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(), <FILE>;
  167.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta(FILE);
  168.  
  169.                 for my $rastro (@nombres) {
  170.                     $newdaxz->update;
  171.                     No tienes permisos para ver links. Registrate o Entra con tu cuenta $rastro;
  172.                     if ( $words =~ /$rastro/ig ) {
  173.                         $files->insert( "end", $abrir );
  174.                     }
  175.                 }
  176.             }
  177.         }
  178.     }
  179.     $tatus->configure( -text => " " );
  180. }
  181.  
  182. sub aboutxa {
  183.     $newdaxz->Dialog(
  184.         -title            => "About",
  185.         -buttons          => ["OK"],
  186.         -text             => "Coded By Doddy H",
  187.         -background       => $color_fondo,
  188.         -foreground       => $color_texto,
  189.         -activebackground => $color_texto
  190.     )->Show();
  191. }
  192.  
  193. sub exitnow {
  194.     No tienes permisos para ver links. Registrate o Entra con tu cuenta 1;
  195. }
  196.  
  197. #The End ?
  198.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3150
Ú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: 1468
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1272
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1099
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1249
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear