Takenoff Labs

Lotus Notes/Domino に関する Tips や、クラシックの名曲などを紹介します

パスワード配布ページ

フィールド値一括置換・削除ツール」のパスワードを取得するには、以下の操作を行ってください。(Domino Designer がインストールされていない環境では実行できません。あらかじめご了承ください。)

1. ノーツクライアントにて、リッチテキストフィールドがある文書(たとえばメールなど)を新規作成します。

2. リッチテキストにカーソルを合わせ、[作成]メニュー → [ホットスポット] → [ボタン] を実行します。

ボタンの作成

3. 下のペインで「Lotus Script」を選択します。

言語の選択

4. Click イベントに、以下のコードをペーストします。

Const P = "31,3;9,16;23,17;22,31;19,1;23,10;23,19;9,15;9,1;9,13;23,11"
Dim ret As Variant, ary1 As Variant, ary2 As Variant
Dim s As String
s = ""
ret = Evaluate({@ReplaceSubstring(@Password("Lotus Notes"); ")":"("; "A":"F")})
ary1 = Split(P, ";")
Forall a1 In ary1
	ary2 = Split(a1, ",")
	s = s & Chr(Val("&H" & Mid(ret(0), Cint(ary2(0)), 1) & Mid(ret(0), Cint(ary2(1)), 1)))
End Forall
Msgbox s

(例)

コードを貼り付ける

5. ボタンをクリックしてください。メッセージボックスに表示された文言がパスワードです。

トラックバック

トラックバックはありません

コメント

コメントはありません

※コメントは承認制となっております。管理者が承認するまで表示されません。申し訳ありませんが、投稿が表示されるまでしばらくお待ちください。





(以下のタグが使えます)
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

For spam filtering purposes, please copy the number 7735 to the field below:

^
×