📄 asymmetricread.aspx
字号:
<%@ Import Namespace="System.Globalization" %>
<%@ Import Namespace="System.Security.Cryptography" %>
<Script Runat="Server">
Function Convert2ByteArray( strInput As String ) As Byte()
Dim intCounter As Integer
Dim arrChar As Char()
arrChar = strInput.ToCharArray()
Dim arrByte( arrChar.Length - 1 ) As Byte
For intCounter = 0 To arrByte.Length - 1
arrByte( intCounter ) = Convert.ToByte( arrChar( intCounter ) )
Next
Return arrByte
End Function
Function ConvertHexArray( strInput As String ) As Byte()
Dim intCounter As Integer
Dim arrString As String()
arrString = strInput.Split( New Char() { "-" } )
Dim arrByte( arrString.Length - 1 ) As Byte
For intCounter = 0 To arrByte.Length - 1
arrByte( intCounter ) = Byte.Parse( arrString( intCounter ), NumberStyles.HexNumber )
Next
Return arrByte
End Function
Sub Button_Click( s As Object, e As EventArgs )
Dim arrInput As Byte()
Dim objDSA As DSACryptoServiceProvider
Dim strPublicKey As String
Dim arrDigitalSignature As Byte()
arrInput = Convert2ByteArray( txtInput.Text )
arrDigitalSignature = ConvertHexArray( txtSignature.Text )
objDSA = New DSACryptoServiceProvider()
objDSA.FromXMLString( txtPublicKey.Text )
lblVerify.Text = objDSA.VerifyData( arrInput, arrDigitalSignature )
End Sub
</Script>
<html>
<head><title>AsymmetricRead.aspx</title></head>
<body>
<H2>Verify Digital Signature</h2>
<form Runat="Server">
Message:
<br>
<asp:TextBox
ID="txtInput"
TextMode="Multiline"
Columns="60"
Rows="3"
Runat="Server" />
<p>
Digital Signature:
<br>
<asp:TextBox
ID="txtSignature"
TextMode="Multiline"
Columns="60"
Rows="4"
Runat="Server" />
<p>
Public Key:
<br>
<asp:TextBox
ID="txtPublicKey"
TextMode="Multiline"
Columns="60"
Rows="10"
Runat="Server" />
<p>
<asp:Button
Text="Verify Signature!"
OnClick="Button_Click"
Runat="Server" />
<p>
Verified?
<br>
<asp:Label
ID="lblVerify"
Runat="Server" />
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -