Kryptering ?!?

Oki jeg ved godt at den har været oppe før men jeg spørger alligevel :o) Følgende funktion skulle kunne kryptere/dekryptere en tekst streng men hvis man vælger at kryptere til en database og så 2 dage senere vil dekryptere teksten udskriver den blot noget volapyk. Er der nogen der har erfaring med det ???

<%@ Language=VBScript %>
<HTML>
<HEAD>
  <TITLE> Kryptering </TITLE>
</HEAD>
<BODY>
<%
 
  tekst = "Min helt egen besked..."
  krypt = "Min6#Nøgle"
 
function krypter(teksten)
  for tal1 = 0 to len(teksten)
    for tal2 = 1 to len(krypt)
      kontrol = tal1*len(krypt) + tal2
      if kontrol <= len(teksten) then
        original = asc(mid(teksten,kontrol,1))
        ny = asc(mid(krypt,tal2,1))
        nytekst = nytekst + chrw(original + ny)
      end if
    next
  next
  krypter = nytekst
end function
 
function dekrypter(teksten)
  for tal1 = 0 to len(teksten)
    for tal2 = 1 to len(krypt)
      kontrol = tal1*len(krypt) + tal2
      if kontrol <= len(teksten) then
        original = ascw(mid(teksten,kontrol,1))
        ny = asc(mid(krypt,tal2,1))
        nytekst = nytekst + chrw(original - ny)
      end if
    next
  next
  dekrypter = nytekst
end function
 
  ktekst = krypter(tekst)
 
  Response.Write "Teksten: " & tekst & " : "
  Response.Write "<P>Krypteret: " & Server.UrlEncode(ktekst) & " : "
  Response.Write "<P>Dekrypteret: " & dekrypter(ktekst)
  krypt = "hsjkehfse"
  Response.Write "<P>Dekrypteret med forkert nøgle: " & dekrypter(ktekst)
 
%>
<P>&nbsp;</P>

</BODY>
</HTML>

På forhånd tak WebSam