{=================================================================
功 能: 加密圖像文件
參 數: 源文件 目標文件
返回值: 成功 失敗
=================================================================}
Function PassWordImageFile(UnPassImagePathFile,PassImagePathFile:String;Mode:Boolean):Boolean;
var
f1,f2:File;
buf:byte;
_fSize,cut:integer;
ExistsFile:Boolean;
begin
If Mode And FileExists(UnPassImagePathFile) Then Begin // 進行加密圖像方式
AssignFile(f1,UnPassImagePathFile);
AssignFile(f2,PassImagePathFile);
ExistsFile:=True;
End Else
If Mode And FileExists(PassImagePathFile) Then Begin // 進行解密圖像方式
AssignFile(f1,PassImagePathFile);
AssignFile(f2,UnPassImagePathFile);
ExistsFile:=True;
End;
If ExistsFile Then Begin
Reset(f1,1);
ReWrite(f2,1);
_fSize := FileSize(f1);
try
while _fSize>0 do
begin
BlockRead(f1,buf,SizeOf(Buf),cut);
asm
not buf //取反加密,這裡可以改成別的算法
end;
BlockWrite(f2,buf,cut,cut);
dec(_fSize);
end;
finally
CloseFile(f2);
CloseFile(f1);
end;
Result:=True;
End Else Result:=False;
end;