(Classic ASP) Dropbox Content Hash

Demonstrates how to compute the Dropbox content_hash of a file. (This is the "content_hash" found in the Dropbox FileMetadata object.

Note: This example requires Chilkat v9.5.0.79 or greater because it uses the fac.ReadBlockBd method.

For more information, see https://www.dropbox.com/developers/reference/content-hash

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = Server.CreateObject("Chilkat.Crypt2")

' To calculate the content_hash of a file:
' Split the file into blocks of 4 MB (4,194,304 or 4 * 1024 * 1024 bytes). The last block (if any) may be smaller than 4 MB.
' Compute the hash of each block using SHA-256.
' Concatenate the hash of all blocks in the binary format to form a single binary string.
' Compute the hash of the concatenated string using SHA-256. Output the resulting hash in hexadecimal format.

crypt.HashAlgorithm = "sha256"
crypt.EncodingMode = "hex_lower"

' We're going to calculate the content_hash for the Milky Way JPG image linked here:  https://www.dropbox.com/developers/reference/content-hash

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.FileAccess")
set fac = Server.CreateObject("Chilkat.FileAccess")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd = Server.CreateObject("Chilkat.BinData")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bdHashes = Server.CreateObject("Chilkat.BinData")

success = fac.OpenForRead("qa_data/jpg/milky-way-nasa.jpg")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( fac.LastErrorText) & "</pre>"
    Response.End
End If

blockSize = 4194304
numBlocks = fac.GetNumBlocks(blockSize)

i = 0
Do While (i < numBlocks)
    ' Read the next 4MB block into bd.
    success = bd.Clear()
    success = fac.ReadBlockBd(i,blockSize,bd)

    hashHex = crypt.HashBdENC(bd)
    Response.Write "<pre>" & Server.HTMLEncode( i & ": " & hashHex) & "</pre>"
    success = bdHashes.AppendEncoded(hashHex,"hex_lower")

    i = i + 1
Loop

fac.FileClose 

' Hash the concatenated SHA-256 hashes.
content_hash = crypt.HashBdENC(bdHashes)
Response.Write "<pre>" & Server.HTMLEncode( "content_hash = " & content_hash) & "</pre>"

%>
</body>
</html>