Contoh koding “Dekripsi”nya

FUNCTION dekripsi
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='MNOPQRSTUVWXYZABCDEFGHIJKL'
yy='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
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