Monkeybread Software - MBS FileMaker Plugin: SmartCard ReadFile

Components	All	New	MacOS		Windows		Linux		iOS
Examples	Mac & Win		Server	Client	Guides	Statistic	FMM	Blog	Deprecated	Old

MBS FileMaker Plugin Example Databases

SmartCard ReadFile

All examples are included with download of MBS FileMaker Plugin.

SmartCard ReadFile.fmp12

Overview
Tables	2
Relationships	0
Layouts	2
Scripts	6
Value Lists	2
Custom Functions	0
Custom Menus	0

File Options
Default custom menu set	[Standard FileMaker Menus]
When opening file
Minimum allowed version	12.0
Login using	Account Name; Account= Admin
Allow user to save password	Off
Require iOS passcode	Off
Switch to layout	Off
Hide all toolbars	Off
Script triggers
OnFirstWindowOpen	Off
OnLastWindowClose	Off
OnWindowOpen	Off
OnWindowClose	Off
OnFileAVPlayerChange	Off
Thumbnail Settings
Generate Thumbnails	On; Temporary

Tables

Table Name	Statistics	Occurrences in Relationship Graph
SmartCard	1 field defined, 1 record	SmartCard
Card	11 fields defined, 1 record	Card

Fields

Table Name: SmartCard - 1 Fields

Auto-Enter:

Allow editing

Validation:

Only during data entry

Storage:

Repetitions: 1
Indexing: None
Automatically create indexes as needed
Index Language: German

SmartCard

Initialize

Table Name: Card - 11 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
Reader	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Card		Connect Check Status
State	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Card		Check Status
Protocol	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Card		Check Status
Attributes	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Card		Check Status
StateText	Normal, Text	Auto-Enter: Allow editing Context table: Card Calculation: If (MBS( "Math.BitwiseAND"; Card::State; 16 ) = 16; "Present"; "") & ¶ & If (MBS( "Math.BitwiseAND"; Card::State; 32 ) = 32; "Removed"; "") Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Card
CardType	Normal, Text	Auto-Enter: Allow editing Do not replace existing value for field (if any) Context table: Card Calculation: If(Card::Attributes = "3BBF13008131FE45455041"; "ACOS04"; "") & If(Card::Attributes = "3BBF11008131FE45455041"; "ACOS04"; "") & If(Card::Attributes = "3bdf18008131fe588031905241016405c903ac73b7b1d444"; "CARDOS"; "") Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Card
FileID	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Card		ReadFile
Status	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Card		Connect ReadFile
FileData	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Card		Connect ReadFile Split
JSON	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Card		Split
Picture	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Card		ReadFile

Layout Objects: SmartCard

Regular Fields

Field Name: SmartCard::Reader Name

Layout Name:

SmartCard

Top: 60 pt
Left: 112 pt
Bottom: 81 pt
Right: 365 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Type:

Text: List SmartCard Readers

Layout Name:

SmartCard

Top: 14 pt
Left: 56 pt
Bottom: 43 pt
Right: 276 pt

Anchoring: Left, Top

Perform Script [ “Initialize” ]

Scripts:

Initialize

Button Properties

Coordinates

Script/Script Step

Type:

Text: Connect

Layout Name:

SmartCard

Hide Condition:

SmartCard::Reader Name = ""

Top: 59 pt
Left: 387 pt
Bottom: 81 pt
Right: 508 pt

Anchoring: Left, Top

Perform Script [ “Connect”; Parameter: SmartCard::Reader Name ]

Scripts:

Connect

Fields:

SmartCard::Reader Name

Layout Objects: Card

Regular Fields

Field Name: Card::Reader

Layout Name:

Card

Top: 52 pt
Left: 138 pt
Bottom: 73 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Card::State

Layout Name:

Card

Top: 73 pt
Left: 138 pt
Bottom: 94 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Card::Protocol

Layout Name:

Card

Top: 96 pt
Left: 138 pt
Bottom: 117 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Card::Attributes

Layout Name:

Card

