- 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と同じ理由で動かないかもしれますん。 これ以上縮まらないヨカソ…。
|

|