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@
1635
Last change on this file since 1635 was 628, checked in by , 15 years ago | |
---|---|
File size: 246 bytes |
Line | |
---|---|
1 | XUSHSH ;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 |
7 | A Q |
8 | EN(X) Q X |
Note:
See TracBrowser
for help on using the repository browser.