Programalama > PERL

Etiketler: perl, ile, port, scanner

Ort. 0
Puan ver:
# 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                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.