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
Misal function ini anda simpan “c:\rahasia.prg”
Cara menjalankannya…..
Set procedure to c:\test.prg
? test("kata2 anda")
Maka akan tampak dilayar enkripsinya yang d hasilkan smoga bermanfaat(support by mztolo)
Apa yang kita pikirkan menentukan apa yang akan terjadi pada kita. Jadi, jika kita ingin mengubah hidup, kita perlu membentangkan pikiran kita. 
