Arsip: Menyembunyikan file dalam gambar dgn delphi II

by reev in Serba Neka more 15 years ago

Thanks @Mas Kofa atas reviewnya pada artikel saya yang gak ada hubungannya sama sekali dengan Delphi. @Mas Kofa sudah membuatnya lebih "Delphi".
Mungkin ada yang tanya, "Tapi kan masih juga menjalankannya lewat Batch File"?

Kesempatan ini saya coba menulis beberapa baris singkat tentang "Menyembunyikan file dalam gambar dgn delphi" yang benar-benar Delphi:

Langsung saja ke kodenya:



procedure HideInPic(const hostFile, FileToHide: String);

var

  f1, f2: HFile;

  p:Pointer;

  sz:Integer;

begin

  //Buka file  target penyembunyian (host) dan ile yang akan disembunyikan

  f1:=FileOpen(hostFile, fmOPenReadWrite);

  if f1=INVALID_HANDLE_VALUE then

    Exit;

  f2:=FileOPen(fileToHide, fmRead);

  if f2 = INVALID_HANDLE_VALUE then

  begin

    FileClose(f1);

    exit;

  End;

  //Alokasikan memori seukuran file yang akan disembunyikan

  sz:=GetFileSize(f2, nil);

  Getmem(p, sz);

  // baca isi file yang akan disembunyikan ke buffer memori

  sz:=FileRead(f2, p^, sz);

  fileClose(f2);

  //tutup file yang sudah dibaca, lanjut dengan

  //menulis buffer memori ke akhir file host



  FileSeek(f1, 0, soFromEnd {atau FILE_END});

  FileWrite(f1, p^, sz);

  //tutup file host dan bebaskan memori yang terpakai

  FileClose(f1);

 Freemem(p, sz); 

end;

Selamat mencoba

Arsip: Menyembunyikan file dalam gambar dgn delphi II

Random Articles

Last Articles

Recent Topic

Arsip: Menyembunyikan file dalam gambar dgn delphi II

Random Articles

Last Articles

Recent Topic

Obsolete Report