08/10/14 00:34:54 gZZEIeTw0
そのHashMagicを介して練馬のスクリプトでハッシュを編集する方法。
HashMagic.exeとFastHash.dllを練馬のフォルダにコピーして個別・ファイルパスでスクリプトを実行。
（※動作環境で[安全な実行]をオフにしておく）
Function Proc(name,path)
p = "C:\Program Files\NERIMA\" 'HashMagicへのパス
s = "crc32" 'ハッシュの種別 crc16, crc32, md5, sha1
w = 8 'ハッシュの桁数 crc16=4, crc32=8, md5=32, sha1=40
Set objSH = CreateObject("WScript.Shell")
exepath = """" & p & "HashMagic.exe"" /hash """ & p & "hash"" -" & s & " /- """ & path & """"
Call objSH.Run(exepath, 2, True)
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTF = objFS.OpenTextFile(p & "hash." & s)
Proc = name & "[" & objTF.Read(w) & "]"
objTF.Close
End Function