七行プログラミング (452ﾚｽ)
七行プログラミング http://medaka.5ch.net/test/read.cgi/php/1036141603/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
145: nobodyさん [] 03/05/28 05:53 ID:dphN6O/1 ポートスキャナー。 # portscan.pl use Socket;$h=$ARGV[0];$p=--$ARGV[1];$e=$ARGV[2];$i=inet_aton($h)||die;print"ho st $h\n\n";while($p++<$e){$f=1;for(1..2){$t=$f?"tcp":"udp";socket(S,PF_INET, SOCK_STREAM,getprotobyname($t));print"$p $t\n"if connect(S,pack_sockaddr_in($p, $i));close(S);$f=0}} usage >peal portscan.pl [host] [start_port] [end_port] ちなみに、エラーチェックもしてないし、socketらへんもかなり適当なので動かないかもしれますん。 そんときは自分で手を加えるなりして動くようにしてください。 http://medaka.5ch.net/test/read.cgi/php/1036141603/145
147: 145 [] 03/05/28 19:26 ID:MVa2hSnY 縮まった。 # portscan.pl use Socket;$h=$ARGV[0];$p=--$ARGV[1];$i=inet_aton $h||die;print"host $h\n\n"; while(++$p<$ARGV[2]){$f=1;for(1..2){socket S,PF_INET,SOCK_STREAM,getprotobyname ($f?"tcp":"udp");print"$p $t\n"if connect S,pack_sockaddr_in($p,$i);close S;$f= 0}} >>145と同じ理由で動かないかもしれますん。 これ以上縮まらないヨカソ…。 http://medaka.5ch.net/test/read.cgi/php/1036141603/147
149: 145 [] 03/05/28 21:50 ID:RXOOGbeu 言ってるそばから縮まった。 # portscan.pl use Socket;@t=@ARGV;$p=--$t[1];$i=inet_aton $t[0]||die;print"host $t[0]\n\n"; while(++$p<$t[2]){$f=1;for(1..2){socket S,PF_INET,SOCK_STREAM,getprotobyname($f ?"tcp":"udp");print"$p $t\n"if connect S,pack_sockaddr_in($p,$i);close S;$f=0}} http://medaka.5ch.net/test/read.cgi/php/1036141603/149
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
ｱﾎﾞﾝOFF
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.014s