VB.Net by API/System.Security.Cryptography/SHA1CryptoServiceProvider
SHA1CryptoServiceProvider.ComputeHash
<source lang="vbnet"> 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.ruputeHash(fs) Dim b64 As String = Convert.ToBase64String(hash) fs.Close() Console.WriteLine(b64) End Sub
End Class
</source>