• 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

• 1
• 2
• 3
• 4
• 5

(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