RSA

In[25]:=

rsac = Module[{len, m, c}, c = {} ; len = Length[plaintexts] ; Do[j = Random[Integer, {1, len} ... ; m = plaintexts[[j]] ; c = Append[c, {rsapk[[i]], RSAEncipher[m, rsapk[[i, 2]]]}], {i, len}] ; c]

Out[25]=

{{{Baxter, {36581, 457}}, BWCKBJVU}, {{Beury, {3589, 11}}, FBPFAHAHC}, {{Brunner, {32639, 55}} ... 1}}, ESUBBBBPF}, {{Weaver, {559411, 20073}}, ADCZHBCXLR}, {{Williamson, {304583, 689}}, CGNUGZZD}}

Created by Mathematica  (November 3, 2004)