VERSION 4.00
Begin VB.Form frmHashCoding
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Hash Coding"
   ClientHeight    =   4245
   ClientLeft      =   210
   ClientTop       =   495
   ClientWidth     =   6675
   Height          =   4650
   Left            =   150
   LinkTopic       =   "frmHashCoding"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   4245
   ScaleWidth      =   6675
   ShowInTaskbar   =   0   'False
   Top             =   150
   Width           =   6795
   Begin VB.TextBox Text1
      Height          =   285
      Left            =   1350
      TabIndex        =   3
      Top             =   3510
      Width           =   5235
   End
   Begin VB.ListBox List1
      Height          =   2955
      Left            =   90
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   360
      Width           =   6495
   End
   Begin VB.Label Label4
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   285
      Left            =   1350
      TabIndex        =   5
      Top             =   3870
      Width           =   5235
   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 Label3
      Caption         =   "Hash coding is"
      Height          =   195
      Left            =   90
      TabIndex        =   4
      Top             =   3900
      Width           =   1185
   End
   Begin VB.Label Label2
      Caption         =   "Enter a &string"
      Height          =   195
      Left            =   90
      TabIndex        =   2
      Top             =   3540
      Width           =   1185
   End
   Begin VB.Label Label1
      Caption         =   "Hash Coding Samples"
      Height          =   195
      Left            =   90
      TabIndex        =   0
      Top             =   90
      Width           =   6495
   End
End
Attribute VB_Name = "frmHashCoding"
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 Data       As String
   
   Tmp1 = "Hash coding of '"
   Tmp2 = "' is '"
   
   List1.Clear
   
   Data = "1"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   Data = "12"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   Data = "123"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   Data = "1234"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   Data = "12345"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   Data = "123456"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   Data = "1234567"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   
   List1.AddItem ""
   
   Data = "ABCDEFG"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   Data = "ABCDEF"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   Data = "ABCDE"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   Data = "ABCD"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   Data = "ABC"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   Data = "AB"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   Data = "A"
   List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
   
   Text1.Text = "mc security"
 
End Sub


Private Sub Text1_Change()
   Label4.Caption = cHashMD5(Text1.Text)
End Sub