VERSION 2.00
Begin Form Pad 
   BorderStyle     =   3  'Fixed Double
   Caption         =   "SecuriPad 6.6"
   ClientHeight    =   4800
   ClientLeft      =   1095
   ClientTop       =   1485
   ClientWidth     =   4560
   Height          =   5205
   Left            =   1035
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4800
   ScaleWidth      =   4560
   Top             =   1140
   Width           =   4680
   Begin CommandButton pbTransmit 
      BackColor       =   &H000000FF&
      Caption         =   "TRANSMIT"
      Height          =   375
      Left            =   3000
      TabIndex        =   15
      Top             =   4200
      Width           =   1455
   End
   Begin CommandButton pbClearAll 
      Caption         =   "Clear All"
      Height          =   375
      Left            =   1560
      TabIndex        =   14
      Top             =   4200
      Width           =   1455
   End
   Begin CommandButton pbClearEntry 
      Caption         =   "Clear Entry"
      Height          =   375
      Left            =   120
      TabIndex        =   13
      Top             =   4200
      Width           =   1455
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   36
      Left            =   3720
      TabIndex        =   35
      Top             =   3480
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   35
      Left            =   3720
      TabIndex        =   34
      Top             =   2880
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   34
      Left            =   3720
      TabIndex        =   33
      Top             =   2280
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   33
      Left            =   3720
      TabIndex        =   32
      Top             =   1680
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   32
      Left            =   3720
      TabIndex        =   31
      Top             =   1080
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   31
      Left            =   3720
      TabIndex        =   30
      Top             =   480
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   30
      Left            =   3000
      TabIndex        =   29
      Top             =   3480
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   29
      Left            =   3000
      TabIndex        =   28
      Top             =   2880
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   28
      Left            =   3000
      TabIndex        =   27
      Top             =   2280
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   27
      Left            =   3000
      TabIndex        =   26
      Top             =   1680
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   26
      Left            =   3000
      TabIndex        =   25
      Top             =   1080
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   25
      Left            =   3000
      TabIndex        =   24
      Top             =   480
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   24
      Left            =   2280
      TabIndex        =   23
      Top             =   3480
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   23
      Left            =   2280
      TabIndex        =   22
      Top             =   2880
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   22
      Left            =   2280
      TabIndex        =   21
      Top             =   2280
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   21
      Left            =   2280
      TabIndex        =   20
      Top             =   1680
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   20
      Left            =   2280
      TabIndex        =   19
      Top             =   1080
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   19
      Left            =   2280
      TabIndex        =   18
      Top             =   480
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   18
      Left            =   1560
      TabIndex        =   17
      Top             =   3480
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   17
      Left            =   1560
      TabIndex        =   16
      Top             =   2880
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   16
      Left            =   1560
      TabIndex        =   36
      Top             =   2280
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   15
      Left            =   1560
      TabIndex        =   37
      Top             =   1680
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   14
      Left            =   1560
      TabIndex        =   38
      Top             =   1080
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   13
      Left            =   1560
      TabIndex        =   12
      Top             =   480
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   12
      Left            =   840
      TabIndex        =   11
      Top             =   3480
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   11
      Left            =   840
      TabIndex        =   10
      Top             =   2880
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   10
      Left            =   840
      TabIndex        =   9
      Top             =   2280
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   9
      Left            =   840
      TabIndex        =   8
      Top             =   1680
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   8
      Left            =   840
      TabIndex        =   7
      Top             =   1080
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   7
      Left            =   840
      TabIndex        =   6
      Top             =   480
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   6
      Left            =   120
      TabIndex        =   5
      Top             =   3480
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   5
      Left            =   120
      TabIndex        =   4
      Top             =   2880
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   4
      Left            =   120
      TabIndex        =   3
      Top             =   2280
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   3
      Left            =   120
      TabIndex        =   2
      Top             =   1680
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   2
      Left            =   120
      TabIndex        =   1
      Top             =   1080
      Width           =   735
   End
   Begin CommandButton OptButton 
      Height          =   615
      Index           =   1
      Left            =   120
      TabIndex        =   0
      Top             =   480
      Width           =   735
   End
   Begin Label Label1 
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   120
      TabIndex        =   39
      Top             =   120
      Width           =   4335
   End
End
Option Explicit

Sub Form_Activate ()
    Dim t1$, t2$, t$, i, p, High, Done
    t1$ = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    t2$ = ""
    High = 36
    Randomize
    For i = 1 To (High - 1)
        Done = False
        While Not Done
            p = Int((High * Rnd) + 1)
            If Mid$(t1$, p, 1) <> " " Then
                t2$ = t2$ + Mid$(t1$, p, 1)         ' put the P component into t2$
                If p < High Then
                    t1$ = Mid$(t1$, 1, p - 1) + " " + Mid$(t1$, p + 1, High - p)
                Else
                    t1$ = Left$(t1$, High - 1) + " "
                End If
                Done = True
            End If
        Wend
    Next i

    For i = 1 To High
        t$ = Mid$(t1$, i, 1)
        If t$ <> " " Then
            i = High
            t2$ = t2$ + t$
        End If
    Next i

    For i = 1 To High
        OptButton(i).Caption = Mid$(t2$, i, 1)
    Next i
    Pad.Refresh
End Sub

Sub Form_Click ()
    Form_Activate
End Sub

Sub OptButton_Click (Index As Integer)
    Label1.Caption = Label1.Caption + OptButton(Index).Caption
    Form_Activate
End Sub

Sub pbClearAll_Click ()
    Label1.Caption = ""
    Form_Activate
End Sub

Sub pbClearEntry_Click ()
    If Len(Label1.Caption) > 0 Then
        Label1.Caption = Left$(Label1.Caption, Len(Label1.Caption) - 1)
    Else
        Beep
    End If
    Form_Activate
End Sub