Trailing-Edge
-
PDP-10 Archives
-
decuslib10-13
-
test1.mic
There is 1 other file named test1.mic in the archive. Click here to see a list.
! TEST1 - Test procedure for CRYPT:
! (1) Nest encryptions 9 deep
! (2) Decrypt in reverse order
! (3) Use FILCOM to compare final result with original file
.mic set no timestamp
! Do 9 encryptions and 9 decryptions (total of 18)
.run crypt
*x.tmp=doc:cpl.mem
*12345678901
*12345678901
*=x.tmp
*23456789012
*23456789012
*=x.tmp
*34567890123
*34567890123
*=x.tmp
*45678901234
*45678901234
*=x.tmp
*56789012345
*56789012345
*=x.tmp
*67890123456
*67890123456
*=x.tmp
*78901234567
*78901234567
*=x.tmp
*89012345678
*89012345678
*=x.tmp
*90123456789
*90123456789
*=x.tmp
*90123456789
*90123456789
*=x.tmp
*89012345678
*89012345678
*=x.tmp
*78901234567
*78901234567
*=x.tmp
*67890123456
*67890123456
*=x.tmp
*56789012345
*56789012345
*=x.tmp
*45678901234
*45678901234
*=x.tmp
*34567890123
*34567890123
*=x.tmp
*23456789012
*23456789012
*=x.tmp
*12345678901
*12345678901
! compare final result
.r filcom
*=x.tmp,doc:cpl.mem
! Test done. Delete temporary file
.delete x.tmp
.mic exit