Contoh koding Enkripsi dan koding Dekripsinya yg lain adalah spt ini

FUNCTION crypted
LPARAMETERS tcword
LOCAL n,lcpass,lcchar
lcpass=''
FOR n=1 TO LEN(tcword)
lcchar=ASC('X') + ASC(SUBSTR(tcword, n, 1))
lcpass=lcpass+CHR(lcchar)
NEXT
RETURN lcpass

====================================================

FUNCTION decrypted
LPARAMETERS tcpass
LOCAL n,lcchar,lcword
lcword=''
FOR n=1 TO LEN(tcpass)
lcchar=ASC(SUBSTR(tcpass, n, 1))- ASC('X')
lcword=lcword+CHR(lcchar)
NEXT
RETURN lcword

cara testnya sama dengan ekripsi sebelumnya cuma beda di hasilnya saja....
(supported by mztolo)