バイナリファイルのMD5を自前で算出するには？ (ID:9699)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 オジャマ ： 「ワタシ、安くて美味しいお店みつけたんですよ。今日のお昼一緒にどうですか〜？」 ピーマコ ： 「わ〜行きたい♪おごってくれる？」 オジャマ ： 「ダメですよ。ワタシだってギリギリなんですから〜」 ピーマコ ： 「あ゛〜、イジワルばぁ〜さんがお休みでなかったら おごってもらえるのにな〜」 オジャマ ： 「またそんなヒドイこと言って〜^^;…もしナカザワさんがいたらまた怒鳴られますよ」 ピーマコ ： 「ハハハ^^;つい口癖で出ちゃうのよネ。それじゃオニのイヌまにカンガル〜♪」 オジャマ ： 「それって…なにかチワワような〜…」 const BufferSize = $400; var Buffer : array[0..BufferSize]of Byte; ..... begin Stream := TFileStream.Create('ほにゃらら.exe', fmOpenRead); try > // 大きなデータを分割しながら“要約”を作成する場合には、 > Stream.Position := 0; > MD5Init(ctx); > while TRUE do > begin > DataSize := Stream.Read(Buffer, BufferSize); > if DataSize = 0 then break; > MD5Update(ctx, @Buffer, DataSize); > end; > MD5Final(ctx, digest); > // のように使います。 > // １６進数の文字列に変換 > Result := ''; > for i := 0 to 15 do > Result := Result + LowerCase(IntToHex(BYTE(digest[i]), 2)); finally Stream.Free; end; end;