mduscreader.bas

磁条读写机

'SCREADER_API BOOL SC4442_Verify(DWORD hPort,BYTE psc0,BYTE psc1,BYTE psc2);
Public Declare Function SC4442_Verify Lib "SCReader.dll" (ByVal hPort As Long, ByVal psc0 As Byte, ByVal psc1 As Byte, ByVal psc2 As Byte) As Long

'SCREADER_API BOOL SC4442_ChangePwd(DWORD hPort,BYTE psc0,BYTE psc1,BYTE psc2);
Public Declare Function SC4442_ChangePwd Lib "SCReader.dll" (ByVal hPort As Long, ByVal psc0 As Byte, ByVal psc1 As Byte, ByVal psc2 As Byte) As Long

'SCREADER_API BOOL SC4442_ReadEC(DWORD hPort,BYTE* pEC);
Public Declare Function SC4442_ReadEC Lib "SCReader.dll" (ByVal hPort As Long, pEC As Byte) As Long
'SCREADER_API long WINAPI SC4442_ECount(long hPort);
Public Declare Function SC4442_ECount Lib "SCReader.dll" (ByVal hPort As Long) As Long


'SLE4428读写函数
'SCREADER_API BOOL WINAPI SC4428_Read(long hPort,long dwAddr,BYTE* pDataBuf, long dwLen);
Public Declare Function SC4428_Read Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwAddr As Long, pDataBuf As Byte, ByVal dwLen As Long) As Long
Public Declare Function SC4428_ReadStr Lib "SCReader.dll" Alias "SC4428_Read" (ByVal hPort As Long, ByVal dwAddr As Long, ByVal pDataBuf As String, ByVal dwLen As Long) As Long

'SCREADER_API BOOL WINAPI SC4428_Write(long hPort,long dwAddr,BYTE* pDataBuf, long dwLen);
Public Declare Function SC4428_Write Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwAddr As Long, pDataBuf As Byte, ByVal dwLen As Long) As Long
Public Declare Function SC4428_WriteStr Lib "SCReader.dll" Alias "SC4428_Write" (ByVal hPort As Long, ByVal dwAddr As Long, ByVal pDataBuf As String, ByVal dwLen As Long) As Long

'SCREADER_API BOOL WINAPI SC4428_WriteLock(long hPort,long dwAddr,BYTE* pDataBuf, long dwLen);
Public Declare Function SC4428_WriteLock Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwAddr As Long, pDataBuf As Byte, ByVal dwLen As Long) As Long
Public Declare Function SC4428_WriteLockStr Lib "SCReader.dll" Alias "SC4428_WriteLock" (ByVal hPort As Long, ByVal dwAddr As Long, ByVal pDataBuf As String, ByVal dwLen As Long) As Long

'SCREADER_API BOOL WINAPI SC4428_CompareLock(long hPort,long dwAddr,BYTE* pDataBuf, long dwLen);
Public Declare Function SC4428_CompareLock Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwAddr As Long, pDataBuf As Byte, ByVal dwLen As Long) As Long
Public Declare Function SC4428_CompareLockStr Lib "SCReader.dll" Alias "SC4428_CompareLock" (ByVal hPort As Long, ByVal dwAddr As Long, ByVal pDataBuf As String, ByVal dwLen As Long) As Long

'SCREADER_API BOOL WINAPI SC4428_ReadEx(long hPort,long dwAddr,BYTE* pDataBuf,BYTE* pLockBuf,long dwLen);
Public Declare Function SC4428_ReadEx Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwAddr As Long, pDataBuf As Byte, pLockBuf As Byte, ByVal dwLen As Long) As Long
Public Declare Function SC4428_ReadExStr Lib "SCReader.dll" Alias "SC4428_ReadEx" (ByVal hPort As Long, ByVal dwAddr As Long, ByVal pDataBuf As String, pLockBuf As Byte, ByVal dwLen As Long) As Long

'SCREADER_API BOOL WINAPI SC4428_Verify(long hPort,BYTE psc0,BYTE psc1);
Public Declare Function SC4428_Verify Lib "SCReader.dll" (ByVal hPort As Long, ByVal psc0 As Byte, ByVal psc1 As Byte) As Long

'SCREADER_API BOOL WINAPI SC4428_ChangePwd(long hPort,BYTE psc0,BYTE psc1);
Public Declare Function SC4428_ChangePwd Lib "SCReader.dll" (ByVal hPort As Long, ByVal psc0 As Byte, ByVal psc1 As Byte) As Long
    
