towitoko chipdrive

Re(6): towitoko chipdrive

mar99 — Mon, 26 Jul 2004 11:38:25 GMT

(keine ahnung wie das gehen soll, werd später darüber nachdenken, man muß ja auch mal arbeiten...)

Ascii Tabelle ansehen - einfach den (hex-)Wert von 0(dezimal) hinzufügen bzw. subtrahieren.

mar99

Re(6): towitoko chipdrive

*wolfman* — Mon, 26 Jul 2004 11:32:27 GMT

jo danke des geht

hab auch schon die zahlen in hex umgewandelt mit
Kartennr(1) = Val("&h" & Kartennr(1))

danke für die hilfe....i werd eh nu a paar fragen haben glaub i

cu

Re(5): towitoko chipdrive

Feuerfresser — Mon, 26 Jul 2004 11:06:15 GMT

Data = Chr(12) & Chr(34) & Chr(56)

wenn dann 18 52 86 dort steht ist das in ordnung
die Zahlen werden als hex angezeigt 10 wird dann zu 0a
in dezimal steht dort noch immer 12 34 56
es ist nur die interpretation anders
wenn du es unbedingt anders haben willst musst du dir eine routine dafür schreiben:
zahl in hex umwandeln, diese wieder als integer interpretieren
(keine ahnung wie das gehen soll, werd später darüber nachdenken, man muß ja auch mal arbeiten...)

cu

Re(4): towitoko chipdrive

*wolfman* — Mon, 26 Jul 2004 09:42:08 GMT

danke des is ganga suppa

ahmm und wast du a was i machen murs das i statt 01 02 03-->12 34 56 im hex stehen hab des warad voi suppa

wolfi

Re(3): towitoko chipdrive

Feuerfresser — Mon, 26 Jul 2004 09:17:17 GMT

Hi Leute,
In VB wird eine Hex Zahl mit "&H" gekennzeichnet, nicht wie in C/C++ mit "0x"
Das Problem ist wohl eher VB beizubringen die Integer Zahl nicht automatisch in einen String zu verwandeln.
Versuchs mal damit:
Data = Chr(1) & Chr(2) & Chr(3)
Das sollte 01 02 03 in Hex ergeben.

Re(2): towitoko chipdrive

*wolfman* — Mon, 26 Jul 2004 09:03:18 GMT

nein geht leider nicht...hab i auch schon versucht
da kommt ein fehler beim kompilieren (syntaxfehler)...des data ein soll jo a string sei

SCardComand(Handle as Long, ByVal cmd as String, CmdLen as Long,ByVal DataIn as String, DataInLen as Long, ByVal DataOut as String, DataOutLen as Long) as Long

also des hast wann i dann des 0x12 unter " " setzt kennt ers natürlich schreibts aber auch genau so auf die Karte ned als hex wie ich es will

Re: towitoko chipdrive

mar99 — Mon, 26 Jul 2004 08:38:22 GMT

Ich weiß es nicht, würde aufgrund der Struktur jedoch auf folgendes Tippen:

Anstelle von: L = SCardComand(0, "Card,MemWrite,112," + CStr(5), 0, 12345, 5, nil, 0)

könntest folgendes Versuchen:
L = SCardComand(0, "Card,MemWrite,112," + CStr(5), 0, 0x1 0x2 0x3 0x4 0x5, 5, nil, 0)

Das müßte im Hex bereich dann 01 02 03 04 05 ergeben (wenn man die Zeichen so konkatenieren kann.

oder aber auch so: L = SCardComand(0, "Card,MemWrite,112," + CStr(3), 0, 0x12 0x34 0x56, 3, nil, 0)

Wie gesagt, das ist nur geraten und eigentlich nur von String auf hex geändert.

mar99

towitoko chipdrive

*wolfman* — Mon, 26 Jul 2004 08:25:54 GMT

hat irgentwer eine ahnung wie man mit so einem chipdrive daten im VB6 auf die Karte schreibt?? das ganze sollte aber nicht in ascii sein sondan als hex.

Als ascii ist das kein problem.

Private Declare Function SCardComand Lib "SCARD32" (Handle As Long, ByVal cmd As String, CmdLen As Long, ByVal DataIn As String, DataInLen As Long, ByVal DataOut As String, DataOutLen As Long) As Long

Private Sub kunde_anlegen_Click()
  L = SCardComand(0, "Card,MemWrite,112," + CStr(5), 0, 12345, 5, nil, 0)
  If L = 0 Then
     log.Caption = "OK"
  Else
    DisplayError (L)
  End If
End Sub

so steht aber dann
HEX                      | ASCII
------------------------------
31 32 33 34 35       | 12345

auf der karte

weiß irgentwer wie es geht das dann im hexbereich 12345 steht??????

Aus dem pdf.....:
Card,MemWrite:
Beschreibt einen Bereich des Datenspeicher einer Memorykarte, unabhängig vom Chiptyp.
Kommando: Str( "Card,MemWrite,Adr,Len" )
DataIn: DataIn
DataOut: nil
Adr ... Offset ab dem geschrieben werden soll (0 = erstes Byte des Kartenspeichers).
Len ... Anzahl der zu schreibenden Bytes.

Wichtig: Einem Schreibzugiff folgt (intern) immer ein Verify-Kommando. Sie können daher
z.B. bei einem Fehler über das Kommando Card,MemReadStatus das bytegenaue
Ergebnis des Schreibzugriffs abfragen. Wenn die Cache-Funktion aktiv
ist (Standardeinstellung) und der Bereich bereits gelesen wurde, werden nur
Datenbytes geschrieben, die sich tatsächlich geändert haben

Beispiel: "Hello SmartCard World" (21 Zeichen) ab dem Offset 16 schrieben.
Kommando: Str( "Card,MemWrite,16,21" )
DataIn: 0x48 0x65 0x6C 0x6C 0x6F 0x20 0x53 0x6D 0x61 0x72
0x74 0x43 0x61 0x72 0x64 0x20 0x57 0x6F 0x72 0x6C
0x64 (als String "Hello SmartCard World")
DataOut: nil

mfg wolfi