einlangerTextmitvielenWörtern
PasswortPasswortPasswortPassw
--------------------------------XOR
verschlüsselterText

Function EnDeCrypt(strIn As String, Passwort As String) As String
Dim i As Integer
Dim strOut As String
Dim LenPass As Integer
Dim ZeichenText As String
Dim ZeichenPass As String
LenPass = Len(Passwort) - 1
 
For i = 1 To Len(strIn)
  ZeichenPass = Mid(Passwort, i Mod LenPass + 1, 1)
  ZeichenText = Mid(strIn, i, 1)
  strOut = strOut & Chr(Asc(ZeichenText) Xor Asc(ZeichenPass))
  MsgBox Asc(Chr(Asc(ZeichenText) Xor Asc(ZeichenPass))) & Chr(13) & strOut
Next i
EnDeCrypt = strOut
End Function