VB Code:
Private Sub cmdTest1_Click()
Dim BitSet1 As BitVector
Dim BitSet As New BitVector
Dim HashArray() As String
Dim ac As String
Dim ParsedNumArray() As String
Dim i1, jtemp, j1 As Integer
BitSet.NumElements = 64
HashArray() = Split("LHKf24(),..FWSqw1,783vcSWr,NSW%FGS3,S834VS$!", ",")
ParsedNumArray() = Split("58#54#58#42#50#", "#")
For i1 = 0 To 4
Set BitSet1 = BitShift(HashArray(i1))
j1 = Val(ParsedNumArray(i1))
For l1 = 0 To j1
Set BitSet1 = BitFlag(BitSet1)
Next
For x = 0 To 63
BitSet.SetBit (CLng(x)) Xor BitSet1.GetBit(CLng(x))
Next
Next i1
ac = Characterize(BitSet, 8)