Perl ile port scGirdiginiz ip adresinin açik ve kapali olan portlarini gösterir - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Programlama > Perl

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 04 March 2008, 14:19   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Perl ile port scGirdiginiz ip adresinin açik ve kapali olan portlarini gösterir

Perl ile port scGirdiginiz ip adresinin açik ve kapali olan portlarini gösterir

Kod:
# 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();
Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
TRABZONSPOR’U DÜŞÜNÜYORUM GÖZLERIM KAPALI umut Trabzonspor 1 20 June 2011 13:18
GÜZEL SANATLAR PARKI AÇIK HAVA MÜZESİ umut İzmir 3 22 September 2009 15:18
PERL NEDİR ? CoNQueRoR_61 Web Master 2 20 January 2009 15:43
AÇIK GEZMEK DİĞER GÜNAHLARDAN FARKLI MIDIR umut Dinde örtünmenin yeri 0 04 June 2008 12:28
KADINLAR BAŞI AÇIK NAMAZ KILABİLİR Mİ? REHA Dini Sohbetler 0 16 May 2006 14:38

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.