moinsen,
ich möchte/muss für eine einfache verschlüsselung
2 strings mit xor miteinanderverknüpfen.
laut vb-hilfe gibt’s den bitweisen zeichenvergleich.
mit ‚a= „b“ xor „c“‘ bekomme ich jedoch immer typemismatch.
das zum einen.
zum zweiten: wie würde die umkehrfunktion aussehen?
thx
jones
hat sich erledigt oT
oT
Spiel mal ein wenig mit dem Beispiel und Du bekommst das Feeling:
Dim a As String
Dim b As String
a = „Hi“
b = „Ai“
Dim c As Byte
Dim d As Byte
Dim e As Byte
c = Asc(Mid(a, 1, 1))
d = Asc(Mid(b, 1, 1))
e = c Xor d ’ H Xor A
MsgBox Chr(e) ’ ergebniss ausgeben
MsgBox Chr(e Xor d) ’ Und Zurückwandeln und Ausgeben