|
|
Perl ile hedef ip adresi için port scanner - Cgi / Perl Webmaster bilgi bankası, knowledge base Webmaster Araçları
| AnaSayfa > Cgi / Perl > Perl ile hedef ip adresi için port scanner | |
| | Kategori | : Cgi / Perl | | Gönderen | : Admin | | Tarih | : 2011-02-20 | | Puan | : 3  | Katılımcı : 15 | | Okunma | : 14427 | | | | | |
| |
# 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:\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 "Kodlayan: Celil Unuver\n";
print "Her zaman Tesekkurler Hurby\n"
exit();
|
| Yorumlar | | Henüz Kimse Yorum Yapmamış, ilk yorumu siz ekleyin! | | Yorum Ekleme Aparatı | Yorum Eklemek için lütfen sol menuden giris yapınız.. | | Toplam 0 yorum listelendi. |
|
