Ciao,
qualche problema con l'algoritmo Rijndael

Ho il codice....
codice:
 

Public Function Crypta(ByVal strDaCryptare As String) As String
Dim rjm As New RijndaelManaged
rjm.KeySize = 128
rjm.BlockSize = 128
rjm.Key = ASCIIEncoding.ASCII.GetBytes(chiave)
rjm.IV = ASCIIEncoding.ASCII.GetBytes(iv)
Dim input As Byte() = Encoding.UTF8.GetBytes(strDaCryptare)
Dim output As Byte() = rjm.CreateEncryptor().TransformFinalBlock(input, 0, input.Length)
Return Convert.ToBase64String(output)
End Function
quando vado a chiamare la funzione mi viene riportato....

Public Function Crypta(ByVal strDaCryptare As String) As String Dim rjm As New RijndaelManaged rjm.KeySize = 128 rjm.BlockSize = 128 rjm.Key = ASCIIEncoding.ASCII.GetBytes(chiave) rjm.IV = ASCIIEncoding.ASCII.GetBytes(iv) Dim input As Byte() = Encoding.UTF8.GetBytes(strDaCryptare) Dim output As Byte() = rjm.CreateEncryptor().TransformFinalBlock(input, 0, input.Length) Return Convert.ToBase64String(output) End Function
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Crypta'

/Rijndael_test.asp, line 21

questa è la pagina Rijndael_test.asp


codice:
<%@ Language=VBScript %>
<%
'option explicit
Response.Buffer=true%>
<html>
  


  <body>
<%

dim stringa
stringa = Crypta("fabio")
response.write "stringa(""fabio"")
"
response.write "   Actual: " & stringa & "

"

%>

  </body>
</html>