SHA1 Crypto Service Provider Demo : Cryptography « Security « VB.Net

1. VB.Net
2. Security
3. Cryptography

SHA1 Crypto Service Provider Demo

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: TestSHA1 <filename>")
            End
        End If
        Dim fs As FileStream = File.OpenRead(CmdArgs(0))
        Dim sha As SHA1 = New SHA1CryptoServiceProvider
        Dim hash() As Byte = sha.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.	Test Hash Key
2.	Check X509Certificate file
3.	DSA Crypto Service Provider Demo
4.	DSA Verify Demo
5.	Generate DSA Key and value