Frage ob das noch geht

[Dande.]

Function sScrypt(sWord As String, sPass As String, Optional bDecrypt As Boolean = False)
    Dim lTemp       As Long
    Dim sCrypted    As String
    Dim sTemp       As String
    Dim sDecrypted  As String
    Dim Ttemp()     As String
    
If bDecrypt = True Then GoTo decrypt

For i = 1 To Len(sWord)
    lTemp = Asc(Mid(sWord, i, 1)) * (Len(sPass))
    sCrypted = sCrypted & "ll" & lTemp
Next

sScrypt = sCrypted

GoTo finish

decrypt:
Ttemp = Split(sWord, "ll")

For i = 1 To UBound(Ttemp)
    sTemp = Chr(Ttemp(i) / (Len(sPass)))
    sDecrypted = sDecrypted & sTemp
Next

sScrypt = sDecrypted

finish:
End Function

Sind hier fehler enthalten?

[nonchip]

gegenfrage: was is die frage? willst du nur wissen ob du keine fehler programmiert hast? wenn ja, probiers einfach aus, wenn nein, spezifiziere deine frage doch mal näher...

[ZackBlack]

Ich tät die ganzen gotos weglassen, ist irgentwie unübersichtlich, find ich.
Statt goto finish -> Return SCrypted. Außerdem solltest du auch nach dem Funktions-Header (oder wie man das nennt) As String einfügen. Und das soll ne Funktion zum Verschlüsseln sein oder? Verwende lieber sowas in der Art: