Comprovador de archivos

agumuller

Hola gente de uj ...
Quiero saber si alguien tiene o sabe crear algun comprovador de archivos Tipo el de Metin .es ...
osea si editan o cambian algun archivo el "comprovador de archivos" automaticamente empieza a bajar el original O.o..
Para evitar hackers..

Desde ya gracias...

PD: Alguien sabe el codigo de VB del parche del sura??

Rimander

@agumuller said:

Hola gente de uj ...
Quiero saber si alguien tiene o sabe crear algun comprovador de archivos Tipo el de Metin .es ...
osea si editan o cambian algun archivo el "comprovador de archivos" automaticamente empieza a bajar el original O.o..
Para evitar hackers..

Desde ya gracias...

PD: Alguien sabe el codigo de VB del parche del sura??

Bueno puedes hacerlo mediante md5 y tal.
Para comprobar que el mismo archivo.

agumuller

@Rimander said:

@agumuller said:

Hola gente de uj ...
Quiero saber si alguien tiene o sabe crear algun comprovador de archivos Tipo el de Metin .es ...
osea si editan o cambian algun archivo el "comprovador de archivos" automaticamente empieza a bajar el original O.o..
Para evitar hackers..

Desde ya gracias...

PD: Alguien sabe el codigo de VB del parche del sura??

Bueno puedes hacerlo mediante md5 y tal.
Para comprobar que el mismo archivo.

Me podrias hacer una miniguia de donde lo saco ... y como lo uso...

Gracias..

PD: Leí algo en internet pero creo que era para "webs" (Php)

Anghios

El código del "sura" para ejecutar el .bin es

shell("rura del archivo\egwegwe.exe")

Para comprobar archivos:

dim archivo1 as string
dim archivo2 as string

archivo1 = my.computer.filesystem.getfileinfo("rutadelarchivo").length
archivo2 = my.computer.filesystem.getfileinfo("rutadelarchivo2").length

if archivo1 <> archivo2 then
msgbox("los archivos son diferentes")
else
msgbox("los archivos son iguales")
end if