'SCREADER_API long WINAPI SC4428_ECount(long hPort);
Public Declare Function SC4428_ECount Lib "SCReader.dll" (ByVal hPort As Long) As Long

'AT24读写函数
'SCREADER_API void  WINAPI SCAT24_SetSubType(long hPort,long dwSubType);
Public Declare Sub SCAT24_SetSubType Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwSubType As Long)

'SCREADER_API long WINAPI SCAT24_GetSubType(long hPort);
Public Declare Function SCAT24_GetSubType Lib "SCReader.dll" (ByVal hPort As Long) As Long

'SCREADER_API BOOL WINAPI SCAT24_Read(long hPort,long dwPage, long dwAddr,BYTE* pDataBuf, long dwLen);
Public Declare Function SCAT24_Read Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwPage As Long, ByVal dwAddr As Long, pDataBuf As Byte, ByVal dwLen As Long) As Long
Public Declare Function SCAT24_ReadStr Lib "SCReader.dll" Alias "SCAT24_Read" (ByVal hPort As Long, ByVal dwPage As Long, ByVal dwAddr As Long, ByVal pDataBuf As String, ByVal dwLen As Long) As Long

'SCREADER_API BOOL WINAPI SCAT24_Write(long hPort,long dwPage, long dwAddr,BYTE* pDataBuf, long dwLen);
Public Declare Function SCAT24_Write Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwPage As Long, ByVal dwAddr As Long, pDataBuf As Byte, ByVal dwLen As Long) As Long
Public Declare Function SCAT24_WriteStr Lib "SCReader.dll" Alias "SCAT24_Write" (ByVal hPort As Long, ByVal dwPage As Long, ByVal dwAddr As Long, ByVal pDataBuf As String, ByVal dwLen As Long) As Long

'AT88SC1604
'SCREADER_API BOOL WINAPI SC1604_Read(long hPort,long dwAddr,BYTE* pDataBuf, long dwLen);
Public Declare Function SC1604_Read Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwAddr As Long, pDataBuf As Byte, ByVal dwLen As Long) As Long
Public Declare Function SC1604_ReadStr Lib "SCReader.dll" Alias "SC1604_Read" (ByVal hPort As Long, ByVal dwAddr As Long, ByVal pDataBuf As String, ByVal dwLen As Long) As Long

'SCREADER_API BOOL WINAPI SC1604_Write(long hPort,long dwAddr,BYTE* pDataBuf, long dwLen);
Public Declare Function SC1604_Write Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwAddr As Long, pDataBuf As Byte, ByVal dwLen As Long) As Long
Public Declare Function SC1604_WriteStr Lib "SCReader.dll" Alias "SC1604_Write" (ByVal hPort As Long, ByVal dwAddr As Long, ByVal pDataBuf As String, ByVal dwLen As Long) As Long

'SCREADER_API BOOL WINAPI SC1604_BeginPersonalize(long hPort);
Public Declare Function SC1604_BeginPersonalize Lib "SCReader.dll" (ByVal hPort As Long) As Long

'SCREADER_API BOOL WINAPI SC1604_ClosePersonalize(long hPort);
Public Declare Function SC1604_ClosePersonalize Lib "SCReader.dll" (ByVal hPort As Long) As Long

'SCREADER_API BOOL WINAPI SC1604_TestPersonalize(long hPort,BOOL* pbRetVal);
Public Declare Function SC1604_TestPersonalize Lib "SCReader.dll" (ByVal hPort As Long, bRetval As Long) As Long

'SCREADER_API BOOL WINAPI SC1604_ReadZone(long hPort, long dwZone,long dwAddr,BYTE* pDataBuf, long dwLen);
Public Declare Function SC1604_ReadZone Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwZone As Long, ByVal dwAddr As Long, pDataBuf As Byte, ByVal dwLen As Long) As Long
Public Declare Function SC1604_ReadZoneStr Lib "SCReader.dll" Alias "SC1604_ReadZone" (ByVal hPort As Long, ByVal dwZone As Long, ByVal dwAddr As Long, ByVal pDataBuf As String, ByVal dwLen As Long) As Long

