VERSION 4.00
Begin VB.Form frmRegistrationKey
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Registration Key"
   ClientHeight    =   4605
   ClientLeft      =   390
   ClientTop       =   465
   ClientWidth     =   6675
   Height          =   5010
   Left            =   330
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   4605
   ScaleWidth      =   6675
   ShowInTaskbar   =   0   'False
   Top             =   120
   Width           =   6795
   Begin VB.TextBox Text2
      Height          =   285
      Left            =   1890
      MaxLength       =   9
      TabIndex        =   5
      Top             =   3870
      Width           =   1455
   End
   Begin VB.TextBox Text1
      Height          =   285
      Left            =   1890
      TabIndex        =   3
      Top             =   3510
      Width           =   4695
   End
   Begin VB.ListBox List1
      Height          =   2955
      Left            =   90
      TabIndex        =   1
      Top             =   360
      Width           =   6495
   End
   Begin VB.Label Label5
      Caption         =   "Enter a &key"
      Height          =   195
      Left            =   90
      TabIndex        =   4
      Top             =   3900
      Width           =   1725
   End
   Begin VB.Label Label3
      Caption         =   "Hash coding is"
      Height          =   195
      Left            =   90
      TabIndex        =   6
      Top             =   4260
      Width           =   1725
   End
   Begin VB.Label Label4
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   285
      Left            =   1890
      TabIndex        =   7
      Top             =   4230
      Width           =   4695
   End
   Begin VB.Label Label2
      Caption         =   "Enter a &string (10 chars)"
      Height          =   195
      Left            =   90
      TabIndex        =   2
      Top             =   3540
      Width           =   1725
   End
   Begin VB.Line Line1
      BorderColor     =   &H00FFFFFF&
      BorderStyle     =   6  'Inside Solid
      BorderWidth     =   2
      X1              =   0
      X2              =   6660
      Y1              =   3420
      Y2              =   3420
   End
   Begin VB.Label Label1
      Caption         =   "Registration Key Samples"
      Height          =   195
      Left            =   90
      TabIndex        =   0
      Top             =   90
      Width           =   6495
   End
End
Attribute VB_Name = "frmRegistrationKey"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()

   Dim i          As Integer
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim Data       As String
   Dim Value      As Long
   
   Tmp1 = "Key of '"
   Tmp2 = "' with '"
   Tmp3 = "' is '"
   
   List1.Clear
   
   Data = "1234567890"
   Value = 1234567
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   Data = "12345678901"
   Value = 123456
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   Data = "123456789012"
   Value = 12345
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   Data = "1234567890123"
   Value = 1234
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   Data = "12345678901234"
   Value = 123
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   Data = "123456789012345"
   Value = 12
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   Data = "1234567890123455"
   Value = 1
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   
   List1.AddItem ""
   
   Data = "ABCDEFGHIJKLMNOP"
   Value = 1
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   Data = "ABCDEFGHIJKLMNO"
   Value = 12
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   Data = "ABCDEFGHIJKLMN"
   Value = 123
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   Data = "ABCDEFGHIJKLM"
   Value = 1234
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   Data = "ABCDEFGHIJKL"
   Value = 12345
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   Data = "ABCDEFGHIJK"
   Value = 123456
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
   Data = "ABCDEFGHIJ"
   Value = 1234567
   List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"

   Text1.Text = "mc security"
   Text2.Text = "1234567"
   
End Sub


Private Sub Text1_Change()
   Label4.Caption = cRegistrationKey(Text1.Text, Val(Text2.Text))
End Sub


Private Sub Text2_Change()
   Label4.Caption = cRegistrationKey(Text1.Text, Val(Text2.Text))
End Sub