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; }