<%@ 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>
请问如何解密数据啊?
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>
请问如何解密数据啊?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货