Problemer med kryptering og cookie

Hej, prøv at se nedenstående script - det virker som en drøm - bare ikke når jeg bruger en cookie som mellemled, hvilket er lidt surt, for det er i den forbindelse jeg skal bruge det :(
<%
krypt = "dæalskjdslak2987as9806312bd"
Function Krypter(Streng)
    for tal1 = 0 to len(Streng)
        for tal2 = 1 to len(krypt)
            kontrol = tal1*len(krypt) + tal2
            if kontrol <= len(Streng) then
                original = asc(mid(Streng,kontrol,1))
                ny = asc(mid(krypt,tal2,1))
                nytekst = nytekst + chrw(original + ny)
            end if
        next
    next
    Krypter = nytekst
End Function

'// Dekrypterer en streng
Function Dekrypter(Streng)
    for tal1 = 0 to len(Streng)
        for tal2 = 1 to len(krypt)
            kontrol = tal1*len(krypt) + tal2
            if kontrol <= len(Streng) then
                original = ascw(mid(Streng,kontrol,1))
                ny = asc(mid(krypt,tal2,1))
                nytekst = nytekst + chrw(original - ny)
            end if
        next
    next
    Dekrypter = nytekst
End Function


strPsw = Krypter(request.form("kode"))
response.cookies("psw") = strPsw
response.cookies("psw").Expires = date() + 365
'response.write strPsw
'strPsw = Dekrypter(strPsw)
'response.write "<br>" & strPsw

%>
<form action="test.asp" method="post">
<input type="text" name="kode" value="<%=request.form("kode")%>">
<input type="submit">
</form>
krypteret indhold af cookie <b><%=request.cookies("psw")%></b><br>
de-krypteret indhold af cookie <b><%=Dekrypter(request.cookies("psw"))%></b><br><br>

krypteret indhold fra form <b><%=strPsw%></b><br>
de-krypteret indhold fra form <b><%=Dekrypter(strPsw)%></b><br>