Rabin

In[27]:=

rabinc = Module[{len, m, c}, c = {} ; len = Length[plaintexts] ; Do[j = Random[Integer, {1, le ... plaintexts[[j]] ; c = Append[c, {rabinpk[[i]], RabinEncipher[m, rabinpk[[i, 2]]]}], {i, len}] ; c]

Out[27]=

{{{Baxter, 414581}, {33124, 3969, 0, 24025, 26896, 16129}}, {{Beury, 1457}, {81, 996, 811, 107 ... 48, 1007, 5043, 5043, 2025, 3554}}, {{Williamson, 427729}, {33124, 3969, 0, 24025, 26896, 16129}}}

Created by Mathematica  (November 3, 2004)