黑夜彩虹 发表于 2006-9-9 08:43:12

FileProtection Delphi source

文件加密器

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

第一次加密，第二次解密

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

obi-one 发表于 2006-9-9 09:00:52

;P 又是第一个顶你！

bfqyygy 发表于 2006-9-9 09:08:57

第二个支持!!!

wxh9833 发表于 2006-9-9 09:13:26

yitaowu 发表于 2006-9-9 09:36:45

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

寒湖鹤影 发表于 2006-9-9 09:46:41

小黑顶你:lol:

WAKU 发表于 2006-9-9 09:50:49

有的啥算法啊

tigerisme 发表于 2006-9-9 10:11:41

不错:victory:

黑夜彩虹 发表于 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;

zhangke 发表于 2006-9-9 12:12:27

呵呵
异或运算通常是这样的,第一次异或加密,再一次次异或就解密!
建议让用户自己输入加密密码,这样即使知道了算法,也不一定解得出来!
页: [1] 2
查看完整版本: FileProtection Delphi source