Всем привет!
*************************
Есть вопрос:
Как самоуничтожить программу?
Знаю лишь то, что это делаеться с помощью bat-файла
*************************
заранее благодарен!

Цитата

Знаю лишь то, что это делаеться с помощью bat-файла

Не всегда.

Давайте поможем написать человеку вирус!
А иначе на кой тебе это?

День добрый всем!

Код

Private Sub Form_Activate() Dim reply$ Dim mDate  As Date Dim sDate  As Date mDate = Date sDate = "25.05.2005" ' можно вставить любое число отказа работы программы.    If mDate >= sDate Then          reply$ = MsgBox("Danger! Virus <Trojan.CDJoke.5120>" + vbNewLine + _        "Output from program.", vbCritical, "Dr.Web")        Unload Me    End If End Sub

Программа будет целая, а работать не будет.

Naghual позитивней надо мыслить
код см. ниже

Это сообщение отредактировал(а) cardinal - 21.1.2005, 03:32

Цитата

Naghual позитивней надо мыслить

Возможно. Но уж каков есть. Без обид.

2 Гость_Vladislav: А все таки зачем тебе это нужно?

Я так думаю исследование алгоритмов вирусов весьма полезная вешь.
А если кто-либо относит себя к силам "Света", то пусть использует
полученную инфу и знания в соответствии со своими устремлениями.

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

И если кто-либо приходит на форум и так сказать вопрошоет, то
почему бы не помочь!?

И еще, было бы весьма полезно не отвергать само желание писать
вирусы, а поошрять это. И исследовать подобные примеры на форуме.

Цитата

2) Запрещается размещать материал, который является ложным, дискредитирующим, оскорбительным, вульгарным, ненавистным, непристойным, угрожающим, или нарушающем какой-либо закон. Также запрещается размещение любой рекламной информации, несогласованной с администрацией форума.

Ну а так как... Ну вобщем ничего помоему тут вирусного нет Ну хочет чел, чтобы его прога стерлась после пробного запуска, например, ну и пожалуйста... Тут люди и похлеще вещи делают с компером юзера, который не хочет платить бабки за уже полученную прогу
Я прихожу к выводу, что тут надо помягче, а то получается, что темы типа "Как узнать системный директорий?" или "Как сделать так, чтобы программа не высвечивалась в списке Ctrl-Alt-Del?" тоже надо закрывать потому, что с такими знаниями можно написать вирус.
Но конечно же если чел хочет вирус, то мы ему влепим минус (как только зарегистрируется ).

Цитата(Naghual @ 17.1.2005, 19:30)

А иначе на кой тебе это?

Ну тот же пробный запуск проги. После такого-то числа она себя ликвидирует. Думаю, что код полезный, засунул его в FAQ.
__Sergey__, регистрируйся на форуме. У меня чего-то руки чешутся тебе плюс прописать... уж больно код интересный(кто не согласен пишите...)

Убедили.
В будущем обещаю быть более лояльным.

Код

Option Explicit Public Type SHELLEXECUTEINFO        cbSize As Long        fMask As Long        hwnd As Long        lpVerb As String        lpFile As String        lpParameters As String        lpDirectory As String        nShow As Long        hInstApp As Long        '  Optional fields        lpIDList As Long        lpClass As String        hkeyClass As Long        dwHotKey As Long        hIcon As Long        hProcess As Long End Type Public Const IDLE_PRIORITY_CLASS = &H40 Public Const SEE_MASK_NOCLOSEPROCESS = &H40 Public Const REALTIME_PRIORITY_CLASS = &H100 Public Const THREAD_BASE_PRIORITY_LOWRT = 15 Public Const THREAD_PRIORITY_TIME_CRITICAL = THREAD_BASE_PRIORITY_LOWRT Public Const NORMAL_PRIORITY_CLASS = &H20 Public Const THREAD_PRIORITY_NORMAL = 0 Public Const SW_HIDE = 0 Public Declare Function SetProcessPriorityBoost Lib "kernel32" (ByVal hProcess As Long, ByVal DisablePriorityBoost As Long) Public Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Public Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long Public Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long Public Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long Public Declare Function GetCurrentProcess Lib "kernel32" () As Long Public Declare Function GetCurrentThread Lib "kernel32" () As Long Public Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExA" (sei As SHELLEXECUTEINFO) As Long Sub Main() Call SelfDelete End Sub Function SelfDelete() As Boolean  Dim sei As SHELLEXECUTEINFO  Dim szModule As String, szComspec As String, szParams As String  Dim ilen As Long    szModule = String(256, " ")  szComspec = String(256, " ")    Call GetModuleFileName(0, szModule, 255)  ilen = GetShortPathName(szModule, szModule, 255)  szModule = Left$(szModule, ilen)    If GetEnvironmentVariable("COMSPEC", szComspec, 255) <> 0 Then        szParams = "/c del " & szModule & " > nul"    sei.cbSize = LenB(sei)    sei.hwnd = 0    sei.lpVerb = "Open"    sei.lpFile = szComspec    sei.lpParameters = szParams    sei.lpDirectory = 0    sei.nShow = SW_HIDE    sei.fMask = SEE_MASK_NOCLOSEPROCESS    Call SetPriorityClass(GetCurrentProcess(), REALTIME_PRIORITY_CLASS)    Call SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_TIME_CRITICAL)    If ShellExecuteEx(sei) <> 0 Then      Call SetPriorityClass(sei.hProcess, IDLE_PRIORITY_CLASS)      Call SetProcessPriorityBoost(sei.hProcess, 1)      SelfDelete = True      Exit Function    Else      Call SetPriorityClass(GetCurrentProcess(), NORMAL_PRIORITY_CLASS)      Call SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_NORMAL)    End If        End If   SelfDelete = False End Function

Цитата(Naghual @ 18.1.2005, 00:30)

Давайте поможем написать человеку вирус!

Интересно... вирус на VB
Весом не менее 1.5Mb и распространяется по сети сверхвысокои скорости

Цитата

Интересно... вирус на VB Весом не менее 1.5Mb и распространяется по сети сверхвысокои скорости

Да это смешно.
Но что помешает нам портировать его на VBA?

Цитата(Mikle @ 22.1.2005, 10:12)

Весом не менее 1.5Mb

на xp все библиотеки уже стоят

Можно удалить при перезагрузке:
В HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce заносим erase c:\temp.myprog.exe

Цитата(Mikle @ 22.1.2005, 09:12)

Интересно... вирус на VB Весом не менее 1.5Mb и распространяется по сети сверхвысокои скорости

Хе, можно обойтись без формы - раз. Можно вэбэшным ехе создавать тело вируса - два, т.е. он есть просто заражающий, а вирус далее сам расспространяеться!

А так нельзя?

Добавлено через 3 минуты и 58 секунд
Да, так неполучается. (проверил), а вот на QB можно