Megekstrak SWF dari Flash Projector (*.exe)

Langsung saja, ini trik yang saya tulis di www.delphipages.com


procedure ExtractSWF;
var
  p:pointer;
  f:file;
  sz,
  swfsize:integer;
const
  SWF_FLAG:integer=$FA123456;
begin
  if not fileexists('test.exe') then begin
    messagebox(handle,pchar('File not found'),pchar('Error'),MB_ICONERROR);
    exit;
  end;
  assignfile(f,'test.exe');
  reset(f,1);
  seek(f,filesize(f)-(2*sizeof(integer)));
  blockread(f,sz,sizeof(integer));
  if sz<>swf_flag then begin
      messagebox(handle,pchar('Not a valid Projector Exe'),pchar('Error'),MB_ICONERROR);
      closefile(f);
      exit;
  end;
  blockread(f,swfsize,sizeof(integer));
  seek(f,filesize(f)-(2*sizeof(integer))-swfsize);
  getmem(p,swfsize);
  blockread(f,p^,swfsize);
  closefile(f);
  assignfile(f,'test.swf'));
  rewrite(f,1);
  blockwrite(f,p^,swfsize);
  closefile(f);
  freemem(p,swfsize);
  messagebox(handle,pchar('SWF Extracted'),pchar('Succes'),MB_ICONINFORMATION);
end;

end.

One thought on “Megekstrak SWF dari Flash Projector (*.exe)

  1. Tentang apa itu bro??
    To the point aza???
    Dijelaskan secara rinci dulu dwong, itu tentang apa?
    Q masuk ke situs asli yang amu berikan tapi tidak ditemukan…

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s