• Home
 · 
• Miscellaneous
 · 
• Encryption and decryption

Encryption and decryption

Encryption and decryption

Rate Encryption and decryption

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Public Function Encrypt(ByVal Plain As String, Text As TextBox)
'DUH!'
    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
Text = Plain
End Function

Public Function Decrypt(ByVal Encrypted As String, Text As TextBox)
'DUH!'
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
    Text = Encrypted
End Function