最近、物騒になったもので、監視カメラをよく見かけるようになった。
「上を向~いて歩こ~うよ♪」という歌にもあるとおり、ちょっと天井に
気をつけながら歩いてみると、その気がなくても結構見つけたりします。。
多くはそのものズバリ「カメラの形」をしているが、それと同じぐらい
沢山あるのは、以下のURLにあるようなドーム型のタイプです。
http://www.arucom.ne.jp/special/specialset071.shtml
これらのカメラは中には、運用を外部依託しているのか、ネット経由で
閲覧可能なものも少くないですが、これまたアクセス制限などのセキュリティ
対策をとってないものも少くないのです。つまり
「ネット経由で誰でも見れる状態」
の監視カメラが中には存在しています。
いってみれば、知らず知らずのうちに監視カメラで撮影されて、ネットで
全世界に公開されているようなもの。個人情報保護云々のまえに、こういう
カメラをなんとかして欲しいと思うのは小生だけでしょうか?
多くは http://camXXXX.miemasu.net/ というドメインのようなので xxxx を
適当に変化させて DNS をひいたり、ググったりすると簡単に見つけられます。
例えば、以下の20行足らずのPerlスクリプトで監視カメラを検出するのは
簡単。。なんだかなぁ。。。
#-------------------------------------------------------------------
# miemasu_scan.pl
# scan cam[nnnn].miemasu.net
# e.g.
# perl miemasu_scan.pl 1 256
#-------------------------------------------------------------------
if ( @ARGV + 0 <2) { die ( "Usage:miemasu_scan start_no end_non"); }
$start_no = $ARGV[0] ; $end_no = $ARGV[1];
if ( $start_no > $end_no ) { die ( "end_no must be learger than start_non");}
for($cnt = $start_no; $cnt <= $end_no; $cnt++){
$host = "cam".$cnt.".miemasu.net";
$addr = gethostbyname("$host");
if( $addr ne undef ){
$ip_add = join('.', unpack("C*", $addr));
print "Found. $host $ip_addn";
}
}
「上を向~いて歩こ~うよ♪」という歌にもあるとおり、ちょっと天井に
気をつけながら歩いてみると、その気がなくても結構見つけたりします。。
多くはそのものズバリ「カメラの形」をしているが、それと同じぐらい
沢山あるのは、以下のURLにあるようなドーム型のタイプです。
http://www.arucom.ne.jp/special/specialset071.shtml
これらのカメラは中には、運用を外部依託しているのか、ネット経由で
閲覧可能なものも少くないですが、これまたアクセス制限などのセキュリティ
対策をとってないものも少くないのです。つまり
「ネット経由で誰でも見れる状態」
の監視カメラが中には存在しています。
いってみれば、知らず知らずのうちに監視カメラで撮影されて、ネットで
全世界に公開されているようなもの。個人情報保護云々のまえに、こういう
カメラをなんとかして欲しいと思うのは小生だけでしょうか?
多くは http://camXXXX.miemasu.net/ というドメインのようなので xxxx を
適当に変化させて DNS をひいたり、ググったりすると簡単に見つけられます。
例えば、以下の20行足らずのPerlスクリプトで監視カメラを検出するのは
簡単。。なんだかなぁ。。。
#-------------------------------------------------------------------
# miemasu_scan.pl
# scan cam[nnnn].miemasu.net
# e.g.
# perl miemasu_scan.pl 1 256
#-------------------------------------------------------------------
if ( @ARGV + 0 <2) { die ( "Usage:miemasu_scan start_no end_non"); }
$start_no = $ARGV[0] ; $end_no = $ARGV[1];
if ( $start_no > $end_no ) { die ( "end_no must be learger than start_non");}
for($cnt = $start_no; $cnt <= $end_no; $cnt++){
$host = "cam".$cnt.".miemasu.net";
$addr = gethostbyname("$host");
if( $addr ne undef ){
$ip_add = join('.', unpack("C*", $addr));
print "Found. $host $ip_addn";
}
}