iad:========================================================an: DECRYPT MESSAGES, USING A MINIATURE VERSION OF THEax: RIVEST-SHAMIR-ADLEMAN PUBLIC KEY CRYPTOSYSTEM.a: b: PROMPT FOR THE CRYPTOGRAM BLOCK TO BE DECRYPTED, AND^b: DECRYPT AND PRINT THE MESSAGE BLOCK, IN NUMERIC FORM.b:========================================================b: DEFINE PARAMETERSb:b C,D,M,N : DOUBLE PRECISION+cN p4 : D Lq : KEYSkc:--------------------------------------------------------c: MAIN PROGRAM LOOPc:c "CRYPTOGRAM BLOCK"; C : USER ENTRYc C  : STOP IF NO ENTRY-d T : DECRYPT BLOCKcd M : MESSAGE BLOCKd  : REPEATd":--------------------------------------------------------e,: SUBROUTINE. DECRYPT C, CRYPTOGRAM BLOCK.De6: COMPUTE M = (C^D) MOD N. USE MODIFIED RUSSIAN PEASANTve@: ALGORITHM (BYTE, OCTOBER 1981, PAGE 376).~eJ:eTD1 D : M e^ D1 (D1) r : IF D1 IS EVEN, SKIP fhM M C : M M (MN) N : M = (M * C) MOD NIfrC C C : C C (CN) N : C = (C * C) MOD Nlf|D1 (D1) : D1  ^rff:=========================================================