Whackerz #1

Tcp Scanner by 27bytes/Whackerz



This is a TCP based network scanner it uses the simple 3-way handshake to scan:


#!/usr/bin/perl
use IO::Socket;
$startport = $ARGV[0];
$endport = $ARGV[1];
$target = $ARGV[2];
$exist = "";
$proto = 'tcp';
if (($target eq $exist)||($startport eq $exist)||($endport eq $exist)){
print"Usage: tcpwhack.pl   \n";
}
elsif($startport >= $endport){
print"Damn it don't mess with it!\n";
}
else{
print"TCP-scanner made by 27bytes\n";
print"URL: http://whackers.zzn.com\n";
print"Forum: http://whackerz.proboards21.com\n\n";
print"Scanning ports $startport to $endport on $target\n";
for ($currentport=$startport;$currentport<=$endport;$currentport++) {
$sock = new IO::Socket::INET ( 
            PeerAddr => "$target",
            PeerPort => "$currentport",
            Proto => "$proto",
            );
if($sock){
print"Port: $currentport is open\n"; 
}
}
print"Scan on $target is complete\n";
close $sock;
}