ksnctf Q.26 Sherlock Holmes 70pt

CTF

2020-09-24

問題の概要

問題ページへのリンクが張られている。

問題ページでは、シャーロックホームズの「ボヘミアの醜聞」の原文が載っている。

プロジェクトグーテンベルクから持ってきたようだ。

色々調べる

なんかめんどくさそうだなと思いながら、とりあえず色々調べてみよう。

ぱっとみ普通の html っぽいが、ソースを見てみる。

特に変なところはないが、url をよく見ると index.pl となっている。

perl だ。CGI だな。

ディレクトリトラバーサルを試みると、index.pl のあるディレクトリのファイルが表示された。

すると、flag.txt がある。ほかには、「ボヘミアの醜聞」の素となると思われる txt がある。

url 的に、index.pl/{ファイル名へのパス}という形でそのファイルの中身が表示されているようだ。

というわけで、さっそく index.pl/flag.txt へアクセスしてみる。

まあそうだよね。（ﾁｯ）

ははぁソースコードをみろと、なるほど。

index.pl/index.pl にアクセスすると、ソースコードを見ることができた。

#!/usr/bin/perl
use CGI;

print <<'EOS';
Content-type: text/html; charset=utf-8

<!DOCTYPE html>
<html>
<head>
<title>A SCANDAL IN BOHEMIA</title>
</head>
<body>
<h1>A SCANDAL IN BOHEMIA</h1>
<div>
<a href="/~q26/index.pl/a_scandal_in_bohemia_1.txt">A SCANDAL IN BOHEMIA I</a>&nbsp;
<a href="/~q26/index.pl/a_scandal_in_bohemia_2.txt">A SCANDAL IN BOHEMIA II</a>&nbsp;
<a href="/~q26/index.pl/a_scandal_in_bohemia_3.txt">A SCANDAL IN BOHEMIA III</a>&nbsp;
</div>
<hr>
<div>
EOS



# Can you crack me? :P
open(F,'cracked.txt');
my $t = <F>;
chomp($t);
if ($t eq 'h@ck3d!') {
print 'FLAG_****************<br><br>';
}
unlink('cracked.txt');
####



open(F,substr($ENV{'PATH_INFO'},1));

my $cgi = new CGI;
$cgi->charset('utf-8');
while(<F>) {
chomp;
s/FLAG_\w+/FLAG_****************/g;
print $cgi->escapeHTML($_)."<br>\n";
}

print <<'EOS';
</div>
<hr>
<address>
http://www.gutenberg.org/files/1661/1661-h/1661-h.htm
</address>
</body>
</html>

途中に明らかに怪しい箇所がある。

# Can you crack me? :P
open(F,'cracked.txt');
my $t = <F>;
chomp($t);
if ($t eq 'h@ck3d!') {
print 'FLAG_****************<br><br>';
}
unlink('cracked.txt');
####