Hjælp til kryptering ?!?

Jeg har følgende jeg gerne ville kunne bruge op imod en database men jeg kan ikke se mig ud af det er der en der kan hjælpe med det ?

<!--#include file="rijndael.asp"-->
<%
Dim sTemp
Dim sPlain
Dim sPassword
Dim bytIn()
Dim bytPassword()
Dim lCount

sPlain = "Tekst til kryptering"
sPassword = "Key"

Response.Write "Message=" & sPlain & "<BR>"
Response.Write "Key=" & sPassword & "<BR>"

lLength = Len(sPlain)
ReDim bytIn(lLength-1)
For lCount = 1 To lLength
    bytIn(lCount-1)=CByte(AscB(Mid(sPlain,lCount,1)))
Next
lLength = Len(sPassword)
ReDim bytPassword(lLength-1)
For lCount = 1 To lLength
    bytPassword(lCount-1)=CByte(AscB(Mid(sPassword,lCount,1)))
Next
   
bytOut = EncryptData(bytIn, bytPassword)
   
sTemp = ""
For lCount = 0 To UBound(bytOut)
    sTemp = sTemp & Right("0" & Hex(bytOut(lCount)), 2)
Next
Response.Write "Encrypted=" & sTemp & "<BR>"
   
bytClear = DecryptData(bytOut, bytPassword)

lLength = UBound(bytClear) + 1
sTemp = ""
For lCount = 0 To lLength - 1
  sTemp = sTemp & Chr(bytClear(lCount))
Next
Response.Write "Decrypted=" & sTemp & "<BR>"

Response.Write "<BR>"
%>

Det skal virke således at der krypteres til databasen og at man bagefter kan dekryptere fra databasen.

/WebSam