**contoh encrypt pwd sederhana
**mztolo 2004
LPARAMETERS data_asli
LOCAL xx,yy,zz,ww,aa,i,cc
STORE 0 TO i,bb,ww
STORE '' TO xx,yy,zz,aa,cc,dd

xx='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
yy='MNOPQRSTUVWXYZABCDEFGHIJKL'

zz=ALLTRIM(UPPER(data_asli))
ww=LEN(zz)

FOR i=1 TO ww
   aa=SUBSTR(zz,i,1)
   bb=AT(aa,xx)
   cc=SUBSTR(yy,bb,1)
   dd=dd+cc
ENDFOR
RETURN dd