Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<script runat="server">
Function Convert2ByteArray(srInput 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(arChar(intCounter()
Next
Return arrByte
End Function
Sub Button_Click(..)
Dim arrInput As Byte()
Dim objDSA As DSACryptoServiceProvider
Dim strPublicKey As String
Dim arrDigitalSignature As Byte()
arrInput = Convert2ByteArray(txtInput.Text)
objDSA = New DSACryptoSericeProvider()
strPublicKey = objDSA.ToXMLString(False)
arrDigitalSignature = objDSA.SignData(arrInput)
txtSignature.Text = BitConverter.ToSTring(arrDigitalSignature)
txtPublicKey.Text = strPublicKey
End Sub
</script>