nicht angemeldet
Hi,
nun ja, Verschlüsselungsalgorithmen sind immer etwas trickreiches.
Für nur verschlüsseln empfehle ich MD5, den ich mittlerweile auch mal als VB-Code gefunden habe. So was gibts auch, musst dich mal durch ein Paar Downloadseiten wühlen. Was ich bei dir dort sehe scheint mir ein einfache Verschiebungsalgorithmus zu sein, der zumindest die ersten 5 Zeichen um 12 Ascii-Codes nach rechts verschiebt. Das könntest du übrigens mal zu
For i = 1 To Len(passwort)
ändern, dann würde er alle Zeichen verschlüsseln.
Ansonsten:
Gute Frage. Es könnte sein, dass er nicht ganz damit klar kommt bei einer Anweisung auf ein und der selben Variablen den Typ zu wechseln. Normalerweise kann man ja in VBScript ohne weiteres eine Stringvariable zu einer Zahl machen und umgekehrt, einfach indem man ihr einen entsprechenden Wert zuweist.
Probier mal statt
TeilPwstr = asc(TeilPwStr)
TeilPwStr = TeilPwStr + 12 + i
TeilPwStr = chr(TeilPwStr)
pwStrgver = pwStrgver & TeilPwStr
das hier:
chrcode = Asc(TeilPwStr)
chrcode = chrcode + 12 + i
TeilPwStr = chr(chrcode)
pwStrgver = pwStrgver + TeilPwStr