In case you prefer or need another hash algorithm, you can also do MD5 and SHA1
checksums:
Function md5Checksum(checksum_filename)
Dim result, handle
result = ""
If file.FileExists(checksum_filename) Then
Set handle = file.OpenFile(checksum_filename,&H40)
hash.InitHash "MD5"
hash.HashData handle.ReadBin(handle.Size)
handle.Close
result = hash.Value
hash.ResetKey
End If
md5Checksum = result
End Function
Function sha1Checksum(checksum_filename)
Dim result, handle
result = ""
If file.FileExists(checksum_filename) Then
Set handle = file.OpenFile(checksum_filename,&H40)
hash.InitHash "SHA1"
hash.HashData handle.ReadBin(handle.Size)
handle.Close
result = hash.Value
hash.ResetKey
End If
sha1Checksum = result
End Function
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"nsb-ce" group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/nsb-ce?hl=en
-~----------~----~----~----~------~----~------~--~---
