Tengo instalado un Windows XP versión 2002 con el SP3. Mi antivirus es un Avast Free 6.0.1367.

El escudo en tiempo real hoy ha comenzado a darme el aviso de que tengo un rootkit en c:\windows\system32\drivers\sfloppy.sys. Le doy a "eliminar". Me dice que programa la eliminación para el siguiente arranque junto con un scanner completo. Rearranco. Hace el escaneo sin encontrar nada. Y al volver a arrancar el equipo me vuelve a saltar la alarma.

He subido el archivo a Virus Total y todos los motores de antivirus, incluído el Avast, me lo dan por bueno. El Spybot Search & Destroy tampoco encuentra nada.

El Kaspersky TDSSKiller tampoco ha encontrado nada sospechoso.

Mirando en los foros de Avast parece que le pasa a más gente desde la última actualización del programa (yo la hice hace 48 horas más o menos) y alguno ha comparando el hash MD5 de su archivo con el original de la instalación y es el mismo.

Todo apunta a que es un falso positivo (por si acaso voy a entrar con una Live de Linux y lo voy a borrar )
 

Tengo unas bases de datos de Access con macros en Visual Basic for Application hechas en la versión 2003 de Access. Ahora me he puesto a migrarlas a Access 2010 y me he encontrado con una sorpresa: El objeto "Application.FileSearch" dejó de implementarse en VBA a partir de la versión 2007 de Office.

Para los que no sepáis que hace el objeto, a grandes trazos es un objeto que permite configurar una serie de filtros para buscar ficheros, ejecuta la búsqueda y devuelve la lista de ficheros que cumplen con los criterios elegidos. Puedes, por ejemplo, pedirle la lista de ficheros "*.zip" que están en el directorio "C:\Temp" y que lo haga de forma recursiva buscando por los subdirectorios.

Después de mucho mirar por la ayuda y consultar al gran oráculo Google, descubrí que no sólo ha dejado de implementarse "Application.FileSearch", además su funcionalidad no ha sido sustituida por ningún otro objeto. Si quieres hacerlo tienes que implementarte a mano tu búsqueda de ficheros.

Entre los resultados de Google estaba el código de varios procedimientos para hacer lo mismo, incluido el que Microsoft proporciona en su web de soporte. Después de revisarlos todos y probar alguno, decidí implementar mi propio objeto FileSearch basándome en el procedimiento FileSearch que había implementado un tal Havrda y que yo encontré en http://www.pcreview.co.uk/forums/application-filesearch-error-t3743946p2.html

A continuación os pongo el objeto que he implementado por si alguno os encontráis con este problema en el futuro. La ventaja que tiene este objeto es que tiene un funcionamiento parecido al que tenía "Application.FileSearch" por lo que los cambios en vuestras macros serán menores que si intentáis adaptar un procedimiento de los muchos que encontraréis por Internet.


classError.cls
Objeto que agrupa el código de error y los mensajes que se producen dentro del objeto classFileSearch.

Option Compare Database
Option Explicit
 
 
Public iNumError        As Integer
Public sDonde           As String
Public sMensaSist       As String
Public sMensaApli       As String
 
 
Private Sub class_initialize()
    On Error Resume Next
 
    Limpiar
End Sub
 
 
Public Sub Limpiar()
    On Error Resume Next
 
    iNumError = 0
    sDonde = ""
    sMensaSist = ""
    sMensaApli = ""
End Sub
 
Public Sub Copiar(ByRef oObjOrigen As classError)
    On Error Resume Next
 
    iNumError = oObjOrigen.iNumError
    sDonde = oObjOrigen.sDonde
    sMensaSist = oObjOrigen.sMensaSist
    sMensaApli = oObjOrigen.sMensaApli
End Sub
 
 

classFileSearch.cls
Objeto que realiza la búsqueda de los ficheros. La lista de ficheros encontrados es una colección de objetos "FILE".

Option Compare Database
Option Explicit
 
 
Public oError               As classError       ' Control de errores
Public sDirIniBusqueda      As String           ' Directorio desde el que iniciar la búsqueda de ficheros
Public sPatronBusqueda      As String           ' Patrón de búsqueda de ficheros. Por ejemplo: "*.rar"
Public bBusquedaRecursiva   As Boolean          ' True: Busca recursivamente por los subdirectorios
Public lstListaFicheros     As Collection       ' Lista de ficheros encontrados que coinciden con el patrón
 
Private objFileSystem       As Object
 
 
Private Sub class_initialize()
    On Error GoTo ERROR_CLASSINITIALIZE
 
    Set oError = New classError
 
    sDirIniBusqueda = ""
    sPatronBusqueda = ""
    bBusquedaRecursiva = False
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
    Exit Sub
 
