Virologi-buat Software Untuk Menghancurkan File Agar Susah Di-recovery

Virologi.Info wecreate weeliminate Copyright © Virologi.Info. All rights reserved.

Buat Software Untuk Menghancurkan File Agar Susah Di-Recovery Terimakasih banyak buat Mas Aat Shadewa yang berkenan memuat artikel saya di virologi.info. Mungkin akan ada kemiripan dengan salah satu artikel di website saya www.farislab.net.tf. Sekarang kita akan membuat suatu software sederhana yang akan menghancurkan suatu file agar susah di-recovery. Mungkin ada yang belum tau yah…. Recovery maksudnya mengembalikan file-file yang ter-delete yang ada di sistem komputer walaupun sudah di-delete via Recycle Bin. Mungkin Anda pernah mendengar kasus virus KANGEN yang menghapus document dengan ekstensi *.doc. Satu-satunya cara untuk mengembalikan file yang ter-delete itu adalah dengan recovery. Nah, trik ini bisa di-aplikasikan agar file yang ter-delete tersebut susah di-recovery. Bisa untuk kebaikan bisa juga untuk kejahatan. Kebaikan maksudnya menghancurkan file pribadi/rahasia kita agar tidak di-recovery orang lain. Kejahatan ya membuat virus yang men-delete file dengan teknik ini.

Software ini akan kita buat menggunakan bahasa pemrogramman OOP jadul favorit saya, Visual Basic 6.0. Ya kita mulai dengan membuka VB-nyah. Sekarang, ubah Form1 Properties : Appearance -> 0 - Flat Caption -> Penghancur File Icon -> Terserah Anda yang penting menarik MaxButton -> False StartUpPosition -> 2 – CenterScreen Abis itu, desain sedimikian rupa agar form1 seperti ini. Yah gak mirip-mirip juga gak apa-apa. Yang penting informatif. Kalau bisa dihias. Biar lebih bagus gitu… Buat 1 buah text box. Atur properties Locked -> True, (Name) -> txtPath. Dan 2 buah button masing-masing bernama HANCURKAN dengan properties (Name) -> Hancur. Dan button BROWSE FILE dengan properties (Name) -> Brw. Untuk pelengkap sebaiknya buat 1 buah CheckBox dan beri nama Hapus dengan Caption -> Hapus jika sudah dihancurkan.

Documentation Vxer Center Http://Virus29a.blogspot.com

1

Virologi.Info wecreate weeliminate Copyright © Virologi.Info. All rights reserved.

'===AWAL MODULE=== Option Explicit '///---Deklarasikan fungsi-fungsi untuk mengapatkan nama file dari browser, mendapatkan suatu version 'Mendapatkan judul file, dan untuk type OSVERSIONINFO agar dapat mengetahui versi OS yang digunakan---/// Public Declare Function GetFileNameFromBrowseW Lib "Shell32" Alias "#63" (ByVal hwndOwner As Long, _ ByVal lpstrFile As Long, _ ByVal nMaxFile As Long, _ ByVal lpstrInitialDir As Long, _ ByVal lpstrDefExt As Long, _ ByVal lpstrFilter As Long, _ ByVal lpstrTitle As Long) As Long Public Declare Function GetFileNameFromBrowseA Lib "Shell32" Alias "#63" (ByVal hwndOwner As Long, _ ByVal lpstrFile As String, _ ByVal nMaxFile As Long, _ ByVal lpstrInitialDir As String, _ ByVal lpstrDefExt As String, _ ByVal lpstrFilter As String, _ ByVal lpstrTitle As String) As Long Private Const VER_PLATFORM_WIN32_NT = 2 Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long Private Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer Type OSVERSIONINFO Documentation Vxer Center Http://Virus29a.blogspot.com

2

Virologi.Info wecreate weeliminate Copyright © Virologi.Info. All rights reserved.

dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type '///---Untuk fungsi mengecek apakah komputer adalah Windows NT apa bukan--// Private Function IsWinNT() As Boolean Dim ComOS As OSVERSIONINFO ComOS.dwOSVersionInfoSize = Len(ComOS) GetVersionEx ComOS IsWinNT = (ComOS.dwPlatformId = VER_PLATFORM_WIN32_NT) End Function '///---Untuk fungsi membuka dialog browser untuk semua file--/// Public Function ShowOpenDlg(ByVal Owner As Form, _ Optional ByVal InitialDir As String, _ Optional ByVal strFilter As String, _ Optional ByVal DefaultExtension As String, _ Optional ByVal DlgTitle As String) As String Dim sBuf As String InitialDir = IIf(IsMissing(InitialDir), vbNullString, InitialDir) strFilter = IIf(IsMissing(strFilter), "Seluruh File|*.*", Replace(strFilter, "|", vbNullChar)) & vbNullChar DefaultExtension = IIf(IsMissing(DefaultExtension), vbNullString, DefaultExtension) DlgTitle = IIf(IsMissing(DlgTitle), "File tidak ada", DlgTitle) sBuf = Space$(256) If IsWinNT Then Call GetFileNameFromBrowseW(Owner.hWnd, StrPtr(sBuf), Len(sBuf), StrPtr(InitialDir), StrPtr(DefaultExtension), StrPtr(strFilter), StrPtr(DlgTitle)) Else Call GetFileNameFromBrowseA(Owner.hWnd, sBuf, Len(sBuf), InitialDir, DefaultExtension, strFilter, DlgTitle) End If ShowOpenDlg = Trim$(sBuf) End Function Documentation Vxer Center Http://Virus29a.blogspot.com

3

Virologi.Info wecreate weeliminate Copyright © Virologi.Info. All rights reserved.

'===AKHIR MODULE=== Nah, abis itu sekarang tulis code berikut di form1. '//---Untuk Button Browse Agar Menampilkan dialog Browse for All File---// '//--Direktori file yang dipilih akan dimasukkan ke txtPath---// Private Sub Brw_Click() On Error Resume Next Dim brwVal As String brwVal = (ShowOpenDlg(Me, , "Seluruh File|*.*", , "Cari File Yang Akan Dihancurkan")) On Error GoTo 0 If Len(brwVal) > 0 Then txtPath.Text = brwVal End If End Sub '//--Untuk Button HANCURKAN agar menghancurkan file yang dipilih--// Private Sub HANCUR_Click() On Error Resume Next '//--Mengecek value CheckBox HAPUS apakah dicek atau tidak--// If Hapus.Value = Checked Then '//--Kalau iya panggil prosedur ApusAja--// Call ApusAja '//--Pergi ke akhir--// GoTo Akhir End If '//--Set direktori file yang dipilih sebagai target--// Dim target As String target = (txtPath.Text) '//--Jika tidak ada file yang dipilih muncul pesan error dan akhir prosedur--// If Mid(txtPath.Text, 2, 2) <> ":\" Then MsgBox "Tidak menemukan Path-File.", vbCritical, "ERROR" GoTo Akhir End If '//--Menampilkan pesan pertanyaan untuk menghancurkan file yang dipilih--// If MsgBox("Yakin ingin hancurkan file ini?", 16 + vbYesNo, "HANCURKAN FILE") = vbYes Then '//--Jika memilih YES, maka akan mennghancurkan file dengan metode 'penulisan 0 byte--// Open target For Output As #1 Close (1) Documentation Vxer Center Http://Virus29a.blogspot.com

4

Virologi.Info wecreate weeliminate Copyright © Virologi.Info. All rights reserved.

MsgBox "File Dihancurkan", vbInformation, "PESAN" '//--Kosongkan txtPath--// txtPath.Text = "" End If Akhir: End Sub '//--Prosedur ini akan menghapus file sehabis dihancurkan--// Private Sub ApusAja() On Error Resume Next Dim target As String target = (txtPath.Text) If Mid(txtPath.Text, 2, 2) <> ":\" Then MsgBox "Tidak menemukan Path-File.", vbCritical, "ERROR" GoTo ProcError2 End If If MsgBox("Yakin ingin hancurkan dan menghapus file ini?", 16 + vbYesNo, "HANCURKAN FILE") = vbYes Then Open target For Output As #1 Close (1) MsgBox "File Dihancurkan dan Dihapus", vbInformation, "PESAN" '//--Hapus file yang sudah dihancurkan jika memilih YES--// Kill (txtPath.Text) txtPath.Text = "" End If ProcError2: End Sub

Nah sekarang kita bisa gunakan software ini untuk menghancurkan file agar susah direcovery dengan metode penulisan 0 byte. Jika di-recovery maka yang ter-recovery adalah file yang sudah rusak. Bagaimana? Mudah dan sederhana bukan? Hanya sekedar menghapus kode dari file tersebut sehingga file tersebut hancur.

Documentation Vxer Center Http://Virus29a.blogspot.com

5

Virologi.Info wecreate weeliminate Copyright © Virologi.Info. All rights reserved.

By : Fariskhi Vidyan http://www.farislab.net.tf or http://farislab.webs.io E-MAIL : [email protected] or [email protected]

Documentation Vxer Center Http://Virus29a.blogspot.com

6