public.bas

vb下调用usb 接口smartcard的应用例程

Attribute VB_Name = "Module1"
Option Explicit
'Public Const TransferKEY = "ffffffffffffffff"
Public Const TransferKEY = "0000000000000000"
Public icdev As Long
Public st As Integer

'Ekey old Function
Declare Function auto_init Lib "MwUsbD.dll" (ByVal port%, ByVal baud&) As Long
Declare Function ic_init Lib "MwUsbD.dll" (ByVal port%, ByVal baud&) As Long
Declare Function ic_exit Lib "MwUsbD.dll" (ByVal icdev&) As Long
Declare Function cpu_reset% Lib "MwUsbD.dll" (ByVal icdev&, ByRef data_buffer As Byte)
Declare Function cpu_protocol% Lib "MwUsbD.dll" (ByVal icdev&, ByVal le%, ByRef send_cmd As Byte, ByRef receive_data As Byte)
Declare Function cpu_comres% Lib "MwUsbD.dll" (ByVal icdev&, ByVal le%, ByRef send_cmd As Byte, ByRef receive_data As Byte)
Declare Function asc_hex% Lib "MwUsbD.dll" (ByVal asc$, ByRef hex As Byte, ByVal le&)
Declare Function hex_asc% Lib "MwUsbD.dll" (ByRef hex As Byte, ByVal asc$, ByVal le&)
Declare Function DES_Encrypt& Lib "MwUsbD.dll" (ByRef key As Byte, ByVal le%, ByRef sorc As Byte, ByVal le%, ByRef ptrdest As Byte)
Declare Function DES_Decrypt% Lib "MwUsbD.dll" (ByRef key As Byte, ByVal le%, ByRef des As Byte, ByVal le%, ByRef pretest As Byte)
Declare Function ic_encrypt Lib "MwUsbD.dll" (ByRef key As Byte, ByRef source As Byte, ByVal le%, ByRef ptrdest As Byte) As Integer
Declare Function ic_decrypt Lib "MwUsbD.dll" (ByRef key As Byte, ByRef pretest As Byte, ByVal le%, ByRef source As Byte) As Integer

'Ekey' new Function
Declare Function mw_init Lib "MwUsbD.dll" (ByVal port&, ByVal shareMode&, icdev&) As Integer
Declare Function mw_close Lib "MwUsbD.dll" (ByVal icdev&) As Integer
Declare Function mw_reset Lib "MwUsbD.dll" (ByVal icdev&, ByRef atrbuffer As Byte, AtrLen&) As Integer
Declare Function mw_protocol Lib "MwUsbD.dll" (ByVal icdev&, ByVal sdatalen&, ByRef sdata As Byte, rdatalen&, ByRef rdata As Byte) As Integer
Declare Function mw_comres Lib "MwUsbD.dll" (ByVal icdev&, ByVal sdatalen&, ByRef sdata As Byte, rdatalen&, ByRef rdata As Byte) As Integer
Declare Function Mw_GetDevState Lib "MwUsbD.dll" (ByVal DevState As String) As Integer