#OK to post homework
#Joseph Koutsoutis, 04-21-2024, Assignment 24

read `C24.txt`:

#1 I am unable to make it either day unfortunately.

{};

#2

 
AliceToBobG := proc(ListM,Nbob,eBob,Nalice,dAlice,H) local encM,i,S:
 encM := [seq(ListM[i]&^eBob mod Nbob, i=1..nops(ListM))]:
 S := add(ListM[i], i=1..nops(ListM))&^3 mod H:
 S := S&^dAlice mod Nalice:
 [encM,S]:
end:

BobReadAliceG := proc(MS,Nbob,dBob,Nalice,eAlice,H) local encM,S,M,i,X,Y:
 encM := MS[1]:
 S := MS[2]:
 M := [seq(encM[i]&^dBob mod Nbob, i=1..nops(encM))]:
 X := add(M[i], i=1..nops(M))&^3 mod H:
 X := X mod Nalice:
 Y := S&^eAlice mod Nalice:
 [M, evalb(X=Y)]:
end:


#3

#Here were my N,e,d,H:

#N, e, d := 1566257182390879657957, 962437938162041021459, 1134952188219212383091
#H := 1156722383983845476698

# Here's a summary of the emails:

#Daniel sent me this public key info and hash:

# N := 1683754217202490906164766558327928523357546213001574736860199666524321814696638401095728964263656048837717014950752654281983486441056347749832389567540880927371903356051823175473798510569159751669859083
# e := 468668896800796200411805561247540139594347762467718928212803510121346092919653795459577619291283044182463566958891034881670416221495681360377778687409818864301641200629744957532443474679991280602813355
# H := 271828182845904

#I received an encrypted message with a verified signature, and the decrypted message was was 10192004!


#Dayoon sent me this public key info and hash:

# [N,e]:=[1883925284252198456411, 489703529340811966481]
# H:=94380271871

#I received an encrypted message with a verified signature, and the decrypted message was was 07021996!


#Nuray sent me this public key info:

# N := 468904957950013467496814665250009902732699
# e := 338284290575781482185519661165079134629261

#I received an encrypted message with a verified signature, and the decrypted message was 08042003!


#Gloria sent me this public key info:

# N := 249846258933717282231658119892328072250259
# e := 57885386393133504599689153013392340889181

#The encrypted message I sent was decrypted successfully, and the signature was verified.