by Lloyd Sturge (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 21st May 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Simple encryption code to encrypt/decrypt text. Can be used for file encryption or password encryption. Works by passing a string through it
Dim Temp As String, PwdChr As Integer
Dim EncryptKey As Integer
EncryptKey = Int(Sqr(Len(Pwd) * 81)) + 23
For PwdChr = 1 To Len(Pwd)
Temp = Temp + Chr(Asc(Mid(Pwd, PwdChr, 1)) Xor EncryptKey)
Next PwdChr
EncryptPassword = Temp
End Function
No comments have been posted about Simple encryption code to encrypt/decrypt text. Can be used for file encryption or password encrypt. Why not be the first to post a comment about Simple encryption code to encrypt/decrypt text. Can be used for file encryption or password encrypt.