Frage ob das noch geht

07/19/2011 23:03 Dande.#1

Code:

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?

07/19/2011 23:22 nonchip#2

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...

07/20/2011 10:38 ZackBlack#3

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: [Only registered and activated users can see links. Click Here To Register...]