• Home
 · 
• Encryption
 · 
• Encryption And Decryption

Encryption And Decryption

Encryption And Decryption

Rate Encryption And Decryption

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

 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