SSH in FlashDrive with VBS


SSH <– Bukannya Secure Shell ya….tapi Show Super Hidden…hikhikhikIni Script sederhana yg fungsi’a untuk memunculkan Folder dan File yg disembunyikan oleh virus di FD kita…terkadang kita suka panik…saat file2 kita tiba2 hilang….padahal kita yakin sudah menaruh’a di dalam FD…mana file’a itu untuk tugas presentasi lg….ckckckk

Kalian ga usah langsung kuatir dan kesel sampe harus format FD segala….mungkin file2 kalian itu hanya disembunyikan oleh si VIRUS dgn attribut super hidden….karna super hidden…meskipun kalian menggunakan opsi show hidden file, folder and driver yg ada di tool’a mikocok….ya tetap ga akan bisa kliatan…laaa wong disuper hidden…ckckckkcara’a hanya dgn lewat DOS….baru file kita itu bisa muncul kembali…tp cara itu mungkin cukup rumit bagi mereka yg baru mengenal command line pd consule…Ok…ini cara untuk mempermudah memunculkan file2 yg di Super hidden oleh virus…Silahkan Copas dan beri nama Showsuperhidden.vbsSELAMAT MENCOBA…!!!

‘ 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

“Jika ada cara yang lebih mudah….kenapa harus menggunakan cara yang lebih sulit..

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s