DSASignatureFormatter and DSACryptoServiceProvider : DSASignatureFormatter « Security « VB.Net Tutorial

1. VB.Net Tutorial
2. Security
3. DSASignatureFormatter

Imports System
Imports System.Security.Cryptography

Class DSASample
    Shared Sub Main()
        Try
            Dim DSA As New DSACryptoServiceProvider()
            Dim Hash As Byte() = {60, 4, 48, 102, 78, 97, 142, 201, 210, 12, 224, 93, 25, 42, 111, 117, 113, 114, 130, 135}
            Dim DSAFormatter As New DSASignatureFormatter(DSA)
            DSAFormatter.SetHashAlgorithm("SHA1")
            Dim SignedHash As Byte() = DSAFormatter.CreateSignature(Hash)
        Catch e As CryptographicException
            Console.WriteLine(e.Message)
        End Try
    End Sub
End Class