-
九世鸡仙
发布于 2011-01-21 22:53
-
收藏
复制代码 代码如下: Function sha1_file(filename, raw_output) Dim HashedData, Utility, Stream Set HashedData = CreateObject("CAPICOM.HashedData") Set Utility = CreateObject("CAPICOM.Utilities") Set Stream = CreateObject("ADODB.Strea..