mwic32.bas

来自「IC卡分为两种 一种是接触式的 还一种是非接触式的 此文件二种程序都有 希望能帮」· BAS 代码 · 共 52 行

Attribute VB_Name = "Module1"
Global icdev, baud As Long
Global st As Integer

Declare Function auto_init Lib "mwic_32.dll" (ByVal port%, ByVal baud&) As Long
Declare Function ic_init Lib "mwic_32.dll" (ByVal port%, ByVal baud&) As Long
Declare Function ic_exit Lib "mwic_32.dll" (ByVal icdev&) As Long
Declare Function chk_baud Lib "mwic_32.dll" (ByVal port%) As Long

Declare Function asc_hex% Lib "mwic_32.dll" (ByVal asc$, ByVal hex$, ByVal le&)
Declare Function hex_asc% Lib "mwic_32.dll" (ByRef hex As Byte, ByVal asc$, ByVal le&)
Declare Function asc_asc% Lib "mwic_32.dll" (ByVal sorc$, ByVal des$, ByVal le&)

Declare Function DES_Encrypt& Lib "mwic_32.dll" (ByVal key$, ByVal le%, ByVal sorc$, ByVal le%, ByRef ptrdest As Byte)
Declare Function DES_Decrypt% Lib "mwic_32.dll" (ByVal key$, ByVal le%, ByRef des As Byte, ByRef pretest As Byte)

Declare Function cpu_reset% Lib "mwic_32.dll" (ByVal icdev&, ByRef data_buffer As Byte)
Declare Function cpu_protocol% Lib "mwic_32.dll" (ByVal icdev&, ByVal le%, ByRef send_cmd As Byte, ByRef receive_data As Byte)

Declare Function get_status Lib "mwic_32.dll" (ByVal icdev As Long, card_s As Integer) As Integer
Declare Function set_baud Lib "mwic_32.dll" (ByVal icdev As Long, ByVal baud As Long) As Integer
Declare Function ic_encrypt Lib "mwic_32.dll" (ByVal key$, ByVal sourceh$, ByVal le%, ByVal ptrdest$) As Integer
Declare Function ic_decrypt Lib "mwic_32.dll" (ByVal key As String, ByVal length As String, ByVal snr As Integer, ByVal pretest As String) As Integer
Declare Function cmp_dvsc Lib "mwic_32.dll" (ByVal icdev As Long, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function srd_dvsc Lib "mwic_32.dll" (ByVal icdev As Long, ByVal length As Long, ByRef data_buffer As Byte) As Integer
Declare Function swr_dvsc Lib "mwic_32.dll" (ByVal icdev As Long, ByVal length As Integer, ByRef data_buffer As Byte) As Integer
Declare Function setsc_md Lib "mwic_32.dll" (ByVal icdev As Long, ByVal mode As Integer) As Integer
Declare Function swr_eeprom Lib "mwic_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByVal data_buffer$) As Integer

Declare Function turn_on Lib "mwic_32.dll" (ByVal icdev As Long) As Integer
Declare Function turn_off Lib "mwic_32.dll" (ByVal icdev As Long) As Integer
Declare Function srd_ver Lib "mwic_32.dll" (ByVal icdev As Long, ByVal le As Integer, ByRef data_buffer As Byte) As Integer
Declare Function auto_pull Lib "mwic_32.dll" (ByVal icdev As Long) As Integer
Declare Function dv_beep Lib "mwic_32.dll" (ByVal icdev As Long, ByVal time As Integer) As Integer
'Declare Function ic_exit% Lib "mwic_32.dll" (ByVal icdev As Long)
Declare Function swr_snr Lib "mwic_32.dll" (ByVal icdev As Long, ByVal length As Integer, ByVal snr As String) As Integer
Declare Function srd_snr Lib "mwic_32.dll" (ByVal icdev As Long, ByVal length As Integer, ByRef snr As Byte) As Integer