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