Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works
Anything · Lazarus or Delphi
Random projectRandom project

Usb_IC_Card_Sign

USB M1 IC卡签到和制卡系统(Delphi)

View on GitHub

Member rating

No ratings yet.

Sign in to rate this project.

README

Usb_IC_Card_Sign

USB M1 IC卡签到和制卡系统(Delphi)

需要Delphi7以上环境二次开发。

pascal
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