ファイルのSHA1値を取得したい

HSPにはMD5値を取得できる命令がありますが、衝突する可能性のあるものを作っているため
ファイルのSHA1を取得したいです。

http://d.hatena.ne.jp/As_hsp/20091205/1259992330
上を参考にして作ってみたのですが、わからないことが２つあります。

1. コメントの「%X」→「%08X」「先頭が0が来た場合、0が消えてしまい」
なぜ、"0"ではなく、"08"なのか。
2. 以下が作ってみたコードですが、7MBのMP3ファイルを選択してみたところ
結果が全く間違っていました。



#module
#uselib "advapi32.dll"
#cfunc CryptAcquireContext "CryptAcquireContextA" sptr,sptr,sptr,sptr,sptr
#cfunc CryptCreateHash "CryptCreateHash" sptr,sptr,sptr,sptr,sptr
#cfunc CryptHashData "CryptHashData" sptr,sptr,sptr,sptr
#cfunc CryptGetHashParam "CryptGetHashParam" sptr,sptr,sptr,sptr,sptr
#func CryptDestroyHash "CryptDestroyHash" sptr
#func CryptReleaseContext "CryptReleaseContext" sptr,sptr
#define HP_HASHVAL	$00000002
#define PROV_RSA_FULL	$00000001
#define CRYPT_VERIFYCONTEXT	$F0000000
#define CRYPT_MACHINE_KEYSET	$00000020
#define global ctype GetHash_SHA1(%1, %2) GetHash(%1, %2, $00008004)
#defcfunc GetHash var _pData, int _dwLen, int _Algid, local l1, local l2, local l3, local Algid, local hProv, local hHash, local pbHash, local dwHashLen
if CryptAcquireContext(varptr(hProv), 0, 0, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT | CRYPT_MACHINE_KEYSET) {
	if CryptCreateHash(hProv, _Algid, 0, 0, varptr(hHash)) {
		if CryptHashData(hHash, varptr(_pData), _dwLen, 0) {
			if CryptGetHashParam(hHash, HP_HASHVAL, 0, varptr(dwHashLen), 0) {
				dim pbHash, dwHashLen/4
				if CryptGetHashParam(hHash, HP_HASHVAL, varptr(pbHash), varptr(dwHashLen), 0) {
					l3 = ""
					foreach pbHash
						l1 = strf("%08X", pbHash(cnt))//とりあえず修正
						l2 = ""
						repeat strlen(l1)/2
							 l2 = strmid(l1, cnt*2, 2) + l2
						loop
						l3 += l2
					loop
					CryptDestroyHash Hhash
					CryptDestroyHash hProv
					return l3
					
				}
			}
		}
	}
}
CryptDestroyHash Hhash
CryptDestroyHash hProv
return 0
#global
//↑ SHA1取得命令

//ファイル読み込み
dialog "",16
notesel myfiledata:noteload refstr:noteunsel

//結果表示
mes "SHA1 : "+GetHash_SHA1(myfiledata,strlen(myfiledata))
stop

何がおかしいのでしょうか？
ご教授をよろしくお願いします。

# むしろHSPに標準命令としてほしい気がします

HSPTV!掲示板