Rouven: Passwort verschlüsseln

Beitrag lesen

Hm, das ist schlecht. Ich habe das hier gerade auf meinen IIS hochgeladen:
<html><body>
<%
Passwort = "HalloDuDa"
For i = 1 to 5
TeilPwStr = mid(Passwort,i,1)
TeilPwstr = asc(TeilPwStr)
TeilPwStr = TeilPwStr + 12 + i
TeilPwStr = chr(TeilPwStr)
pwStrgver = pwStrgver & TeilPwStr
Next
response.write "<p>Passwort kodiert: "& pwStrgver &"</p>"

' Passwort gleich wieder entschlüsseln:

Passwort = pwStrgver
For i = 1 to 5
TeilPwStr = mid(Passwort,i,1)
TeilPwstr = asc(TeilPwStr)
TeilPwStr = TeilPwStr - 12 - i
TeilPwStr = chr(TeilPwStr)
pwStrgent = pwStrgent & TeilPwStr
Next
response.write "<p>Passwort dekodiert: "& pwStrgent &"</p>"

%>
</body></html>

Ergebnis war:
Passwort kodiert: Uo{|

Passwort dekodiert: Hallo