Dear Friends! I have downloaded a VB Source Code. In this source code I have found a Function. The Function is as follows
Private Function XorPassword(Bytes As Variant) As String
Dim XorBytes() As Variant
Dim strPassword As String
Dim intIndex As Integer
Dim CurrChar As String * 1
XorBytes = Array(&H86, &HFB, &HEC, &H37, &H5D, &H44, &H9C, &HFA, &HC6, &H5E, &H28,HE6, &H13, &HB6, &H8A, &H60, &H54, &H94)
strPassword = vbNullString
intIndex = 0
Do
CurrChar = Chr$(Bytes(intIndex + &H42) Xor XorBytes(intIndex))
If Asc(CurrChar) = 0 Then Exit Do
strPassword = strPassword & CurrChar
intIndex = intIndex + 1
Loop Until intIndex = 17
XorPassword = strPassword
End Function
In this Function I could not understand the following array
XorBytes = Array(&H86, &HFB, &HEC, &H37, &H5D, &H44, &H9C, &HFA, &HC6, &H5E, &H28,HE6, &H13, &HB6, &H8A, &H60, &H54, &H94)
My Question is that Why he has used these Hex Values in this array and what is the logic behind that?
Plz Help me about this. I will be thankful to you.