★051211 半角二次元板ゴミクズ溜まり場報告スレ

暗号化文字列の詳細が判明したので報告。

文字列は以下の手順で解読できます。

1. 暗号化文字列をBASE64でデコードする
2. このとき、手順1でデコードした文字列をループで舐めながら
　 暗号化を解いていく。

[復号化の方法]
　文字列のインデックスを255で割った余りと文字コードとのxorをとる。
　0x48A02Dあたりに復号ルーチンがあります。

サンプルコードを以下に示します。
var
Buf : String;
i : Integer;
begin
// Base64デコード
Buf := IdDecoderMime1.DecodeString(Edit1.Text);

// xor 暗号化を解く
for i := 1 to Length(Buf) do
begin
Buf[i] := char(byte(Buf[i]) xor (i mod 255));
end;

Memo1.Text := Buf;
end;