by Ron Hayes (1 Submission)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 23rd August 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about Very simple encryption and decrytion functions It will keep secrets from those that don't really kn. Why not be the first to post a comment about Very simple encryption and decrytion functions It will keep secrets from those that don't really kn.