by Roy Tanveer (1 Submission)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 5th March 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Encryption And Decryption
Public Function Encrypt(ByVal plain As String)
Dim Letter As String
For I = 1 To Len(plain)
Letter = Mid$(plain, I, 1)
Mid$(plain, I, 1) = Chr(Asc(Letter) + 1)
Next I
Encrypt = plain
End Function
' For Decryption
Public Function Decrypt(ByVal Encrypted As String)
Dim Letter As String
For I = 1 To Len(Encrypted)
Letter = Mid$(Encrypted, I, 1)
Mid$(Encrypted, I, 1) = Chr(Asc(Letter) - 1)
Next I
Decrypt = Encrypted
End Function