Perform a byte comparison. Good for authenticating logins.

Private Function byteCmp(ByVal mykey As Byte(), ByVal keytocheck As Byte()) As Boolean
If
(mykey.Length <> keytocheck.Length) Then
Return false
End If
Dim
i As Integer = 0
Do While (i < mykey.Length)
If (mykey(i) <> keytocheck(i)) Then
Return false
End If
i = (i + 1)
Loop
end function

No comments:

Powered by Blogger.