Try something like this:
use IO::Socket;
$sHttpPort = "80";
$sRmt = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => "localhost",
PeerPort => "$sHttpPort",
);
In the above code snippet, $sRmt will be undefined if the localhost is NOT
responding on port 80.
I'm sure there are more ways to do it, but this worked for me.
Eric
-----Original Message-----
From: Robert-Jan Mora [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 16, 2002 3:59 PM
To: [EMAIL PROTECTED]
Subject: port scan detector
Hello,
I would like to make a tcp and udp port scan detector in perl for win32. Has
anyone tried it already? The scan detector has to run on the background and
only has to log connections to a file.
Can someone point me to a direction.
Thankz in advance.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
