source: hash/trunk/VWHSHTST.m@ 1003

Last change on this file since 1003 was 684, checked in by John Leo Zimmer, 15 years ago

first commit from Glenwood

File size: 547 bytes
Line 
1XUSHSH ;JL.Z; ROBUST PASSWORD HASH TEST xushsh; 11 SEPTEMBER 2009
2V ;;8.0;KERNEL;**60**;Jul 10, 1995
3 ;;
4 ;; This is intended as a replacement XUSHSH for testing purposes only.
5 ;; This version returns a NULL (unhashed) result, like openvista's XUSHSH.
6 ;; Probably not to be part of a final KIDS release.
7 ;;
8 ;;SF-ISC/STAFF - PASSWORD ENCRYPTION ;3/23/89 15:09 ; 4/14/05 1:22pm
9 ;;8.0;KERNEL;;Jul 10, 1995
10 ;; Input in X
11 ;; Output in X
12 ;; Algorithm for VistA Office EHR encryption (BSL)
13A ;
14 S X=$$EN(X)
15 Q
16 ;
17EN(X)
18 Q X
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Note: See TracBrowser for help on using the repository browser.