sc.write ("CA A4 02 00 00")
sc.read (2)
sc.write ("CA C0 00 00 1f") / 0f /13 gör sig kanske bättre....
sc.read (34) /18 / 22
verkar som det är RND bytes eller? EDIT: mysko nu blir det samma hela tiden.
Utskriftsvy
sc.write ("CA A4 02 00 00")
sc.read (2)
sc.write ("CA C0 00 00 1f") / 0f /13 gör sig kanske bättre....
sc.read (34) /18 / 22
verkar som det är RND bytes eller? EDIT: mysko nu blir det samma hela tiden.
ok nu vet jag vad jag gjorde innan jag skickade CA A4 utan reset två gånger på varandra. då blir det Random bytes. :roll:
'
' New VB Script File - Created 2004-04-28
'
Dim Choice
Dim Groupnr
Dim Cardnr
Dim n
Dim menuFlag
Dim CheckSmartcardSettings
Call SmartcardSettings
Function hex2(i)
tmpStr = Hex(i)
If Len(tmpStr) = 1 Then
tmpStr = "0" & tmpStr
End If
hex2 = tmpStr
End Function
Sub Main()
sc.reset
Sc.Reset
Sc.Print ("" & vbCr)
Sc.Print ("INS, DD C6" & vbCr)
sc.write ("DD C6 00 00 03 ")
sc.read (1)
sc.write ("1c 01 00")
sc.read (2)
sc.write ("dd c6 00 00 93")
sc.read (1)
sc.write ("dd ca 00 00 f5")
sc.read (248)
sc.write ("dd ca 00 00 93")
sc.read (150)
sc.write ("DD C6 00 00 03 ")
sc.read (1)
sc.write ("1b 01 40")
sc.read (2)
sc.write ("dd ca 00 00 6a")
sc.read (109)
Sc.Reset
Sc.Print ("" & vbCr)
Sc.Print ("INS, CA A4 " & vbCr)
sc.write ("ca a4 02 00 00")
sc.read (2)
sc.write ("ca c0 00 00 1f")
sc.read (34)
Sc.Reset
Sc.Print ("" & vbCr)
Sc.Print ("INS, DD 26" & vbCr)
sc.write ("DD 26 00 00 03")
sc.read (1)
sc.write ("10 01 40")
sc.read (2)
sc.write ("DD CA 00 00 11")
sc.read (2)
sc.read (18)
Sc.Reset
Sc.Print ("" & vbCr)
Sc.Print ("INS, DD 82" & vbCr)
Sc.Print ("String" & vbCr)
Sc.write ("DD 82 00 00 14")
Sc.read (1)
Sc.write ("11 12 01 F0 0F FF FF FD 00 00 09 04 0B 00 E0 30 0E 6F CC 7E")
Sc.delay (2000)
Sc.read (2)
Sc.write ("DD CA 00 00 1A")
Sc.read (29)
Sc.Reset
For n = 14 To 17
Cardnr = Cardnr & hex2(Sc.GetByte(n))
Next
For n = 24 To 26
Groupnr = Groupnr & hex2(Sc.GetByte(n))
Next
Sc.Print ("Group SA number: " & Groupnr & vbCr)
Sc.Print ("Card UA number: " & Cardnr & vbCr)
Cardnr = ""
Groupnr = ""
Sc.Print ("" & vbCr)
End Sub
Sub SmartcardSettings()
ComPort = Sc.InputBox("Phoenix-interface on port? ", "Config Com Port", 1)
If ComPort = "" Then
CheckSmartcardSettings = 1
Exit Sub
End If
Sc.Print (vbCr & "- config WinExplorer..." & vbCr)
Wx.CommPort = "com" & ComPort & ":"
Wx.BaudRate = 9600
Wx.ResetBaudRate = 9600 ' Baudrate **01**
Wx.Parity = 2 ' 0 = None, 1 = Odd, 2 = Even, 3 = Mark, 4 = Space
Wx.StopBits = 2 ' 0 = 1 stop bit, 1 = 1.5 stop bits, 2 = 2 stop bits
Wx.DTRControl = 1 ' Initial state of DTR 0 = off, 1 = on
Wx.RTSControl = 0 ' Initial state of RTS 0 = off, 1 = on
Wx.ResetDelay = 1000 ' In microseconds
Wx.ByteDelay = 6000 ' In microseconds
Wx.RxByteTimeout = 200 ' In milliseconds
Wx.ResetMode = 1 ' 0 = No Resets, 1 = ISO Reset (Expect a ATR), 2 = Device Reset (No ATR)
Wx.ResetLine = 0 ' 0 = Toggle RTS for Reset, 1 = Toggle DTR for Reset
Wx.ByteConvention = 1 ' 0 = Inverse, 1 = Direct
Wx.FlushEchoByte = 1 ' 0 = no flush, 1 = flush - A Phoenix interface will echo each byte transmitted.
Wx.FlushBeforeWrite = 1 ' 0 = no flush, 1 = flush - Flush the receive buffer before each write to strip off Null bytes.
Wx.IgnoreTimeouts = 1 ' 0 = Abort script on a receive timeout, 1 = Ignore all receive timeouts
Wx.ResetAfterTimeout = 0 ' 0 = Don't reset after a timeout, 1 = do a reset after a timeout - Not used if "IgnoreTimeouts=0"
Wx.LogTransactions = 0 ' 0 = Don't log transactions, 1 = log transactions
Wx.DisplayUSW = 0 ' Display USW after script complete 0 = no, 1 = yes
Wx.DisplayFuse = 0 ' Display Fuse after script complete 0 = no, 1 = yes
End Sub
Vad är det du vill komma fram till?
undrar vad ca a4 är...
CA A4 00 00 00 => välj master entity (issuer)
CA A4 02 00 00 => välj nästa entity (provider), används för att skanna av vilka som finns.
CA A4 04 00 03 + provider_id => välj specific provider
Viaccess instruktioner, mao.
/Spock
:) verkar helt korrekt det Spock:)
ha det bra!
/killroy1