Mensajes

Muchas gracias por la ayuda.
Ese programa no puede abrir un directorio de la web, pero puedo bajarlos, arreglarlos y volverlos a subir todos de golpe.

Tengo una página web hecha con php. Hace un tiempo me entró un virus que añadió una linea "<?php /**/ eval(base64_decode("JGs9MTI0OyR....." en todos los archivos.

Tengo indtalado el oscommerce, con cientos de archivos php, muchos  modificados por mí, y no quiero reinstalarlo todo de nuevo.

Agradecería algún consejo para modificar todos los archivos, con un script, cgi o lo que sea.
se trataría de ir carpeta por carpeta y archivo por archivo, eliminando las líneas que empiezan por "<?php /**/ eval(base64_decode("

Si pueden aconsejarme por dónde empezar con los CGI, (no tengo muy claro que puede hacerse con eso...) ya me las apañaré.
-Soy novato en la programación web pero he trabajado mucho con VB, C y PHP-

Gracias.

Peron por tardar tanto, pero muchas gracias.
voy a ver si es eso lo que buscaba...

He estado buscando algoritmos geneticos para VB, pero no los he encontrado, solo alguna tontería y de pago.
En C++ hay el BEAGLE y EO, pero escrito en Vb lo no he visto por ninguna parte.

¿Alguien sabe dónde puedo encontrar algo?

Gracias.

Yo, por si a caso, no pondria -s en attrib...

Una variante podria ser esta:

Código (vb) [Seleccionar] Expandir


Private Type Lista
    Direccion As String
    Descr As String
    Checksum As String
    LocalFile As String
    Destino As String
    Comprimido As String
End Type

dim Coleccion as new Collection
dim Datos as Lista

Dim Down() As Lista
'Y lo lleno asi
Sub Obtener_Lista()
Dim i As Long
FILES = LeerIni("FILES", "Count", TEMP & "\" & nomArchivo)

For i = 1 To FILES
    FILE = "file" & i
    Datos.Direccion = LeerIni(FILE, "url", TEMP & "\" & nomArchivo)
    Datos.Descr = LeerIni(FILE, "descr", TEMP & "\" & nomArchivo)
    Datos.Checksum = LeerIni(FILE, "newchecksum", TEMP & "\" & nomArchivo)
    Datos.LocalFile = LeerIni(FILE, "localversion", TEMP & "\" & nomArchivo)
    Datos.Comprimido = LeerIni(FILE, "compressed", TEMP & "\" & nomArchivo)
    List1.ListItems.Add = Datos.Descr
    'Download (Direccion)

    Coleccion.add Datos
Next



prog_sub.Min yprog_sub.Max sólo deberian modificarse al principio y al final, no cada vez que madifiques el valor.
Para ver la barra de progreso deberias poner DoEvents cada vez que actualizas su valor, si el ordenador va muy saturado no actualiza la barra con suficiente frecuencia.
Doevens permite al windows atender otras tareas a parte del programa, por lo que es muy útil en tareas largas o dentro de bucles.

¿No podria ser la propiedad AutoRedraw?
Si dibujas linead directamente sobre el formulario quizas deberia activar la propiedad  AutoRedraw de Form o del objeto.