当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。

テクてく Lotus 技術者 Slack に参加しよう!

2009年8月12日水曜日

ハッシュ関数とベリファイ関数

ハッシュパスワードで、@関数のハッシュパスワードについては、サンプルを掲載したが、Lotus Scriptのサンプルは掲載していなかった。

ということで?、Lotus Scriptでのサンプルを載せる。

2回文字列を入力して、それぞれのハッシュ化内容が正しいかどうかを検証するというものだ。

ハッシュしたものだけをどこかに格納しておき、別に入力した文字列とベリファイするようにすれば、パスワードとして使えるだろう。
各自で、改造してみて欲しい。

---------------------------------------------------------------------------------------------
Sub Click(Source As Button)
Dim session As New NotesSession
Dim inputData As String 'ハッシュ化する文字列
Dim hashData As String 'ハッシュされた文字列
Dim confirmData As String '確認用文字列
Dim ret As Boolean 'ハッシュのベリファイ結果

' 文字列の入力
inputData = Inputbox( "文字列を入力してください。", "ハッシュ関数の確認" )
If inputData = "" Then Exit Sub

' 入力文字列のハッシュ化
hashData = session.HashPassword( inputData )

'確認用文字列の入力
confirmData = Inputbox( "確認用文字列を入力してください。", "ハッシュ関数の確認" )

'ハッシュ化文字列とのベリファイ
ret = session.VerifyPassword( confirmData, hashData )

'結果発表
Msgbox _
"入力文字列:" & Chr$(9) & inputData & Chr$(10) & _
"確認用文字列:" & Chr$(9) & confirmData & Chr$(10) & _
"ベリファイ結果:" & Chr$(9) & ret, _
MB_OK + MB_ICONINFORMATION, "ハッシュ関数とベリファイ関数"
End Sub


【PR】ノーツ/ドミノに関するお問い合わせは下記まで【PR】
Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

1 件のコメント:

匿名 さんのコメント...

ハッシュか?

ハッシュドポテトをぐじゃぐじゃにしよう。