[Perl] Port Scanner

[Axon]

Code: [Select]

use Socket;
$host="xxx.xxx.xxx.xxx.";                                (XXX.xxxx.xxxx.xxx)  Type here your ip
 
print("Scan $host:\n");
for($i=0; $i<65000; $i++){                ( Type here what ports do you want to scan )                           
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$iaddr = inet_aton($host);
$paddr = sockaddr_in($i, $iaddr);
if(connect(SOCK, $paddr)){
print("$i - OK\n");
}else{
print("$i - NO\n");
}
}


[FuyuKitsune]

How is Perl? The syntax looks so much nicer than Python, I am trapped in C++ style syntax.

[10n1z3d]

How is Perl? The syntax looks so much nicer than Python, I am trapped in C++ style syntax.

/facepalm

I was going to argue here, but I will just say that Perl got a reputation of a write-only language, guess why.

[FuyuKitsune]

So people write crappy code with it because they can.

[xzid]

TCP connect scan, huge range of ports, hmm