如何将加密的图片解密？高手请进！！！找a9财务软件免费版

仓库管理软件版1楼: 如何将加密的图片解密？有没有办法解决啊？

2楼: 有用到這個問題，要匯編語言裡幾條指令就解決了。
QQ：136293586 如a9财务软件免费版

3楼: 能具体说说怎么搞吗？

4楼: {=================================================================
功能: 加密圖像文件
參數: 源文件目標文件
返回值: 成功失敗
=================================================================}
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;