Passwort verschlüsseln

[thomas (.:)]

Hallo,
ich suche nach einer Möglichkeit, ein Passwort zu verschlüsseln, und es danach wieder zu entschlüsseln...

Ich habe auch schon etwas passendes gefunden:

Passwort = request.form("passwort")
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>"

Nur leider bekomme ich nach dem Aufruf folgenden Fehler:
Ungültiger Prozeduraufruf oder ungültiges Argument: 'asc'

Was mache ich falsch? Danke.