m1dll.bas

一个完整的非接触IC卡会员管理系统

Attribute VB_Name = "M1dll"
'Option Explicit
'Global icdev As Long
'Global st As Integer
'Global rData(100) As Byte
'Global wdata(100) As Byte
'Global hexdata As String * 200
'
'Public KeyAP(8) As Byte
'Public KeyBP(8) As Byte
'Public KeyABP As Boolean
'Public DoType As String
'Public mbAuth(0 To 31) As Byte     '记录内容
'Public DataBuff32 As String * 32
'
'Dim plCardSerialNo As Long      '物理卡号  CardSerialNo
'Dim pcChargeMoney As Currency   '充值金额   psChargeMoney
'
'Public comSet As String
'Public comPort As Integer
'Public sWhere As String
'Public sWhere1 As String
'Public str_Active As Integer
'Public sLogin As String '用户类型
'Public sxfzd As String
'Public sCardMissage As String
''''''comm function
'
Declare Function ic_encrypt% Lib "mwic_32.dll" (ByRef key As Byte, ByRef sorc As Byte, ByVal le%, ByRef ptrdest As Byte)
Declare Function ic_decrypt% Lib "mwic_32.dll" (ByRef key As Byte, ByRef des As Byte, ByVal le%, ByRef pretest As Byte)
'
'Declare Function dc_init Lib "dcrf32.dll" (ByVal port%, ByVal baud As Long) As Long
'Declare Function dc_exit Lib "dcrf32.dll" (ByVal icdev As Long) As Integer
'Declare Function dc_request Lib "dcrf32.dll" (ByVal icdev As Long, ByVal mode%, atr_type%) As Integer
'Declare Function dc_card Lib "dcrf32.dll" (ByVal icdev As Long, ByVal mode%, ByRef snr As Byte) As Integer
'Declare Function dc_load_key_hex Lib "dcrf32.dll" (ByVal icdev As Long, ByVal mode%, ByVal secnr%, ByVal nkey As String) As Integer
'Declare Function dc_authentication Lib "dcrf32.dll" (ByVal icdev As Long, ByVal mode%, ByVal scenr%) As Integer
'Declare Function dc_read_hex Lib "dcrf32.dll" (ByVal icdev As Long, ByVal adr%, ByVal sData$) As Integer
'Declare Function dc_write_hex Lib "dcrf32.dll" (ByVal icdev As Long, ByVal adr%, ByVal sData$) As Integer
'Declare Function dc_initval Lib "dcrf32.dll" (ByVal icdev As Long, ByVal adr%, ByVal value As Long) As Integer
'Declare Function dc_readval Lib "dcrf32.dll" (ByVal icdev As Long, ByVal adr%, value As Long) As Integer
'Declare Function dc_increment Lib "dcrf32.dll" (ByVal icdev As Long, ByVal adr%, ByVal value As Long) As Integer
'Declare Function dc_decrement Lib "dcrf32.dll" (ByVal icdev As Long, ByVal adr%, ByVal value As Long) As Integer
'Declare Function dc_halt Lib "dcrf32.dll" (ByVal icdev As Long) As Integer
'Declare Function iChargeMoney Lib "dcrf321.dll" (ByVal hPos As Long, ByVal hPos As Long, ByRef CardSerialNo As Long, ByVal money As Long, ByRef ChargeRecord As Byte) As Integer
''device fuction
'Declare Function dc_reset Lib "dcrf32.dll" (ByVal icdev As Long, ByVal msec%) As Integer
'Declare Function dc_get_status Lib "dcrf32.dll" (ByVal icdev As Long, ByVal status$) As Integer
'Declare Function dc_encrypt Lib "dcrf32.dll" (ByVal key As String, ByVal ptrsource As String, ByVal msglen%, ByVal ptrdest$) As Integer
'Declare Function dc_decrypt Lib "dcrf32.dll" (ByVal key As String, ByVal ptrsource As String, ByVal msglen%, ByVal ptrdest$) As Integer
'
'Declare Function dc_beep Lib "dcrf32.dll" (ByVal icdev As Long, ByVal time1 As Integer) As Integer
'Declare Function dc_srd_snr Lib "dcrf32.dll" (ByVal icdev As Long, ByVal offset%, ByVal rec_buffer$) As Integer
'Declare Function dc_srd_eeprom Lib "dcrf32.dll" (ByVal icdev As Long, ByVal offset%, ByVal lenth%, ByVal rec_buffer$) As Integer
'
'Declare Function dc_changeb3 Lib "dcrf32.dll" (ByVal adr As Long, ByVal secer As Integer, ByRef KeyA As Byte, ByVal B0 As Integer, ByVal B1 As Integer, ByVal B2 As Integer, ByVal B3 As Integer, ByVal Bk As Integer, ByRef KeyB As Byte) As Integer
'Declare Function dc_disp8 Lib "dcrf32.dll" (ByVal icdev As Long, ByVal pt_mode As Integer, ByRef digit As Byte) As Integer
'Declare Function dc_gettimehex Lib "dcrf32.dll" (ByVal icdev As Long, ByVal time$) As Integer
'Declare Function dc_settimehex Lib "dcrf32.dll" (ByVal icdev As Long, ByVal time$) As Integer
'Declare Function dc_setbright Lib "dcrf32.dll" (ByVal icdev As Long, ByVal value%) As Integer
'Declare Function dc_ctl_mode Lib "dcrf32.dll" (ByVal icdev As Long, ByVal mode%) As Integer
'Declare Function dc_disp_mode Lib "dcrf32.dll" (ByVal icdev As Long, ByVal mode%) As Integer
'
'Declare Function dc_cpureset_hex Lib "dcrf32.dll" (ByVal icdev As Long, ByRef rlen As Byte, ByVal sData$) As Integer
'Declare Function dc_cpudown Lib "dcrf32.dll" (ByVal icdev As Long) As Integer
'Declare Function dc_cpuapdu_hex Lib "dcrf32.dll" (ByVal icdev As Long, ByVal sLen%, ByVal senddata$, ByRef rlen As Byte, ByVal recdata As String) As Integer
'
'Declare Function dc_srd_eepromhex Lib "dcrf32.dll" (ByVal icdev As Long, ByVal adr%, ByVal lenth%, ByVal sData$) As Integer
'Declare Function dc_swr_eepromhex Lib "dcrf32.dll" (ByVal icdev As Long, ByVal adr%, ByVal lenth%, ByVal sData$) As Integer
'
'Sub quit()
'    If icdev > 0 Then
''       st = rf_reset(icdev, 10)
''       st = rf_exit(icdev)
'       icdev = -1
'    End If
'End Sub
'
'
'
'
'