source: hash/trunk/VWHSHLEG.m

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

first commit from Glenwood
File size: 345 bytes
Line 
1XUSHSH ;JL.Z; ROBUST PASSWORD HASH TEST xushsh; 11 SEPTEMBER 2009
2 ;;8.0;KERNEL;**60**;Jul 10, 1995
3 ;;
4 ;;
5 ;;SF-ISC/STAFF - PASSWORD ENCRYPTION ;3/23/89 15:09 ; 4/14/05 1:22pm
6 ;;8.0;KERNEL;;Jul 10, 1995
7 ;; Input in X
8 ;; Output in X
9 ;; Algorithm for VistA Office EHR encryption (BSL)
10A ;
11 S X=$$EN(X)
12 Q
13 ;
14EN(X)
15 Q X
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Note: See TracBrowser for help on using the repository browser.