Thanks for the updates, I understand.
Then perhaps someone can help me get this script to set the tcp
to SYN_SENT on 100 ports:
#!/usr/bin/perl
use Socket;
$count=3500;
while ($count<3601)
{
$count++;
$addr=sockaddr_in($count,inet_aton('localhost'));
socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
connect(S,$addr);
}
What am I missing??
Thanks,
Ron
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
