という訳でBloggerやめます

http://w777.blog.shinobi.jp/

忍者ぶろぐに戻る。
リンクの修正とか面倒くさいと思うので結構です

RSAみたいな

require 'rational'

def n_fact(p, q)
$n = p * q
print "N = ", $n, "\n"

$l = (p-1).lcm(q-1)
print "L = ", $l, "\n"

$e = 1
continue_e = true
while continue_e do
$e += 1
if $e.gcd($l) == 1 then
print "E = ", $e, "\n"
continue_e = false
end
end

$d = 1
continue_d = true
while continue_d do
$d += 1
if $e * $d % $l == 1 then
print "D = ", $d, "\n"
continue_d = false
end
end
end

#Encrypt(plain text(ascii))
def e(p)
p p**$e % $n
end

#Decode(code(num))
def d(c)
p c**$d % $n
end
こんな感じなんかなぁ。
n_fact()に素数のペア渡してあげたら暗号化と復号に要る数を出してくれるみたいです
なんか間違っとるとこあったら教えてください...

もちろん実用性は皆無です

ASCIIコード表作った

ちょっと欲しくなって探してみたけどあんま良いのがなかったんで作った
ダウンロードはここから

Emacs広島勉強会

良の塊みたいな人たちが丁寧に教えてくれました
あんな感じでスパンスパン使いこなせるようになるのは何時やら。。

OZ風ついったービューワ



ハッシュの値に配列入れようとしたんですが型違いでできません

めちゃくちゃなソース
http://www1.axfc.net/uploader/Sc/so/166373

リプライだったら吹き出しのとんがりの向きを変えたいんだけどなぁ