(38G) Hill's Encryption System

[Gerald H]

Sorry, the programme HILLSET did not set up M0 efficiently, here is a more efficient version, the difference being in the line with the command "BREAK":

Code:


 INPUT C;"Hill Cryptosystem"; "Modulus";" Cypher Modulus ► C";26:
 INPUT S;"Hill Cryptosystem"; "Size";" Size of Cypher Matrix ► S";4:
 IDENMAT(S)►M0:
 FOR I=1 TO S STEP 1;
 FOR J=1 TO S STEP 1;
 IF I==J
 THEN
 IF RANDOM>.5
 THEN
-1►M0(I,I):
 END:
 BREAK:
 ELSE
 INT(C*(RANDOM))►M0(I,J):
 END:
 END:
 END: 
 M0:
 Ans*TRN(Ans):
 MAKEMAT(Ans(I,J)MOD C,S,S
 )►M9:
 M0^-1:
 MAKEMAT(
 ROUND(Ans(I,J),0),S,S):
 TRN(Ans)*Ans:
 MAKEMAT(Ans(I,J)MOD C,S,S
 )►M0:
 MAKEMAT(INT(C*RANDOM),1,S)►M8: