TARU-NET.JP

ExcelVBA ClassModules
MD5 動作確認: Excel 2000-2003 更新日: 2014/02/05 Reference Download

ExcelVBAから、文字列やファイルのハッシュ値を求めることが出来るクラスモジュールです。
他のモジュールを使用していないので、Excelが動作する環境であれば、ファイル内で完結した処理が行えます。

なお、MD5の処理に関しては[http://www.ipa.go.jp/security/rfc/RFC1321JA.html]の[md5c.c]を[VBAコード]に書き直しています。

主な機能:
・指定した文字列、ファイルのハッシュ値を求めることが出来る。
・他のモジュールを使用しないため、Excelファイル内で処理を完結することが出来る。
・三種類の文字コード([SHIFT-JIS/UTF-8/UNICODE)コードを扱ったハッシュ変換が出来る。

※[Version:1.02]よりメソッド名が変更になりましたので、[Version:1.00/1.01]から[Version:1.02]をご利用になられる方はご注意下さい。
MD5 クラスモジュール
作成日:2012/05/13
更新日:2014/02/05





NAME

            MD5 -- MD5 クラスモジュール

		



SYNOPSIS

            Sub Main()
		Dim MD5 As New MD5

		MD5.Text = "a"
		Debug.Print MD5.TextHash

            End Sub

		



DESCRIPTION



AN OUTLINE -- 概要


ExcelVBAから、文字列やファイルのハッシュ値を求めることが出来るクラスモジュールです。
他のモジュールを使用していないので、Excelが動作する環境であれば、ファイル内で完結した処理が行えます。

なお、MD5の処理に関しては[http://www.ipa.go.jp/security/rfc/RFC1321JA.html]の[md5c.c]を[VBAコード]に書き直しています。

主な機能:
・指定した文字列、ファイルのハッシュ値を求めることが出来る。
・他のモジュールを使用しないため、Excelファイル内で処理を完結することが出来る。
・三種類の文字コード([SHIFT-JIS/UTF-8/UNICODE)コードを扱ったハッシュ変換が出来る。

※[Version:1.02]よりメソッド名が変更になりましたので、[Version:1.00/1.01]から[Version:1.02]をご利用になられる方はご注意下さい。


PREPARATION -- 準備


[DOWNLOAD]から、本ExcelBookをダウンロードします。
ダウンロードが完了したらマクロを有効にして開いてください。そこにサンプルモジュールと本クラスモジュールが含まれています。

注:クラスをエクスポート、インポートする事で別のExcelBookでも使用することが出来ます。


HOW TO USE -- 使用方法


最初に[Dim MD5 As New MD5]を宣言し、オブジェクトを使用可能にします。
オブジェクトを[Dim MD5]とした場合の記述方法は以下の通りです。
            Dim MD5 As New MD5
		
○[Charset]オブジェクト「MD5.Charset」プロパティ
文字列の文字コードを指定するには、「MD5.Charset」プロパティを使用します。
指定可能な文字コードは[SHIFT-JIS][UTF-8][UNICODE]の三種類となります。
注:何も指定しない場合は[SHIFT-JIS]が設定されます。
            MD5.Charset = "UTF-8"
		
○[Text]オブジェクト「MD5.Text」プロパティ
ハッシュ値を求めたい文字列を指定するには、「MD5.Text」プロパティを使用します。
            MD5.Text = "a"
		
○[FilePath]オブジェクト「MD5.FilePath」プロパティ
ハッシュ値を求めたいファイルを指定するには、「MD5.FilePath」プロパティを使用します。
            MD5.FilePath = "C:\hoge.txt"
		
○文字列のハッシュ値を取得「MD5.TextHash」メソッド
[MD5.Text]にて設定した文字列のハッシュ値を取得するには、「MD.TextHash」メソッドを使用します。
            value = MD5.TextHash
		
○ファイルのハッシュ値を取得「MD5.FileHash」メソッド
[MD5.FilePath]にて設定したファイルのハッシュ値を取得するには、「MD.FileHash」メソッドを使用します。
            value = MD5.FileHash
		


EXAMPLE -- 使用例

例1:文字列のハッシュ値を取得する。
            Sub Main()
                Dim MD5 As New MD5

                MD5.Text = "message digest"
                Debug.Print MD5.TextHash
            End Sub
		
例2:文字コードを指定して文字列のハッシュ値を取得する。
            Sub Main()
                Dim MD5 As New MD5

                MD5.Charset = "UTF-8"
                MD5.Text = "本日は晴天なり 2012/5/13"
                Debug.Print MD5.TextHash
            End Sub
		
例3:ファイルのハッシュ値を取得する。
            Sub Main()
                Dim MD5 As New MD5

                MD5.FilePath = "C:\hoge.txt"
                Debug.Print MD5.FileHash
            End Sub
		



REFERENCE

Name Description Syntax



ATTENTION

・本クラスモジュールを利用した事によるいかなる損害も一切の責任を負いません。
・感想や要望、不具合などありましたら、作者までご連絡ください。



MEMO

本クラスモジュールの本文中に「NAME/VERSION/AUTHOR/COPYRIGHT」が記載されています。



CONTRIBUTION

寄付歓迎
本クラスモジュールはフリーですが、「このモジュールのおかげで、素晴らしいソフトが作れた」など、寄付をしていただける方がいましたら、作者宛までご一報ください。
なお受け付けている物は、お金(日本通貨円)、食料(酒/缶詰/お米など)となっております。



DOWNLOAD

<<---DOWNLOAD MD5--->>



VERSION

Version:1.00 - Sun May 13, 2012
Version:1.01 - Fri Jul 5, 2013 | [MD5.MDFile](MD5.FileHash)実行時に対象ファイルがない場合、空白として処理する。
Version:1.02 - Wed Feb 5, 2014 | 他のハッシュクラスとメソッド名を統一するため次のメソッド名を変更
[Strings]→[Text]/[MDString]→[TextHash]/[MDFile]→[FileHash]




AUTHOR

Syunzi Shimohata <webmaster@taru-net.jp> http://www.taru-net.jp/


COPYRIGHT

Copyright (C) 2012, Syunzi Shimohata. Japan. All Rights Reserved.