Başlangıç > Kodlar > Perl ile port taramak

Perl ile port taramak

Bu Port Scanner girdiğiniz ip adresinin açık ve kapalı olan portlarını gösterir.

  • 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
  • Örnek: perl portscanner.pl 127.0.0.1 500
  • 127.0.0.1`i 1. porttan baslayarak 500e kadar tarar.

Kodlar :

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

 

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

 

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

 

} while ($port < $sayi);

 
print "Her zaman Tesekkurler Hurby\n";
exit();

 

 

Reklamlar
Kategoriler:Kodlar Etiketler:, , , ,
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: