PDP-10 Archive: 43,50554/2/test2.mic from decuslib10-12

Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50554/2/test2.mic

There is 1 other file named test2.mic in the archive. Click here to see a list.

! TEST2 - Test procedure for CRYPT
! (same as TEST1 except that key is specified as a switch
.mic set no timestamp
! Encrypt 9 times, decrypt 9 times (total of 18)
.run crypt
*y.tmp=doc:cpl.mem/key:12345678901
*=y.tmp/key:23456789012
*=y.tmp/key:34567890123
*=y.tmp/key:45678901234
*=y.tmp/key:56789012345
*=y.tmp/key:67890123456
*=y.tmp/key:78901234567
*=y.tmp/key:89012345678
*=y.tmp/key:90123456789
*=y.tmp/key:90123456789
*=y.tmp/key:89012345678
*=y.tmp/key:78901234567
*=y.tmp/key:67890123456
*=y.tmp/key:56789012345
*=y.tmp/key:45678901234
*=y.tmp/key:34567890123
*=y.tmp/key:23456789012
*=y.tmp/key:12345678901
! compare original file with final result
.r filcom
*=y.tmp,doc:cpl.mem
! test done. delete temporary file
.delete y.tmp
.mic exit