Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Hash File: SHA-1, HAVAL, MD2, MD5, SHA-256, SHA-384, SHA-512Computing the hash for a file of any size.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim crypt As Chilkat.Crypt2 Set crypt = Chilkat.NewCrypt2 ' Any type of file may be hashed. ' There is no size limitation because the file is consumed ' in streaming mode internally. filename = "something.zip" crypt.HashAlgorithm = "sha1" crypt.EncodingMode = "hex" ' Other possible EncodingMode settings are: ' "quoted-printable", "base64", "base32", and "url" hash = crypt.HashFileENC(filename) Debug.Print "SHA1:" Debug.Print hash ' Hash using MD2 crypt.HashAlgorithm = "md2" hash = crypt.HashFileENC(filename) Debug.Print "MD2:" Debug.Print hash ' Hash using MD5 crypt.HashAlgorithm = "md5" hash = crypt.HashFileENC(filename) Debug.Print "MD5:" Debug.Print hash ' Hash using SHA-256 crypt.HashAlgorithm = "sha256" hash = crypt.HashFileENC(filename) Debug.Print "SHA256:" Debug.Print hash ' Hash using SHA-384 crypt.HashAlgorithm = "sha384" hash = crypt.HashFileENC(filename) Debug.Print "SHA384:" Debug.Print hash ' Hash using SHA-512 crypt.HashAlgorithm = "sha512" hash = crypt.HashFileENC(filename) Debug.Print "SHA512:" Debug.Print hash ' Hash using HAVAL ' There are two additional properties relevant to HAVAL: ' HavalRounds, and KeyLength. ' HavalRounds can have values of 3, 4, or 5. ' KeyLength can have values of 128, 160, 192, 224, or 256 crypt.HashAlgorithm = "haval" crypt.HavalRounds = 5 crypt.KeyLength = 256 hash = crypt.HashFileENC(filename) Debug.Print "Haval:" Debug.Print hash |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.