FileProtection Delphi source

黑夜彩虹

文件加密器

可对任何类型的文件加密\解密

第一次加密，第二次解密

[ 本帖最后由 黑夜彩虹 于 2006-9-9 08:49 编辑 ]

obi-one

;P 又是第一个顶你！

bfqyygy

第二个支持!!!

yitaowu

不错的东西啊，支持了 ～～～～～～～～～

寒湖鹤影

小黑顶你:lol:

WAKU

有的啥算法啊

tigerisme

不错:victory:

黑夜彩虹

再提供一组加解密算法：

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;

zhangke

呵呵
异或运算通常是这样的,第一次异或加密,再一次次异或就解密!
建议让用户自己输入加密密码,这样即使知道了算法,也不一定解得出来!