FileProtection Delphi source

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置：> 看雪学院专区 > Win32/Win64编程

FileProtection Delphi source

作者:joe-lu 时间:2006-12-15 15:28 出处:pediy.com 责编:月夜寒箫

摘要：FileProtection Delphi source

文件加密器

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

第一次加密，第二次解密

再提供一组算法，有兴趣的自已玩玩：

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;

所上传文件

fileprotection..rar (上传时间2006-09-09,11:04,394.3 KB,73 次点击)

关闭本页