ERROR_CLASSINITIALIZE:
    oError.iNumError = Err.Number
    oError.sMensaSist = Err.Description
    oError.sDonde = "classFileSearch.class_initialize()"
    oError.sMensaApli = "Error inicializando una instancia de la clase"
 
End Sub
 
Private Sub class_terminate()
    On Error Resume Next
    Set oError = Nothing
    Set lstListaFicheros = Nothing
    Set objFileSystem = Nothing
End Sub
 
Public Function Ejecutar() As Integer
    On Error GoTo ERROR_EJECUTAR
 
    Dim iIndice     As Integer
    Dim sDirectorio As String
    Dim sFichero    As String
 
 
    If (sDirIniBusqueda = "") Then
        oError.iNumError = -9999
        oError.sMensaSist = ""
        oError.sDonde = "classFileSearch.Ejecutar()"
        oError.sMensaApli = "No se ha indicado ninguna ruta de directorio desde la que iniciar la búsqueda"
        Ejecutar = -9999
 
    ElseIf (sPatronBusqueda = "") Then
        oError.iNumError = -9999
        oError.sMensaSist = ""
        oError.sDonde = "classFileSearch.Ejecutar()"
        oError.sMensaApli = "No se ha indicado ningún patrón de archivo a buscar"
        Ejecutar = -9999
    Else
        '___Comprobar si la colección de ficheros tiene información, y si la tiene borrarla___
 
        Set lstListaFicheros = Nothing
        Set lstListaFicheros = New Collection
 
        sDirectorio = Trim(sDirIniBusqueda)
        sFichero = sPatronBusqueda
 
        BuscarFicheros sDirectorio, sFichero
 
        If (oError.iNumError = 0) Then
            Ejecutar = lstListaFicheros.Count
        Else
            Ejecutar = -1
        End If
    End If
 
    Exit Function
 
ERROR_EJECUTAR:
    oError.iNumError = Err.Number
    oError.sMensaSist = Err.Description
    oError.sDonde = "classFileSearch.Ejecutar()"
    oError.sMensaApli = "Error ejecutando la búsqueda de ficheros indicada"
    Ejecutar = -1
 
End Function
 
