<%@ Page Language="VB" ValidateRequest ="false"  %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><script runat="server">
  Private Sub En(ByVal sender As Object, ByVal e As EventArgs)
    If Len(mykey.Text) > 0 Then
      Dim EnStr As String = mykey.Text
      Dim Temp() As Byte = ASCIIEncoding.ASCII.GetBytes(EnStr)
      Dim Ri As System.Security.Cryptography.RijndaelManaged = New System.Security.Cryptography.RijndaelManaged
      Ri.GenerateKey()
      Ri.GenerateIV()
      Dim EnS As String = Convert.ToBase64String(Ri.CreateEncryptor().TransformFinalBlock(Temp, 0, Temp.Length))
      Temp = Convert.FromBase64String(EnS)
'这里到是解密出来了,密钥是怎么的?     
 Dim DenS As String = ASCIIEncoding.ASCII.GetString(Ri.CreateDecryptor().TransformFinalBlock(Temp, 0, Temp.Length))
      'labels
      'the from current value change to encrypt data followed
      msg.Text = "Encrypt Data: " + EnS
      rm.Text = Server.HtmlEncode(EnS)
    End If
  End Sub
  Private Sub Des(ByVal sender As Object, ByVal e As EventArgs)
    '我想在这里解密上面一个sub过程加密的数据,请问怎么写?
  End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head >
    <title>Rijndael Encryption Data</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    Input Encryption String<asp:TextBox ID ="mykey" runat ="server" ></asp:TextBox>
    </div>
    <br />    <br />
    <asp:button ID ="b"  runat ="server" Text ="Encrypt" OnClick ="En" /> 
     <p>
     <asp:Label ID ="msg" runat ="server" ></asp:Label>
     </p>
     <asp:TextBox  ID ="rm" runat ="server" ></asp:TextBox>
<asp:Button ID ="DE" runat ="server"  OnClick ="Des" />
     </form>
</body>
</html>
请问如何解密数据啊?