- XUSHSH ;ISF/STAFF - ENCRYPTION/DECRYPTION UTILITIES ;01/20/16 14:33
- ;;8.0;KERNEL;**655,659**;Jul 10, 1995;Build 22
- ;Per VA Directive 6402, this routine should not be modified.
- ;
- ;; This is the public domain version of the VA Kernel.
- ;; Use this routine for your own encryption algorithm
- ;; Input in X
- ;; Output in X
- ;;
- ;ZEXCEPT: X ;Returned global value when called as an extrinsic subroutine.
- S X=$$EN(X)
- Q
- ;
- EN(X) ;Extrinsic function $$EN^XUSHSH(X), IA #4758
- N XUA,XUI,XUJ,XUL,XUR,XUX,XUY,XUY1,XUZ D KE Q X
- ;
- KE ;Intrinsic subroutine.
- ;
- ;
- ;
- Q
- ;
- B ;Intrinsic subroutine.
- ;
- ;
- ;
- ;
- Q
- ;
- C ;Intrinsic subroutine.
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- CL ;Intrinsic subroutine.
- ;
- ;
- ;
- SHAHASH(N,X,FLAG) ;One-Way Hash Utility, IA #6189
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- Q ""
- ;
- B64ENCD(X) ;Base 64 Encode, IA #6189
- ;
- ;
- ;
- ;
- Q ""
- ;
- B64DECD(X) ;Base 64 Decode, IA #6189
- ;
- ;
- ;
- ;
- Q ""
- ;
- RSAENCR(TEXT,CERT,CAFILE,CRLFILE,ENC) ;RSA Encrypt, IA #6189
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- Q ""
- ;
- RSADECR(TEXT,KEY,PWD,ENC) ;RSA Decrypt, IA #6189
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- Q ""
- ;
- AESENCR(TEXT,KEY,IV) ;AES Encrypt, IA #6189
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- Q ""
- ;
- AESDECR(TEXT,KEY,IV) ;AES Decrypt, IA #6189
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- Q ""
- ;
- Z ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUSHSH 1541 printed Jan 18, 2025@03:13:43 Page 2
- XUSHSH ;ISF/STAFF - ENCRYPTION/DECRYPTION UTILITIES ;01/20/16 14:33
- +1 ;;8.0;KERNEL;**655,659**;Jul 10, 1995;Build 22
- +2 ;Per VA Directive 6402, this routine should not be modified.
- +3 ;
- +4 ;; This is the public domain version of the VA Kernel.
- +5 ;; Use this routine for your own encryption algorithm
- +6 ;; Input in X
- +7 ;; Output in X
- +8 ;;
- +9 ;ZEXCEPT: X ;Returned global value when called as an extrinsic subroutine.
- +10 SET X=$$EN(X)
- +11 QUIT
- +12 ;
- EN(X) ;Extrinsic function $$EN^XUSHSH(X), IA #4758
- +1 NEW XUA,XUI,XUJ,XUL,XUR,XUX,XUY,XUY1,XUZ
- DO KE
- QUIT X
- +2 ;
- KE ;Intrinsic subroutine.
- +1 ;
- +2 ;
- +3 ;
- +4 QUIT
- +5 ;
- B ;Intrinsic subroutine.
- +1 ;
- +2 ;
- +3 ;
- +4 ;
- +5 QUIT
- +6 ;
- C ;Intrinsic subroutine.
- +1 ;
- +2 ;
- +3 ;
- +4 ;
- +5 ;
- +6 ;
- +7 ;
- CL ;Intrinsic subroutine.
- +1 ;
- +2 ;
- +3 ;
- SHAHASH(N,X,FLAG) ;One-Way Hash Utility, IA #6189
- +1 ;
- +2 ;
- +3 ;
- +4 ;
- +5 ;
- +6 ;
- +7 ;
- +8 ;
- +9 ;
- +10 ;
- +11 ;
- +12 ;
- +13 ;
- +14 ;
- +15 ;
- +16 ;
- +17 ;
- +18 ;
- +19 ;
- +20 ;
- +21 ;
- +22 ;
- +23 QUIT ""
- +24 ;
- B64ENCD(X) ;Base 64 Encode, IA #6189
- +1 ;
- +2 ;
- +3 ;
- +4 ;
- +5 QUIT ""
- +6 ;
- B64DECD(X) ;Base 64 Decode, IA #6189
- +1 ;
- +2 ;
- +3 ;
- +4 ;
- +5 QUIT ""
- +6 ;
- RSAENCR(TEXT,CERT,CAFILE,CRLFILE,ENC) ;RSA Encrypt, IA #6189
- +1 ;
- +2 ;
- +3 ;
- +4 ;
- +5 ;
- +6 ;
- +7 ;
- +8 ;
- +9 ;
- +10 ;
- +11 ;
- +12 ;
- +13 ;
- +14 ;
- +15 ;
- +16 ;
- +17 ;
- +18 QUIT ""
- +19 ;
- RSADECR(TEXT,KEY,PWD,ENC) ;RSA Decrypt, IA #6189
- +1 ;
- +2 ;
- +3 ;
- +4 ;
- +5 ;
- +6 ;
- +7 ;
- +8 ;
- +9 ;
- +10 ;
- +11 ;
- +12 ;
- +13 QUIT ""
- +14 ;
- AESENCR(TEXT,KEY,IV) ;AES Encrypt, IA #6189
- +1 ;
- +2 ;
- +3 ;
- +4 ;
- +5 ;
- +6 ;
- +7 ;
- +8 QUIT ""
- +9 ;
- AESDECR(TEXT,KEY,IV) ;AES Decrypt, IA #6189
- +1 ;
- +2 ;
- +3 ;
- +4 ;
- +5 ;
- +6 ;
- +7 ;
- +8 QUIT ""
- +9 ;
- Z ;;
- +1 ;;
- +2 ;;
- +3 ;;
- +4 ;;
- +5 ;;
- +6 ;;
- +7 ;;
- +8 ;;
- +9 ;;
- +10 ;;
- +11 ;;
- +12 ;;
- +13 ;;
- +14 ;;
- +15 ;;
- +16 ;;
- +17 ;;
- +18 ;;
- +19 ;;
- +20 ;;
- +21 ;;