Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
One-Line Perl Portscanner
#!/usr/bin/perl
use IO::Socket;for ($i=1;$i<65536;$i++) { if (my $s=IO::Socket::INET->new(PeerAddr=>$ARGV[0],PeerPort=>$i,Proto=>'tcp') ) { print "$i\n";close ($s); }}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.