luminのコードメモ

■Google教の入信方法

• スマートフォンはAndroidを使う。
• Googleのサービスはログインして使う。

これであなたもGoogle信者

グーグル教は全世界の信者の数は14億人(2015年)

キリスト教22億人、イスラム教16億人につぐ世界三大宗教の一つ。

■ GOM Playerのアップデートパケットを確認しよう

韓国の動画再生ソフト GOM Playerのアップデートが原因で、トロイの木馬をダウンロードしてしまったケースを分析してみます。

LACさんが解説していたので、同じケースがないのか発見してみましょう。

PacketBlackHoleなどでフルバケットを記録している場合であれば、どのタイミングでやられてしまったのかが明確にわかります。

直接の原因はまだわかっていませんが、２、３の仮説が立てられます。

• 仮説１　DNSポイゾニングにより、偽サーバに行っていた。
• 仮説２　アップデートサーバが乗っ取られた
• 仮説３　インターネットの途中で書き換えられた
• 仮説４　何からの方法で、ローカルの、GrVersionJP.iniを書き換えた。

仮説１であれば、送信先のサーバが、本来のものとは異なります。

　本来のアップデートサーバは、app.gomlab.comで 38.109.102.176,38.109.102.177

38.109.102.178で、正規のサーバ自体はニューヨークのマンハッタン島にあるようです。宛先がこれら以外のアドレスであった場合は、何かしら不正な情報を掴んでしまっているケースかも知れません。

仮説２の場合は、サーバが乗っ取られたということなので、サーバからのレスポンスデータを再現して、ダウンロードしているGrVersionJP.iniファイルをパケットから再現して下さい。DOWN_URL=の部分が画像と異なる場合は、このタイミングでやられていることがわかります。

仮説３の場合は、

ネットワークの途中で書き換えるという方法をとるので、送信先のIPアドレスは同じでも、正規のサーバには通信は届いていません。全通信区間の、GrVersionJP.iniから、DOWN_URL=がおかしい部分を探す必要があります。

GOM Playerのユーザを見つけるなら、

PacketBlackHoleのWeb解析から、URL前方一致で、http://app.gomlab.com/ で検索するとユーザが見つけられます。実際のアップデートはSSLで暗号化するので、Counter SSL Proxyが必要です。

これらの原因となる、アップデートパケットを止めるには、

OnePointWallを入れましょう。簡単に止まります。

■ ケルベロスが入っているか見抜いてみよう。

このアイコンがCerberusです。

• なぜか突然シャッター音が鳴る。
• 着信もないのに光っているときがある。
• 電池の消耗が異常に早い

こんな症状があったら確認してみましょう。

ケルベロスはメニュー画面からは消えますが、発見する方法があります。

それは、

• 設定メニューから
• アプリケーション
• アプリケーションの管理

を開くと隠されたとしても発見できます。

この方法でケルベロスは見つかりますが。

ケルベロス以外にも同様なアプリは存在します。

ねつとえじえんもすといふおんせんの百せんいふものをわれもして心みむとてするなり

につぼんの温泉１００選トッブ１０

温泉名	地域
カムイワッカ湯の滝	北海道斜里町
ガラメキ温泉	群馬高崎市
長井温泉	山形県長井市
大和温泉	北海道倶知安町
上野温泉	山形県寒河江市
古丹消温泉	北海道泊村
アトサヌプリ温泉	北海道弟子屈町
澄川温泉	秋田県鹿角市
蒲原温泉	新潟県糸魚川市
西表島温泉	沖縄県竹富町

■MX codeを引く

かき捨てコード

#!/usr/bin/perl
use Net::DNS;
use IP::Country::Fast;

while(<STDIN>){
	chomp $_;
	$_=~s/^http\:\/\///;
	$_=~s/$\///;
	$_=~s/\/.*//;
	# MXの取得
	my @mx = mx($_);
	if (scalar(@mx) eq 0){
		$_=~s/.*?\.//;
		@mx = mx($_);
	}
	print $_," ";
	for my $tmp (@mx){
		print $tmp->exchange;
		my $reg = IP::Country::Fast->new();
		my $country = $reg->inet_atocc($tmp->exchange);
		if ($country eq ""){$country="ERROR";}
		print " on ",$country," ";
	}
	print "\n";
}