ksnctfとやらをやってみた1 - ナカザンドットネット

※一部解答が貼ってあるのでこれからチャレンジする人は気をつけてね！

こんなツイートがRTで流れてきた。

セキュリティ関係の問題を出題するサイトを作りました。遊んでみてください。ちゃんと（？）ハッキングっぽいことをする問題もあります。URL
2012-05-24 23:53:05 via Tween

主にコンピュータセキュリティに関する問題を出題します。（後略）
http://ksnctf.sweetduet.info/

せ、セキュリティ(；ﾟдﾟ)ｺﾞｸﾘ…
今まで見て見ぬ振りをし続けてきた分野なので、スルーしようかと思ってしまったのですが、なんだか大学時代の後輩たちがチラホラと取り組んでいるのが見えたので、流石にしっぽ巻いて逃げ出すのもダサいかなと一念発起。
とりあえず行けるところまで行ってみようということで取り組んでみました。

以下、回答に関するネタバレあり。

1. Test Problem

コピペするだけなので普通に終了

2. Easy Cipher

「やっぱり僕には暗号とか無理だよ・・・」とたっぷり10分ほど悲壮感に浸りながら色々試してたらあっさり解けた。
仕掛けはすぐに分かったんですが、コードに落としこむまでに凄く時間がかかりました。実装力ねーわー。
主な原因は、無理にLuaを使ったため。文字列を文字とかcharコードに変換するやり方が分からなくて無駄に時間を食いましたとさ。
以下、僕の解答導出コード。

-- 大文字/小文字を保ったままアルファベット順で13個分文字をずらす関数
-- （スペースとピリオドは対象外）
local shift_thirteen = function(str)

	if str:match("[a-zA-Z]") then
		local char_byte = 0

		if str:match("[a-mA-M]") then
			char_byte = str:byte() + 26 - 13
		else
			char_byte = str:byte() - 13
		end
		
		return string.char(char_byte)
	else 
		return str
	end

end

local probrem = "問題文"
print(probrem) -- 処理前の文章を表示

local result = ""

for i=1, #probrem do
	-- i番目の文字を抜き出し
	local char_str = probrem:sub(i,i) 
	-- 13個ずらす
	local minus13ed = shift_thirteen(char_str) 
	result = result .. minus13ed
end 

print(result) -- 処理後の文章を表示