Top: 119 pt
Left: 138 pt
Bottom: 140 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Card::StateText

Layout Name:

Card

Top: 73 pt
Left: 402 pt
Bottom: 94 pt
Right: 630 pt

Anchoring: Left, Top

Field Format:

Checkbox Set
Display values from: States

Field Behavior:

Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Card::CardType

Layout Name:

Card

Top: 119 pt
Left: 402 pt
Bottom: 140 pt
Right: 655 pt

Anchoring: Left, Top

Field Format:

Checkbox Set
Display values from: CardTypes

Field Behavior:

Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Card::FileID

Layout Name:

Card

Top: 186 pt
Left: 138 pt
Bottom: 207 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Card::Status

Layout Name:

Card

Top: 209 pt
Left: 138 pt
Bottom: 230 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Card::FileData

Layout Name:

Card

Top: 232 pt
Left: 138 pt
Bottom: 385 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Card::JSON

Layout Name:

Card

Top: 233 pt
Left: 451 pt
Bottom: 518 pt
Right: 877 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Card::Picture

Layout Name:

Card

Top: 393 pt
Left: 138 pt
Bottom: 518 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Type:

Text: Back

Layout Name:

Card

Top: 12 pt
Left: 12 pt
Bottom: 34 pt
Right: 77 pt

Anchoring: Left, Top

Perform Script [ “Disconnect” ]

Scripts:

Disconnect

Button Properties

Coordinates

Script/Script Step

Type:

Text: Read File

Layout Name:

Card

Top: 183 pt
Left: 451 pt
Bottom: 212 pt
Right: 609 pt

Anchoring: Left, Top

Perform Script [ “ReadFile” ]

Scripts:

ReadFile

Button Properties

Coordinates

Script/Script Step

Type:

Text: Check Status

Layout Name:

Card

Top: 82 pt
Left: 690 pt
Bottom: 112 pt
Right: 848 pt

Anchoring: Left, Top

Perform Script [ “Check Status” ]

Scripts:

Check Status

Value Lists

Value List Name	Source	Values	On Layouts
States	Custom	Present, Removed	Card
CardTypes	Custom	ACOS04, CARDOS	Card

Next Script: [Connect]

Script Name	Initialize
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	SmartCard
Scripts that use this script
Script Definition
Script Steps	Go to Layout [ “SmartCard” (SmartCard) ] Delete All Records [ No dialog ] If [ MBS( "SmartCard.Valid"; $$SmartCard ) ] #already inited Else Set Variable [ $$SmartCard; Value:MBS( "SmartCard.Init" ) ] End If If [ MBS("IsError") ] Show Custom Dialog [ Title: "Failed to initialize SmartCard"; Message: $$SmartCard; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Else Set Variable [ $list; Value:MBS( "SmartCard.ListReaders"; $$SmartCard) ] Set Variable [ $count; Value:ValueCount ( $list ) ] If [ $count < 1 ] Show Custom Dialog [ Message: "No SmartCard Readers found."; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Else Set Variable [ $index; Value:1 ] Loop New Record/Request Set Field [ SmartCard::Reader Name; GetValue($list; $index) ] Commit Records/Requests [ No dialog ] #next Set Variable [ $index; Value:$index + 1 ] Exit Loop If [ $index > $count ] End Loop End If End If
Fields used in this script	SmartCard::Reader Name
Scripts used in this script
Layouts used in this script	SmartCard
Tables used in this script	SmartCard
Table occurrences used by this script	SmartCard
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Initialize]

Next Script: [Check Status]

