Arsip: Menyembunyikan file dalam gambar dgn delphi II


by reev in Serba Neka more 15 years ago 2565
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
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com