昔はこんな感じの処理してた。今はもっと変な判定がたくさん追加されてる予感。
http://qb5.2ch.net/test/read.cgi/sec2chd/1366911756/375

> #携帯以外はリモホの文字列をチェック
> if(!($GB->{KEITAI} || $GB->{KEITAIBROWSER}))
> {
> if($GB->{HOST999} =~ /proxy/) {&DispError2($GB,"ＥＲＲＯＲ！","ＥＲＲＯＲ：変なホスト規制中！！　変なホストです。");}
> （中略）
> # if($GB->{HOST999} =~ /^gw/) {&DispError2($GB,"ＥＲＲＯＲ！","ＥＲＲＯＲ：変なホスト規制中！！　変なホストです。");}
> }