解除SWF文件保护程序源代码.docVIP

?? Flashé?è??D????ò??a?a±à3ì?a3ySWF???t±￡?¤ ?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?aò????a3ìDò′ú???a?a?a?a?a?a?a?a?a?a?a?a?a unit SWFBlue_u1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ActnList, StdActns, StdCtrls; type TMain = class(TForm) b_open: TButton; b_save: TButton; b_exit: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; procedure b_openClick(Sender: TObject); procedure b_saveClick(Sender: TObject); procedure b_exitClick(Sender: TObject); private { Private declarations } public { Public declarations } FileLength : LongWord; //SWF???t3?′? FileBuf : Array of Byte; //??SWF???t?áè??ú′?′?·? end; var Main: TMain; implementation {$R *.dfm} procedure TMain.b_openClick(Sender: TObject); var f : File; fws : string[3]; //±êê?D??￠ version : Byte; //SWF???t°?±?o? b,b1,b2 : Byte; Buf : Array of Byte; FrameRate : real; //?ù?ê FrameCount : Word; //×ü??êy s : string; TagID : Word; //Tag±êê? TagLength : LongWord; //Tag3¤?è CurrentPos : integer; //CurrentPos????μ±?°?áD′???? FileLengthPos : integer; //FileLengthPos????FileLength2?êy???? TagPos : Integer; //TagPos????μ±?°TagID???? Found : Boolean; begin if not OpenDialog1.Execute then exit; FileMode:=fmOpenRead; AssignFile(f,OpenDialog1.FileName); Reset(f,1); SetLength(FileBuf,FileSize(f)); BlockRead(f,FileBuf[0],Filesize(f)); //?????t?áè??ú′? CloseFile(f); //?????a?áè?SWF???tμ????tí·Header2?·? CurrentPos:=0; //?áè?FWS±êê? SetLength(fws,3); Move(FileBuf[CurrentPos],fws[1],3); Inc(CurrentPos,3); if fwsFWS then begin SetLength(FileBuf,0); ShowMessage(?????t2?ê?Flash SWF???t!); exit; end; //?áè?°?±?o? Move(FileBuf[CurrentPos],version,Sizeof(version)); Inc(CurrentPos,Sizeof(version)); if Version5 then begin Se