Wie ATR einer Smartcard richtig auslesen & andere Serielle fragen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Dplus.

    Wie ATR einer Smartcard richtig auslesen & andere Serielle fragen

    Ich habe vor ein paar Tagen mit Visual Basic 2010 angefangen
    Ich dachte mir für den Anfang ein wenig mit meinem CardReader und ein paar SmartCards zu spielen.
    Soweit so gut^^
    Habe auch schon erste Erfolge verzeichnen können.
    Das Ansteuern der seriellen Schnittstelle geht gut.
    Nun zu meinem eigentlichen Problem und zu ein paar Fragen^^
    Wenn ich über einen Reset der Karte den ATR angezeigt bekommen möchte stimmt noch etwas nicht
    Es werden noch ein paar bytes falsch angezeigt.
    Man sagte mir nun ich soll das mit einem Timer lösen.
    Bekomme es nur nicht hin.
    Hier mal mein Code:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim TheHex As Object
    3. Dim a As Object
    4. Dim Final As Object
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. 'Schnitstelle öffnen, Buttons freigeben und ATR auswerfen
    10. Try
    11. SerialPort1.PortName = TextBox28.Text
    12. SerialPort1.BaudRate = TextBox31.Text
    13. SerialPort1.Open()
    15. Button1.Enabled = False
    16. Button2.Enabled = True
    17. Button3.Enabled = True
    18. Button4.Enabled = True
    19. Button4.Enabled = True
    20. Button5.Enabled = True
    21. Button6.Enabled = True
    22. Button7.Enabled = True
    24. Catch ex As Exception
    25. MsgBox("Verbindung zum Reader konnte nicht hergestellt werden")
    27. End Try
    29. SerialPort1.RtsEnable = True
    30. SerialPort1.RtsEnable = False
    31. SerialPort1.DtrEnable = True
    32. SerialPort1.RtsEnable = False
    34. a = SerialPort1.ReadExisting()
    35. Final = ""
    36. For i = 1 To Len(a)
    37. TheHex = (Hex(Asc(Mid(a, i, 1))))
    38. If Len(TheHex) = 1 Then TheHex = "0" & TheHex
    39. Final = Final & TheHex + " "
    40. Next i
    42. TextBox1.Text = ("ATR: " + Final)
    43. End Sub
    45. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    46. ' Beenden und Schnittstelle schließen fals offen
    47. If SerialPort1.IsOpen = True Then
    48. SerialPort1.Close()
    49. End If
    50. End Sub
    52. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    53. ' CMD test
    54. SerialPort1.Write(Chr(&H0) + Chr(&H1) + Chr(&H2) + Chr(&H3) + Chr(&H4) + Chr(&H5) + Chr(&H6))
    55. a = SerialPort1.ReadExisting()
    56. Final = ""
    57. For i = 1 To Len(a)
    58. TheHex = (Hex(Asc(Mid(a, i, 1))))
    59. If Len(TheHex) = 1 Then TheHex = "0" & TheHex
    60. Final = Final & TheHex + " "
    61. Next i
    62. TextBox14.Text = ("RX: " + Final)
    63. End Sub
    65. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    66. ' Schnittstelle schließen und Buttons sperren
    67. SerialPort1.Close()
    68. Button1.Enabled = True
    69. Button2.Enabled = False
    70. Button3.Enabled = False
    71. Button4.Enabled = False
    72. Button4.Enabled = False
    73. Button5.Enabled = False
    74. Button6.Enabled = False
    75. Button7.Enabled = False
    76. End Sub
    79. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    80. ' Reset
    81. a = SerialPort1.ReadExisting()
    82. Final = SerialPort1.ReadExisting()
    83. For i = 1 To Len(a)
    84. TheHex = (Hex(Asc(Mid(a, i, 1))))
    85. If Len(TheHex) = 1 Then TheHex = "0" + TheHex
    86. Final = Final + TheHex + " "
    87. Next i
    89. SerialPort1.RtsEnable = True
    90. SerialPort1.RtsEnable = False
    91. SerialPort1.DtrEnable = True
    92. SerialPort1.RtsEnable = False
    94. TextBox1.Text = Final
    96. End Sub
    98. End Class


    Ja ich weiß die Buttons und Textfelder muss ich noch besser beschriften^^

    Wie gesagt ich bekomme was angezeigt, aber beim ATR sind ein paar
    bytes falsch und bei fast jedem Reset werden immer ein paar bytes
    angezeigt, also es kommt auch nicht immer das gleiche Ergebnis.

    Ich muss wohl einen Zwischen ReadExisting und der Umrechnung in HEX machen.

    Auch wenn ich ein CMD an die Karte senden möchte ist die erwartetet Antwort nicht die, die kommen müsste und sie ist zu kurz.

    Aber ich habe keinen Schimmer wie.

    So dann noch eine Frage:

    Wie lasse ich mir später aus einer Kartenanwort nur bestimmt Sachen anzeigen?

    Mal als Beispiel wenn sie mit 01 12 23 45 56 78 89 0A 0B 0C 0E 0F antwortet möchte ich sagen wir mal nur:
    35689ABCD angezeigt bekommen



    Und nun die vorerst letzte Frage^^

    Hier wird eine Checksum berechnet die am Ende jedes Strings mit zur Karte gesendet werden soll



    VB.NET-Quellcode

    1. Dim meCheckSum As Byte = &H3F ' Constant for CheckSum
    2. Dim Loop
    3. As Integer
    4. Dim sCScmd As New System.Text.StringBuilder
    6. For Loop = 1 To cmd.Length Step 3
    8. meCheckSum = CByte(meCheckSum Xor CByte("&H" & Mid(cmd, Loop, 2)))
    9. sCScmd.Append(Chr(CInt("&h" & Mid(cmd, Loop, 2))))
    11. Next




    Mache ich das später so?


    VB.NET-Quellcode

    1. SerialPort1.Write(Chr(&H0) + Chr(&H2) + Chr(&H3) + Chr(&H4) + Chr(&H5) + Chr(&H6) + meCheckSum)

    So bin nun wieder ein kleines Stückchen weiter^^



    Die Strings werden nun komplett und richtig angezeigt.



    Naja meistens ^^

    Ich konvertiere den String nun so um:



    VB.NET-Quellcode

    1. Private Function ByteToHex(ByVal comByte As Byte()) As String
    3. Dim builder As New StringBuilder(comByte.Length * 3)
    5. For Each data As Byte In comByte
    7. builder.Append(Convert.ToString(data, 16).PadLeft(2, "0"c).PadRight(3, " "c))
    11. Next
    15. Return builder.ToString().ToUpper()
    17. End Function

    VB.NET-Quellcode

    1. Dim bytes As Integer = SerialPort1.BytesToRead
    3. Dim comBuffer As Byte() = New Byte(bytes - 1) {}
    5. SerialPort1.Read(comBuffer, 0, bytes)
    7. Threading.Thread.Sleep(60)
    9. Final = ByteToHex(comBuffer) + ""
    11. TextBox1.Text = (Final)

Facebook