说明: 对数字加密,仅对数字加密function EncryptString(Source, Key: string): string; //对字符串加密(Source:源 Key:密匙) var KeyLen: integer; KeyPos: integer; Offset: integer; Dest: string; SrcPos: integer; SrcAsc: integer; Range: integer; begin KeyLen := Length(Key); if KeyLen
<huaibei99> 上传 | 大小:2kb