Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XUSHSH

XUSHSH.m

Go to the documentation of this file.
  1. XUSHSH ;ISF/STAFF - ENCRYPTION/DECRYPTION UTILITIES ;01/20/16 14:33
  1. ;;8.0;KERNEL;**655,659**;Jul 10, 1995;Build 22
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ;; This is the public domain version of the VA Kernel.
  1. ;; Use this routine for your own encryption algorithm
  1. ;; Input in X
  1. ;; Output in X
  1. ;;
  1. ;ZEXCEPT: X ;Returned global value when called as an extrinsic subroutine.
  1. S X=$$EN(X)
  1. Q
  1. ;
  1. EN(X) ;Extrinsic function $$EN^XUSHSH(X), IA #4758
  1. N XUA,XUI,XUJ,XUL,XUR,XUX,XUY,XUY1,XUZ D KE Q X
  1. ;
  1. KE ;Intrinsic subroutine.
  1. ;
  1. ;
  1. ;
  1. Q
  1. ;
  1. B ;Intrinsic subroutine.
  1. ;
  1. ;
  1. ;
  1. ;
  1. Q
  1. ;
  1. C ;Intrinsic subroutine.
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. CL ;Intrinsic subroutine.
  1. ;
  1. ;
  1. ;
  1. SHAHASH(N,X,FLAG) ;One-Way Hash Utility, IA #6189
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. Q ""
  1. ;
  1. B64ENCD(X) ;Base 64 Encode, IA #6189
  1. ;
  1. ;
  1. ;
  1. ;
  1. Q ""
  1. ;
  1. B64DECD(X) ;Base 64 Decode, IA #6189
  1. ;
  1. ;
  1. ;
  1. ;
  1. Q ""
  1. ;
  1. RSAENCR(TEXT,CERT,CAFILE,CRLFILE,ENC) ;RSA Encrypt, IA #6189
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. Q ""
  1. ;
  1. RSADECR(TEXT,KEY,PWD,ENC) ;RSA Decrypt, IA #6189
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. Q ""
  1. ;
  1. AESENCR(TEXT,KEY,IV) ;AES Encrypt, IA #6189
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. Q ""
  1. ;
  1. AESDECR(TEXT,KEY,IV) ;AES Decrypt, IA #6189
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. Q ""
  1. ;
  1. Z ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;