3. [Perl] Mysql Manager
Páginas: [1]   Ir Abajo
« anterior próximo »

[Perl] Mysql Manager

  • 0 Respuestas
  • 1421 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 Manager

  • 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. print "\n\n -- == Mysql Manager == --\n\n";
  9. }
  10.  
  11. sub copyright {
  12. print "\n\n-- == (C) Doddy Hackman 2011 == --\n\n";
  13. exit(1);
  14. }
  15.  
  16. sub sintax {
  17. print "\n<ul class="bbc_list"><li type="square"> Sintax : $0 <host> <user> <pass>\n";[/li][/list]
  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. print "\n</li><li type="square"> Connecting to the server\n";[/li][/list]
  31.  
  32. $info = "dbi:mysql::".$_[0].":3306";
  33. if (my $enter = DBI->connect($info,$_[1],$_[2],{PrintError=>0})) {
  34.  
  35. print "\n</li><li type="square"> Enter in the database";[/li][/list]
  36.  
  37. while(1) {
  38. print "\n\n\n</li><li type="square"> Query : ";[/li][/list]
  39. chomp(my $ac = <stdin>);
  40.  
  41. if ($ac eq "exit") {
  42. $enter->disconnect;
  43. print "\n\n</li><li type="square"> Closing connection\n\n";[/li][/list]
  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. print "\n\n[-] Query Error\n";
  55. next;
  56. } else {
  57. print "\n\n</li><li type="square"> Result of the query\n";[/li][/list]
  58. if ($total eq 0) {
  59. print "\n\n</li><li type="square"> Not rows returned\n\n";[/li][/list]
  60. } else {
  61. print "\n\n</li><li type="square"> Rows returned : ".$total."\n\n\n";[/li][/list]
  62. for(@columnas) {
  63. print $_."\t\t";
  64. }
  65. print "\n\n";
  66. while (@row = $re->fetchrow_array) {
  67. for(@row) {
  68. print $_."\t\t";
  69. }
  70. print "\n";
  71. }}}}
  72. } else {
  73. print "\n[-] Error connecting\n";
  74. }}
  75.  
  76. # ¿ The End ?
  77.  

Un ejemplo de uso

Código: [Seleccionar]

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


 -- == Mysql Manager == --


  • Connecting to the server[/li]

  • Enter in the database[/li]


  • Query : show databases[/li]


  • Result of the query[/li]


  • Rows returned : 6[/li][/list]


    Database

    information_schema
    cdcol
    hackman
    mysql
    phpmyadmin
    test



  • Query : exit[/li]


  • Closing connection[/li][/list]



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


    • « Última modificación: Julio 17, 2011, 03:41:12 am por Sthefano02 »
    En línea
    Páginas: [1]   Ir Arriba
    « anterior próximo »
     

    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] Iframe DDos Attack Tool

    Iniciado por BigBear

    		 Respuestas: 0
    Vistas: 2443     		Último mensaje Julio 03, 2011, 10:06:45 pm
    por BigBear
    Funciones más utilizadas en la programación de un perl script

    Iniciado por Dragora

    		 Respuestas: 0
    Vistas: 4364     		Último mensaje Enero 06, 2019, 01:01:06 am
    por Dragora
    [Perl] Half Life Servers List 0.1

    Iniciado por BigBear

    		 Respuestas: 0
    Vistas: 2604     		Último mensaje Noviembre 12, 2012, 07:31:50 pm
    por BigBear