- UID
- 14878
注册时间2006-6-4
阅读权限30
最后登录1970-1-1
龙战于野

该用户从未签到
|

楼主 |
发表于 2006-9-9 10:47:31
|
显示全部楼层
再提供一组加解密算法:
procedure EncryptFile(var InS,OutS:strings;Key:LongWord);
var
X:Integer;
C:Byte;
begin
FOR X := 0 TO length(Ins) - 1 DO
begin
C := InS(X);
C := (C xor (Key shr 8));
Key := (C + Key) * C1 + C2;
OutS(X) := C;
end;
end;
procedure DecryptFile(var InS,OutS:strings;Key:LongWord);
var
X:Integer;
C,O:Byte;
begin
FOR X:=0 TO MS.Size - 1 DO
begin
C := InS(X);
O:=C;
C:=(C xor (Key shr 8));
Key:=(O + Key) * C1 + C2;
OutS(X) := C;
end;
end; |
|