FeliCaチップへの 秘密分散共有法の適用
Contents
1. 69 00000000200 UDDUDD 0 DHHHHHHHHHHHHHHHHHsHHHHHHH 00000 f x 1 C 0 1 2 1 2000000000 b 1HHHHHHHHHHH U 23 0000000 16 0000 2 2 3 3 DOOD HHHHHHHHHHHHHHHHHHHHHHH HHHHHHH modpQ OOO 1 0000 a DOO p gt max s n 00000 20000 b 200 7 0 UU CFP 100000 f x 8 018 air mod 1 EU EU EE EET El c 9 0 1 lt lt D U 2 00000 TTT Pi sss LD Pp vi f i mod p 2 2 1 gyHHHHH HHHHHH 1HHHHHHH HHHHHHHHHHHHH Lagrange f x Alx f i A z p 3 000 A z emis Vai mod p 4 ig S O000000000z i0 00000000000000 SEKR BEA s f 0 A 0 4 Ag 0 f i mod p 5 00000000 0 30 HHHHHHHHHHL 17 O0 30 HHHHHHHHHHL 000000 209 0000000000000 FeiCaQ 000 k n 0O 000 ES E E2. n n 100fh Ado BADAWI ID 0000h 1008h 1009h 100ah 100ch VAIN 77 MH 2000h 2008h BMH 200bh JI I I I UI LD BM 3 DES 11 0
3. HHHHHHHHHHHHHHHHHHUHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHUHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHH4HHHHHHHHHHHHHH 00 0 000000 0000000000 e 000 0000000 0000 0000000000 0000000000 0000 HHHHHHHHHH HHHHHHHHHUHHHHHHHHHHHHHHHHHHHHHHHHH 00000 020 0000 13 23 HHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHUHHHHHHUHHHUHHHHHHH HHHHHHHHHHHHHHHHHHHUHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHH HHHHHHH 20000 231 0000000000000 HHHHHHHHHHHHHHHH HTTACHIHHHHH 0000 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 1 HHHHHHHHHHHHHHHUHHHHHHHHHHHHH y 2000000000000000000000000000000 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHUOSBHHHHHHHH HHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH slHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHPCHHHHHHHHHHH HUSBHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 00000 USBHHHHHHHHHHHHHHHHHH USBHHHHHHHHH USBHHHHHHHHHHHHH HHHHUHHHHHHHHHHHHHHHH slHHHHHHHHHHHHH HHHHHHHHHHHUHHHHHHHHHUHHHUHHHUHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHUHHHHHHHUHHHHHHHHHHHHHHH
4. 30 HHHHHHHHHHH 20 32 HHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 00000000000000 200000000000 830000 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHH D silHHHHH16HHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHH slHHHHHHHHHHHHHHH1IHHHHHHHHHHHHHHHHH HHHHUHHHHHHHHHHHHHHHH e 000000000000000000000000 IS nh 000 HHHHHHHHHHHHHOHHHHHHHHHHHH 0 00000 Oooo 8 20 0 100000 12345677 00 0000000000000 OOOO 160000000 1234567 120687 0 000 00 100000000000 DU HU o sr pe 12 00 oo oo oo oo oo oo oo oo o OM vr o 02 os 00 00 vin oo oo oo o oo o0 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 3 1 100 0 0 D 12345671 0 D 0 D 21 030 HHHHHHHHHHH 1 1 F 2 FeliCa H FP 822 AH 0 3 2 00000000 030 HHHHHHHHHHH FeliCa J FD F 1 FDE ABO AX Lob 33 000000000 30 HHHHHHHHHHH 23 33 0000000 0000000000000
5. 9 000000 2 OK Y 0000000000 8 nM 1 uU utu OK ______________ DUU 35 2 26 030 2 ENE LLLLLLL l Hello DUDU LU p HIHHHHHHHHHHHH 366HHHHHHHHHHHHHHH 0 30 HHHHHHHHHHL 27 ar 01 44 or or ae or oo or 00 01 oc ud FF o1 02 oo 01 02 01 02 01 102101102100 Ual UU I UU I LU an 02 os 02 as 2a 02 2a 02 E prlor oo
6. DI L1 L1 L1 L1 L1 L1 L1 3 E L1 L1 L1 L1 L3 L3 L3 OOo 030 00000000000 18 31 HHHHHHHHUHHHHH 311 0000 0000000 e FeliCa II ID utl RFID e FeliCa 00 UD D 0 00 0000000 HHHHUHHHHHHHHHHHHHH HHHHHHHH HHHHHHHHWindowsHHHHHHHHHHHHHHHHHHHHHH WindowslHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH l 31 0000 OS Microsoft Windows XP Professional Service Pack 2 0000 Basic Microsoft Visual Basic 2005 Express Edition 000 000 0000000000000 PR 400UDM 000 0000000 HHHHHH HHHHHHHHHHHHHHHHHHHHHHH BODO HHHHHHHHHHHHHHHHHHHHH 0000000000 HHHHHH 30 HHHHHHHHHHH 19 31 2 00000000000 WindowslHHHHHHHHHHHHHHHHHHUHHHHHHHHHHH HHHHHHHHHHHHHHHHH HHHHHHHH 0000 1 2000000 00 00 0 s000 3HHHHHUHHHUHHHzHHHHHHHHHH 4 5 HHHHHHHH HHHHHHHHHH 6 OOOOOOOO mi UL 8 0000 9 0000 00000 HO SO O 80 00000000 1S S ui 11 00000000000 UUUUUUUUU 1 0000000000 2 0000 0000000000000000 000 2 00000 v 00000 3 00000000000000000 000 20 00000000 is j kl o 000000 0 4 5000000
7. vvalue 0 0 result ifd SetControl vtag vvalue vinfBuff vbuffSize vinfLen If result gt lt NORMALEND Then Call upDateEdit 2 R W Authentication Error result Else Call upDateEdit 2 R W Authentication OK result End If RW Authentication Ex result End Function Private Function CatchCard Ex As Integer Dim result As Integer Dim vmode As Integer Dim vspeed As Integer OU 79 Dim vtype 1 As Integer Dim vinfBuff 256 As Byte Dim vbuffSize As Integer Dim vinfLen 1 As Integer vmode 1000 1000ms 000 vspeed CARDSPEED DEFAULT vtype 0 0 II D B B BU D U vbuffSize 6 StartTransaction result icc StartTransaction vmode vspeed vtype _ vinfBuff vbuffSize vinfLen If result gt lt NORMALEND Then Call upDateEdit 16 HHHHHHHHHHH Call upDateEdit 2 StartTransaction Error result CatchCard Ex result Exit Function End If Call upDateEdit 2 StartTransaction OK result Felical DU D D D If vtype 0 And Not CARDTYPE MORECARD CARDTYPE C Then FelicalDOOOOOOOOOOOOO Call upDateEdit 1 Catch 261108 Card FeliCa 00000000000 0000 Else 11 Call upDateEdit 1 Catch Another Card End If Call upDateEdit 3 vinfBuff
8. vvalue 0 SetSpeed 00000000000000 Cops vbuffSize 6 result ifd SetControl vtag vvalue vinfBuff _ vbuffSize vinfLen If result gt lt NORMALEND Then If SetSpeed DEF_9600 Then Call upDateEdit 2 Change Baudrate 9600 Error result Else Call upDateEdit 2 Change Baudrate 115200 Error result End If Else If SetSpeed DEF 9600 Then Call upDateEdit_2 Change Baudrate 9600 OK result Else Call upDateEdit 2 Change Baudrate 115200 OK result End If End If ChangeSpeed_Ex result End Function 7 FEL ELE i 49 Private Function RW Authentication As Integer Dim result As Integer Dim vtag As Integer Dim vvalue 256 As Byte Dim vinfBuff 256 As Byte Dim vbuffSize As Integer Dim vinfLen 1 As Integer e IrFDHHHHHHHHHH 7HHHHHHHHHHH EL PUT El EP EE El vtag 814088010 vvalue 0 amp H3 VQ B U D U D vvalue 1 amp HFF 1 000 vvalue 2 amp HFF vvalue 3 amp HFF vvalue 4 amp HFF vvalue 5 amp HFF vvalue 6 amp HFF vvalue 7 amp HFF vvalue 8 amp HFF vvalue 9 amp HFF 00000 100000000 2 000 vvalue 10 amp HFF vvalue 11 amp HFF vvalue 12 amp HFF vvalue 13 amp HFF vvalue 14 amp HFF vvalue 15 amp HFF vv
9. Edit 5 7 ep3 Change Baudrate 115200 OK Result 00000000 4 IFD Authentication Set OK Result 00000000 R W Authentication OK Result 00000000 5 Change FeliCa Start model OK Result 00000000 Step StartTransact ion EM Result 00000000 Catch FeliCa Ca Data 01 15 00 1C 08 70 08 03 01 4B 02 49 FF 00 00 00 00 01 12 34 56 78 9A BC DE FO 00 00 00 00 00 00 00 Step ReadllithoutEncryption Command OK Result 00000000 5 2 0 HHHHHHHHHHHHHHHHHHHHHHHHHHHH OU 40 Option Strict Off Option Explicit On Imports VB Microsoft VisualBasic Friend Class FormMain Inherits System Windows Forms Form ET EF EE EE EP Public ifd As Object Public icc As Object Public fel As Object FeliCa Private Sub OnFeliCa Exe Click ByVal eventSender _ As System Object ByVal eventArgs _ As System EventArgs Handles OnFeliCa_Exe Click Dim result As Integer Call upDateEdit_1 FeliCa Sample Start 2 Do amp Step1 Call upDateEdit_1 Step1 result CreateObject_Ex If result gt lt NORMALEND Then Exit Do End If 41 e Step20 IFD UU API I UI UI I D LI UU Setup Call upDateEdit_1 Step2 result ObjectSetUp_Ex If result lt
10. Call upDateEdit 1 Step10 Call ReleaseAid Ex Call upDateEdit 1 FeliCa Sample End amp vbCrLf End Sub 1 Private Function Create0bject_Ex As Short On Error Resume Next 77HHHHHHHHHHHHHHHHHH If ifd Is Nothing False Or icc Is Nothing False Or fel Is Nothing False Then Call ReleaseAid_Ex End If ifd CreateObject IFD RW If ifd Is Nothing gt lt False Then Call upDateEdit 1 IFD Object Create Error CreateO0bject Ex 1 Exit Function End If OU 44 Call upDateEdit_1 IFD Object Create OK icc CreateObject ICC Card If icc Is Nothing gt lt False Then Call upDateEdit_1 Card Object Create Error CreateO0bject Ex 1 Exit Function End If Call upDateEdit 1 Card Object Create OK Felica JU D D U fel CreateObject FeliCa2 API If fel Is Nothing lt gt False Then Call upDateEdit_1 FeliCa API Object Create Error Create bject_Ex 1 Exit Function End If Call upDateEdit 1 FeliCa API Object Create OK CreateO0bject Ex NORMALEND End Function IFD HHH 7APEHHHHHHHHHH SetOpHHH 7 KpR 400 500 00000000000 Private Function ObjectSetUp_Ex As Integer Dim r
11. AIDHHHHHHHHHHHH O PR 400UDM UsersManual PR CommandManual IPRHHHHHHHHHH 300 500F O PR 301 PR 400 PR 500FeliCaQ PR 301 PR 400 HHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHH 60000 0000 0000 UUUUUU 00000000000 000000 HHHHUHHHHHH http www kochi tech ac jp library ron 2006 2006info full 1070425 pdf 7 UDO 0000 0000 000000000 000000 REIDHHHHHHHHHHHHHHHHHHHHHHH http www kochi tech ac jp library ron 2004 2004info 1050344 pdf 0000 35 0000 0000 00000 FeliCa B B B Hl B1 H U B BO LI LI UI UID L http www nol info kanagawa u ac jp research 2006 1yama pdf Felica 000 0 IT http www atmarkit co jp frfid special felica felica01 html HHHHHHHHHHHHHH FeliCa http www rdsc jp felica index html IT http www atmarkit co jp fsecurity special 53tsss tsss html 0000 00000 http www hitachi co jp Prod comp warifu index html J KDDIUUN 0000 http www kddilabs jp press detail 99 html 00000 http www jreast co jp suica PASMOHHHHHH http www pasmo co jp Microsoft Visual Studio U http www microsoft com japan msdn vstudio HHHHHHHH FeliCa http www tokodenki co jp so
12. End If tmpInt 0 tmpData 3 tmpInt 1 ObjCount tmpInt 2 CInt tmpData 4 256 CInt tmpData 20 1 Else tmpInt 0 tmpData 3 tmpInt 1 ObjCount tmpInt 2 tmpInt 2 _ CInt tmpData 4 256 _ CInt tmpData 20 1 End If Elself tmpData p gt lt 0 And tmpData p 1 _ lt tmpData p Then tmpInt 2 tmpInt 2 _ CInt tmpData p 16 _ 256 7 CInt tmpData p 1 ElseIf tmpData p lt gt O And tmpData _ p 1 gt tmpData p Then Data Add tmpInt Clone Call upDateEdit 1 Data amp _ ObjCount 8 amp tmpInt 2 ObjCount 1 tmpInt 0 tmpData 3 tmpInt 1 ObjCount tmpInt 2 CInt tmpData p 16 256 CInt tmpData p 1 Elself tmpData p 0 Then Data Add tmpInt Clone OU 69 Call upDateEdit_1 Data amp _ ObjCount amp amp tmpInt 2 Exit For End If Next p Else Exit Do End If je Loop While 1 j 0 If fDec DialogResult Windows Forms _ DialogResult OK Then Exit Do End If m 1 ObjCount 0 fDec Label Text m amp Label Text Loop If fDec DialogResult Windows Forms DialogResult _ Cancel Then Return Res Exit Function End If Res DeSSS Data m Call upDateEdit 1 amp Res Return Res End Function Private Function DeSSS ByVal Data As ArrayList _ ByVal k As Integer As String Dim counter As Integer Dim size As Integer Data Count k Dim i As
13. FeliCa J OU Ll HHHHHHHHHL HHHHHHUHHHHHHHHHHH 0000 200502689 Uu UUUUL uu UU Oo 29 32 33 34 89 111 0000 121 0000 ET NAA OMI asas assess ae a es 212 uu Ex D9 BG IP ions Y O pos ITI En ui utn vs tes TE p tee EE A A ad Oe 4 gt gt een 232 GORDON u 224222 lan es bee SEEN ee s eee nee s oy RE RANA CC 00 36 000 UW UU 5 PIECE hee B 1 100000 12345671 se E 34 HHHHHHHHHHHHHH OJ 35 HHHHHHHHHHHHHH O 51 WEE 000 L3 L3 p C3 Jr L3 E3 E EI ET ET EE 0000 0000 HUHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHUHHHHHHHHHHHHHHHHHHH 000000 10000 ICHHHHHHHHHHHHHHHHHHHH UHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHH
14. OU 60 HHHHHHHHHHHH FrenMain vb Option Strict Off Option Explicit On Imports System Imports System IO Imports VB Microsoft VisualBasic Friend Class FormMain Inherits System Windows Forms Form Private Shared Timer1 As New System Windows Forms Timer d a Bull Public ifd As Object Public icc As Object Public fel As Object FeliCa ll Dim f As New FormSub Dim f2 As New FormReg Dim fEnc As New FormEnc Dim fDec As New FormDec Dim fResult As New FormResult Dim Temp As String Dim Flag As Boolean Private Shared Flag2 As Boolean True Dim Flag3 As Short Private Sub Form Load ByVal sender As System Object _ ByVal e As System EventArgs Handles MyBase Load Dim result As Integer upDateEdit 1 amp vbCrLf gt Step1 OU 61 If result NORMALEND Then result CreateObject_Ex End If e Step2 IFD D O UI I I Setup If result NORMALEND Then Do App
15. amp HO 1H I 70000000000 U vvalue 1 amp 1 PR 400 PR 500 I O U U U U vbuffSize 256 result ifd SetControl vtag vvalue vinfBuff vbuffSize vinfLen If result gt lt NORMALEND Then Call upDateEdit 2 PR 400 500 Function Set Error result Else Call upDateEdit 2 PR 400 500 Function Set OK result End If 56528400 500FuncUse Ex result End Function Private Function ChangeSpeed Ex ByVal SetSpeed As Integer _ As Integer Dim result As Integer Dim vtag As Integer Dim vvalue 256 As Integer Dim vinfBuff 256 As Byte Dim vbuffSize As Integer Dim vinfLen 1 As Integer vtag amp H4010007 vvalue 0 SetSpeed 00000000000000 Cops OU 76 vbuffSize 256 result ifd SetControl vtag vvalue vinfBuff _ vbuffSize vinfLen If result lt gt NORMALEND Then If SetSpeed DEF_9600 Then Call upDateEdit_2 Change Baudrate 9600 Error result Else Call upDateEdit_2 Change Baudrate 115200 Error result End If Else If SetSpeed DEF_9600 Then Call upDateEdit 2 Change Baudrate 9600 OK result Else Call upDateEdit 2 Change Baudrate 115200 OK result End If End If ChangeSpeed Ex result End Function Private Function RW Authentication Ex As Integer Dim result As Integer Dim vtag As Integer Dim vvalue 256 As Byte Dim vinfBuff 256 As Byte Dim vbuffSize As Integer Dim vinfLen 1 As Integer e rfFDHHHHHHHHHH 7
16. End If ReleaseCard Ex result End Function OU 84 Edit U UU result Data Private Sub upDateEdit 1 ByVal OutMsg As String f LogBox Text f LogBox Text amp OutMsg amp vbCrLf f LogBox SelectionStart Len f LogBox Text f LogBox ScrollToCaret System Windows Forms Application DoEvents End Sub Private Sub upDateEdit_2 ByVal OutMsg As String _ ByVal result As Integer txtEdit Text txtEdit Text 8 OutMsg amp Result amp _ VB6 Format Hex result 00000000 amp vbCrLf txtEdit SelectionStart Len txtEdit Text System Windows Forms Application DoEvents End Sub End Sub Private Sub upDateEdit_4 ByVal result As Integer txtEdit Text txtEdit Text amp Result gt _ amp VB6 Format Hex result 00000000 amp vbCrLf txtEdit SelectionStart Len txtEdit Text System Windows Forms Application DoEvents End Sub Private Sub upDateEdit 6 ByVal OutMsg As String Timeri Interval 0 AddHandler Timer1 Tick AddressOf TimerEventProcessor Timer1 Start Do While Flag2 Label Text DutMsg OnFeliCa_Exe Enabled False 85 System Windows Forms Application DoEvents Loop Flag2 True OnFeliCa Exe Enabled True RemoveHandler Timer1 Tick 260108801 TimerEventProcessor End Sub Private Sub HexOutput ByVal data As Byte Dim max As Integer data Length 1 Dim i As Short Dim str As String For i O To max str str amp VB Right O amp Hex data
17. vinfLen 0 OU 80 HHHHHHH If vtype 0 And CARDTYPE MORECARD Then 7 7HHHHHHHHHHHHHHHHH Call upDateEdit 1 More Card Exist End If CatchCard Ex result End Function Private Function Fel Read Ex ByVal num As Integer As Byte Dim result As Integer Dim vsCount As Byte Dim vsList 1 As Byte Dim vbCount As Byte Dim vbList 3 As Byte Dim vrxBuff 256 As Byte Dim vbuffSize As Integer Dim vrxLen 1 As Integer Dim data 31 As Byte vsCount amp H1 vsList 0 9 vsList 1 0 num 2 vbCount 2 vbList 0 0 vbList 1 num vbList 2 amp H80 vbList 3 num 1 1 vbuffSize 6 If num lt 10 Then vsList 0 amp H9 vsList 1 2 vbList 1 num 12 vbList 3 num 11 End If result fel ReadWithoutEncryption vsCount vsList _ vbCount vbList vrxBuff vbuffSize vrxLen If result gt lt NORMALEND Then Call upDateEdit 6 H B B Fel Read Ex data Exit Function End If ReadwithoutEncryption If vrxLen 0 lt 2 Or vrxBuff 0 gt lt amp HO Or vrxBuff 1 amp HO Then Call upDateEdit 6 H D B Label Text Label Text amp vbCrLf amp vbCrLf amp vbCrLf amp JOOOUOOOOOOGO Fel Read Ex 8 Exit Function End If Fel Read Ex vrxBuff End Function WriteWithoutEncryption l 0 77HHHHHHHHHHHHHHHH Private Function Fel Write Ex ByVal Data
18. As Integer Dim m As Integer Dim n As Integer Dim count As Integer 0 Dim count2 As Integer Dim y As Integer Dim result As Integer For m 1 To CardNum OU 65 fEnc Label Text m amp Call upDateEdit_1 Card No amp m If fEnc ShowDialog Me DialogResult OK Then Do Application DoEvents gt StartTransaction I result CatchCard Ex If result NORMALEND Then Exit Do End If Loop While 1 Label Text count2 0 For n 0 To key Length 1 data SSS m a key n CardNumK p y 1 Do If count 0 Then DataByte 0 m DataByte 16 amp HFF count 1 End If DataByte count CByte data Mod 256 data data 256 DataByte count 16 y count 1 y 1 If count 16 Then result Fel_Write_Ex DataByte _ count2 HexOutput DataByte count 0 count2 2 ElseIf data 0 And n _ key Length 1 Then For count count To 15 DataByte count 0 DataByte count 16 0 Next OU 66 result Fel_Write_Ex DataByte _ count2 HexOutput DataByte If result NORMALEND Then For count 0 To 31 DataByte count 0 Next count count 0 result Fel_Write_Ex DataByte _ count2 2 result ReleaseCard_Ex End If End If Loop While data Next n Else Return Res Exit Function End If Next m Res HHHHHHHHHHHH Return Res End Function Private Function SSS ByVal x As
19. Dim vinfBuff 256 As Byte Dim vbuffSize As Integer Dim vinfLen 1 As Integer vtag amp H2200008 vvalue 0 amp H1 1 vvalue 1 amp H1 vvalue 2 amp HFF 000000 0 vvalue 3 2000000000060 vvalue 4 amp H1 1 vvalue 5 amp H9 D 0x1009 vvalue 6 amp H10 00000000000 vvalue 7 amp H1 1 vvalue 8 amp H80 0x8000 vvalue 9 000000000060 vbuffSize 6 OU 52 result icc SetControl vtag vvalue vinfBuff _ vbuffSize vinfLen If result lt gt NORMALEND Then Call upDateEdit_2 Change FeliCa Start model Error result Else Call upDateEdit_2 Change FeliCa Start model OK result End If SetStart felmodei Ex result End Function Private Function CatchCard Ex As Integer Dim result As Integer Dim vmode As Integer Dim vspeed As Integer Dim vtype 1 As Integer Dim vinfBuff 256 As Byte Dim vbuffSize As Integer Dim vinfLen 1 As Integer vmode 1000 vspeed CARDSPEED DEFAULT 100000000600 vtype 0 0 7 HHHHHHHH vbuffSize 6 7 StartTransactionl result icc StartTransaction vmode vspeed vtype _ vinfB
20. FF o1 02 o1 o2 01 0901102101 102101102100 ra Sets E Sun bHHHHHHHHH os 3 02 02 os o os os oc os o2 02 00 Zr 02 01 o2 01 02 101102101 02 01 02 00 OL Oo as Fb aS 14 35 0 30 00000000000 28 0000 8 20 008 20 000000000000 sHHHHHHHHHH 100 00000000000000 830 00000000600 0 3 3 000000000000000 U 000 000 10 Hg 295 10 Ho 518 20 ef 324 20 el 547 3n 10 331 3r ID 554 40 10 331 40 ID 554 50 334 50 of 557 6n 10 256 60 10 479 256 479 0000 b D O00 000 10 Ho 74 20 ef 770 3n 10 40 10 50 ol 780 6n 10 702 70 10 702 9 6 HHHHHHHH shHHHHHH 000 s Helol7HHHHHHHHHHHHHHHHHHHHHHHHHH 040 29 041 UU HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHH e HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHUHHHHHUHHHHHHHUHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHH 0 0 sU 700070000 This is t
21. HHHHHUHHH 020 0000 14 000000000000 HHHHHHHHHHHH USBHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHUHHHHHHHHH HHHHHHHHHHHHHHHH 2 3 2 kn 00000 HHHHHHHH HHHHHHHHHHHHHHHHHzHHHHHHHHHHHHHHHAH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH HHHHHHHHHHHHHHHHHHHHHHHHHH 0000 HHHHHHHHHHHHHH kn 000000000 HHHHHHHHHHHHH 0000 0000 000000000000 20 00000000 P P 000000 220 00000000000000000000000 Pa Pn Pn b U 22 0000000 e 0000 sHHHzHHHHHHHHHH ue DD DU Del FOOOOO 00000 0 O0000n00000000000000000000 OOO 5000 00 020 0000 15 lt km llu 50000000 UDO 10000000 5000000000000 k n 0000000 Shamir Q O00 HHHHHHHHHHHHHHHHHHHHH 9 0 0000 5 sto 00 20000 9 00000000 1 lt 2 lt 20 1 0 2 22 00000 6
22. 000 2 224 HHHH FehCalHHHHHHH16HHHHHHHHHHHHHH16HHHHHH HHHHHHHHHHHHHHHHHHHHHUHHHHHHHHHHHHHHL HHHHUHHHHHH2HHHHHHHHHHHHH HHHIFeRCaHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHFehCalHHHHHHHHHHHHHHHHHHHHHHHHHHHHH OO D0000 00 100000000 IDGDmHHHHHHHH PMu 000 sHHHHHHHHHHHHIDmH FeicagOOOOOOOOOOOOOO HHHHHHHHHHHHHHHHHHHHHHFMmHHHUHHHHHH HUHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHH 000 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHH 2000 0000 HHHHHH 2HHH HHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHH WindowsHHHHHHHHHH 2HHH HHHHHHHHHHHHHHHHHHHHHH mdowsHHHHHHHHHHHHHHHHHHHHH BE EE E sHHHHHHH HHH3HHHHHH WindowsHHHHHHHHHH sHHHHHHHHHHHHHHHHH HHHH HHHHHHHHHHH HHHHHHHHHHHHHHH Lr DEI EN RS d 0 0 12 0000 2 00000000000000 225 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHUHHHHHHHHHHH4HHHHHHHHHHHHHH 00 0 000000 0000000000 e 000 0000000 0000 0000000000 0000000000 0000
23. 0000000000000000000 33 1 HHHHH HIHHHHHHHHHHHHHHHHH 0 3 2 00000 0000 8 Hello 000 3 k 2 HHHHHHHsHHHHHHHUHHHHHHHH Helloll 0x 48 65 6C GF 21 21 HHHHHHHHHHHHHHHHHHHHHHHHHH 33 2 HHHHH HHHHHUHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHH st 0 0 Hello HHHHHHHHHHHHHHHHHHHHHHHHHHH GUOIHHHHHH 0000 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH BA amp BIHHHHB6IHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 030 00000000000 24 al 000000000 x Sen HHHHHHHH 80000 8000 Hello sew 3 3000000 2 r3 3 E sven Jr nee 0000000000 HHHHHH OK ok J Lew DUU U 3400000000000000 1 25 030 t3 1 OK
24. As Byte _ ByVal num As Integer As Integer Dim result As Integer 82 Dim vsCount As Byte Dim vsList 1 As Byte Dim vbCount As Byte Dim vbList 3 As Byte Dim vbData 31 As Byte Dim vrxBuff 256 As Byte Dim vbuffSize As Integer Dim vrxLen 1 As Integer vsCount amp H1 vsList 0 amp H9 vsList 1 amp H10 vbCount 2 vbList 0 0 vbList 1 num vbList 2 0 vbList 3 num 1 If num lt 10 Then vsList 0 amp H9 vsList 1 2 vbList 1 num 12 vbList 3 num 11 End If vbData 8 vbuffSize 6 result fel WriteWithoutEncryption vsCount vsList vbCount vbList vbData vrxBuff vbuffSize vrxLen If result gt lt NORMALEND Then Call upDateEdit 2 WriteWithoutEncryption Command _ Error result Fel Write Ex result Exit Function End If OU 83 ReadwithoutEncryption If vrxLen 0 gt 2 And vrxBuff 0 amp HO And vrxBuff 1 amp HO Then Else Call upDateEdit 1 WriteWithoutEncryption Data _ Contents Error End If Fel_Write_Ex result End Function Private Function ReleaseCard_Ex As Integer Dim result As Integer Dim vmode As Integer wmode 0 7 HHHHHHHH O HHHHHHHHHHHHHH EndTransaction result icc EndTransaction vmode If result gt lt NORMALEND Then Call upDateEdit 2 EndTransaction Error result Else Call upDateEdit 2 EndTransaction OK result
25. HHH HHHHHHHHHHHHHHHHHHHH 0000 ICHHH HHHICHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHH ICHHHHH HHHHHHHHHHHHHHHHHHHHHHHUHHHHHHHHHH HHHHHHHHHH2mmHHHHHHH10mmHHHHHHH U U HHHHHHHHHHHHHHHHH TypeA TypeBU FeliCa L3 L3 L3 L3 0 0 0 020 0000 2 2 FeliCal 0000 2 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHUH 1200 HHHHHHHHHHHHHHHHHHHHHHHHHHICHHHHHHHL SuicaU PASMOHHHHHHHHHHHHHH 00000 HHHHHHHH FeiCaHHHH 0000 00000 00 000 feicityyHHHHHHH 00000000000000 ICO 00 ISO 1443 0000000 HHHHHHHHHHHHHHHHHHHHHICHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHH ISO IEC 15408 EAL4HHHHHHHH HHHHICHHHHHHHHHHHHHHHHHHEFehCaHHHHHHHH HHHHHHHHHHHHHH 0 0 0 0 020 0000 2 2 1 FeliCa D ll FehCalHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHH UHHH HHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHICHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHUHHHHHH 00000 00000000000000 HHHHHHHHHUHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHH
26. HHHHHHHHHHHH 00007 00000 00000000000 00000000 0000 000 00000000 00000000000 OO HHHHHHHHHHHHHHHHHHH 0000000600 2 1 1 RFID Radio Frequency Identification 0 0000000000000000 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH OD ICHHHHHHHHHHHHHHHHHHHHHHHHHH A HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHREIDHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH IIHHHHHHHHHREIDHHHHHHHHHHHHHHHHHHHHHH uU uU CC E E HHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHUHHHHHHHHHH 00000000 HHHHHHHHHHHHHHHHHHHHUHHHHHHH HUHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HUHHHHHHHHH2HHHHHHHHHHHHHHUHHHHHHHH L3 L3 L3 L3 L3 0 0 0 HUHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHUHHHHHHHHUHHHHHHHHHHHHHH HHHHHH 020 0000 212 HHHUHHHHHHHHH ICHHH THHHHICHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHL HHHHHHICHHHHHHHHHHHICHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHICHHHHHHHH ICHU HHHHHHHH 000 ICHHH HHHICHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHICHHHHHHHHHHHHHHHHHH HHHHHHHHHICHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHUHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHUHHHUHHHUHHHUHHHHHHHHHHHHL HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
27. HHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHUHHHUHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHUHHHHHUHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHH KDDIHHH 30 HHHHHHHHHHUHHHHHHHHHHHHHUHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHH FeliCa J HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHL HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 0 0 0 0 0 33 UUUDUUUDDDUDUUUUDUUUDDUUDUUUUDDUDDOUD HHHHHHHHHHHHHHHHHHHHUHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHUHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHH 0000 34 DOUG 1 SonyJapanFeliCa O http www sony co jp Products felica HHHHHHHHHHHHHH HHHHH 00000 20040 3 Microsoft RFID U O http www microsoft com japan business rfid about default mspx 4 FeliCa Networks 0 0 http www felicanetworks co jp index html 5 Ul Il Ii I I Ilu I I HHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHH
28. HHHHHHHHHHHHHHHHHHHHHHHUHHHHHHHH 000 HHHHHHHHHHL HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHUHHHHHHHHHH 0000 HHHHHHHHHHHH ICHHHHHHHHHHHHHHHHH HHHHHHEFehCalHHHHHHHHHHHHHHHHHHHHHHHHH D FehiCalHHHHHICHHHHHHHHHHHHHHHHHHHHTFehCaHH HHHHHHHHHHHHHHHUHHHHHUHHHHHHHHHHHHHHHH HHHHHHHHHHH THHHHHHHH THHHHHHHHHHHHHHH HHHHUHHHHHHHHHHHHHHHHHHHHHHHHH 10 020 0000 2 2 2 i ttl FeiOaHHHHHHHHHHHHHHH DES g 0000000 DESH 0 HHHHHHHH DESHHHHHHHHDualHHHHHH 00 00000 HHHHHHHHHHHHHHHHHHHHHH 1HHHHHGHHHHH HHHHHHHHHICHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHUHHHHHHHHHHHHHHHHH HHHUHHHHHHH 000 HHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHUHHHHHHHHHHHHHHHHHHHHHH HHHHUHHHHHHHHHHHHHHUHHHHHHHHHHHHHL 2 2 3 FeliCa l FeiCalHHHHHHHHHHHHHHHHHHHHHHHE1IHHHH HHHHUHHHHHHHHHHHHHHHHHHHHHHHHUHHHHHH DES 00 00 00 I I I I I I I I I I I
29. HHHHHHHHICHHHHHHHHHHICHHH HHHHHHHHHHHHHHHHH1IDHHHHHHHH HHHHHHHHHHHHHHUHHHHHHHHHHH IC 0 0 0 0 0 0 L1 0 0 0 0 0 0 0 Felica 0000 fo 0900000000000 ICHHHHHHHHHHHHHHHH SuicaQ ADD PAS 0 HHHHHHHHHH 1200 HHHHHHHHHHHHHH HHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHH HHHHHHHHHHHHHHHHHHHHHHH HHHHHHHICHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHUHHHHUHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHH fy HHHHHHHH HHHHHUHHHHHUHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHH EJ EXE EXE CET 0 0 0 0 0 OO ICHHHHHHH HHHH 0 0 0 0 0 0 0 0 0 0 0 L3 L3 L3 L3 L3 L3 i LT L3 E3 p3 Oo Oo g 0 0 0 0 0 0 020 0000 020 1010 21 HHHICHHHHH HHHHHHHHHHHHHHHHHHHHHH
30. If Check1 CheckState 1 Then result SetPR400_500FuncUse_Ex If result lt gt NORMALEND Then DbjectSetUp_Ex result Exit Function End If End If e U U Setup result icc SetUp CF FEL2 ifd If result gt lt NORMALEND Then Call upDateEdit 2 Card Object SetUp Error result ObjectSetUp_Ex result Exit Function End If Call upDateEdit 2 Card Object SetUp OK result e APTHHHHHH Setup result fel SetUp icc If result gt lt NORMALEND Then Call upDateEdit 2 FeliCa API Object SetUp Error result O0bjectSetUp Ex result Exit Function OU 74 End If Call upDateEdit 2 FeliCa API Object SetUp OK result O0bjectSetUp Ex result End Function Private Sub ReleaseAid FeliCa API U U d D U If fel Is Nothing False Then fel Nothing Release API End If If icc Is Nothing False Then icc Nothing Release End 7 rFDHHHHHHHHH If ifd Is Nothing False Then ifd Nothing Release 000 lJ End If Call upDateEdit 1 Release 111 Aid Object OK End Sub Private Function SetPR400_500FuncUse_Ex As Integer Dim result As Integer Dim vtag As Integer Dim vvalue 256 As Byte Dim vinfBuff 256 As Byte OU 75 Dim vbuffSize As Integer Dim vinfLen 1 As Integer vtag 814080500 vvalue 0
31. Integer Dim j As Integer 70 1 As Integer 1 As Integer tr As String II er As Double As Double 1 As Double As Double As Double 1 1 ter 0 To size 1 i 0Tok 1 ij i Data i size counter 0 F i Data i size counter 2 i 1 1 Tok For j 1 To k If j gt lt i Then LamA LamA ij j 1 LamB LamB ij i 1 ij j 1 Lam Lam ij j 1 GjG 1 _ ij j 1 End If Next j LamS LamA LamB answer answer LamS F i 1 Lam 1 LamA LamB i 1 1 tr ResStr CStr Chr CInt answer er 0 nter ResStr Dim ij k Dim F k Dim ResS Dim answ Dim Lam Dim LamA Dim LamB Dim LamS For coun For Next For Next ResS answ Next cou Return End Function OU 71 Private Function CreateObject_Ex As Short On Error Resume Next If ifd Is Nothing False Or icc Is Nothing False Or fel Is Nothing False Then Call ReleaseAid_Ex End If ifd CreateObject IFD RW If ifd Is Nothing gt lt False Then Call upDateEdit 1 IFD Object Create Error CreateO0bject Ex 1 Exit Function End If Call upDateEdit 1 IFD Object Create OK 77HHHHHHHHHHHH icc CreateObject ICC Card If icc Is Nothing gt lt False Then Call upDateEdit 1 Card Object Create Error CreateO0bject Ex 1 E
32. Integer ByVal a As _ Integer ByVal s As Integer ByVal k As Integer ByVal p As Integer Dim answer As Integer 8 Dim j As Integer For j 1 To k 1 answer answer 1 j x k 1 Next j Return answer End Function 67 Private Function Decrypt As String Dim Res As String Dim tmpData 34 As Byte Dim tmpData2 As Byte Dim tmpInt 2 As Integer Dim m As Integer 1 Dim j As Integer 0 Dim q As Integer Dim result As Integer Dim Data As New ArrayList Dim ObjCount As Integer 0 Dim p As Integer fDec Label Text m amp Do While fDec ShowDialog Me DialogResult Cancel Do Label Text JOOOOOOOOOOOOO Application DoEvents amp StartTransaction result CatchCard_Ex If result NORMALEND Then Exit Do End If Loop While 1 upDateEdit 1 m QO 0000 Do tmpData2 Fel Read Ex j For 6 0 To 33 tmpData q tmpData2 q Next q If tmpData 0 O And tmpData 1 0 And tmpData 19 amp HFF Then upDateEdit 1 m VQ 8 j 2 amp 8 _ 2 1 upDateEdit 1 D D amp _ tmpData Length 1 amp DO OU 68 HexOutput tmpData For p 20 To 34 If p 20 Then If tmpData p 1 Then If j lt 0 Then Call upDateEdit 1 Data amp _ ObjCount amp 8 tmpInt 2 Data Add tmpInt Clone ObjCount 1
33. TPST c 08 c TIE q69981 208001 16814 c CTFT6F c 66212 c 08T61 c 16201 c 987 c 1841 c UDD DD DUB DUET TE TE UP EE BE EE Yg 8 969998T 2 208 06 01828 206161 8 90096 c 988TT c G6SVI c ks c 190 9699998T 8 2280 18 2 6919007 9021176 999JFTT 8 08808T 8 268201 c YLAVV c 1692 c 089 Y 96999998T Y GLOSESEL Y T886f898 7 899Z8891 8 0889 66600706 9 29 T88F8T c c 08 L 4 x f 7 G6G999996T 7 292678199 7 08 7 CVESLISTT 7 06911001 1189897 8 c LOSTE z 96 Be 669999999 1 96999999967 26001860988 659 68922119881 7 7 9090720628 88 Y LVSLOVLEVL 6 116 76 Y 088062006 90989009 8 210 GOSLPLOT 1681898 GSe0TCT c 22661 G67Z9 c 6411 6VOT 01 4 6 4 000000 31 040 HH 050 32 050 HHHHHHHHHHHHHHHHHHHHHH 120000 USBHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHDDHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHH USBHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HDDHHHHHHHHUHHHHHHHUHHHHHH HHHHHHHHHHHHHHHHUSBHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHUHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHTFehCaHHHHHHHHHHHHHHHHHHHHH HHHHHHHH
34. UDM PR 400UDM USBHHHHHHHHHHHHHHHHHHH http www denso wave com ids download driver html WindowsHHHHHHHHHHHHHHH 0 PR 400UDM 000000000 FeliCaQ OU HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHUHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHH 00 38 FehiCalHHHHHHHUHHHHHHHHHHHHHHHHHHHHHHHH 00000 http www denso wave com ja adcd support index html U Microsoft Visual Basic 6 0 O Visual C 6 0 Microsoft Visual Basic 6 0 UUUUUUUOUOU HHHHHHHHHHHH 000000000 Samplefe27HHHHHHHHHHHHHHHHHHH zd SampleFel2 PR400 5n0 Edit Yr 51 0000000000 GUI 00 39 HHHHHHHHHHHHHHHHHHHHHHHUHHHHHHHHHHH HHHHHHHHHHHHHH 51 00000000000000 HHHHHHH Ox0000 00000 1 HHHHHHH Ox1009HHHHHHHHHH 00000 1 HHHHHHH Ox8000 SetStart_felmode1_Ex 0 vvalue Read vsList vbList H HH UDO Uu UI Ii B FeliCa I D B U D B UI UI UD HHHHHHHHHHHHHHHHHHHH GUIHHHHH52IHHHHHH a SampleFel2 E3 Fel iCal PR4007500 EEE
35. UHHHHHHH HHHHHHHH AIDHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHI HHHHHHH AIDHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHAIDHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHH HHHHUHHHUHHHHHHHHHHHHHHHL 59 b FormSub 0000 FormSub 000 LogClear 00000000 LogBox HHHHHHHHHHHH d FormEnc 00000 0000 FormEnc 0001 OKBtn 000 2 CancelBtn 000 Label f FormResult Name FormResult Label HHHHH 0000 000 TextBox 000000 D a FormMain D Name FormMain 1 OnFeliCa_Exe 2 LogBtn ComBox Check1 c FormReg 00000 FormReg 0001 RegBtn 2 CanBtn ooo 1 Labell 2 Label2 TextBox a y e FormDec Name FormDec OKBtn NextBtn CancelBtn Label 22 RN 00000 1 2 3 oo 0 00 00 00
36. UHHHHHHHHHHH Bua NHR AA HAA 77 vtag 814088010 amp H3 1000000 HFF 00000 000000000 1 000 amp HFF amp HFF amp HFF amp HFF amp HFF amp HFF amp HFF HFF 00000 000000000 2 000 amp HFF amp HFF amp HFF amp HFF amp HFF amp HFF amp HFF amp HFF amp HFF amp HFF amp HFF amp HFF amp HFF amp HFF amp HFF 000 3 amp HO 0000000000000 amp HO 0000000000 8 256 ifd SetControl vtag vvalue vinfBuff vbuffSize vinfLen vvalue 0 vvalue 1 vvalue 2 vvalue 3 vvalue 4 vvalue 5 vvalue 6 vvalue 7 vvalue 8 vvalue 9 vvalue 10 vvalue 11 vvalue 12 vvalue 13 vvalue 14 vvalue 15 vvalue 16 vvalue 17 vvalue 18 vvalue 19 vvalue 20 vvalue 21 vvalue 22 vvalue 23 vvalue 24 vvalue 25 vvalue 26 vvalue 27 vbuffSize result OU 78 If result lt gt NORMALEND Then Call upDateEdit_2 IFD Authentication Set Error result RW_Authentication_Ex result Exit Function End If Call upDateEdit 2 IFD Authentication Set OK result System Array Clear vvalue 0 vvalue Length System Array Clear vinfLen 0 vinfLen Length e rFDHHHHHHHHHHH HHHHHHH 102000 vtag amp H4088003
37. alue 16 amp HFF vvalue 17 amp HFF VO BH 3 000 vvalue 18 amp HFF OU 50 vvalue 19 amp HFF vvalue 20 amp HFF vvalue 21 amp HFF vvalue 22 amp HFF vvalue 23 amp HFF vvalue 24 amp HFF vvalue 25 amp HO vvalue 26 vvalue 27 amp HO QOOOOOOOOOOOOOOOO vbuffSize 6 result ifd SetControl vtag vvalue vinfBuff vbuffSize vinfLen If result gt lt NORMALEND Then Call upDateEdit 2 IFD Authentication Set Error result RW Authentication Ex result Exit Function End If Call upDateEdit 2 IFD Authentication Set OK result System Array Clear vvalue 0 vvalue Length System Array Clear vinfLen 0 vinfLen Length 102000 e vtag 814088003 vvalue 0 0 result ifd SetControl vtag vvalue vinfBuff vbuffSize vinfLen If result gt lt NORMALEND Then Call upDateEdit 2 R W Authentication Error result Else OU 51 Call upDateEdit_2 R W Authentication OK result End If RW Authentication Ex result End Function Fe1iCa O ll StartTransaction 17 0000000000 100000000 Private Function SetStart felmodei Ex As Integer Dim result As Integer Dim vtag As Integer Dim vvalue 256 As Byte
38. bel Text MyBase ControlBox True End Sub Private Sub Form Closing ByVal sender As System Object _ ByVal e As System EventArgs Handles MyBase FormClosing step10H OD apr000000000 Call ReleaseAid Ex Call upDateEdit 1 000000 OnFeliCa Exe Text 1 Call upDateEdit 6 000000 End Sub Private Function Encrypt As String Dim MFlag As Boolean 0 Dim key As ByteO Dim Res As String QO 00000000000 f2 Labeli Text f2 Label2 Text X00 0000000000 If f2 ShowDialog Me DialogResult OK Then key 7 System Text Encoding UTF8 GetBytes f2 TextBox Text upDateEdit 10000 gt HexOutput key f2 TextBox Text Else 64 Return Res Exit Function End If f2 Labeli Text TO 000000 f2 Label2 Text TO 00000000000 Dim CardNum As Integer If f2 ShowDialog Me DialogResult OK Then CardNum CInt f2 TextBox Text f2 TextBox Text Else Return Res Exit Function End If f2 Labeli Text n duuadtutututle f2 Label2 Text Dim CardNumK As Integer If f2 ShowDialog Me DialogResult OK Then CardNumK CInt f2 TextBox Text f2 TextBox Text Else Return Res Exit Function End If gt 00000 Dim Rnd As New Random Dim a As Integer Rnd Next 100 500 Dim p As Integer 2147483647 Prime 2147483647 Dim IDm CardNum As String Dim DataInt key Length 1 As Integer Dim DataByte 31 As Byte Dim data
39. ctSetUp_Ex result End Function Private Sub ReleaseAid_Ex Felica If fel Is Nothing False Then fel Nothing Release API End If BUA BH BL ELE If icc Is Nothing False Then icc Nothing Release End If rFDHHHHHHHHH If ifd Is Nothing False Then ifd Nothing Release 122 00000 OU 47 End 1 Call upDateEdit 1 Release All Aid Object DK End Sub Private Function 86522400 500FuncUse Ex As Integer Dim result As Integer Dim vtag As Integer Dim vvalue 256 As Byte Dim vinfBuff 256 As Byte Dim vbuffSize As Integer Dim vinfLen 1 As Integer vtag amp H4080500 vvalue 0 amp HO JD I 70000000000 Dm vvalue 1 amp H1 PR 400 PR 500 00000 vbuffSize 256 result ifd SetControl vtag vvalue vinfBuff vbuffSize vinfLen If result gt lt NORMALEND Then Call upDateEdit 2 PR 400 500 Function Set Error result Else Call upDateEdit 2 PR 400 500 Function Set OK result End If 56522400 500FuncUse Ex result End Function EF BEBE EDS A E EPA A E E H OU 48 Private Function ChangeSpeed_Ex ByVal SetSpeed As Integer _ As Integer Dim result As Integer Dim vtag As Integer Dim vvalue 256 As Integer Dim vinfBuff 256 As Byte Dim vbuffSize As Integer Dim vinfLen 1 As Integer vtag amp H4010007
40. es MyBase Click Me DialogResult DialogResult No Me Close End Sub End Class 0000 89 DOUG 1LHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 2 HHEFeiCaHHHHHHHHHHHHHHHHHHHHHH HHHHHH HHHHHHHHHHHHHHHHHHH9KHHHH FRAMHHHHH HHHHHHHHHHH HHHHHUHHHHHHHHHHHHHHHHHHHHUHHHHHHHH HHHHHHHHHHHHHHH
41. esult As Integer Dim portName As String Dim i As Short 45 gt Setup 6099 0000000000000 For 1 1 To 9 portName COM amp CStr i result ifd SetUp PR300 portName If result NORMALEND Then Exit For End If Next i If result gt lt NORMALEND Then Call upDateEdit_2 IFD Object Setup Error result ObjectSetUp_Ex result Exit Function End If Call upDateEdit 2 IFD Object Setup OK result Call upDateEdit 1 Open Port amp portName asa a Em mu ns gt PR 400 5000 000000 gt 0000000000000000000000000 HHHHHHHHHHHHHHHHHHHHHHH gt PR 3010 00000000000 If Check1 CheckState 1 Then result SetPR400_500FuncUse_Ex If result lt gt NORMALEND Then ObjectSetUp_Ex result Exit Function End If End If e HHHHHHHHHH Setup result icc SetUp CF FEL2 ifd If result gt lt NORMALEND Then OU 46 Call upDateEdit_2 Card Object SetUp Error result ObjectSetUp_Ex result Exit Function End If Call upDateEdit_2 Card Object SetUp OK result e APINUUUUUL Setup result fel SetUp icc If result lt gt NORMALEND Then Call upDateEdit_2 FeliCa API Object SetUp Error result ObjectSetUp_Ex result Exit Function End If Call upDateEdit_2 FeliCa API Object SetUp OK result Obje
42. gResult 8 Me Close OU 87 End Sub Private Sub CanBtn_Click ByVal sender As System Object _ ByVal e As System EventArgs Handles CanBtn Click Me DialogResult DialogResult Cancel Me Close End Sub End Class HHHHHHHHHHH FormEnc vb Public Class FormEnc Private Sub Button Click ByVal sender As System Object _ ByVal e As System EventArgs Handles OKBtn Click Me DialogResult 8 Me Close Label Text End Sub Private Sub CancelBtn Click ByVal sender As System Object _ ByVal e As System EventArgs Handles CancelBtn Click Me DialogResult DialogResult Cancel Me Close Label Text End Sub End Class HHHHHHHHHHH FormDec vb Public Class FormDec Private Sub OKBtn Click ByVal sender As System Object _ ByVal e As System EventArgs Handles OKBtn Click Me DialogResult 8 Me Close Label Text End Sub Private Sub NextBtn Click ByVal sender As System Object _ ByVal e As System EventArgs Handles NextBtn Click Me DialogResult DialogResult Retry Me Close OU 88 Label Text End Sub Private Sub CancelBtn_Click ByVal sender As System Object _ ByVal e As System EventArgs Handles CancelBtn Click Me DialogResult DialogResult Cancel Me Close Label Text End Sub End Class FormResul vb Public Class FormResult Private Sub FormResult Load ByVal sender As System Object _ ByVal e As System EventArgs Handl
43. gt NORMALEND Then Exit Do End If steppi 1 LH U D D B U gt _ 115200988 1 9eoobps HHHHHHHHHHHHHHHHHHH Call upDateEdit 1 Step3 result ChangeSpeed Ex DEF 115200 If result gt lt NORMALEND Then Exit Do End If Step4HHHHHHHH 7UHHHHHHHHH Call upDateEdit 1 Step4 result RW Authentication Est If result gt lt NORMALEND Then Exit Do End If amp Steps 61168 U 0 0 0 J StartTransaction HHHHHHHH 1000 UUUUUUUUUUUUUUUUUUUUUUUU Call upDateEdit_1 Step5 result SetStart_felmode1_Ex If result lt gt NORMALEND Then Exit Do OU 42 amp Step6 StartTransaction Call upDateEdit_1 Step6 result CatchCard_Ex If result lt gt NORMALEND Then Exit Do End If amp Step7 ReadWithoutEncryption Call upDateEdit 1 Step7 result Fel Read Ex If result gt lt NORMALEND Then Exit Do End If Step8 EndTransaction B UU D U U U Call upDateEdit 1 Step8 result ReleaseCard Ex If result gt lt NORMALEND Then Exit Do End If e Step9HHHHHHHH 7HHHHHHHHHH 9600bps OOO HHHHHUHHHHHHHHHHHHHH Call upDateEdit_1 Step9 result ChangeSpeed Ex DEF 9600 If result gt lt NORMALEND Then OU 43 Exit Do End If Loop While 0 stepi0 IFD 1
44. he test of Secret Sharing Schemes 42HHH42HHHHHHHHHHHHHHHHHHHHHHHHHH IIHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHH FehCaHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHH TEehCaHHHHHHHHHHHkHHHH IIHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHH HHHHUHHHHHHHHHHH HHHHHHHHHHHHHHHHUHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHH 000 000 OO 000 000 000 00000 000 000 000 040 HH 160000 65000000000 0 000000060 00000 0 10000000800 000000 ED 25 S 1000000000000 0 000000000 HHHHUHHHHHHHHHHHHHHHHHH HHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHH HHHUHHHHHHHHHHHHHHHHHHHHHHHH AUHHHHHH HHHHH10HHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHUHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHUHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHL 01 000 c 0621 c cL c 6POL c 976 c 08 c 089 c 29 c c T 881 BZ c c c 1268 c 969 c 1828 c c c
45. i 2 amp Next Call upDateEdit 1 str End Sub Private Shared Sub TimerEventProcessor ByVal myObject _ As Object ByVal myEventArgs As EventArgs Timer1 Stop Flag2 False End Sub Private Sub StBtn Click ByVal sender As System Object _ ByVal e As System EventArgs Flag True End Sub Dim LFlag As Boolean Private Sub LogBtn Click ByVal sender As System Object _ ByVal e As System EventArgs Handles LogBtn Click If LFlag False Then f Show LFlag True Else f Hide LFlag False End If OU 86 End Sub Private Sub ComBox_SelectedIndexChanged ByVal sender As _ System Object ByVal e As System EventArgs _ Handles ComBox SelectedIndexChanged Select Case ComBox Text Case Flag3 Case Flag3 Case Else Flag3 End Select II N II o End Sub End Class HHHHHHHHHHH FormSub vb Public Class FormSub Private Sub LogClear Click ByVal sender As System Object _ ByVal e As System EventArgs Handles LogClear Click LogBox Text System Windows Forms Application DoEvents End Sub End Class HHHHHHHHHHH FormReg vb Public Class FormReg Private Sub RegBtn Click ByVal sender As System Object _ ByVal e As System EventArgs Handles RegBtn Click If TextBox Text Then Labe11 Text Labeli BackColor Color Red Label2 Text Label2 BackColor Red Exit Sub End If Me Dialo
46. lication DoEvents result ObjectSetUp_Ex Loop While result End If 7 HHHHHHHHHHHHHH If result NORMALEND Then result SetCarrierWaitTime Ex End If Stepa 1L U D D B U 115200bpps H O00000 9600bps HHHHHHHHHHHHHHHHHHH If result NORMALEND Then result ChangeSpeed Ex DEF 115200 End If e Step4 If result NORMALEND Then result RW Authentication Ex End If End Sub Lu U 62 Private Sub OnFeliCa Exe Click ByVal eventSender _ As System Object ByVal eventArgs _ As System EventArgs Handles OnFeliCa_Exe Click f Owner Me f2 Owner Me Me fDec Owner Me fEnc Owner fResult Owner Me OnFeliCa Exe Text QQ RemoveHandler OnFeliCa Exe Click AddressUf OnFeliCa Exe Click AddHandler OnFeliCa Exe Click 160208801 StBtn Click MyBase ControlBox False Select Case Flag Case 1 Call upDateEdit_6 Encrypt Case 2 Dim Res As String Res Decrypt O fResult TextBox Text 8 If Res gt HHHHHHHHHHHHH Then fResult Label Text fResult ShowDialog Else Call upDateEdit_6 Res End If Case Else End Select Call upDateEdit 1 amp vbCrLf AddHandler OnFeliCa Exe Click 260208801 OnFeliCa Exe Click RemoveHandler OnFeliCa Exe Click 200708801 StBtn Click OnFeliCa Exe Text La
47. lution felica index html HHHHHHHHHHHHHHHHHHHHHHHHHHHHH ASCIL2004H 8 um a 14 15 16 17 18 OU 36 HH HE BET HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHH HHHHPR 400UDMHHHHHHHHHH PR 4000DMHHHHHHHHHHHHHHHHHHHHHHHHHAIDHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHUHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHUHHHHHHHHH BENS SEE AIDHHHHHHHHHHHHHHH 1 WindowsHHHHHHHHHHHHHHHHHCHHT AD OOOOA 1 4 2 0000000000 00000000 0 300 500F for Windows AD 300PR 1F Ver 2 1 000000000 CD ROM n AIDDEV DLL AIDDEVCOM DLL AIDICC DLL AIDICCPROFEL2 dll AIDICCTRNCF dll AIDIFD DLL AIDIFDPR100 DLL AIDIFDPR300 dll AIDAPIFEL2 dll OU 37 300000000000000000000000000000 00000000 REGSVR32 suC NAIDNAIDDEV DLL REGSVR32 s AID AIDDEVCOM DLL REGSVR32 s C AID AIDICC DLL REGSVR32 s C AID AIDICCPROFEL2 d11 REGSVR32 sC AID AIDICCTRNCF d11 REGSVR32 5 AID AIDIFD DLL REGSVR32 s C AID AIDIFDPR100 DLL REGSVR32 s C AID AIDIFDPR300 d11 REGSVR32 s AID AIDAPIFEL2 d11 4 0000 0 00000000000 AIDHHHHHHHHH 0000 PR 400
48. t txtEdit Text 8 OutMsg amp Result amp _ VB6 Format Hex result 00000000 amp vbCrLf txtEdit SelectionStart Len txtEdit Text System Windows Forms Application DoEvents End Sub Private Sub upDateEdit 3 ByRef data As Byte _ ByVal dLen As Integer Dim tmpStr As String Dim i As Short tmpStr Data For i 1 To dLen tmpStr tmpStr amp VB Right O amp Hex data i 1 2 8 If i Mod 16 0 And i gt lt dLen Then tmpStr tmpStr amp vbCrLf amp Next i txtEdit Text txtEdit Text amp tmpStr amp vbCrLf txtEdit SelectionStart Len txtEdit Text System Windows Forms Application DoEvents End Sub Private Sub upDateEdit_4 ByVal result As Integer txtEdit Text txtEdit Text amp Result l gt _ amp VB6 Format Hex result 00000000 amp vbCrLf txtEdit SelectionStart Len txtEdit Text System Windows Forms Application DoEvents 57 End Sub Private Sub OnEditCrear Exe Click ByVal eventSender _ As System Object ByVal eventArgs _ As System EventArgs Handles OnEditCrear_Exe Click txtEdit Text System Windows Forms Application DoEvents End Sub End Class OU 58 D mauu HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHH
49. uff vbuffSize vinfLen If result gt lt NORMALEND Then Call upDateEdit_1 Call upDateEdit 2 StartTransaction Error OU 53 result CatchCard_Ex result Exit Function End If Call upDateEdit 2 StartTransaction OK result If vtype 0 And Not CARDTYPE MORECARD CARDTYPE C Then Call upDateEdit 1 Catch 261108 Card FelicalDOOOOOOOOOO 0000 Else FeliCa Call upDateEdit 1 Catch Another Card End If Call upDateEdit 3 vinfBuff vinfLen 0 0000000 If vtype 0 And CARDTYPE MORECARD Then 00000000000000000 Call upDateEdit 1 More Card Exist End If CatchCard Ex result End Function Private Function Fel Read Ex As Integer Dim result As Integer Dim vsCount As Byte OU 54 Dim vsList 1 As Byte Dim vbCount As Byte Dim vbList 1 As Byte Dim vrxBuff 256 As Byte Dim vbuffSize As Integer Dim vrxLen 1 As Integer vsCount amp H1 1000 U 0x01 vsList 0 amp H9 D Ox100D vsList 1 2810 vbCount amp H1 1000 00 0x01 vbList 0 amp H80 0 vbList 1 amp HO 000000000000 vbuffSize 6 result fel ReadWithoutEncryption vsCount
50. vsList _ vbCount vbList vrxBuff vbuffSize vrxLen If result lt gt NORMALEND Then Call upDateEdit_2 ReadWithoutEncryption Command Error result Fel Read Ex result Exit Function End If Call upDateEdit 2 ReadWithoutEncryption Command OK result ReadWithoutEncryption B E EE 1 0 00 00000000 2 Ox00HHHHHHHHHHHHHHHHHHHHL If vrxLen 0 gt 2 And vrxBuff 0 amp HO And _ vrxBuff 1 amp HO Then Call upDateEdit 1 ReadWithoutEncryption Data Contents OK Else Call upDateEdit 1 ReadWithoutEncryption Data Contents Error End If Call upDateEdit 3 vrxBuff vrxLen 0 OU 55 Fel_Read_Ex result End Function Private Function ReleaseCard_Ex As Integer Dim result As Integer Dim vmode As Integer wmode 0 7 HHHHHHHH O 7 HHHHHHHHHHHHHH EndTransaction 0 0 result icc EndTransaction vmode If result lt gt NORMALEND Then Call upDateEdit_2 EndTransaction Error result Else Call upDateEdit_2 EndTransaction OK result End If ReleaseCard_Ex result End Function Private Sub upDateEdit_1 ByVal OutMsg As String txtEdit Text txtEdit Text amp OutMsg amp vbCrLf txtEdit SelectionStart Len txtEdit Text System Windows Forms Application DoEvents End Sub OU 56 Private Sub upDateEdit_2 ByVal OutMsg As String _ ByVal result As Integer txtEdit Tex
51. xit Function End If Call upDateEdit 1 Card Object Create OK OU 72 Felica 00000000 fel CreateDbject FeliCa2 API If fel Is Nothing lt gt False Then Call upDateEdit 1 FeliCa API Object Create Error CreateO0bject Ex 1 Exit Function End If Call upDateEdit 1 FeliCa API Object Create OK CreateUb ect_Ex NORMALEND End Function D D SetOpHHH K PR 400 500 00000000000 Private Function ObjectSetUp_Ex As Integer Dim result As Integer Dim portName As String Dim i As Short e IFDHHHH U Setup 1 For i 1 To 9 portName COM amp CStr i result ifd SetUp PR300 portName If result NORMALEND Then Exit For End If Next i If result lt gt NORMALEND Then Call upDateEdit_2 IFD Object Setup Error result DbjectSetUp_Ex result Exit Function OU 73 End If Call upDateEdit_2 IFD Object Setup OK result Call upDateEdit_1 Open Port amp portName gt PR 400 500 00o00000000000000000000000 7 HHHHHHHHHHHHHHHHHHHHHHH 00000000000 31 gt
Download Pdf Manuals
Related Search