Thanks for posting these tips! There is a lot of power in these controls.
>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 > > > >------------------------------------ > >Yahoo! Groups Links > > > --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
