Arsip: Aplikasi Shredder

more 13 years ago
ivan
Mas²,
Saya lagi iseng bikin file shredder, yg cara kerjanya dengan mengacak isi file terlebih dahulu kemudian di delete.
Pertanyaannya: Saat proses stream acak isi, ternyata ukuran file malah membesar dahulu (File setelah di acak malah lebih besar dari file asli). Padahal saya melihat program shredder lain itu justru mengecilkan sedikit demi sedikit hingga menjadi 0 KB baru didelete
ini code untuk acaknya:
var fs: TFileStream;
a, Buffer: Char;
i: LongInt;
for i:= 0 to fs.Size-1 do
begin
fs.Read(Buffer, sizeof(Buffer));
a:= Buffer;
a:= Char(ord(a) shr ord(a) + $698098d8);
fs.Write(a, sizeof(a));
end;
Atau ada cara yg benar seperti apa?
more 13 years ago
kodok_bancret
Seharusnya sebelum fs.Write panggil fs.Seek dulu untuk mundur 1 byte (posisi semula).
Aku dulu pernah bikin file shredder, menurutku isi fileny tidak perlu di acak, tapi di replace saja dengan karakter lain misal spaci. :)

more 13 years ago
ivan
Maksudnya seperti ini:
var fs: TFileStream;
a, Buffer: Char;
i: LongInt;
for i:= 0 to fs.Size-1 do
begin
fs.Read(Buffer, sizeof(Buffer));
a:= Buffer;
a:= Char(ord(a) shr ord(a) + $698098d8);
fs.Seek(1, soFromCurrent); // <-------------------------- seperti ini
fs.Write(a, sizeof(a));
end;
Koq hasilnya masih besar juga yachmore ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- [ASK] Cari komponen query dan table yang aktif
by always_newbie in Tip n Trik Pemrograman more 13 years ago - Membuat Laporan Per Group
by yanto in Tutorial & Community Project more 14 years ago - report cuma bisa nongol 1x..puciii..ng
by asiyrob in MySQL more 13 years ago - Firebird Full Text Searching using Index
by DelphiExpert in Multimedia & Graphic Enhancement more 14 years ago - ada yang tau kompresi huffman??
by sen111 in Bedah Kasus more 11 years ago - tanya tentang "save as"
by m26403131 in Hal umum tentang Pascal Indonesia more 13 years ago - program kompresor/zip & SFX
by Dedi_Shen in Tip n Trik Pemrograman more 14 years ago - Contoh Program Penjualan + Inventory
by andip70 in Hal umum tentang Pascal Indonesia more 13 years ago - Form Biasa dengan Form MDI
by cartrun in Tip n Trik Pemrograman more 9 years ago - Buku-bukureferensi belajar data base dengan delphi???
by fongers in Enginering more 12 years ago