Test Hash Key : Cryptography « Security « VB.Net

1. VB.Net
2. Security
3. Cryptography

Test Hash Key

Imports System
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Imports System.Runtime.Serialization.Formatters

public class MainClass
   Shared Public Sub Main(ByVal CmdArgs() As String)
        If (CmdArgs.Length <> 1) Then
            Console.WriteLine("usage: TestKeyHash <filename>")
            End
        End If
        Dim key() As Byte = Encoding.ASCII.GetBytes("My Secret Key".ToCharArray())
        Dim hmac As HMACSHA1 = New HMACSHA1(key)
        Dim fs As FileStream = File.OpenRead(CmdArgs(0))
        Dim hash() As Byte = hmac.ComputeHash(fs)
        Dim b64 As String = Convert.ToBase64String(hash)
        fs.Close()
        Console.WriteLine(b64)
    End Sub

End Class



           
       

Related examples in the same category

1.	Check X509Certificate file
2.	SHA1 Crypto Service Provider Demo
3.	DSA Crypto Service Provider Demo
4.	DSA Verify Demo
5.	Generate DSA Key and value