ハッシュパスワードで、@関数のハッシュパスワードについては、サンプルを掲載したが、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】