Hjælp til Rijndael 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