パスワード作成の話。。（続き2）

2012-10-18 22:59 の記事
で、英字（大）、英字（小）、数字をランダムに発生する

式３： Chr(Int(Rnd(1#) * 26 + 65)) ⇒ 'A', 'B', 'C', --- 'Z'
式４： Chr(Int(Rnd(1#) * 26 + 97)) ⇒ 'a', 'B', 'c', --- 'z'
式５： Chr(Int(Rnd(1#) * 9 + 49)) ⇒ '1', '2', '3', --- '9'

を説明しました。さて、この３つの式を使って、
英字（大）、英字（小）、数字をランダムに並べて
パスワードの文字列を作成するにはどうしたらいいでしょうか？

簡単ですね。もう１つ、0, 1, 2の３つの目があるサイコロ（乱数）を
別に作って、式３、４、５のいずれかをランダムに選べばいいですね。

式６： Int(Rnd(1#) * 3)

式６は、0, 1, 2をランダムに発生させます。式６の結果を元にSelect文で
式３、４、５のいずれかを選べばいいですね。

01： j = Int(Rnd(1#) * 3)
02： Select Case j
03：   Case 0
04：     str1 = Chr(Int(Rnd(1#) * 26 + 65)) ' 英字（大）
05：   Case 1
06：     str1 = Chr(Int(Rnd(1#) * 26 + 97)) ' 英字（小）
07：   Case 2
08：     str1 = Chr(Int(Rnd(1#) * 9 + 49)) ' 数字
09：   Case Else
10：     str1 = "*"
11： End Select

次回は、パスワードを生成するマクロ全体を説明（？）します。

今日は、ドラゴンズ負けてしまったみたいですね。。

明日、京急がダイヤ改正です。モノレールとの競争もいいですが、
沿線住民の利便性、そして何より、安全第一でお願いします。

今日、FUJIFILM X10を見てきました。
NIKON1 V2を待つか。。う～ん。

KOC2012　【優勝!!】 バイきんぐ　コント２篇

タグ：パスワード FUJIFILM X10 nikon1 v2 VBA バイきんぐ

コメント 2

X10は欲しいなあ。質感がとてもいいと思いましたよ。
by Mosel (2012-10-21 08:55) 

nice! ありがとうございます。
(^_0)ノ

Moselさん、
X10、いいカメラですね。
展示品のカメラは手荒に扱われたのか、少々傷んでいましたが、大きさ、重さとも、持ち運びに苦労しないと思いました。また、ファインダ派の私には、いいかな、と思いました。NIKON1 V1はEVFですが、甲乙つけがたいですね。今のカメラが壊れたら、どっちか買おうと思っています。
(^_0)ノ
by cheese999 (2012-10-21 12:43)