Arsip: Menyembunyikan file dalam gambar dgn delphi II

by reev in Serba Neka more 17 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

Random Articles

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Arsip: Menyembunyikan file dalam gambar dgn delphi II

Random Articles

AI Forward

Last Articles

Recent Topic

Arsip: Menyembunyikan file dalam gambar dgn delphi II

Random Articles

AI Forward

Last Articles

Recent Topic

Obsolete Report