Hej har suttit ett tag och funderat på vad denna koden gör, men nu ger jag upp, ställer därför frågan här om någon kan förklara vad den gör.

Dim B As Integer
For B = 1 To 4
byt plats byte 2 byt plats byte 1
byte$ = Hex$(Val("&H" & Mid$(Plain$, B * 2, 1) + Mid$(Plain$, B *

men vad händer här vid Xor
2 - 1, 1)) Xor 105)

If Len(byte$) = 1 Then byte$ = "0" + byte$
' bytes$ = bytes$ + byte$
' Next B
Tacksam för all hjälp jag kan få.
robban@swipnet.se

OOps det blev fel på mailen
skall vara robbano@swipnet.se