Tuesday

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 Rating: 4.5 Diposkan Oleh: Miftah Budi

0 komentar:

Post a Comment