Fungsi Enkripsi

/* ==============================================
Fungsi Enkripsi
untuk mengacak nama / karakter, sehingga tdk
dapat dilihat dan dirubah
Copyright, Armansyah

=============================================*/

*--------------
Function Enkrip
*--------------
Parameter Enk
Local Hrf, Enkr
Enkr:= ""
For x:= 1 To Len(Enk)
Hrf:= Asc(SubStr(Enk, x, 1))
If Mod(x, 2)= 0
Hrf+= 1
Else
Hrf-= 12
EndIf
Hrf:= Hrf + x * 2
Enkr+= Chr(Hrf)
Next
Return Enkr
*----------