'SCREADER_API BOOL WINAPI SC1604_WriteZone(long hPort, long dwZone,long dwAddr,BYTE* pDataBuf, long dwLen);
Public Declare Function SC1604_WriteZone Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwZone As Long, ByVal dwAddr As Long, pDataBuf As Byte, ByVal dwLen As Long) As Long
Public Declare Function SC1604_WriteZoneStr Lib "SCReader.dll" Alias "SC1604_WriteZone" (ByVal hPort As Long, ByVal dwZone As Long, ByVal dwAddr As Long, ByVal pDataBuf As String, ByVal dwLen As Long) As Long

'SCREADER_API BOOL WINAPI SC1604_Verify(long hPort,long dwZone, BYTE psc0, BYTE psc1);
Public Declare Function SC1604_Verify Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwZone As Long, ByVal psc0 As Byte, ByVal psc1 As Byte) As Long

'SCREADER_API BOOL WINAPI SC1604_ChangePwd(long hPort,long dwZone, BYTE psc0, BYTE psc1);
Public Declare Function SC1604_ChangePwd Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwZone As Long, ByVal psc0 As Byte, ByVal psc1 As Byte) As Long

'SCREADER_API BOOL WINAPI SC1604_Fuse(long hPort);
Public Declare Function SC1604_Fuse Lib "SCReader.dll" (ByVal hPort As Long) As Long

'SCREADER_API void WINAPI SC1604_SetSubType(long hPort,long dwSubType);
Public Declare Sub SC1604_SetSubType Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwSubType As Long)

'SCREADER_API long WINAPI SC1604_GetSubType(long hPort);
Public Declare Function SC1604_GetSubType Lib "SCReader.dll" (ByVal hPort As Long) As Long

'ISO7816-4
Public Type PPSSTRUCT
    PPS0 As Byte
    PPS1 As Byte
    PPS2 As Byte
    PPS3 As Byte
End Type

Public Type APDUSTRUCT
    Cla As Byte
    Ins As Byte
    P1 As Byte
    P2 As Byte
    lc As Long
    Le As Long
    SW1 As Byte
    SW2 As Byte
    DataBuf(512) As Byte
End Type

'SCREADER_API BOOL WINAPI SC7816_WarmReset(long hPort,BYTE* pAtr,long* pAtrLen);
Public Declare Function SC7816_WarmReset Lib "SCReader.dll" (ByVal hPort As Long, pAtr As Byte, pAtrLen As Long) As Long
'SCREADER_API BOOL WINAPI SC7816_SetProtocol(long hPort,long dwProtocol);
Public Declare Function SC7816_SetProtocol Lib "SCReader.dll" (ByVal hPort As Long, ByVal dwProtocol As Long) As Long
'SCREADER_API long WINAPI SC7816_GetProtocol(long hPort);
Public Declare Function SC7816_GetProtocol Lib "SCReader.dll" (ByVal hPort As Long) As Long
'SCREADER_API BOOL WINAPI SC7816_SendPPS(long hPort,PPSSTRUCT* pPPS);
Public Declare Function SC7816_SendPPS Lib "SCReader.dll" (ByVal hPort As Long, pPPS As PPSSTRUCT) As Long
'SCREADER_API BOOL WINAPI SC7816_ExecuteAPDU(long hPort,APDUSTRUCT* pApdu);
Public Declare Function SC7816_ExecuteAPDU Lib "SCReader.dll" (ByVal hPort As Long, pApdu As APDUSTRUCT) As Long
'SCREADER_API BOOL WINAPI SC7816_ExecuteTPDU(long hPort,BYTE* pTpduCmd,long dwCmdLen,BYTE* pTpduRsp,long* pdwRspLen);
Public Declare Function SC7816_ExecuteTPDU Lib "SCReader.dll" (ByVal hPort As Long, pTpduCmd As Byte, ByVal dwCmdLen As Long, pTpduRsp As Byte, pdwRspLen As Long) As Long


'辅助函数
'SCREADER_API void SCHelp_ErrorDesc(DWORD dwError,LPTSTR pDesc ,DWORD maxNum);
Public Declare Function SCHelp_ErrorDesc Lib "SCReader.dll" (ByVal dwError As Long, ByVal pDesc As String, ByVal maxNum As Long) As Long

'SCREADER_API void WINAPI SCHelp_BytesToHexString(BYTE* pBuffer,DWORD count,LPTSTR pChar);
Public Declare Sub SCHelp_BytesToHexString Lib "SCReader.dll" (pBuffer As Byte, ByVal lCount As Long, ByVal strHex As String)
'SCREADER_API WINAPI DWORD SCHelp_HexStringToBytes(LPCTSTR pSrc,BYTE* pTar,int MaxCount);
Public Declare Function SCHelp_HexStringToBytes Lib "SCReader.dll" (ByVal strHex As String, pBuffer As Byte, ByVal lMaxCount As Long) As Long

