掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VBで強固なパスチェックルーチンを組むには? (ID:74014)
名前
ホームページ(ブログ、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 結果待ってます。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.