**contoh decrypt pwd sederhana
**mztolo 2004
LPARAMETERS data_ecr
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_ecr))
ww=LEN(zz)

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