source: FOIAVistA/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUSHSH.m@ 1071

Last change on this file since 1071 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 246 bytes
Line 
1XUSHSH ;SF-ISC/STAFF - PASSWORD ENCRYPTION ;3/23/89 15:09 ;
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;; This is the public domain version of the VA Kernel.
4 ;; Use this routine for your own encryption algorithm
5 ;; Input in X
6 ;; Output in X
7A Q
8EN(X) Q X
Note: See TracBrowser for help on using the repository browser.