说明: 一个网上广为流传的Delphi加密算法, function EncryptString(Source, Key: string): string; var KeyLen: integer; KeyPos: integer; Offset: integer; Dest: string; SrcPos: integer; SrcAsc: integer; Range: integer; begin KeyLen := Length(Key); if KeyLen = 0 then Key := '
<snowpig007> 上传 | 大小:180kb