Perl ポートスキャン

/ Perl / Comment[0]
シンプルにポート番号をインクリメントしながらsocket接続を試み、trueならポート番号を表示してsocketを閉じる
ただのコネクションバニラスキャンですね
use IO::Socket;
@ARGV or die "Usage: $0 {target} {start} {end}\n"
foreach ( $ARGV[1] .. $ARGV[2]) {
if (
$socket = IO::Socket::INET->new(
Proto => 'tcp',
PeerAddr => $ARGV[0],
PeerPort => $_,
Timeout => '1'
)
)
{
print "$_\n";
close($socket);
}
}

$ ./port.pl 10.0.1.1 1 1023
21
53
80
139
445

ステルスには向いてないから使用はローカルの簡易ネットワークマッピングくらいに留めておこうか
関連記事

コメント

:
:
:
:
:
管理人のみ表示を許可