ictest.bas

IC卡编程

Attribute VB_Name = "ICTEST1"
Global icdev As Long

'useful function.
Declare Function IC_InitComm Lib "lkic32.dll" (ByVal Port%) As Long
Declare Function IC_ExitComm% Lib "lkic32.dll" (ByVal icdev As Long)
Declare Function IC_Down% Lib "lkic32.dll" (ByVal icdev As Long)
Declare Function IC_InitType% Lib "lkic32.dll" (ByVal icdev As Long, ByVal TypeNo%)
Declare Function IC_Status% Lib "lkic32.dll" (ByVal icdev As Long)
Declare Function IC_Read% Lib "lkic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal l%, ByVal dataBuffer$)
Declare Function IC_Read_Hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal l%, ByVal dataBuffer$)
Declare Function IC_Write% Lib "lkic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal length%, ByVal dataBuffer$)
Declare Function IC_Write_Hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal length%, ByVal dataBuffer$)
Declare Function IC_InitComm_Baud Lib "lkic32.dll" (ByVal Port%, ByVal Baud As Long) As Long

'4442
Declare Function IC_ReadProtection% Lib "lkic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal l%, ByVal ProtBuffer$)
Declare Function IC_WriteProtection% Lib "lkic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal l%, ByVal ProtBuffer$)
Declare Function IC_ReadCount_SLE4442% Lib "lkic32.dll" (ByVal icdev As Long)
Declare Function IC_CheckPass_SLE4442hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal password$)
Declare Function IC_ChangePass_SLE4442hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal password$)

'4428
Declare Function IC_ReadWithProtection% Lib "lkic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal l%, ByVal ProtBuffer$)
Declare Function IC_WriteWithProtection% Lib "lkic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal l%, ByVal ProtBuffer$)
Declare Function IC_ReadCount_SLE4428% Lib "lkic32.dll" (ByVal icdev As Long)
Declare Function IC_CheckPass_SLE4428hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal password$)
Declare Function IC_ChangePass_SLE4428hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal password$)

'ATMEL102
Declare Function IC_CheckPass_102hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal password$)
Declare Function IC_ChangePass_102hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal password$)
Declare Function IC_ReadCount_102% Lib "lkic32.dll" (ByVal icdev As Long)
Declare Function IC_CheckAZPass_102% Lib "lkic32.dll" (ByVal icdev As Long, ByVal zone%, ByVal password$)
Declare Function IC_ChangeAZPass_102% Lib "lkic32.dll" (ByVal icdev As Long, ByVal zone%, ByVal password$)
Declare Function IC_Erase_102% Lib "lkic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal l%)
Declare Function IC_Fuse_102% Lib "lkic32.dll" (ByVal icdev As Long)
Declare Function IC_EWrite_102% Lib "lkic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal length%, ByVal dataBuffer$)
Declare Function IC_EWrite_102Hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal length%, ByVal dataBuffer$)

'ATMEL1604
Declare Function IC_CheckPass_1604hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal Area%, ByVal password$)
Declare Function IC_ChangePass_1604hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal Area%, ByVal password$)
Declare Function IC_ReadCount_1604% Lib "lkic32.dll" (ByVal icdev As Long, ByVal Area As Integer)
Declare Function IC_Fuse_1604% Lib "lkic32.dll" (ByVal icdev As Long)

'45D041
Declare Function IC_DriectRead% Lib "lkic32.dll" (ByVal icdev As Long, ByVal page%, ByVal offset%, ByVal bytes%, ByVal buff$)
Declare Function IC_DriectWrite% Lib "lkic32.dll" (ByVal icdev As Long, ByVal page%, ByVal offset%, ByVal bytes%, ByVal buff$)
Declare Function IC_WriteByBuffer% Lib "lkic32.dll" (ByVal icdev As Long, ByVal page%, ByVal offset%, ByVal bytes%, ByVal buff$)
Declare Function IC_DriectRead_Hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal page%, ByVal offset%, ByVal bytes%, ByVal buff$)
Declare Function IC_DriectWrite_Hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal page%, ByVal offset%, ByVal bytes%, ByVal buff$)
Declare Function IC_WriteByBuffer_Hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal page%, ByVal offset%, ByVal bytes%, ByVal buff$)

'ATMEL1608
'校验1608卡用户区密码
Declare Function IC_CheckAZPass_1608% Lib "lkic32.dll" (ByVal icdev As Long, ByVal Area%, ByVal password$)
Declare Function IC_CheckAZPass_1608hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal Area%, ByVal password$)
'/变更1608卡用户区密码
Declare Function IC_ChangeAZPass_1608% Lib "lkic32.dll" (ByVal icdev As Long, ByVal Area%, ByVal password$)
Declare Function IC_ChangeAZPass_1608hex% Lib "lkic32.dll" (ByVal icdev As Long, ByVal Area%, ByVal password$)
'读1608卡错误计数器
Declare Function IC_ReadCount_1608% Lib "lkic32.dll" (ByVal icdev As Long, ByVal Area%)
'1608卡熔丝
Declare Function IC_Fuse_1608% Lib "lkic32.dll" (ByVal icdev As Long)
'变更1608卡用户区设置
Declare Function IC_ChangeZone_1608% Lib "lkic32.dll" (ByVal icdev As Long, ByVal zone%, ByVal Data$)
Declare Function IC_Authenticate_1608% Lib "lkic32.dll" (ByVal icdev As Long, ByVal secret$)


Global Const LK_OK = &H0         '操作正确
Global Const LK_COMM_ERR = -&H82  '通讯错误
Global Const LK_PASS_ERR = -&H83  '密码效验错
Global Const LK_NO_ICC = -&H86    '没有插卡
Global Const LK_FORMAT_ERR = -&H1 '异常错误


Sub icerr(ByVal errno As Integer)
Select Case errno
       Case LK_OK: MsgBox "操作正确"
       Case LK_COMM_ERR: MsgBox "通讯错误"
       Case LK_PASS_ERR: MsgBox "密码效验错"
       Case LK_NO_ICC: MsgBox "没有插卡"
       Case LK_FORMAT_ERR: MsgBox "异常错误"
       Case Else: MsgBox ("错误号:" + Str$(errno))
End Select
End Sub