ハッシュ値の計算について (ID:115967)

名前

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

本文 Dim flag as integer flag=0 While True Application.DoEvents() Readlen = fs.Read(Buffer, 0, Buffer.Length) If Readlen = 0 Then flag=0 Exit While End If MD5Crypto.ComputeHash(Buffer, 0, Readlen) flag=1 End While If flag=1 Then MsgBox(BitConverter.ToString(MD5Crypto.Hash).ToLower().Replace("-", "")) End If ちなみに未確認です。