Script Name	Connect
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script	SmartCard
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $reader; Value:Get(ScriptParameter) ] Set Variable [ $r; Value:MBS( "SmartCard.Connect"; $$SmartCard; $Reader; "Shared"; "any" ) ] If [ MBS("IsError") ] Show Custom Dialog [ Title: "Connect failed"; Message: $r; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Else Set Variable [ $Protocol; Value:MBS("SmartCard.GetActiveProtocol"; $$SmartCard) ] If [ $Protocol = "T0" ] Set Variable [ $$SendHeader; Value:MBS( "SmartCard.HeaderTemplate"; "T0" ) ] Else Set Variable [ $$SendHeader; Value:MBS( "SmartCard.HeaderTemplate"; "T1" ) ] End If Go to Layout [ “Card” (Card) ] Set Field [ Card::Reader; $Reader ] Set Field [ Card::Status; "" ] Set Field [ Card::FileData; "" ] Perform Script [ “Check Status” ] #for EID cards you may need to go into folder 3F00: // Set Variable [ $r; Value:MBS( "SmartCard.Transmit"; $$SmartCard; "T1"; "00A4020C023F0000"; 200 ) ] #Select subfolder DF 01 // Set Variable [ $r; Value:MBS( "SmartCard.Transmit"; $$SmartCard; "T1"; "00A4020C02DF0100"; 200 ) ] End If
Fields used in this script	Card::Reader Card::Status Card::FileData
Scripts used in this script	Check Status
Layouts used in this script	Card
Tables used in this script	Card
Table occurrences used by this script	Card
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Connect]

Next Script: [Disconnect]

Script Name	Check Status
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Card
Scripts that use this script	Connect
Script Definition
Script Steps	Set Field [ Card::Reader; MBS( "SmartCard.Status"; $$SmartCard; "ReaderName" ) ] Set Field [ Card::State; MBS( "SmartCard.Status"; $$SmartCard; "State" ) ] Set Field [ Card::Protocol; MBS( "SmartCard.Status"; $$SmartCard; "Protocol" ) ] Set Field [ Card::Attributes; MBS( "SmartCard.Status"; $$SmartCard; "ATR" ) ]
Fields used in this script	Card::Reader Card::State Card::Protocol Card::Attributes
Scripts used in this script
Layouts used in this script
Tables used in this script	Card
Table occurrences used by this script	Card
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Check Status]

Next Script: [ReadFile]

Script Name	Disconnect
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Card
Scripts that use this script
Script Definition
Script Steps	If [ $$SmartCard ≠ "" ] Set Variable [ $r; Value:MBS( "SmartCard.DisConnect"; $$SmartCard; "Eject") ] If [ MBS("IsError") ] Show Custom Dialog [ Title: "Disconnect failed"; Message: $r; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] End If End If Go to Layout [ “SmartCard” (SmartCard) ]
Fields used in this script
Scripts used in this script
Layouts used in this script	SmartCard
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Disconnect]

Next Script: [Split]

Script Name	ReadFile
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Card
Scripts that use this script
Script Definition
Script Steps	#Read file from smartcard with APDU protocol. Set Variable [ $result; Value:MBS( "SmartCard.ReadFile"; $$SmartCard; Card::FileID) ] If [ MBS("IsError") ] Set Field [ Card::Status; $result ] Show Custom Dialog [ Title: "Error"; Message: $result; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Else Set Field [ Card::FileData; $result ] Set Field [ Card::Status; "OK" ] If [ Card::FileID = "4035" ] #EID picture Set Field [ Card::Picture; HexDecode ( $result; "test.jpg" ) ] Else Perform Script [ “Split” ] End If End If
Fields used in this script	Card::FileID Card::Status Card::FileData Card::Picture
Scripts used in this script	Split
Layouts used in this script
Tables used in this script	Card
Table occurrences used by this script	Card
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [ReadFile]

Script Name	Split
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script	ReadFile
Script Definition
Script Steps	Set Variable [ $json; Value:MBS("SmartCard.SplitValues"; Card::FileData) ] If [ MBS("IsError") ] Set Field [ Card::JSON; "" ] Else Set Field [ Card::JSON; MBS("JSON.Colorize"; $json) ] End If
Fields used in this script	Card::FileData Card::JSON
Scripts used in this script
Layouts used in this script
Tables used in this script	Card
Table occurrences used by this script	Card
Custom Functions used by this script
Custom menu set used by this script

Download example: SmartCard ReadFile

Used functions: