Simple encryption code to encrypt/decrypt text. Can be used for file encryption or password encrypt

by Lloyd Sturge (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 21^st May 1999
Date Added: Mon 8^th 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

Rate Simple encryption code to encrypt/decrypt text. Can be used for file encryption or password encrypt



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

Download this snippet Add to My Saved Code

Simple encryption code to encrypt/decrypt text. Can be used for file encryption or password encrypt Comments

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.

Simple encryption code to encrypt/decrypt text. Can be used for file encryption or password encrypt

Simple encryption code to encrypt/decrypt text. Can be used for file encryption or password encrypt Comments

Post your comment

Difficulty