<-Back-----<

 

WWW.SPYROZONE.NET

 

[205].Membuat Penghancur Data Dengan VB6.0 (II)

 

 

 

-------------------------------------------------------

Author  : SPYRO KiD

Contact : spyro_zone@yahoo.com ==> www.spyrozone.net

CopyLEFT (c) 2007 www.spyrozone.net All Rights Reserved

29/06/2007 18.05.21 WIB

-------------------------------------------------------

 

 

 

Di artikel No.194 yang lalu saya telah memberikan konsep dasar tentang tehnik menghancurkan data. Data Destroyer pada artikel tersebut hanya dapat melakukan penghapusan file satu demi satu saja. Data Destroyer kali ini memiliki kemampuan untuk menghancurkan data dalam file yang berada di suatu directory beserta seluruh file yang ada didalamnya.

 

Aplikasi ini sebelumnya telah saya masukkan dalam paket ToolBox Kick The Worm - Antivirus V1.5.0 sebagai alat bantu bagi anda yang ingin menghancurkan sisa-sisa worm yang tertangkap dalam folder \Quarantine\ secara permanen.

 

Konsep penghancuran data tidak jauh berbeda dengan yang telah saya berikan sebelumnya. Kita akan membanjiri file target dengan karakter sampah, baru kemudian menghapus file-file tersebut. Untuk lebih jelasnya, perhatikan cuplikan fungsi berikut:


Private Sub DestroyTarget(Path As String)
On Error Resume Next
Dim i As Integer
Dim j As Long
Dim fnum As Long
Dim fLen As Long
Dim idx As Long
Dim str As String
fnum = FreeFile
Open Path For Input As fnum
fLen = LOF(fnum)
Close fnum
fLen = fLen / ChunkSize
SetAttr Path, vbNormal ' Normalkan atribut milik target
str = String$(ChunkSize, Chr(35)) 'Karakter yang akan dipakai untuk

                                  'menghancurkan data yang berada dalam file target '#'
                                  'Anda dapat menggantinya dengan karakter lain
'Hancurkan data, banjiri dengan karakter '#'
For i = 0 To 10
     fnum = FreeFile
     Open Path For Binary As fnum
     For j = 0 To fLen
          idx = (ChunkSize * j) + 1
          Put fnum, idx, str
          DoEvents
     Next j
     Close fnum
     DoEvents
Next i
DeleteFile (Path) 'Panggil fungsi untuk mengapus file setelah data didalamnya dihancurkan
End Sub

 

Anda bisa mendownload aplikasi ini beserta Source Code selengkapnya di Member Area - http://spyrozone.net kategory Tools & Utilities.

 

Sekian, semoga bermanfaat ;)

 

/* ------------------------------|EOF|------------------------------ */

 

  <-Back-----<   

 WWW.SPYROZONE.NET