Fungsi Enkripsi dan Dekripsi

<%
'---- Fungsi Enkripsi
'---- Melakukan Enkripsi terhadap semua karakter yang ada
'---- Melakukan Dekripsi saat pembacaan
'---- Armansyah, S.Kom > 31 Agustus 2005

Private Function Encrypt(ByVal string)
Dim x, i, tmp
For i = 1 To Len( string )
x = Mid( string, i, 1 )
tmp = tmp & Chr( Asc( x ) + 1 )
Next
tmp = StrReverse( tmp )
Encrypt = tmp
End Function


'---- Fungsi Dekripsi

Private Function Decrypt(ByVal encryptedstring)
Dim x, i, tmp
encryptedstring = StrReverse( encryptedstring )
For i = 1 To Len( encryptedstring )
x = Mid( encryptedstring, i, 1 )
tmp = tmp & Chr( Asc( x ) - 1 )
Next
Decrypt = tmp
End Function


%>