• Home
 · 
• Miscellaneous
 · 
• 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 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

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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