Private Sub TagTech_Connected (Success As Boolean)
Dim key(6) As Byte ' Fake key for the forum
key(0) = 0xA0
key(1) = 0xA1
key(2) = 0xA2
key(3) = 0xA3
key(4) = 0xA4
key(5) = 0xA5
TagTech.RunAsync("Authenticate", "authenticateSectorWithKeyA", Array(key), 0)
' TagTech.RunAsync("Authenticate", "authenticateSectorWithKeyB", Array(key), 0)
End Sub
Private Sub Authenticate_RunAsync (Flag As Int, Success As Boolean, Result As Object)
Log($"Finished trying to auth. Success=${Success}, Flag=${Flag}"$)
If Success Then
' Code to actually initiate the reading
End If
End Sub