1*ebfedea0SLionel Sambuc$! TESTENC.COM -- Test encoding and decoding 2*ebfedea0SLionel Sambuc$ 3*ebfedea0SLionel Sambuc$ __arch = "VAX" 4*ebfedea0SLionel Sambuc$ if f$getsyi("cpu") .ge. 128 then - 5*ebfedea0SLionel Sambuc __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") 6*ebfedea0SLionel Sambuc$ if __arch .eqs. "" then __arch = "UNK" 7*ebfedea0SLionel Sambuc$! 8*ebfedea0SLionel Sambuc$ if (p1 .eqs. 64) then __arch = __arch+ "_64" 9*ebfedea0SLionel Sambuc$ 10*ebfedea0SLionel Sambuc$ exe_dir = "sys$disk:[-.''__arch'.exe.apps]" 11*ebfedea0SLionel Sambuc$ testsrc = "makefile." 12*ebfedea0SLionel Sambuc$ test = "p.txt" 13*ebfedea0SLionel Sambuc$ cmd = "mcr ''exe_dir'openssl" 14*ebfedea0SLionel Sambuc$ 15*ebfedea0SLionel Sambuc$ if f$search(test) .nes. "" then delete 'test';* 16*ebfedea0SLionel Sambuc$ convert/fdl=sys$input: 'testsrc' 'test' 17*ebfedea0SLionel SambucRECORD 18*ebfedea0SLionel Sambuc FORMAT STREAM_LF 19*ebfedea0SLionel Sambuc$ 20*ebfedea0SLionel Sambuc$ if f$search(test+"-cipher") .nes. "" then delete 'test'-cipher;* 21*ebfedea0SLionel Sambuc$ if f$search(test+"-clear") .nes. "" then delete 'test'-clear;* 22*ebfedea0SLionel Sambuc$ 23*ebfedea0SLionel Sambuc$ write sys$output "cat" 24*ebfedea0SLionel Sambuc$ 'cmd' enc -in 'test' -out 'test'-cipher 25*ebfedea0SLionel Sambuc$ 'cmd' enc -in 'test'-cipher -out 'test'-clear 26*ebfedea0SLionel Sambuc$ backup/compare 'test' 'test'-clear 27*ebfedea0SLionel Sambuc$ if $severity .ne. 1 then exit 3 28*ebfedea0SLionel Sambuc$ delete 'test'-cipher;*,'test'-clear;* 29*ebfedea0SLionel Sambuc$ 30*ebfedea0SLionel Sambuc$ write sys$output "base64" 31*ebfedea0SLionel Sambuc$ 'cmd' enc -a -e -in 'test' -out 'test'-cipher 32*ebfedea0SLionel Sambuc$ 'cmd' enc -a -d -in 'test'-cipher -out 'test'-clear 33*ebfedea0SLionel Sambuc$ backup/compare 'test' 'test'-clear 34*ebfedea0SLionel Sambuc$ if $severity .ne. 1 then exit 3 35*ebfedea0SLionel Sambuc$ delete 'test'-cipher;*,'test'-clear;* 36*ebfedea0SLionel Sambuc$ 37*ebfedea0SLionel Sambuc$ define/user sys$output 'test'-cipher-commands 38*ebfedea0SLionel Sambuc$ 'cmd' list-cipher-commands 39*ebfedea0SLionel Sambuc$ open/read f 'test'-cipher-commands 40*ebfedea0SLionel Sambuc$ loop_cipher_commands: 41*ebfedea0SLionel Sambuc$ read/end=loop_cipher_commands_end f i 42*ebfedea0SLionel Sambuc$ write sys$output i 43*ebfedea0SLionel Sambuc$ 44*ebfedea0SLionel Sambuc$ if f$search(test+"-"+i+"-cipher") .nes. "" then - 45*ebfedea0SLionel Sambuc delete 'test'-'i'-cipher;* 46*ebfedea0SLionel Sambuc$ if f$search(test+"-"+i+"-clear") .nes. "" then - 47*ebfedea0SLionel Sambuc delete 'test'-'i'-clear;* 48*ebfedea0SLionel Sambuc$ 49*ebfedea0SLionel Sambuc$ 'cmd' 'i' -bufsize 113 -e -k test -in 'test' -out 'test'-'i'-cipher 50*ebfedea0SLionel Sambuc$ 'cmd' 'i' -bufsize 157 -d -k test -in 'test'-'i'-cipher -out 'test'-'i'-clear 51*ebfedea0SLionel Sambuc$ backup/compare 'test' 'test'-'i'-clear 52*ebfedea0SLionel Sambuc$ if $severity .ne. 1 then exit 3 53*ebfedea0SLionel Sambuc$ delete 'test'-'i'-cipher;*,'test'-'i'-clear;* 54*ebfedea0SLionel Sambuc$ 55*ebfedea0SLionel Sambuc$ write sys$output i," base64" 56*ebfedea0SLionel Sambuc$ 'cmd' 'i' -bufsize 113 -a -e -k test -in 'test' -out 'test'-'i'-cipher 57*ebfedea0SLionel Sambuc$ 'cmd' 'i' -bufsize 157 -a -d -k test -in 'test'-'i'-cipher -out 'test'-'i'-clear 58*ebfedea0SLionel Sambuc$ backup/compare 'test' 'test'-'i'-clear 59*ebfedea0SLionel Sambuc$ if $severity .ne. 1 then exit 3 60*ebfedea0SLionel Sambuc$ delete 'test'-'i'-cipher;*,'test'-'i'-clear;* 61*ebfedea0SLionel Sambuc$ 62*ebfedea0SLionel Sambuc$ goto loop_cipher_commands 63*ebfedea0SLionel Sambuc$ loop_cipher_commands_end: 64*ebfedea0SLionel Sambuc$ close f 65*ebfedea0SLionel Sambuc$ delete 'test'-cipher-commands;* 66*ebfedea0SLionel Sambuc$ delete 'test';* 67