【公開鍵{e, n}】RSA暗号で会話するスレ【秘密鍵d】

【公開鍵{e, n}】RSA暗号で会話するスレ【秘密鍵d】 at MATH

1:１３２人目の素数さん
08/10/27 00:20:22
Mathematicaでのアルゴリズム記述
（Mathematicaが無くてもアルゴリズムとUnicodeから一応計算可能ですよ^^;）
(* 定義 *)
encrypt[m_, e_, n_] = Mod[m^e, n];
decrypt[c_, d_, n_] = Mod[c^d, n];
p = Prime[60];
q = Prime[70];
n = p q;
phin = (p - 1) (q - 1);
e = 2;
While[GCD[e, phin] != 1, e++];
{g, {d, k}} = ExtendedGCD[e, phin];
d = If[d < 0, d + phin, d];

(*　テスト1 *)
m1 = 1234;
c1 = encrypt[m1, e, n]
decrypt[c1, d, n]

(*　テスト2 *)
m2 = ToCharacterCode["Nurupo"]
c2 = encrypt[m2, e, n]
FromCharacterCode[decrypt[c2, d, n]]

じゃーまず俺からね～！
公開鍵：{e, n} = {11, 98069}
暗号文：c = {40664, 56301, 18167, 63083, 242, 82112, 39909, 47708, 61841, 5624, \
64264, 76144, 89552, 2690, 53670, 75353}

レスを読む