Public Function encrypt(decrypted As String)

On Error Resume Next

For I = 1 To Len(decrypted)
letter = Mid(decrypted, I, 1)

Mid(decrypted, I, 1) = Chr(Asc(letter) + 65)
Next I
encrypt = decrypted
End Function
Public Function decrypt(encrypted As String)

On Error Resume Next

For I = 1 To Len(encrypted)
letter = Mid(encrypted, I, 1)
Mid(encrypted, I, 1) = Chr(Asc(letter) - 65)
Next I
decrypt = encrypted

End Function

עכשיו אני צריך את הקוד לקידוד טקסט מסוים ב 64 ביט עם מפתח.