#1: Would love to come, but would love to see my family more! RETURN({}): #2: Generalize AliceToBob(M,Nbob,eBob,Nalice,dAlice,H) and #BobReadAlice(MS,Nbob,dBob,Nalice,eAlice,H) to #AliceToBobG(ListM,Nbob,eBob,Nalice,dAlice,H) and #BobReadAliceG(MS,Nbob,dBob,Nalice,eAlice,H) (where MS=[ListM',S]), #where ListM is an arbitrary list of integers each between 1 and Nbob, #and the signature is the sum of the integers in ListM cubed mod H. #The encrypting and decrypting is done separately for each member of #ListM. #OLD AliceToBob:=proc(M,Nbob,eBob,Nalice,dAlice,H) local x,M1,S: M1:=M&^eBob mod Nbob: x:=M&^3 mod H: S:=x&^dAlice mod Nalice: [M1,S]: end: #NEW AliceToBobG:=proc(ListM,Nbob,eBob,Nalice,dAlice,H) local g, newlist,x: newlist:=[]: for g in ListM do: x:=AliceToBob(g,Nbob,eBob,Nalice,dAlice,H); newlist:=[op(newlist), x]: od: newlist; end: #OLD BobReadAlice:=proc(MS,Nbob,dBob,Nalice,eAlice,H) local M1,S,M,X,X1: M1:=MS[1]: S:=MS[2]: M:=M1&^dBob mod Nbob: X:=M&^3 mod H: X1:=S&^eAlice mod Nalice: if X<>X1 then print(`You are not Alice, I will call the police`): fi: M: end: #NEW BobReadAliceG(MS,Nbob,dBob,Nalice,eAlice,H):=proc() local g, newlist,x: for g from 1 to nops(MS) do 2MS:=[MS[g], S[g]]: x:=BobReadAlice(2MS,Nbob,dBob,Nalice,eAlice,H): newlist:=[op(newlist), x]: od: newlist; end: #3: #My information [N,e,d]:= [4035983888024080397536969708582036667253587263607723015123625060834716529866762423922544098847465427880678612033900602704336336738182775982040534881865138536229591544007947586875662093720140825907716107, 3750642405947843788466274050989805761782119650171778166533453652960659249942375361081575911714279434004660635059434793439529763078502963499297797753191719411368955649886699148481101166665810948231529845, 691099831400715630460463751736999690982120559506712632109908199461735921488140347076873976424581950706923320898499281755495075094049168795006686177035998606392484046496015217787721606374982923641345741] H(M)= M^3 mod 1112621112853 #Birthday: 06232001 # I was able to determine that Alex Var's birthday is July 26, 2004. #In the other 5 cases, I did not receive sufficiently many emails/#responses.