- Home
·
- Encryption
·
- Very simple encryption and decrytion functions It will keep secrets from those that don't really kn
Very simple encryption and decrytion functions It will keep secrets from those that don't really kn
Very simple encryption and decrytion functions It will keep secrets from those that don't really know what to look for. As long as characters
Rate Very simple encryption and decrytion functions It will keep secrets from those that don't really kn
(2(2 Vote))
Dim z As Integer
For z = 1 To Len(strEncrypt)
Mid(strEncrypt, z, 1) = Chr$(Asc(Mid(strEncrypt, z, 1)) * 2)
Next z
End Function
Private Function Decrypt(strDecrypt) As String
Dim z As Integer
For z = 1 To Len(strDecrypt)
Mid(strDecrypt, z, 1) = Chr$(Asc(Mid(strDecrypt, z, 1)) / 2)
Next z
End Function
Very simple encryption and decrytion functions It will keep secrets from those that don't really kn Comments
No comments yet — be the first to post one!
Post a Comment