'SCREADER_API long WINAPI SCHelp_StringToBytes(LPCTSTR pSrc,BYTE* pTar,long lMaxCount);
Public Declare Function SCHelp_StringToBytes Lib "SCReader.dll" (ByVal pSrc As String, pBuffer As Byte, ByVal lMaxCount As Long) As Long

'SCREADER_API void WINAPI SCHelp_BytesToString(BYTE* pBuffer,long lCount,LPTSTR pStr);
Public Declare Sub SCHelp_BytesToString Lib "SCReader.dll" (pBuffer As Byte, ByVal lCount As Long, ByVal pStr As String)

'SCREADER_API long WINAPI SCHelp_StrLen(const char *pBuf);
Public Declare Function SCHelp_StrLen Lib "SCReader.dll" (ByVal pBuf As String) As Long

'ST176卡读写函数
Public Declare Function ST176_Active Lib "SCReader.dll" (ByVal hPort As Long, pChipId As Byte) As Long
Public Declare Function ST176_Read Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, pVal0 As Byte, pVal1 As Byte) As Long
Public Declare Function ST176_Write Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, ByVal val0 As Byte, ByVal val1 As Byte) As Long
Public Declare Function ST176_Deactive Lib "SCReader.dll" (ByVal hPort As Long)
Public Declare Function ST176_Protect Lib "SCReader.dll" (ByVal hPort As Long, ByVal bMask As Long) As Long

'Mifare1读写函数
Public Declare Function MF_Config Lib "SCReader.dll" (ByVal hPort As Long) As Long
Public Declare Function MF_Request Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytMode As Byte, pTagType As Byte) As Long
Public Declare Function MF_CascAnticoll Lib "SCReader.dll" (ByVal hPort As Long, ByVal argSelectCode As Byte, ByVal bytCnt As Byte, pSnr As Byte) As Long
Public Declare Function MF_Anticoll Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytCnt As Byte, pSnr As Byte) As Long
Public Declare Function MF_CascSelect Lib "SCReader.dll" (ByVal hPort As Long, ByVal argSelectCode As Byte, pSnr As Byte, pSize As Byte) As Long
Public Declare Function MF_Select Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, pSak As Byte) As Long
Public Declare Function MF_AuthKey Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytMode As Byte, pSnr As Byte, pKey As Byte, ByVal argBlock As Byte) As Long
Public Declare Function MF_Halt Lib "SCReader.dll" (ByVal hPort As Long) As Long
Public Declare Function MF_Read Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytBlock As Byte, pData As Byte) As Long
Public Declare Function MF_Write Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytBlock As Byte, pData As Byte) As Long
Public Declare Function MF_Increment Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytBlock As Byte, ByVal lValue As Long) As Long
Public Declare Function MF_Decrement Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytBlock As Byte, ByVal lValue As Long) As Long
Public Declare Function MF_Restore Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytBlock As Byte) As Long
Public Declare Function MF_Value Lib "SCReader.dll" (ByVal hPort As Long, ByVal argDDMode As Byte, ByVal argBlock As Byte, ByVal argValue As Long, ByVal argTBlock As Byte) As Long
Public Declare Function MF_ValueDebit Lib "SCReader.dll" (ByVal hPort As Long, ByVal argDDMode As Byte, ByVal argBlock As Byte, ByVal argValue As Long) As Long
Public Declare Function MF_SetBlockSize Lib "SCReader.dll" (ByVal hPort As Long, ByVal newVal As Byte) As Long
Public Declare Function MF_GetBlockSize Lib "SCReader.dll" (ByVal hPort As Long, pVal As Byte) As Long
Public Declare Function RF_Reset Lib "SCReader.dll" (ByVal hPort As Long, ByVal uMsec As Byte) As Long
Public Declare Function RF_Transceive Lib "SCReader.dll" (ByVal hPort As Long, pInbuf As Byte, ByVal InCount As Byte, pOutBuf As Byte, pOutCount As Byte) As Long
Public Declare Function RF_Transmit Lib "SCReader.dll" (ByVal hPort As Long, pInbuf As Byte, ByVal InCount As Byte) As Long
Public Declare Function RF_SetTransMode Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytIsoType As Byte, ByVal bytMode As Byte) As Long