Simple Encrypt and Decrypt Function - Visual Basic Codes

This is a very simple function that you can use to encrypt your passwords before you save it in your database and decrypt it when you need to use it. This functions can also be used in Visual Basic .Net. To use this function just paste the function code on a module.

Public Function EncryptPassword(ByVal Password As String) As String
Dim PassNew As String
Dim Cntr As Integer
Cntr = 1
Do While Cntr <= Len(Password)
PassNew = CStr(PassNew) & Chr((Asc(Mid(Trim(Password), Cntr, 1)) + 20))
Cntr = Cntr + 1
Loop
EncryptPassword = PassNew
End Function

Public Function DecryptPassword(ByVal Password As String) As String
Dim Cntr As Integer
Dim OldPass As String
Cntr = 1
Do While Cntr <= Len(Password)
OldPass = OldPass + Chr((Asc(Mid(Trim(Password), Cntr, 1)) - 20))
Cntr = Cntr + 1
Loop
DecryptPassword = OldPass
End Function