Port Scanner
#1
Note 
یه پورت اسکنر جالب به زبان پرلConfusedmiles (52):



کد php:
#!/usr/bin/perl
use IO::Socket::INET;
if (!
defined($ARGV[2])) {
print 
'usage: <target> <low> <high>';}
for (
$x=$ARGV[1];$x<$ARGV[2]+1;$x++){
if (
fork()){if ($sock = new IO::Socket::INET(
PeerAddr=>$ARGV[0],PeerPort=>$x,Proto=>'tcp'))
{ print
"$x\tOPEN\n";}else{print"$x\tCLOSED\n";}
close($sock);exit;}} 

پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

کاربرانِ درحال بازدید از این موضوع:   1 مهمان