-
-
[原创]FileProtection Delphi source
-
2006-9-9 11:04
-
文件加密器
可对任何类型的文件加密\解密
第一次加密，第二次解密
再提供一组算法，有兴趣的自已玩玩：
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;
可对任何类型的文件加密\解密
第一次加密，第二次解密
再提供一组算法，有兴趣的自已玩玩：
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;
[培训]《安卓高级研修班(网课)》月薪三万计划，掌握调试、分析还原ollvm、vmp的方法，定制art虚拟机自动化脱壳的方法
|
|
|---|---|
|
|
|
|
|
Font.Name = 'MS Sans Serif'
是在win98下开发的吗？ 好像用了VCLSkin比较新版本的控件呀！ 
|
|
|
|
|
|
最初由 xinix 发布 晕，不能吧~~ 
|
|
|
鼓励一下。不过，这个算法也太简单了点……
|
|
|
|
