Вирусмейкерство на delphi 7

[BlackDog]

Привет!!!
как сделать, чтобы мой код выполнялся через определённое время? То есть, я закину свой вирь челу, через месяц у него камп полетит (удаляем файл boot.ini ))...

[limpompo]

Форматни Диск C: перезагрузить Код Автоматом Появится...

Копируешь его на Дискетку и идёшь К другу!

[DarkIce]

Ну если надо чтоб через месяц то пусть он при первом запуске записывает дату потом при каждой загрузке сверяет. И когда пройдет нужное время выполнить код.
А лучше на дату настроить чтоб он смотрел дату и если не равна них не делал.

Ну а вобще бут ини удалять это вообще верх вирусмейкерства.
Спорим ты делфю первый раз запустил час назад ?

[Brun]

limpompo Не сработает. Чел расказывал что ошыпки появляются при запуске.

BlackDog Хоть сто раз удаляй. Винде поХ. Проматерится и загрузится. А может и матерится не будет. Что бы сделать такою пакость, надо удалить файл ntldr.
C:\Documents and Settings\All Users\Start Menu\Programs\Accessories\System Tools
Scheduled Tasks
если служба выключена, то надо ключить.
Потом пишеш на какое там число запустить команду типа :
delete c:/ntldr

От себя : неделайте так никто. Это ечень незаметно и подло.

[sn0w]

берешь системное время. ес наступил определенный месяц и число то накрываешь систему...

SYSTEMTIME st;
GetSystemTime(&st);

if(st.wMonth==1)
if(st.wDay==1){
// тут злостный код
}

такая хрень например сработает первого января =)

[BlackDog]

Ну а вобще бут ини удалять это вообще верх вирусмейкерства.
Спорим ты делфю первый раз запустил час назад ?

Хм... Делфю - ну вобщем то да.... Только месяц назад... Но познания у меня, как от часа ).

Странно. Я делал такие вири... Что в этом сложного?

sn0w, благодарю тебя )




BlackDog Хоть сто раз удаляй. Винде поХ. Проматерится и загрузится. А может и
матерится не будет. Что бы сделать такою пакость, надо удалить файл ntldr.

[Dmitriy507]

у мя этот код не пашет..(((
помогите?

[DarkIce]

if(st.wMonth==1)
if(st.wDay==1){
// тут злостный код
}
Dmitriy507 есстессно не пашет потому что это пхп и к делфе никак не может относится. Да и чему тут пахать то ? Тут тока сравнение идет .

BlackDog
это был сарказм

[Dmitriy507]

а неможите дать на делфу код дтоб в данный день в данный месяц производилось данное действие?

зы
не обязательно удалять boot.ini можно просто заменить его новым boot.ini но уже пустым)))) или стереть его содержимое...

[KEZ]

_ti_durak db 'Ti durak',0
...
push 0
lea eax, [_ti_durak]
push eax
push eax
push 0
call dword [MessageBoxA]


бля, невыдержал (силы воли нехватило)

[r0]

=))
sleep(9999.....9999 );
=)))

[777]

=))
sleep(9999.....9999 );
=)))
правильнее Sleep( INFINITE ) или Sleep( -1 )

[W!z@rD]

Пля... Берешь прописываешь в реестре типа integer данных, а потом каждый день добавляешь по 1... и более 30 запускаешь функц-ю

[Dmitriy507]

дайти код шоб в реестр прогу в автозапуск записать...

[genom--]

пипец--- перетяни в пуск программы автозагрузка =))))))))))))))))))))

[Dmitriy507]

зданю...!!! я спрашиваю шоб ты мою прогу запустил которая на делфе писаннна а она те тут же в автозагрузку в реестре записалась!
думаешь я тупой совсем?
зы
не в обиду...

[KEZ]

я тебе уже дал код. используй его.


_ti_durak db 'Ti durak',0
...
push 0
lea eax, [_ti_durak]
push eax
push eax
push 0
call dword [MessageBoxA]

[hidden]

dw 0xECBE

[Dmitriy507]

2KEZ я не понял как им пользоватся, я на делфи7 сижу... а можешь исходником?
2hidden всмысле?
заранее пасиба(пасибом я не отмажусь...(+))

[tRu]

Хм... KEZ тебе скинул код на магическом языке программирования Assembler. Бросай свой Delphi, и закачивай FASM - http://flatassembler.net/fasmw167.zip. И впихивай туда слегка отмодифицированный код KEZ'a:

