new( Proto => 'tcp', PeerAddr => $ARGV[0], PeerPort => $_, Timeout =>...">

スポンサーサイト

/ スポンサー広告 / Comment[-]

Perl ポートスキャン

/ Perl / Comment[0]
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
シンプルにポート番号をインクリメントしながら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

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

コメント

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