Usb_IC_Card_Sign
USB M1 IC卡签到和制卡系统(Delphi)
需要Delphi7以上环境二次开发。
Rc4_Unit.pas
函数名: Rc4_StrEncrypt()
描 述: RC4 Based string encryption
参 数: i_Encrypt ——为 1 是加密, 0 是解密(integer类型);
s_EncryptText ——待加密(解密)的字符串(string类型);
s_EncryptPassword ——加密(解密)的密码(string类型);
i_EncryptLevel ——加密级别(范围:1--10;integer类型))
InputBox.pas
函数名: InputBoxEx()
描 述: 输入对话框
参 数: ACaption ——为对话框标题内容
APrompt ——为对话框正文内容
ADefault ——为对话框默认内容
PassWordChar ——如果是密文填写“*”
superobject.pas
函数名: SO()
描 述: json文本转数组
参 数: value ——为文本json
更多细节参阅 LICENSE