Private Sub BuscarFicheros(sDirectorio As String, sFichero As String)
    On Error GoTo ERROR_BUSCARFICHEROS
 
    Dim sDirectorioFichero As String
    Dim vSubdirectorio As Variant
    Dim lstSubdirectorios As New Collection
 
 
    '___Añade la barra de directorio al final del nombre de directorio si no la tuviera___
 
    If (Right(sDirectorio, 1) <> "\") Then
        sDirectorio = sDirectorio & "\"
    End If
 
 
    '___Realiza la búsqueda de ficheros en el directorio actual___
 
    sDirectorioFichero = Dir(sDirectorio & sFichero)
 
    While (sDirectorioFichero <> "")
        lstListaFicheros.Add objFileSystem.GetFile(sDirectorio & sDirectorioFichero)   'Añade el fichero a la lista de ficheros encontrados
        sDirectorioFichero = Dir
    Wend
 
 
    '___Buscar en los subdirectorios si se ha definido la búsqueda como recursiva___
 
    If (bBusquedaRecursiva) Then
 
        sDirectorioFichero = Dir(sDirectorio & "*", vbDirectory)
 
        While (sDirectorioFichero <> "")
 
            If (sDirectorioFichero <> "." And sDirectorioFichero <> "..") Then
                If ((GetAttr(sDirectorio & sDirectorioFichero) And vbDirectory) = 16) Then
                    lstSubdirectorios.Add sDirectorio & sDirectorioFichero
                End If
            End If
 
            sDirectorioFichero = Dir
        Wend
 
 
        '___Procesar la lista de subdirectorios___
 
        For Each vSubdirectorio In lstSubdirectorios
            BuscarFicheros CStr(vSubdirectorio), sFichero   'Llamada recursiva
 
            If (oError.iNumError <> 0) Then
                Exit For
            End If
        Next
    End If
 
    Exit Sub
 
ERROR_BUSCARFICHEROS:
    oError.iNumError = Err.Number
    oError.sMensaSist = Err.Description
    oError.sDonde = "classFileSearch.BuscarFicheros()"
    oError.sMensaApli = "Error en el procedimiento de búsqueda de ficheros"
 
End Sub
 
 

Procedimiento de prueba (.bas)
Esta es una pequeña función que lo único que hace es instanciar un objeto de la clase classFileSearch, lanzar una búsqueda y mostrar el resultado por la ventana de inspección.

Public Function fnMain() As Boolean
    Dim objFileSearch   As classFileSearch
    Dim objFichero      As Object
 
 
    fnMain = True
    Set objFileSearch = New classFileSearch
 
    If (objFileSearch.oError.iNumError = 0) Then
 
        '___Configurar los parámetros de búsqueda de fichero___
 
        objFileSearch.sDirIniBusqueda = "E:\Mis documentos"
        objFileSearch.sPatronBusqueda = "*.zip"
        objFileSearch.bBusquedaRecursiva = True
 
        If (objFileSearch.Ejecutar() > 0) Then  '_Se han encontrado ficheros
 
            For Each objFichero In objFileSearch.lstListaFicheros
                Debug.Print "Fichero........: " & objFichero.Name
                Debug.Print "Directorio.....: " & objFichero.parentfolder
                Debug.Print "Nombre completo: " & objFichero.Path
                Debug.Print "--------------------------"
            Next objFichero
 
        ElseIf (objFileSearch.oError.iNumError = 0) Then   '_No hay error => No se han encontrado ficheros
 
            Debug.Print "No hay ficheros que mostrar"
 
        Else    '_Error
 
            Debug.Print "<* ERROR *>"
            Debug.Print "   Lugar del error.......: " & objFileSearch.oError.sDonde
            Debug.Print "   Número de error.......: " & objFileSearch.oError.iNumError
            Debug.Print "   Error devuelto por VBA: " & objFileSearch.oError.sMensaSist
            Debug.Print "   Error de aplicación...: " & objFileSearch.oError.sMensaApli
            Debug.Print "--------------------------"
 
            fnMain = False
        End If
    Else
        Debug.Print "<* ERROR *>"
        Debug.Print "   Lugar del error.......: " & objFileSearch.oError.sDonde
        Debug.Print "   Número de error.......: " & objFileSearch.oError.iNumError
        Debug.Print "   Error devuelto por VBA: " & objFileSearch.oError.sMensaSist
        Debug.Print "   Error de aplicación...: " & objFileSearch.oError.sMensaApli
        Debug.Print "--------------------------"
 
        fnMain = False
    End If
 
    Set objFileSearch = Nothing
End Function
 
 

El código está probado y funciona. No implementa la funcionalidad completa de "Application.FileSearch" pero cubre lo más básico.

Supongo que viendo el código ya os habréis dado cuenta que el Visual Basic no es mi especialidad así que comentarios, sugerencias, críticas constructivas y mejoras serán bienvenidas

Dura una hora y cuarto así que si os interesa el tema, cogerlo con tiempo

Buenas noches.

He instalado la última versión freeware del Zone Alarm (http://www.zonealarm.es/security/es/anti-virus-spyware-free-download.htm) en un Windows XP Pro SP2.

Tras probarlo he intentado desinstalarlo pero la desinstalación no funciona. Lo he intentado desde el icono del grupo de programa que crea en el menú "Inicio-Programas", desde el panel de control de Windows y arrancando directamente el desinstalador. En los tres casos muestra el reloj de arena como si estuviera haciendo algo pero en unos segundos se para y no hace nada.

También he probado a arrancar de nuevo el instalador por si me diera la opción de desinstalar, pero no me deja tampoco.

¿Alguna idea para desinstalarlo?


Muchas gracias.

Copio aquí un par de entradas del blog Hackerdo sobre el cifrado homomórfico. Yo no había oído hablar de él y me ha parecido un tema interesante:

Llevamos ya unos años oyendo hablar de las investigaciones en torno a la utilización del grafeno como material para la creación de chips, procesadores y todo tipo de circuitos electrónicos. Hasta ahora se sabía que este peculiar compuesto, consistente en una malla monoatómica de átomos de carbono, es capaz de soportar asombrosas velocidades de transferencia de impulsos eléctricos, lo que lo convierte en el sustituto ideal del Silicio.

Si la posibilidad de que un chip de grafeno alcance 1000Ghz de frecuencia no es ya atractiva de por sí, ahora la ciencia ha descubierto una segunda cualidad no menos fascinante. Científicos de la Universidad de Illinois han comprobado que el grafeno no sólo no se calienta, sino que tiene la capacidad de ‘autoenfriarse’.

Uno de los mayores problemas del grafeno es que su estructura entra dentro del terreno de la nanotecnología. Su grosor mononuclear hace que sea especialmente difícil de manipular y medir. Por primera vez, un equipo de investigadores dirigido por el físico William King y el ingeniero de sistemas Eric Pop han medido la temperatura de una malla de grafeno utilizando un microscopio atómico y una sonda térmica convenientemente adaptada.

Los resultados de estas mediciones han sido inesperados. El grafeno parece perder calor con mayor rapidez de la que se acumula, lo que se traduce en que el material no sólo permanece frío por mucha electricidad que se le aplique sino que la pérdida de calor podría ser aprovechada para generar más electricidad.

Según palabras del profesor King: ‘En el silicio y la mayor parte de materiales conocidos, el calentamiento eléctrico es mucho mayor que la capacidad de disipar ese calor. Sin embargo, hemos descubierto que hay zonas en los transistores de grafeno en las que el enfriamiento termoeléctrico es superior a la acumulación de calor, lo que permitiría, en teoría, diseñar dispositivos que se autoenfriasen sin ayuda externa. Es la primera vez que se observa esta cualidad en los dispositivos de grafeno’.

El descubrimiento abre las puertas a todo un nuevo mundo de posibilidades a la hora de diseñar chips de alta densidad ultrarrápidos que, encima, no se calienten. Hasta ahora, el grafeno era tremendamente complicado y caro de crear ya que había que extraer nanoláminas a partir del grafito común (el material del que están compuestas las minas de los lápices). Sin embargo, la tecnología de extracción de este material ha avanzado mucho y ya se han abaratado mucho sus costes. Aún es pronto para hablar de cuándo saldrá el grafeno de los laboratorios, pero todo indica que este curioso material podría marcar el comienzo de una nueva era tecnológica.

La NASA ha convocado un concurso para elegir dos canciones que sonarán en el último viaje del transbordador espacial. Entre los 10 últimos finalistas solo hay un grupo no estadounidense: Stormy Mondays.

Stormy Mondays es un grupo español que toca rock clásico y distribuye todas sus canciones con licencia Creative Commons. Toda su música y sus vídeos los tenéis gratis en su web http://www.stormymondays.com

El vídeo de la canción que quieren poner en el espacio es este: http://www.youtube.com/watch?v=SeLWcCM5E4Y&gl=ES


Si os ha gustado. O si os gusta la idea de que viaje la música de un grupo español al espacio. O simplemente queréis darles vuestro apoyo por dar por saco a la $GA€ y demostrar que se puede hacer música sin estar ellos por medio podéis votar en:

He encontrando este post en Security By Default acerca de una herramienta que te permite monitorizar las rutas por las que circulan tus paquetes, y te alerta si cambian de ruta. Me ha parecido muy interesante.

Interesante reflexión de Carl Sagan.

Ministerio de Industria va a poner en marcha, en el marco del programa Avanza2, un Plan de Impulso de la Industria de Contenidos Digitales, que en 2011 contará con un presupuesto de 200 millones de euros.

EFE


Durante la inauguración de la VI edición del Foro de Contenidos Digitales (Ficod), el ministro de Industria, Miguel Sebastián, enmarcó este anuncio en la apuesta del Gobierno por este sector, uno de los de mayor potencial dentro de las tecnologías de la información y la comunicación (TIC).

En unos años, subrayó Sebastián, el sector de las TIC "será el segundo más importante de España, solo por detrás del turismo y por delante de la industria automovilística o la construcción".

Sebastián destacó que en este objetivo, el nuevo plan de contenidos digitales "busca aumentar el tamaño, la competitividad y la internacionalización de esta industria con cuatro áreas de actuación". El primer área prestará apoyo a nuevos proyectos a través de la convocatoria de ayudas a la I+D+i, la segunda fomentará la creación de nuevas empresas y la iniciativa emprendedora con el desarrollo de centros de excelencia, la tercera impulsará la formación de profesionales en contenidos digitales y la cuarta fomentará la internacionalización de la industria.

La creación de este plan de contenidos digitales era una de las reivindicaciones del sector tecnológico español para una industria que en 2009 movió 8.000 millones de euros, el 8% del total del sector tecnológico, según datos del Ministerio de Industria.

Sebastián, que inauguró el congreso junto a la ministra de Cultura, Ángeles González-Sinde, elogió el papel y la importancia de Ficod, como "palanca" para consolidar este sector. "Estamos convencidos", dijo, de la capacidad de España de erigirse como "nuevo polo de creatividad" en todo el mundo.

Ficod reunirá desde hoy y hasta el jueves a más de 15.000 profesionales que debatirán y trabajarán sobre las diferentes áreas de esta industria, que va desde los juegos, la música, los medios de comunicación, las redes sociales o los libros.