VBで強固なパスチェックルーチンを組むには？ (ID:74013)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 サンプルできました。 このようにすればいいと思います。 Private Sub Command1_Click() PASS$ = Text1.Text 'パスワードを代入します For k = 1 To Len(PASS$) tpass$ = tpass$ + Chr$(Asc(Mid$(PASS$, k, 1)) + 1) '一文字ずつ取り出し、↓へ 'キャラクターコードを Next k '一つずつずらします If tpass$ = "RGSUCIKL" Then 'この場合、ユーザはQFRTBHJKと入力した MsgBox "パスワード一致" Exit Sub End If 'パスワードが一致しなかった処理 MsgBox "パスワードが一致しません" End End Sub 結果待ってます。