Forum
Aktif konular
Üyeler
Kurallar
Arama
Port Scanner Denen Şey... Port Scanner Denen Şey...
-
Evet,kusura bakmayın forumlarda fazla araştırma şansım olmadı.Çünkü hem bağlantım(gprs),hemde bağlandığım ülke(güney afrika)olduğu için ücretlendirme problemlerim vardı.
Hepimizin bildiği gibi bu port scannerlar bilgisayar portlarını tarayarak, açık port vb bulan sistemler. Buraya kadar tamam ama bu alet nasıl çalışıyor,benim sorum bu.İşin temeline inmek.Ping atma sistemine göre çalıştığını düşünüyorum.Elimizde bir port scanner olmassa,sadece dos modunda biz kendi kendimize scan yapabilirmiyiz mesela?
Bu konu ile beni ve bu konuyu gerçekten merak eden yada daha temelden işe başlayacak arkadaşları bilgilendirdiğiniz için şimdiden teşekkür ederim.
Araştırma yapamadığım içinde tekrar özür dilerim.
-
Evet,uzun bir aradan sonra gemiden döndüm.Ama konumu cevapsız görünce şok oldum.Neyse ben konuyu biraz araştırayım,bir şeyler yazmaya çalışayım. Bu arada yokmu konu ile ilgili bir şeyler anlatabilecek olan?
Evet,yaptığım araştırma ve incelemeler sonucu perl dilinde yazılmış basit bir port scanner(Dikkat ALINTIDIR):
# 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();Haydi şimdi bu programı kurcalayıp,nerede ne yapıldığını açıklayalım....
-
sağ ol dostum,bende anti-port scanner düşünüyorum
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla