Lex's Jottings on Life

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