ic4442.prg

IC卡编程

SET TALK ON
*假定动态库已被拷至C:\WIN95\SYSTEM下
DECLARE INTEGER IC_InitComm IN lkic32 INTEGER port
DECLARE SHORT IC_ExitComm IN lkic32 INTEGER port
DECLARE SHORT IC_InitType IN lkic32 INTEGER port,INTEGER cardtype
DECLARE SHORT IC_Read IN lkic32 INTEGER port,INTEGER offset,INTEGER length,STRING @buffer
DECLARE SHORT IC_Write IN lkic32 INTEGER port,INTEGER offset,INTEGER length,STRING @buffer
DECLARE SHORT IC_CheckPass_SLE4442 IN lkic32 INTEGER port,STRING @buffer
DECLARE SHORT IC_CheckPass_SLE4442hex IN lkic32 INTEGER port,STRING @buffer
DECLARE SHORT IC_ChangePass_SLE4442 IN lkic32 INTEGER port,STRING @buffer
DECLARE SHORT IC_ChangePass_SLE4442hex IN lkic32 INTEGER port,STRING @buffer
DECLARE SHORT IC_ReadCount_SLE4442 IN lkic32 INTEGER port
DECLARE SHORT IC_ReadProtection IN lkic32 INTEGER port,INTEGER offset,INTEGER length,STRING @buffer
DECLARE SHORT IC_WriteProtection IN lkic32 INTEGER port,INTEGER offset,INTEGER length,STRING @buffer

COM=1        &&COM2
CARDTYPE=16  &&SLE4442
clear
COM=IC_Initcomm(COM) 
X=IC_InitType(COM,CARDTYPE)
?X
*P=CHR(255)+CHR(255)+CHR(255)   && chang the type of sc  as a string type 
P='FFFFFF'
X=IC_CheckPass_SLE4442hex(COM,@P)  && verify the scurity code
IF X>=0
?'PASSWORD IS OK!'
ELSE
?'PASSWORD IS WRONG'
?X
x=IC_exitcomm(COM)
clea dlls
RETURN
ENDIF
S=SPACE(224)
FOR I=0 TO 16  && write 'THIS IS TEST' from address 34
?'WRITING...'
buff='123456123456'
X=IC_Write(COM,34+I*13,13,@buff)
IF X>=0 THEN
?'WRITE OK'
ELSE
?'WRITE ERROR'
ENDIF
?'READING....'
S=SPACE(13*(I+1))
X=IC_Read(COM,34,13*(I+1),@S)
? "READ BYTES:"+STR(X)
? S
ENDFOR
x=IC_Exitcomm(COM)
clea dlls