send
Grupo de Telegram
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 Manager

  • 0 Respuestas
  • 825 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 03, 2011, 10:03:54 pm »
Un simple mysql manager , un triste intento de imitacion al comando mysql pero bueno....

Código: Perl
  1. #!usr/bin/perl
  2. #Mysql Manager (C) Doddy Hackman 2011
  3. #ppm install http://www.bribes.org/perl/ppm/DBI.ppd
  4.  
  5. use DBI;
  6.  
  7. sub head {
  8. You are not allowed to view links. Register or Login "\n\n -- == Mysql Manager == --\n\n";
  9. }
  10.  
  11. sub copyright {
  12. You are not allowed to view links. Register or Login "\n\n-- == (C) Doddy Hackman 2011 == --\n\n";
  13. You are not allowed to view links. Register or Login(1);
  14. }
  15.  
  16. sub sintax {
  17. You are not allowed to view links. Register or Login "\n[+] Sintax : $0 <host> <user> <pass>\n";
  18. }
  19.  
  20. head();
  21. unless (@ARGV > 2) {
  22. sintax();
  23. } else {
  24. enter($ARGV[0],$ARGV[1],$ARGV[2]);
  25. }
  26. copyright();
  27.  
  28. sub enter {
  29.  
  30. You are not allowed to view links. Register or Login "\n[+] Connecting to the server\n";
  31.  
  32. $info = "dbi:mysql::".$_[0].":3306";
  33. if (my $enter = DBI->You are not allowed to view links. Register or Login($info,$_[1],$_[2],{PrintError=>0})) {
  34.  
  35. You are not allowed to view links. Register or Login "\n[+] Enter in the database";
  36.  
  37. while(1) {
  38. You are not allowed to view links. Register or Login "\n\n\n[+] Query : ";
  39. You are not allowed to view links. Register or Login(my $ac = <stdin>);
  40.  
  41. if ($ac eq "exit") {
  42. $enter->disconnect;
  43. You are not allowed to view links. Register or Login "\n\n[+] Closing connection\n\n";
  44. copyright();
  45. }
  46.  
  47. $re = $enter->prepare($ac);
  48. $re->execute();
  49. my $total = $re->rows();
  50.  
  51. my @columnas = @{$re->{NAME}};
  52.  
  53. if ($total eq "-1") {
  54. You are not allowed to view links. Register or Login "\n\n[-] Query Error\n";
  55. next;
  56. } else {
  57. You are not allowed to view links. Register or Login "\n\n[+] Result of the query\n";
  58. if ($total eq 0) {
  59. You are not allowed to view links. Register or Login "\n\n[+] Not rows returned\n\n";
  60. } else {
  61. You are not allowed to view links. Register or Login "\n\n[+] Rows returned : ".$total."\n\n\n";
  62. for(@columnas) {
  63. You are not allowed to view links. Register or Login $_."\t\t";
  64. }
  65. You are not allowed to view links. Register or Login "\n\n";
  66. while (@row = $re->fetchrow_array) {
  67. for(@row) {
  68. You are not allowed to view links. Register or Login $_."\t\t";
  69. }
  70. You are not allowed to view links. Register or Login "\n";
  71. }}}}
  72. } else {
  73. You are not allowed to view links. Register or Login "\n[-] Error connecting\n";
  74. }}
  75.  
  76. # ¿ The End ?
  77.  

Un ejemplo de uso

Código: You are not allowed to view links. Register or Login

C:\Documents and Settings\Administrador\Escritorio\Todo\Warfactory II\proyectos\
mysqlman>manager.PL localhost root ""


 -- == Mysql Manager == --


[+] Connecting to the server

[+] Enter in the database


[+] Query : show databases


[+] Result of the query


[+] Rows returned : 6


Database

information_schema
cdcol
hackman
mysql
phpmyadmin
test



[+] Query : exit


[+] Closing connection



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


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

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1080
Ú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: 1474
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

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