kryptere og afkryptere url

en meget simpel løsning kunne være således -

<%
'*** test
URL = "http://www.aspscript.dk/"
Response.write URL & "<BR>"
Krypteret = Krypter(Url)
Response.write "Krypteret: " & Krypteret & "<br>"
Response.write "<a href=""?go=yes&url="&Krypteret&""">Linket</a>"
'***
go = Request.Querystring("go")
url = Request.Querystring("url")

if go = "yes" then
link = Dekrypter(url)
Response.Redirect link
End If

Function Krypter(Streng)
For Nyk = 1 To LEN( Streng )
K = MID( Streng, Nyk )
Krypt = Krypt & CHR( Asc( K ) + 100 )
Next
Krypter = Krypt
End Function

Function Dekrypter(Streng)
For Nyd = 1 To LEN( Streng )
D = MID( Streng, Nyd )
Dekrypt = Dekrypt & CHR( Asc( D ) - 100 )
Next
Dekrypter = Dekrypt
End Function
%>

øhh - http://www.eksperten.dk/spm/729744