CRYPT(1) USER COMMANDS CRYPT(1) NAME CRYPT - encode/decode SYNOPSIS CRYPT.1 [3: "string"] [2: real number] [1: 1 or 0] CRYPT.2 [2: real number] [1: 1 or 0] DESCRIPTION CRYPT.1 encrypts/decrypts the contents of a string, by taking a string at level 3, a real number, used as a pass- word, at level 2 and 1/0, encrypt/decrypt, at level 1. CRYPT.2 encrypts/decrypts an entire directory using CRYPT.1 by taking a real number, used as password, at level 2 and 1/0 ,encrypt/decrypt, at level 1. FILES CRYPT.1 CRYPT.2 << -> a b c << VARS -> a b c << b RDZ "" 1 a << CLLCD 1 c SIZE SIZE DUP ->STR FOR i c i GET "Chars to crypt, " DUP { CRYPT CRYPT.1 SWAP + 4 DISP CRYPT.2 } SWAP FOR i a i DUP IF POS 0 == SUB NUM RAND 10 * THEN IF C 1 == IFERR DUP THEN + DUP ->STR "Crypting " ELSE - SWAP + 1 DISP RCL END CHR ->STR + ->STR a b CRYPT.1 NEXT DUP 1 1 SUB SWAP STO { "<<" "'" "{" "[" THEN DROP "#" "(" } SWAP END IF POS 0 <> c 0 ELSE DROP == AND END THEN STR-> NEXT CLMF END CLMF >> >> >> >> WARNING If the first character in the decrypted string is one of the following six symbols, << ' { [ # ( , then crypt will try convert the string to its proper objekt type. AUTHOR Johan Olsson RESTRICTIONS Copyright (C) 1989/90 Johan Olsson. All rights reserved. Any non-frofit usage of this program or any derived programs are permitted. Any other usage requires my permission. HP28C/S Release 1.0 Last change: 16 December 1989