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] Finder Pass 0.4

  • 1 Respuestas
  • 1077 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Marzo 31, 2012, 05:51:54 pm »
La version Tk de este programa que eh hecho para crackear hashes md5 de forma online

Una imagen seria


El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #Finder Pass 0.4
  3. #Version Tk
  4. #Coded By Doddy H
  5.  
  6. use Tk;
  7. use Tk::ListBox;
  8. use Tk::Dialog;
  9. use Tk::FileSelect;
  10. use Cwd;
  11. use LWP::UserAgent;
  12.  
  13. my $nave = LWP::UserAgent->new;
  14. $nave->agent(
  15. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  16. );
  17. $nave->timeout(5);
  18.  
  19. if ( $^O eq 'MSWin32' ) {
  20.     use Win32::Console;
  21.     Win32::Console::Free();
  22. }
  23.  
  24. my $color_fondo = "black";
  25. my $color_texto = "red";
  26.  
  27. my $ta =
  28.   MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  29. $ta->title("Finder Pass 0.4 (C) Doddy Hackman 2012");
  30. $ta->geometry("600x400+20+20");
  31. $ta->resizable( 0, 0 );
  32.  
  33. $d = $ta->Frame(
  34.     -relief     => "sunken",
  35.     -bd         => 1,
  36.     -background => $color_fondo,
  37.     -foreground => $color_texto
  38. );
  39. my $max = $d->Menubutton(
  40.     -text             => "Options",
  41.     -underline        => 1,
  42.     -background       => $color_fondo,
  43.     -foreground       => $color_texto,
  44.     -activebackground => $color_texto
  45. )->No tienes permisos para ver links. Registrate o Entra con tu cuenta( -side => "left" );
  46. my $aba = $d->Menubutton(
  47.     -text             => "About",
  48.     -underline        => 1,
  49.     -background       => $color_fondo,
  50.     -foreground       => $color_texto,
  51.     -activebackground => $color_texto
  52. )->No tienes permisos para ver links. Registrate o Entra con tu cuenta( -side => "left" );
  53. my $exa = $d->Menubutton(
  54.     -text             => "Exit",
  55.     -underline        => 1,
  56.     -background       => $color_fondo,
  57.     -foreground       => $color_texto,
  58.     -activebackground => $color_texto
  59. )->No tienes permisos para ver links. Registrate o Entra con tu cuenta( -side => "left" );
  60. $d->No tienes permisos para ver links. Registrate o Entra con tu cuenta( -side => "top", -fill => "x" );
  61.  
  62. $max->command(
  63.     -label      => "Crack",
  64.     -background => $color_fondo,
  65.     -foreground => $color_texto,
  66.     -command    => \&cracknow
  67. );
  68. $max->command(
  69.     -label      => "Add Hash",
  70.     -background => $color_fondo,
  71.     -foreground => $color_texto,
  72.     -command    => \&addhash
  73. );
  74. $max->command(
  75.     -label      => "Add File with hashes",
  76.     -background => $color_fondo,
  77.     -foreground => $color_texto,
  78.     -command    => \&addfilea
  79. );
  80. $max->command(
  81.     -label      => "Clean List",
  82.     -background => $color_fondo,
  83.     -foreground => $color_texto,
  84.     -command    => \&cleanow
  85. );
  86.  
  87. $aba->command(
  88.     -label      => "About",
  89.     -background => $color_fondo,
  90.     -foreground => $color_texto,
  91.     -command    => \&about
  92. );
  93.  
  94. $exa->command(
  95.     -label      => "Exit",
  96.     -background => $color_fondo,
  97.     -foreground => $color_texto,
  98.     -command    => \&salir
  99. );
  100.  
  101. $ta->Label(
  102.     -text       => "Hashes",
  103.     -background => $color_fondo,
  104.     -foreground => $color_texto,
  105.     -font       => "Impact"
  106. )->place( -x => 110, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 50 );
  107. my $had = my $has = $ta->Listbox(
  108.     -width      => 36,
  109.     -height     => 15,
  110.     -background => $color_fondo,
  111.     -foreground => $color_texto
  112. )->place( -x => 32, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 100 );
  113.  
  114. $ta->Label(
  115.     -text       => "Results",
  116.     -background => $color_fondo,
  117.     -foreground => $color_texto,
  118.     -font       => "Impact"
  119. )->place( -x => 380, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 50 );
  120. my $red = my $res = $ta->Listbox(
  121.     -width      => 36,
  122.     -height     => 15,
  123.     -background => $color_fondo,
  124.     -foreground => $color_texto
  125. )->place( -x => 300, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 100 );
  126.  
  127. my $status = $ta->Label(
  128.     -text       => "Status : <None>",
  129.     -background => $color_fondo,
  130.     -foreground => $color_texto,
  131.     -font       => "Impact1"
  132. )->place( -x => 220, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 350 );
  133.  
  134. MainLoop;
  135.  
  136. sub cracknow {
  137.  
  138.     my @hashes = $had->get( "0.0", "end" );
  139.     my @hashes = repes(@hashes);
  140.  
  141.     for my $ha (@hashes) {
  142.         $status->configure( -text => "[+] Searching .." );
  143.         $ta->update;
  144.         my $re = crackit($ha);
  145.         if ( $re =~ /false01/ig ) {
  146.             $red->insert( "end", "Not Found" );
  147.         }
  148.         else {
  149.             $red->insert( "end", $re );
  150.             savefile( "hashes-found.txt", $ha . ":" . $re );
  151.         }
  152.     }
  153.     $status->configure( -text => "Status : <None>" );
  154. }
  155.  
  156. sub addfilea {
  157.  
  158.     my $mediox = MainWindow->new(
  159.         -background => $color_fondo,
  160.         -foreground => $color_texto
  161.     );
  162.     $mediox->geometry("390x90+20+20");
  163.     $mediox->resizable( 0, 0 );
  164.     $mediox->title("Add File");
  165.  
  166.     $mediox->Label(
  167.         -text       => "File : ",
  168.         -background => $color_fondo,
  169.         -foreground => $color_texto,
  170.         -font       => "Impact1"
  171.     )->place( -x => 10, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 30 );
  172.     my $enafa = $mediox->Entry(
  173.         -background => $color_fondo,
  174.         -foreground => $color_texto,
  175.         -width      => 33
  176.     )->place( -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 33, -x => 55 );
  177.     $mediox->Button(
  178.         -text             => "Browse",
  179.         -background       => $color_fondo,
  180.         -foreground       => $color_texto,
  181.         -width            => 7,
  182.         -activebackground => $color_texto,
  183.         -command          => \&bronax
  184.     )->place( -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 33, -x => 265 );
  185.     $mediox->Button(
  186.         -text             => "Load",
  187.         -background       => $color_fondo,
  188.         -foreground       => $color_texto,
  189.         -width            => 7,
  190.         -activebackground => $color_texto,
  191.         -command          => \&bronaxx
  192.     )->place( -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 33, -x => 320 );
  193.  
  194.     sub bronax {
  195.         $browse = $mediox->FileSelect( -directory => getcwd() );
  196.         my $fileax = $browse->Show;
  197.         $enafa->configure( -text => $fileax );
  198.     }
  199.  
  200.     sub bronaxx {
  201.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( OPEN, $enafa->get );
  202.         my @ve = <OPEN>;
  203.         No tienes permisos para ver links. Registrate o Entra con tu cuenta OPEN;
  204.         for my $no (@ve) {
  205.             No tienes permisos para ver links. Registrate o Entra con tu cuenta $no;
  206.             if ( ver_length($no) ) {
  207.                 $had->insert( "end", $no );
  208.             }
  209.         }
  210.     }
  211. }
  212.  
  213. sub addhash {
  214.  
  215.     my $plac = MainWindow->new(
  216.         -background => $color_fondo,
  217.         -foreground => $color_texto
  218.     );
  219.     $plac->geometry("350x90+20+20");
  220.     $plac->resizable( 0, 0 );
  221.     $plac->title("Add Hash");
  222.  
  223.     $plac->Label(
  224.         -text       => "Hash : ",
  225.         -background => $color_fondo,
  226.         -foreground => $color_texto,
  227.         -font       => "Impact1"
  228.     )->place( -x => 10, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 30 );
  229.     my $ewa = $plac->Entry(
  230.         -background => $color_fondo,
  231.         -foreground => $color_texto,
  232.         -width      => 33
  233.     )->place( -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 33, -x => 60 );
  234.     $plac->Button(
  235.         -text             => "Add",
  236.         -background       => $color_fondo,
  237.         -activebackground => $color_texto,
  238.         -foreground       => $color_texto,
  239.         -width            => 7,
  240.         -command          => \&addnowa
  241.     )->place( -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 33, -x => 275 );
  242.  
  243.     sub addnowa {
  244.         if ( ver_length( $ewa->get ) ) {
  245.             $had->insert( "end", $ewa->get );
  246.         }
  247.         else {
  248.             $ta->Dialog(
  249.                 -title            => "Error",
  250.                 -buttons          => ["OK"],
  251.                 -text             => "Hash invalid",
  252.                 -background       => $color_fondo,
  253.                 -foreground       => $color_texto,
  254.                 -activebackground => $color_texto
  255.             )->Show();
  256.         }
  257.     }
  258. }
  259.  
  260. sub cleanow {
  261.     $had->No tienes permisos para ver links. Registrate o Entra con tu cuenta( 0.0, "end" );
  262.     $red->No tienes permisos para ver links. Registrate o Entra con tu cuenta( 0.0, "end" );
  263. }
  264.  
  265. sub about {
  266.     $ta->Dialog(
  267.         -title            => "About",
  268.         -buttons          => ["OK"],
  269.         -text             => "This program was coded by Doddy Hackman in 2012",
  270.         -background       => $color_fondo,
  271.         -foreground       => $color_texto,
  272.         -activebackground => $color_text
  273.     )->Show();
  274. }
  275.  
  276. sub salir {
  277.     No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  278. }
  279.  
  280. sub crackit {
  281.  
  282.     my $target = No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  283.  
  284.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $target;
  285.  
  286.     my %hash = (
  287.  
  288.         'http://md5.hashcracking.com/search.php?md5=' => {
  289.             'tipo'  => 'get',
  290.             'regex' => "Cleartext of $target is (.*)",
  291.         },
  292.  
  293.         'http://www.hashchecker.com/index.php?_sls=search_hash' => {
  294.             'variables' => { 'search_field' => $target, 'Submit' => 'search' },
  295.             'regex' =>
  296.               "<td><li>Your md5 hash is :<br><li>$target is <b>(.*)<\/b>",
  297.         },
  298.  
  299.         'http://md5.rednoize.com/?q=' => {
  300.             'tipo'  => 'get',
  301.             'regex' => "<div id=\"result\" >(.*)<\/div>"
  302.         },
  303.  
  304.         'http://md52.altervista.org/index.php?md5=' => {
  305.             'tipo'  => 'get',
  306.             'regex' => "<br>Password: <font color=\"Red\">(.*)<\/font><\/b>"
  307.           }
  308.  
  309.     );
  310.  
  311.     for my $data ( No tienes permisos para ver links. Registrate o Entra con tu cuenta %hash ) {
  312.         $ta->update;
  313.         if ( $hash{$data}{tipo} eq "get" ) {
  314.             $code = toma( $data . $target );
  315.             if ( $code =~ /$hash{$data}{regex}/ig ) {
  316.                 my $found = $1;
  317.                 unless ( $found =~ /\[Non Trovata\]/ ) {
  318.                     No tienes permisos para ver links. Registrate o Entra con tu cuenta $found;
  319.                     last;
  320.                 }
  321.             }
  322.         }
  323.         else {
  324.             $code = tomar( $data, $hash{$data}{variables} );
  325.             if ( $code =~ /$hash{$data}{regex}/ig ) {
  326.                 my $found = $1;
  327.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta $found;
  328.                 last;
  329.             }
  330.         }
  331.     }
  332.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "false01";
  333. }
  334.  
  335. sub savefile {
  336.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( SAVE, ">>" . $_[0] );
  337.     No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE $_[1] . "\n";
  338.     No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE;
  339. }
  340.  
  341. sub repes {
  342.     my @limpio;
  343.     foreach $test (@_) {
  344.         No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio, $test unless $repe{$test}++;
  345.     }
  346.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio;
  347. }
  348.  
  349. sub ver_length {
  350.     No tienes permisos para ver links. Registrate o Entra con tu cuenta true if No tienes permisos para ver links. Registrate o Entra con tu cuenta( $_[0] ) == 32;
  351. }
  352.  
  353. sub toma {
  354.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->get( $_[0] )->content;
  355. }
  356.  
  357. sub tomar {
  358.     my ( $web, $var ) = @_;
  359.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->post( $web, [ %{$var} ] )->content;
  360. }
  361.  
  362. #The End ?
  363.  
« Última modificación: Marzo 14, 2015, 10:17:45 am por Expermicid »

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5375
  • Actividad:
    73.33%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #1 en: Marzo 31, 2012, 06:06:46 pm »
Se ve genial Doddy!
Excelente aporte man!
Segui asi!


 

¿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: 1467
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1598
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1272
Último mensaje Julio 03, 2011, 10:06:45 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