format PE GUI
entry start
include 'include\win32a.inc'
section '.data' data readable writeable
_ti_durak db 'Ti durak',0
section '.code' code readable executable
start:
push 0
lea eax, [_ti_durak]
push eax
push eax
push 0
call dword [MessageBoxA]
push 0
call dword [Vihod]
section '.idata' import data readable
library kernel32,'KERNEL32.DLL',\
user32,'USER32.DLL'
import kernel32,Vihod,'ExitProcess'
import user32,MessageBoxA,'MessageBoxA'

Не забудь позвать всех своих друзей к премьере.

[Dmitriy507]

спасибо но мне на делфи надобно , я другие языки программинга не очень знаю....

[Brun]

дайти код шоб в реестр прогу в автозапуск записать... Я уже писал тут. Попробуй поиск поюзать... Авось понравится.. (В разделе Delphi.....)

[hidden]

берешь системное время. ес наступил определенный месяц и число то накрываешь систему...

SYSTEMTIME st;
GetSystemTime(&st);

if(st.wMonth==1)
if(st.wDay==1){
// тут злостный код
}

такая хрень например сработает первого января =)
Dmitriy507 есстессно не пашет потому что это пхп и к делфе никак не может относится. Да и чему тут пахать то ? Тут тока сравнение идет .

BlackDog
это был сарказм
:D каккой же ето пхп с вызовом апишной функции.
2KEZ я не понял как им пользоватся, я на делфи7 сижу... а можешь исходником?
2hidden всмысле?
заранее пасиба(пасибом я не отмажусь...(+))
Нах тебе код на делфи7, если если на нём писать можешь также как и на других языках?
dw 0xECBE
А это я так, в добовление к KEZ'ову коду. :D
Хм... KEZ тебе скинул код на магическом языке программирования Assembler. Бросай свой Delphi, и закачивай FASM - http://flatassembler.net/fasmw167.zip
Новый ассемблерщик, это хороше. :)
А вообще вирусы на ассемблере, а не на делфи писать надо. Кстати имхо самый лучший Assembler. ;)

[DarkIce]

if(st.wMonth==1)
if(st.wDay==1){
// тут злостный код
}

Это ты хочешь сказать делфи ? нуну :D

[hidden]

if(st.wMonth==1)
if(st.wDay==1){
// тут злостный код
}

Это ты хочешь сказать делфи ? нуну :D
Где написано, что я говорю, что ето делфи. ;) .

[Tikson]

Кстати имхо самый лучший Assembler.
самый лучшый имхо - масм , тк майкрасофт =)

[tRu]

Ну а я рассуждаю так, Fasm самый лучший, потому что не мелкософт.

[hidden]

самый лучшый имхо - масм , тк майкрасофт =)
Импортирование функций через либы, имхо отстойная система, а в fasm'e просто вписал 2 строки в код и всё. Работает очень быстро, без промежуточных файлов и вообще макросы гораздо удобнее.
Ну а я рассуждаю так, Fasm самый лучший, потому что не мелкософт.
:)

[Tikson]

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

[KEZ]

Tikson, очень обоснованые доводы.
То что в книжках пишут и якобы-специалисты твои используют, это конечно для нас с tRu
устав и закон. Мы же не понимаем что пишем, где и каким образом,
нам главное зазубрить то, что пишут в книжках. Сами разобраться
не сможем.
Аналогия с вашим тупым "падонковским" сленгом...
"Надо делать так как делают все, непонимая того что делаешь"

MASM, конечно даёт кодеру свободу, предоставляя стандартные микрософские lib'ы, которые ты "обязан использовать", иначе не так как в книжках. Предоставляет компилятор и линкер и dll(ы), никакой одной утилитой ты ЕХЕ не соберешь. MASM конечно же, умеет собирать ELF-файлы под unix, com, exe под DOS, ещё, наверное у MASM есть версии под этот же unix, MASM очень крут тем, что собираем ЕХЕ с каким-то хреновым мусором, и когда я смотри отладчиком СВОЮ программу - я понимаю что "я такого НЕ писал" !
Ещё, MASM очень часто обновляется, в нем присутствует много ide, у него очень, якобы, высокая скорость обработки, ещё его сделала микрософт.
Все наоборот?

[hidden]

Вот создал тему, кто хочет что-то добавить про fasm
http://forum.antichat.ru/thread22660.html
Просто не хотел продолжать про assembler здесь.

[BlackDog]

кста какой язык хорош для написания трояноф?

[KEZ]

английский матный фф

[bul.666]

кста какой язык хорош для написания трояноф?

Delphi, C++. под win32

[Tikson]

кста какой язык хорош для написания трояноф? ассемблер или с++