test4.hsp

sample\hspinet\test4.hsp » Plain Format

#include "hspinet.as"

;
;	ファイルのCRC32、MD5、SHA256を得る
;

fname = "test1.hsp"

mes "FILE="+fname
filecrc a,fname
fsize=strsize
mes "CRC="+a
mes "SIZE="+fsize

filemd5 md5,fname
mes "MD5="+md5

sdim buf,$8000
bload fname,buf

varmd5 md5,buf,fsize
mes "MD5(direct)="+md5

filesha256 sha256,fname
mes "SHA256="+sha256

sdim buf,$8000
bload fname,buf

varsha256 sha256,buf,fsize
mes "SHA256(direct)="+sha256

stop