リトルエンディアンでdotlessipを逆引き #!/usr/bin/perl while(){ chomp $_; $_=~s/\s+//g; my $ret=sprintf("%s.%s.%s.%s",unpack('CCCC', pack('I',$_))); $ret=~/([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/; $ret="$4.$3.$2.$1"; my $host = gethostbyadd…

やはり、本物のソースがないと根本的に無理でしょう。