Monkeybread Software - MBS FileMaker Plugin: SmartCard Signatures

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

MBS FileMaker Plugin Example Databases

SmartCard Signatures

All examples are included with download of MBS FileMaker Plugin.

SmartCard Signatures.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, 0 record	SmartCard
Card	9 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 - 9 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		ReadCertificate PerformSignature
Input for Hash	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		PerformSignature
Signature Output	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 PerformSignature
Certificate	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 ReadCertificate

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::Input for Hash

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::Signature Output

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::Certificate

Layout Name:

Card

Top: 232 pt
Left: 138 pt
Bottom: 401 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 Certificate

Layout Name:

Card

Top: 180 pt
Left: 438 pt
Bottom: 207 pt
Right: 596 pt

Anchoring: Left, Top

Perform Script [ “ReadCertificate” ]

Scripts:

ReadCertificate

Button Properties

Coordinates

Script/Script Step

Type:

Text: Perform Signature

Layout Name:

Card

Top: 226 pt
Left: 438 pt
Bottom: 255 pt
Right: 596 pt

Anchoring: Left, Top

Perform Script [ “PerformSignature” ]

Scripts:

PerformSignature

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::Signature Output; "" ] Set Field [ Card::Certificate; "" ] Perform Script [ “Check Status” ] End If
Fields used in this script	Card::Reader Card::Signature Output Card::Certificate
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
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: [ReadCertificate]

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: [PerformSignature]

Script Name	ReadCertificate
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	#This example is for a speicfic card, which supports signatures. #MBS Plugin can talk various transfer protocols like T0 and T1, but you need to know what protocol your card talks. #The ReadCertificate function only works with the card we wrote it for. Set Variable [ $type; Value:"" ] If [ Card::CardType = "CARDOS" ] Set Variable [ $type; Value:"cardos" ] Else If [ Card::CardType = "ACOS04" ] Set Variable [ $type; Value:"acos" ] Else Show Custom Dialog [ Title: "Unhandled card type"; Message: Card::CardType; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Exit Script [ ] End If Set Variable [ $result; Value:MBS( "SmartCard.ReadCertificate"; $$SmartCard; $type) ] If [ MBS("IsError") ] Show Custom Dialog [ Title: "Error"; Message: $result; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Else Set Field [ Card::Certificate; $result ] Set Variable [ $folder; Value:MBS( "Folders.UserDesktop" ) ] Set Variable [ $path; Value:MBS( "Path.AddPathComponent"; $folder; "test.cer") ] Set Variable [ $r; Value:MBS("Files.WriteFile"; $result; $path; "hex") ] End If
Fields used in this script	Card::CardType Card::Certificate
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: [ReadCertificate]

Script Name	PerformSignature
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	#This example is for a speicfic card, which supports signatures. #MBS Plugin can talk various transfer protocols like T0 and T1, but you need to know what protocol your card talks. #The SmartCard.PerformSignature function only works with the card we wrote it for. Set Variable [ $type; Value:"" ] If [ Card::CardType = "CARDOS" ] Set Variable [ $type; Value:"cardos" ] Else If [ Card::CardType = "ACOS04" ] Set Variable [ $type; Value:"acos" ] Else Show Custom Dialog [ Title: "Unhandled card type"; Message: Card::CardType; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Exit Script [ ] End If Set Variable [ $result; Value:MBS( "SmartCard.PerformSignature"; $$SmartCard; $type; Card::Input for Hash) ] If [ MBS("IsError") ] Show Custom Dialog [ Title: "Error"; Message: $result; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Else Set Field [ Card::Signature Output; $result ] Set Variable [ $folder; Value:MBS( "Folders.UserDesktop" ) ] Set Variable [ $path; Value:MBS( "Path.AddPathComponent"; $folder; "signature") ] Set Variable [ $r; Value:MBS("Files.WriteFile"; $result; $path; "hex") ] End If
Fields used in this script	Card::CardType Card::Input for Hash Card::Signature Output
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 Signatures

Used functions: