シェアウェアの解除キーを作るには？ (ID:78443)

名前

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

本文 シェアウェアのパスワードには大まかに２種類ありますよね。 固定パスワード 可変パスワード(ユーザー名＆パスワード) 固定パスワードは、入力した文字とあらかじめ決めた文字を比較するという やり方です。解析されやすいのでオススメしません。 可変パスワードは、「ある方法」を用いてユーザー名からパスワードを作る、 またはその逆をします。「ある方法」については自分で考えてください。 じゃないと意味ないので(^^; たとえば、ユーザー名の１文字ずつを次の文字(A→B)にずらしたものがパス ワードだとしましょう。(これはあくまで例です) Private Sub Command1_Click() Dim UserName As String '入力したユーザー名 Dim Password As String '入力したパスワード Dim P As String '変換したパスワード Dim i As Long '入力 UserName = Text1.Text Password = Text2.Text P = "" For i = 1 To Len(UserName) P = P & Chr$(Asc(Mid$(UserName, i, 1)) + 1) Next i If Password = P Then 'OK! MsgBox "登録ありがとうございます" Else 'NG! MsgBox "パスワードが違います" End If End Sub メッセージBOXなどを使うと解析されやすくなるので、なんにも表示しない方が 利口です。ついでにいうとTextBoxから取得するのも危険かもしれません。 パスワード処理内に余計な処理を入れると解析する人は困惑します。