For i = 1 To Len(sText)
    temp = temp & Chr(Asc(Mid(sText, i, 1)) Xor Asc(Mid(new_key, count, 1)))
    count = count + 1
    If count = Len(new_key) Then count = 1
Next i

'Eigendliche Function
Public Function CryptX(sText As String, sKey As String) As String
 
'Variablen Deklarieren
Dim new_key As String
Dim i
Dim temp As String
Dim count As Long
 
'Variablen Füllen (bzw. Leeren)
temp = ""
count = 1
 
'KeyCode Verschlüsseln
new_key = EncodeKey(sKey)
 
'Schleife Starten
For i = 1 To Len(sText)
    temp = temp & Chr(Asc(Mid(sText, i, 1)) Xor Asc(Mid(new_key, count, 1)))
    count = count + 1
    If count = Len(new_key) Then count = 1
Next i
 
'Variable temp an CryptX übergeben
CryptX = temp
End Function

____________________________________
Internet-Relay-Messenger IRM.
http://forum.spiel-wiese.net Neuste Version ist die Beta 2.3