# Port Scanner
# Coded bY Celil ÜNÜVER
# Adres kısmına adresi taratmak istediginiz adresi yazacaksınız!
# Sayi kısmına 1.porttan kaça kadar tarayacağınızı yazacaksınız
# Ornek: perl portscanner.pl 127.0.0.1 500
# 127.0.0.1`i 1. porttan baslayarak 500e kadar tarar.

$adres = $ARGV[0];
$sayi = $ARGV[1];

if(!$ARGV[0]){
print "Kullanimi: $0 #perl portscanner.pl [adres] [sayi] ";
exit();
}

$port=0;
do {
$port++;
use IO::Socket;
$socket = new IO::Socket::INET( PeerAddr => $adres,
PeerPort => $port,
Proto => 'tcp');
if ($socket){
print "$port ---> acik ";
close($socket);
}
if (!$socket){
print "$port ---> kapali ";
close($socket);
}

} while ($port < $sayi);

print "Kodlayan: Celil Unuver ";
print "Her zaman Tesekkurler Hurby "
exit();