11 lines
325 B
OCaml
11 lines
325 B
OCaml
let main =
|
|
let f = SmartCard.Filesystem.find_by_fid (Bytes.of_string "\x01\x1C") Card.custom.allfiles
|
|
in
|
|
match f with
|
|
| Some _ -> print_endline "File found"
|
|
| None -> print_endline "File not found"
|
|
|
|
let hmmge =
|
|
let command = Bytes.of_string "\x00\x86\x00\x00" in
|
|
SmartCard.CardState.process command Card.custom
|