unit uni_datamodule;
inte***ce
uses
sysutils, classes,windows,dialogs;
type
tdm1 = class(tdatamodule)
private
public
end;
function fileencrypt(const sourcefile:string):string;
function filedecrypt(const sourcefile:string):string;
vardm1: tdm1;
gs_md5str:string;
gs_selbtnnum:integer;
implementation
//swf檔案加密///
function fileencrypt(const sourcefile:string):string;
varsrcfile:file of byte;
tmpbyte:array[0..9] of byte;
i:integer;
begin
tmpbyte[0]:=56;
tmpbyte[1]:=89;
tmpbyte[2]:=87;
assign(srcfile,sourcefile);
tryfor i:=0 to 2 do begin
reset(srcfile);
seek(srcfile,i); //定位到第i個位元組處
write(srcfile,tmpbyte[i]); //寫入乙個位元組，如果該位置原來是'a'則現在是'b'
end;
seek(srcfile,8);
tmpbyte[8]:=16;
write(srcfile,tmpbyte[8]);
seek(srcfile,9);
tmpbyte[9]:=57;
write(srcfile,tmpbyte[9]);
finally
closefile(srcfile);
end;
result:=sourcefile;
end;
//swf檔案解密///
function filedecrypt(const sourcefile:string):string;
varsrcfile:file of byte;
tmpbyte:array[0..9] of byte;
begin
if not fileexists(sourcefile) then begin
showmessage(sourcefile+'不存在');
exit;
end;
assign(srcfile,sourcefile);
tryreset(srcfile);
seek(srcfile,0); //定位到第1個位元組處
tmpbyte[0]:=67;
write(srcfile,tmpbyte[0]); //寫入乙個位元組，如果該位置原來是'a'則現在是'b'
seek(srcfile,1); //定位到第2個位元組處
tmpbyte[1]:=87;
write(srcfile,tmpbyte[1]);
seek(srcfile,2);
tmpbyte[2]:=83;
write(srcfile,tmpbyte[2]);
seek(srcfile,8);
tmpbyte[8]:=120;
write(srcfile,tmpbyte[8]);
seek(srcfile,9);
tmpbyte[9]:=156;
write(srcfile,tmpbyte[9]);
finally
closefile(srcfile);
end;
result:=sourcefile;
end;
end.
swf檔案解析
swf 檔案的大致結構介紹 參考 macromedia flash file format swf swf 檔案是一類二進位制檔案，檔案本身包括 header 和br 1.header 包括了六個部分 header 總是以乙個三個位元組的signature 開始 0x46,0x57,0x53 fws...
載入swf檔案
一 問題起源 使用主程式載入子程式的方法的原因如下 參考 二 使用loader載入swf檔案 xml version 1.0 encoding utf 8 xmlns fx xmlns s library xmlns mx library minwidth 955 minheight 600 cre...
網頁遊戲SWF檔案之加密實現過程（一）
眾所周知，網頁遊戲的前端檔案幾乎是赤裸裸的呈現出來的，很多成功的產品由於經常給別人破解導致質量下降，所以，檔案的安全性成為每個公司最頭疼的事情。今天晚上突然想到乙個辦法，既然別人是通過反編譯軟體來破解的話，那我乾脆將這個檔案變成二進位制的格式，接著有一些演算法加在這個二進位制檔案裡，再在載入時解碼，...