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...

ICC

SSH In FlashDrive With VBS 2012-02-28T05:26:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown