form2.frm

来自「加密与解码——密码技术剖析与实战应用中的一个例子」· FRM 代码 · 共 41 行

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim nPassArray(1 To 8) As Byte      ' 存放密码

' 从第1个元素开始加1，128进制
Private Function Add_1() As Boolean
Dim i As Integer, j As Integer

    Add_1 = True                ' 正确加1
    
    For i = 1 To 8
        If nPassArray(i) < 128 Then
            nPassArray(i) = nPassArray(i) + 1
            Exit For
        Else
            nPassArray(i) = 0   ' 本位清0，准备下一位加1
            If i = 8 Then       ' 加1到最后
                Add_1 = False
                Exit For
            End If
        End If
    Next i
End Function