【7行プログラミング/ショートコーディング】RSA暗号アルゴリズム (Perl)

print pack"C*",split/\D+/,`echo "16iII*o\U@{$/=$z;[(pop,pop,unpack"H*",<>
)]}\EsMsKsN0[lN*1lK[d2%Sa2/d0<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<J]dsJxp"|dc`

↑が、RSAアルゴリズムのコード　・・・らしいです。
（※ 動作未検証 ＾＾；)

sizeof(short) != 2 な処理系だとヤバイらしい？のかな？？


とりあえずメモ .〆(・ω・｀ )ｶｷｶｷ