@ DEMOV1.0 5-JUL-1993 14:21DEC C T1.3-007 8 $READONLY$$BSS$$DATA$$LINK$ $LITERAL$i$CODE$ $ABS$DECC$GA_STDERR DECC$GA_STDINDECC$GA_STDOUT DECC$GPRINTF DECC$GSCANF DECC$FGETS DECC$STRLENLGI$HPWD REVERSE_BUF(JMAIN(J__MAIN DECC$MAIN DECC$EXITOTS$MOVEOTS$FILL = %d= %d= %d =   ='Enter username in uppercase: @='Enter password in uppercase: `=/'Enter the encryption method [1,2,3]: =+#Enter the random salt [0-65535]: =$ Hash (8 decimal values): =0( Numeric result (high low): %08x %08x =0p;=  ;0 DECC$GPRINTF8OTS$FILL=8OTS$MOVE7 DECC$GA_STDIN` DECC$GSCANF DECC$STRLEN DECC$FGETS LGI$HPWD=0;=0  DECC$EXIT DECC$MAIN T=#4G~^ ^(GG#0B  = > 8b@Zk`b# @ B4G(bG@ZkG] ](0#kG`#G~Gp^x^~GGh"@B@ZkGG@BH"@ZkGG@B("@ZkGGh="H}"(]#=4G} b ]0B8bG@ZkGtGPB("bD@ZkpB("@Zk4G= 1@0B`H8bv J " F=@ZkGtGBDH"b@ZkpBH"@Zk4G= 1@0B`H8b@"v H D=@ZkTG`Bhb" ="@Zk4G 0Bh"8bD@ZkTG`B"hb ="@ZkG "B="b"3vHG@Zk4G0B"8b@Zk G "0BTG8bCh,i QH'J@Zk4G "0@ 0B8b@ZktGhl0BCC8bCGG"@Zk4GGp]x]}#k4$GH DECC$MAIN4<b# DECC$MAIN4D@H DECC$MAIN4PGd DECC$EXIT4Xb# DECC$EXIT4`@d DECC$EXIT4GOTS$FILL4@OTS$FILL4GOTS$FILL4@OTS$FILL4GOTS$FILL4@OTS$FILL4G$ DECC$GPRINTF4b# DECC$GPRINTF4 @$ DECC$GPRINTF4 0GD DECC$FGETS4 8b# DECC$FGETS4 @@D DECC$FGETS4 DGP DECC$STRLEN4 L@P DECC$STRLEN4\G| DECC$GPRINTF4db# DECC$GPRINTF4x@| DECC$GPRINTF4 G DECC$FGETS4 b# DECC$FGETS4 @ DECC$FGETS4 G DECC$STRLEN4 @ DECC$STRLEN4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF4G DECC$GSCANF4b# DECC$GSCANF4@ DECC$GSCANF4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF4G DECC$GSCANF4b# DECC$GSCANF4@ DECC$GSCANF4 (GDLGI$HPWD40b#LGI$HPWD4 @@DLGI$HPWD4HGX DECC$GPRINTF4Pb# DECC$GPRINTF4T@X DECC$GPRINTF4hG DECC$GPRINTF4pb# DECC$GPRINTF4@ DECC$GPRINTF4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF :=*"!DEMODEC C T1.3-007 ?= 4=TRANSFER$BREAK$GO X= 44= main4= & & & 2 2 2 3 4 = = = = B Bj B F F K K W W a  a $ $= 4 =  H= 44=__main =  =