selamat malam agan - agan yang budiman................ akhir - akhir ini saya sering dengar teman2 saya mengeluh tentang flashdisk yang kerasukan virus dan menyembunyikan file - file penting bahkan ada yang bilang "wahh file gua dikit tapi kenapa spase memorinya kemakan banyak???" ,, hhemmm emang sie antivirus bisa membantai virus - virus yang nakal.. tapi ceritanya akan lain jika ada teman yang flash disk udah terlanjur ke infeksi dan menghidden file - file kita yang penting...sedang anti virus agan jarang di update... jadi ga ke ditect ituh virus..
nah munkin dengan agan - agan membuat aplikasi yang sangat simple dan bermanfaat agan agan bisa mengembalikan file - file yang di hidden oleh virus yang kurang ajar..
nah ini dia scriptnya... agan agan tinggal copy aja..okkkkkk good luck gan....
' AWAL MAIN CODE
'==============================================================================
' Created by bL4cK HoLes
' (C) 2010 BITS CybeR T3aM
'
If MsgBox("Munculkan semua file tersembunyi di FlashDisk..?", vbOKCancel + vbQuestion, "Created by Bl4Ck hOlES (c) 2010") = vbOK Then
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim flashdrives
For i = Asc("C") To Asc("Z")
If FSO.DriveExists(Chr(i) & ":") Then
Set oDrive = FSO.GetDrive(Chr(i) & ":")
If oDrive.DriveType = 1 Then
RecursiveDir(Chr(i) & ":\")
flashdrives = flashdrives & Chr(i) & ":, "
End If
End If
Next
if len(flashdrives) > 2 Then
flashdrives = Mid(flashdrives, 1, Len(flashdrives) - 2)
MsgBox "Semua file di drive: " & flashdrives & " sudah dimunculkan....Silahkan Periksa!!", vbOKOnly + vbInformation, "Proses Selesai"
Else
MsgBox "Tidak ada FlashDisk di komputer ini..Harap periksa kembali..!!" , vbOKOnly + vbExclamation, "I QUIT"
End If
End If
'AKHIR MAIN CODE
'===============================================================================
' FUNGSI RECURSIVEDIR
'===============================================================================
function RecursiveDir (path)
Set folderpath = fso.getfolder(path)
Set fol = folderpath.SubFolders
Set oFiles = folderpath.Files
For Each Foldername In fol
If Foldername.attributes And 1 Then Foldername.attributes = Foldername.attributes - 1
If Foldername.attributes And 2 Then Foldername.attributes = Foldername.attributes - 2
If Foldername.attributes And 4 Then Foldername.attributes = Foldername.attributes - 4
RecursiveDir = FolderName
RecursiveDir FolderName
Next
For Each file In oFiles
If file.attributes And 1 Then file.attributes = file.attributes - 1
If file.attributes And 2 Then file.attributes = file.attributes - 2
If file.attributes And 4 Then file.attributes = file.attributes - 4
Next
End Function
setelah di copy paste di notepad dan ubah existensinya menjadi .vbs
setalah agan - agan berhasil coba test di komputer agan.... caranya :
bikin file atau folder hidden di flashdisk agan... lalu masukan flashdisk ke komputer....
setelah itu klik aplikasi yang baru agan buat.. stelah menunggu beberapa saat boooooommmmmmmmmmm semua file hidden atau bahkan supper hidden akan muncul semua..
hal ini sangat membantu agan - agan dalam melihat file2 mencurigakan semacam virus yang miungkin ada di flash disk agan.
karena kebanyakan dari virus menyembunyikan filenya... bukan hanya di hidden bahkan supper hidden dan harus dengan cmd bukanya..
sekian tips dan trik dari saya semoga bermanfaat dan bisa menambah ilmu agan agan yang budiman...
jika agan - agan punya saran dan kritik atau artikel yang bermanfaat dan berbagi dengan sesama agan bisa kirim ke alamat email matsanemoga@gmail.com atau di indo.opensource@facebook.com
About the Author
0Great Comment!