Classic ASP
Hash File: SHA-1, HAVAL, MD2, MD5, SHA-256, SHA-384, SHA-512

Computing the hash for a file of any size.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set crypt = Server.CreateObject("Chilkat.Crypt2")

' 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)
Response.Write "<pre>" & Server.HTMLEncode( "SHA1:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( hash) & "</pre>"

' Hash using MD2
crypt.HashAlgorithm = "md2"
hash = crypt.HashFileENC(filename)
Response.Write "<pre>" & Server.HTMLEncode( "MD2:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( hash) & "</pre>"

' Hash using MD5
crypt.HashAlgorithm = "md5"
hash = crypt.HashFileENC(filename)
Response.Write "<pre>" & Server.HTMLEncode( "MD5:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( hash) & "</pre>"

' Hash using SHA-256
crypt.HashAlgorithm = "sha256"
hash = crypt.HashFileENC(filename)
Response.Write "<pre>" & Server.HTMLEncode( "SHA256:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( hash) & "</pre>"

' Hash using SHA-384
crypt.HashAlgorithm = "sha384"
hash = crypt.HashFileENC(filename)
Response.Write "<pre>" & Server.HTMLEncode( "SHA384:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( hash) & "</pre>"

' Hash using SHA-512
crypt.HashAlgorithm = "sha512"
hash = crypt.HashFileENC(filename)
Response.Write "<pre>" & Server.HTMLEncode( "SHA512:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( hash) & "</pre>"

' 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)
Response.Write "<pre>" & Server.HTMLEncode( "Haval:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( hash) & "</pre>"

%>
</body>
</html>