programa de eliminación de correo-virus

Hola socios:
Parece que no hay acceso a la página propuesta. (La habrán Hackeado?) Yo tengo bajado el programa, si alguien lo necesita, lo puedo mandar, solamente solicítenlo a mi dirección. Quítenle lo que en ella se indica.
Saludos :.

"ThomasD (dk)" escribió en el mensaje news:
| Un usuario danés, Uffe Kousgaard, ha elaborado un pequeño programa que
| elimina los correos con virus en el servidor cada x minutos. Ademas se
| crea un listado de los remitentes, asunto y otros datos que se abre en
| Excell. El programa de 265KB se puede bajar aquí
| www.routeware.dk/download/virus_mail_fjerner.zip
| Despues de la descarga y unzip se abre el archivo .ini y se ponen los
| datos del servidor pop3, nombre de usuario y contraseña. La línea mas
| abajo Interval=1 significa eleminacíon cada minuto, se puede cambiar el
| número a 2 cada dos minutos etc. Guardar.
| Despues se abre el programa en el icono y se pincha en Start. El
| programa elimina los correos virus en el servidor cada x minutos. Si en
| vez de Start se pincha en Fjern nu, solamente se eliminan los que ya
| están en el servidor.
| Se tiene un icono al lado del reloj que abre/cierra el programa con un
| click. Slettet=borrado, por minuto, por hora, Ikke slettet=no borrado.
| Tengo el programa instalado y funciona perfectamente.
| Si queréis id a probarlo.
| thomas
|

Ramón Sola skrev:

He hablado con el autor que está de acuerdo con tus sugerencias, las ha
puesto y ha cambiado el idioma a inglés, se puede bajar aquí
www.routeware.dk/remove_ms_virus.zip.
Puedes cambiar lo que quieres en el programa hasta traducirlo a
castellano, si va a publicarse en los grupos de MS sería mejor ponerlo
en otro servidor, el del autor no tiene capacidad para tantos downloads.
thomas

Interesante... Tengo dos observaciones que hacer:

Primera:

El programa está preparado para comprobar una única cuenta de correo.
Si queremos comprobar dos o más (siempre POP3), debemos crear tantas
carpetas como cuentas de correo, copiar los ficheros
Fjern_MS_Virus.exe y Fjern_MS_Virus.ini en cada una de ellas, y
editar los distintos ficheros .ini con los datos de cada cuenta. Para
comprobar una cuenta determinada, ejecutar el .exe de la carpeta
correspondiente.
Para usuarios más avanzados, se puede mantener sólo una copia del
ejecutable en una carpeta determinada y crear varios accesos directos
al mismo cambiando el directorio de trabajo (en Windows 9x, campo
"iniciar en").

Segunda:

Este programa tiene una pequeña deficiencia: Siempre se conecta por
el mismo puerto, el 110, y no hay posibilidad de cambiarlo. Por
ejemplo, puede suponer un problema si se usan programas como Hotmail
Popper, un "traductor" de comunicaciones HTTP (Hotmail y MSN) a POP3
-muy útil para aplicaciones como Magic Mail Monitor, que sólo admite
cuentas POP3-, que se pueden poner a "escuchar" en un puerto distinto
al habitual. Ese cambio de puerto se podría justificar por diversas
razones.
Imagino que el autor del programa no contempló dicha posibilidad por
no necesitarla él. Afortunadamente, este señor distribuye la utilidad
con su código fuente, lo que permite mejorarla fácilmente (bueno, eso
depende de los conocimientos de programación y de lenguaje Delphi que
tenga uno, claro).

Los cambios que sugiero son estos:

Antes:

interval,maxperint,deleted: integer;

Después:

pop3port,interval,maxperint,deleted: integer;

Antes:

pop3host:= s.ReadString('main','pop3host','');
pop3user:= s.ReadString('main','pop3user','');
pop3password:= s.ReadString('main','pop3password','');
testing:= (s.ReadInteger('main','autostart',1)=1);
interval:= s.ReadInteger('main','interval',1);

Después:

pop3host:= s.ReadString('main','pop3host','');
pop3user:= s.ReadString('main','pop3user','');
pop3password:= s.ReadString('main','pop3password','');
pop3port:= s.ReadInteger('main','pop3port',110);
testing:= (s.ReadInteger('main','autostart',1)=1);
interval:= s.ReadInteger('main','interval',1);

Antes:

POP.Host:= pop3host;
POP.Username:= pop3user;
POP.Password:= pop3password;
POP.Connect;

Después:

POP.Host:= pop3host;
POP.Username:= pop3user;
POP.Password:= pop3password;
POP.Port:= pop3port;
POP.Connect;

Evidentemente hay que volver a compilarlo; se necesita Borland
Delphi, desconozco la versión mínima requerida (¿5, 6, 7...?).

Esto habilitaría una nueva entrada en el fichero Fjern_MS_Virus.ini
que describiría el puerto de acceso al servidor POP3. Ejemplo
imaginario de Fjern_MS_Virus.ini:

[main]
pop3host=pop.grijandemore.org
pop3user=cobarde
pop3password=ereuntorpedo
pop3port33
autostart=0
interval=1

Si la línea pop3port= no está presente, se asume el puerto 110 por
defecto.

(No sé qué pensaría el autor si se distribuyese una versión
modificada, un poco más completa, de su programa sin haberle
consultado.)

"ThomasD (dk)" escribió en el mensaje
news:

Un usuario danés, Uffe Kousgaard, ha elaborado un pequeño programa
que elimina los correos con virus en el servidor cada x minutos.
Ademas se crea un listado de los remitentes, asunto y otros datos
que se abre en Excell. El programa de 265KB se puede bajar aquí
www.routeware.dk/download/virus_mail_fjerner.zip
Despues de la descarga y unzip se abre el archivo .ini y se ponen los
datos del servidor pop3, nombre de usuario y contraseña. La línea mas
abajo Interval=1 significa eleminacíon cada minuto, se puede cambiar
el número a 2 cada dos minutos etc. Guardar.
Despues se abre el programa en el icono y se pincha en Start. El
programa elimina los correos virus en el servidor cada x minutos. Si
en vez de Start se pincha en Fjern nu, solamente se eliminan los que
ya están en el servidor.
Se tiene un icono al lado del reloj que abre/cierra el programa con
un click. Slettet=borrado, por minuto, por hora, Ikke slettet=no
borrado. Tengo el programa instalado y funciona perfectamente.
Si queréis id a probarlo.
thomas

Interesante... Tengo dos observaciones que hacer:

Primera:

El programa está preparado para comprobar una única cuenta de correo.
Si queremos comprobar dos o más (siempre POP3), debemos crear tantas
carpetas como cuentas de correo, copiar los ficheros
Fjern_MS_Virus.exe y Fjern_MS_Virus.ini en cada una de ellas, y
editar los distintos ficheros .ini con los datos de cada cuenta. Para
comprobar una cuenta determinada, ejecutar el .exe de la carpeta
correspondiente.
Para usuarios más avanzados, se puede mantener sólo una copia del
ejecutable en una carpeta determinada y crear varios accesos directos
al mismo cambiando el directorio de trabajo (en Windows 9x, campo
"iniciar en").

Segunda:

Este programa tiene una pequeña deficiencia: Siempre se conecta por
el mismo puerto, el 110, y no hay posibilidad de cambiarlo. Por
ejemplo, puede suponer un problema si se usan programas como Hotmail
Popper, un "traductor" de comunicaciones HTTP (Hotmail y MSN) a POP3
-muy útil para aplicaciones como Magic Mail Monitor, que sólo admite
cuentas POP3-, que se pueden poner a "escuchar" en un puerto distinto
al habitual. Ese cambio de puerto se podría justificar por diversas
razones.
Imagino que el autor del programa no contempló dicha posibilidad por
no necesitarla él. Afortunadamente, este señor distribuye la utilidad
con su código fuente, lo que permite mejorarla fácilmente (bueno, eso
depende de los conocimientos de programación y de lenguaje Delphi que
tenga uno, claro).

Los cambios que sugiero son estos:

Antes:

interval,maxperint,deleted: integer;

Después:

pop3port,interval,maxperint,deleted: integer;

Antes:

pop3host:= s.ReadString('main','pop3host','');
pop3user:= s.ReadString('main','pop3user','');
pop3password:= s.ReadString('main','pop3password','');
testing:= (s.ReadInteger('main','autostart',1)=1);
interval:= s.ReadInteger('main','interval',1);

Después:

pop3host:= s.ReadString('main','pop3host','');
pop3user:= s.ReadString('main','pop3user','');
pop3password:= s.ReadString('main','pop3password','');
pop3port:= s.ReadInteger('main','pop3port',110);
testing:= (s.ReadInteger('main','autostart',1)=1);
interval:= s.ReadInteger('main','interval',1);

Antes:

POP.Host:= pop3host;
POP.Username:= pop3user;
POP.Password:= pop3password;
POP.Connect;

Después:

POP.Host:= pop3host;
POP.Username:= pop3user;
POP.Password:= pop3password;
POP.Port:= pop3port;
POP.Connect;

Evidentemente hay que volver a compilarlo; se necesita Borland
Delphi, desconozco la versión mínima requerida (¿5, 6, 7...?).

Esto habilitaría una nueva entrada en el fichero Fjern_MS_Virus.ini
que describiría el puerto de acceso al servidor POP3. Ejemplo
imaginario de Fjern_MS_Virus.ini:

[main]
pop3host=pop.grijandemore.org
pop3user=cobarde
pop3password=ereuntorpedo
pop3port33
autostart=0
interval=1

Si la línea pop3port= no está presente, se asume el puerto 110 por
defecto.

(No sé qué pensaría el autor si se distribuyese una versión
modificada, un poco más completa, de su programa sin haberle
consultado.)

"ThomasD (dk)" escribió en el mensaje
news:

Un usuario danés, Uffe Kousgaard, ha elaborado un pequeño programa
que elimina los correos con virus en el servidor cada x minutos.
Ademas se crea un listado de los remitentes, asunto y otros datos
que se abre en Excell. El programa de 265KB se puede bajar aquí
www.routeware.dk/download/virus_mail_fjerner.zip
Despues de la descarga y unzip se abre el archivo .ini y se ponen los
datos del servidor pop3, nombre de usuario y contraseña. La línea mas
abajo Interval=1 significa eleminacíon cada minuto, se puede cambiar
el número a 2 cada dos minutos etc. Guardar.
Despues se abre el programa en el icono y se pincha en Start. El
programa elimina los correos virus en el servidor cada x minutos. Si
en vez de Start se pincha en Fjern nu, solamente se eliminan los que
ya están en el servidor.
Se tiene un icono al lado del reloj que abre/cierra el programa con
un click. Slettet=borrado, por minuto, por hora, Ikke slettet=no
borrado. Tengo el programa instalado y funciona perfectamente.
Si queréis id a probarlo.
thomas

Hola Thomas:
Estoy sumamente agradecido por este valioso aporte. He estado gestionando que lo suban a alguna página de apoyo.
Por supuesto con tus créditos del aporte y del autor, para poder publicarlo en los Grupos de MS.
Si tienes alguna observación te ruego me la hagas saber.
Un abrazo :.


"ThomasD (dk)" escribió en el mensaje news:O%
|
| Ramón Sola skrev:
|
| He hablado con el autor que está de acuerdo con tus sugerencias, las ha
| puesto y ha cambiado el idioma a inglés, se puede bajar aquí
| www.routeware.dk/remove_ms_virus.zip.
| Puedes cambiar lo que quieres en el programa hasta traducirlo a
| castellano, si va a publicarse en los grupos de MS sería mejor ponerlo
| en otro servidor, el del autor no tiene capacidad para tantos downloads.
| thomas
|
|
| > Interesante... Tengo dos observaciones que hacer:
| >
| > Primera:
| >
| > El programa está preparado para comprobar una única cuenta de correo.
| > Si queremos comprobar dos o más (siempre POP3), debemos crear tantas
| > carpetas como cuentas de correo, copiar los ficheros
| > Fjern_MS_Virus.exe y Fjern_MS_Virus.ini en cada una de ellas, y
| > editar los distintos ficheros .ini con los datos de cada cuenta. Para
| > comprobar una cuenta determinada, ejecutar el .exe de la carpeta
| > correspondiente.
| > Para usuarios más avanzados, se puede mantener sólo una copia del
| > ejecutable en una carpeta determinada y crear varios accesos directos
| > al mismo cambiando el directorio de trabajo (en Windows 9x, campo
| > "iniciar en").
| >
| > Segunda:
| >
| > Este programa tiene una pequeña deficiencia: Siempre se conecta por
| > el mismo puerto, el 110, y no hay posibilidad de cambiarlo. Por
| > ejemplo, puede suponer un problema si se usan programas como Hotmail
| > Popper, un "traductor" de comunicaciones HTTP (Hotmail y MSN) a POP3
| > -muy útil para aplicaciones como Magic Mail Monitor, que sólo admite
| > cuentas POP3-, que se pueden poner a "escuchar" en un puerto distinto
| > al habitual. Ese cambio de puerto se podría justificar por diversas
| > razones.
| > Imagino que el autor del programa no contempló dicha posibilidad por
| > no necesitarla él. Afortunadamente, este señor distribuye la utilidad
| > con su código fuente, lo que permite mejorarla fácilmente (bueno, eso
| > depende de los conocimientos de programación y de lenguaje Delphi que
| > tenga uno, claro).
| >
| > Los cambios que sugiero son estos:
| >
| > Antes:
| >
| > interval,maxperint,deleted: integer;
| >
| > Después:
| >
| > pop3port,interval,maxperint,deleted: integer;
| >
| > Antes:
| >
| > pop3host:= s.ReadString('main','pop3host','');
| > pop3user:= s.ReadString('main','pop3user','');
| > pop3password:= s.ReadString('main','pop3password','');
| > testing:= (s.ReadInteger('main','autostart',1)=1);
| > interval:= s.ReadInteger('main','interval',1);
| >
| > Después:
| >
| > pop3host:= s.ReadString('main','pop3host','');
| > pop3user:= s.ReadString('main','pop3user','');
| > pop3password:= s.ReadString('main','pop3password','');
| > pop3port:= s.ReadInteger('main','pop3port',110);
| > testing:= (s.ReadInteger('main','autostart',1)=1);
| > interval:= s.ReadInteger('main','interval',1);
| >
| > Antes:
| >
| > POP.Host:= pop3host;
| > POP.Username:= pop3user;
| > POP.Password:= pop3password;
| > POP.Connect;
| >
| > Después:
| >
| > POP.Host:= pop3host;
| > POP.Username:= pop3user;
| > POP.Password:= pop3password;
| > POP.Port:= pop3port;
| > POP.Connect;
| >
| > Evidentemente hay que volver a compilarlo; se necesita Borland
| > Delphi, desconozco la versión mínima requerida (¿5, 6, 7...?).
| >
| > Esto habilitaría una nueva entrada en el fichero Fjern_MS_Virus.ini
| > que describiría el puerto de acceso al servidor POP3. Ejemplo
| > imaginario de Fjern_MS_Virus.ini:
| >
| > [main]
| > pop3host=pop.grijandemore.org
| > pop3user=cobarde
| > pop3password=ereuntorpedo
| > pop3port33
| > autostart=0
| > interval=1
| >
| > Si la línea pop3port= no está presente, se asume el puerto 110 por
| > defecto.
| >
| > (No sé qué pensaría el autor si se distribuyese una versión
| > modificada, un poco más completa, de su programa sin haberle
| > consultado.)
| >
| > "ThomasD (dk)" escribió en el mensaje
| > news:
| >> Un usuario danés, Uffe Kousgaard, ha elaborado un pequeño programa
| >> que elimina los correos con virus en el servidor cada x minutos.
| >> Ademas se crea un listado de los remitentes, asunto y otros datos
| >> que se abre en Excell. El programa de 265KB se puede bajar aquí
| >> www.routeware.dk/download/virus_mail_fjerner.zip
| >> Despues de la descarga y unzip se abre el archivo .ini y se ponen los
| >> datos del servidor pop3, nombre de usuario y contraseña. La línea mas
| >> abajo Interval=1 significa eleminacíon cada minuto, se puede cambiar
| >> el número a 2 cada dos minutos etc. Guardar.
| >> Despues se abre el programa en el icono y se pincha en Start. El
| >> programa elimina los correos virus en el servidor cada x minutos. Si
| >> en vez de Start se pincha en Fjern nu, solamente se eliminan los que
| >> ya están en el servidor.
| >> Se tiene un icono al lado del reloj que abre/cierra el programa con
| >> un click. Slettet=borrado, por minuto, por hora, Ikke slettet=no
| >> borrado. Tengo el programa instalado y funciona perfectamente.
| >> Si queréis id a probarlo.
| >> thomas
|
|
| > Interesante... Tengo dos observaciones que hacer:
| >
| > Primera:
| >
| > El programa está preparado para comprobar una única cuenta de correo.
| > Si queremos comprobar dos o más (siempre POP3), debemos crear tantas
| > carpetas como cuentas de correo, copiar los ficheros
| > Fjern_MS_Virus.exe y Fjern_MS_Virus.ini en cada una de ellas, y
| > editar los distintos ficheros .ini con los datos de cada cuenta. Para
| > comprobar una cuenta determinada, ejecutar el .exe de la carpeta
| > correspondiente.
| > Para usuarios más avanzados, se puede mantener sólo una copia del
| > ejecutable en una carpeta determinada y crear varios accesos directos
| > al mismo cambiando el directorio de trabajo (en Windows 9x, campo
| > "iniciar en").
| >
| > Segunda:
| >
| > Este programa tiene una pequeña deficiencia: Siempre se conecta por
| > el mismo puerto, el 110, y no hay posibilidad de cambiarlo. Por
| > ejemplo, puede suponer un problema si se usan programas como Hotmail
| > Popper, un "traductor" de comunicaciones HTTP (Hotmail y MSN) a POP3
| > -muy útil para aplicaciones como Magic Mail Monitor, que sólo admite
| > cuentas POP3-, que se pueden poner a "escuchar" en un puerto distinto
| > al habitual. Ese cambio de puerto se podría justificar por diversas
| > razones.
| > Imagino que el autor del programa no contempló dicha posibilidad por
| > no necesitarla él. Afortunadamente, este señor distribuye la utilidad
| > con su código fuente, lo que permite mejorarla fácilmente (bueno, eso
| > depende de los conocimientos de programación y de lenguaje Delphi que
| > tenga uno, claro).
| >
| > Los cambios que sugiero son estos:
| >
| > Antes:
| >
| > interval,maxperint,deleted: integer;
| >
| > Después:
| >
| > pop3port,interval,maxperint,deleted: integer;
| >
| > Antes:
| >
| > pop3host:= s.ReadString('main','pop3host','');
| > pop3user:= s.ReadString('main','pop3user','');
| > pop3password:= s.ReadString('main','pop3password','');
| > testing:= (s.ReadInteger('main','autostart',1)=1);
| > interval:= s.ReadInteger('main','interval',1);
| >
| > Después:
| >
| > pop3host:= s.ReadString('main','pop3host','');
| > pop3user:= s.ReadString('main','pop3user','');
| > pop3password:= s.ReadString('main','pop3password','');
| > pop3port:= s.ReadInteger('main','pop3port',110);
| > testing:= (s.ReadInteger('main','autostart',1)=1);
| > interval:= s.ReadInteger('main','interval',1);
| >
| > Antes:
| >
| > POP.Host:= pop3host;
| > POP.Username:= pop3user;
| > POP.Password:= pop3password;
| > POP.Connect;
| >
| > Después:
| >
| > POP.Host:= pop3host;
| > POP.Username:= pop3user;
| > POP.Password:= pop3password;
| > POP.Port:= pop3port;
| > POP.Connect;
| >
| > Evidentemente hay que volver a compilarlo; se necesita Borland
| > Delphi, desconozco la versión mínima requerida (¿5, 6, 7...?).
| >
| > Esto habilitaría una nueva entrada en el fichero Fjern_MS_Virus.ini
| > que describiría el puerto de acceso al servidor POP3. Ejemplo
| > imaginario de Fjern_MS_Virus.ini:
| >
| > [main]
| > pop3host=pop.grijandemore.org
| > pop3user=cobarde
| > pop3password=ereuntorpedo
| > pop3port33
| > autostart=0
| > interval=1
| >
| > Si la línea pop3port= no está presente, se asume el puerto 110 por
| > defecto.
| >
| > (No sé qué pensaría el autor si se distribuyese una versión
| > modificada, un poco más completa, de su programa sin haberle
| > consultado.)
| >
| > "ThomasD (dk)" escribió en el mensaje
| > news:
| >> Un usuario danés, Uffe Kousgaard, ha elaborado un pequeño programa
| >> que elimina los correos con virus en el servidor cada x minutos.
| >> Ademas se crea un listado de los remitentes, asunto y otros datos
| >> que se abre en Excell. El programa de 265KB se puede bajar aquí
| >> www.routeware.dk/download/virus_mail_fjerner.zip
| >> Despues de la descarga y unzip se abre el archivo .ini y se ponen los
| >> datos del servidor pop3, nombre de usuario y contraseña. La línea mas
| >> abajo Interval=1 significa eleminacíon cada minuto, se puede cambiar
| >> el número a 2 cada dos minutos etc. Guardar.
| >> Despues se abre el programa en el icono y se pincha en Start. El
| >> programa elimina los correos virus en el servidor cada x minutos. Si
| >> en vez de Start se pincha en Fjern nu, solamente se eliminan los que
| >> ya están en el servidor.
| >> Se tiene un icono al lado del reloj que abre/cierra el programa con
| >> un click. Slettet=borrado, por minuto, por hora, Ikke slettet=no
| >> borrado. Tengo el programa instalado y funciona perfectamente.
| >> Si queréis id a probarlo.
| >> thomas
|

Hola Thomas: Julián y Sve ambos [MS MVP] están de acuerdo en publicarlo en su sitio: http://www.svetlian.com, pero quieren ver la posibilidad de que gestiones tu el permiso del autor.
Altamente agradecido.
Un abrazo :.

"ThomasD (dk)" escribió en el mensaje news:O%
|
| Ramón Sola skrev:
|
| He hablado con el autor que está de acuerdo con tus sugerencias, las ha
| puesto y ha cambiado el idioma a inglés, se puede bajar aquí
| www.routeware.dk/remove_ms_virus.zip.
| Puedes cambiar lo que quieres en el programa hasta traducirlo a
| castellano, si va a publicarse en los grupos de MS sería mejor ponerlo
| en otro servidor, el del autor no tiene capacidad para tantos downloads.
| thomas
|
|
| > Interesante... Tengo dos observaciones que hacer:
| >
| > Primera:
| >
| > El programa está preparado para comprobar una única cuenta de correo.
| > Si queremos comprobar dos o más (siempre POP3), debemos crear tantas
| > carpetas como cuentas de correo, copiar los ficheros
| > Fjern_MS_Virus.exe y Fjern_MS_Virus.ini en cada una de ellas, y
| > editar los distintos ficheros .ini con los datos de cada cuenta. Para
| > comprobar una cuenta determinada, ejecutar el .exe de la carpeta
| > correspondiente.
| > Para usuarios más avanzados, se puede mantener sólo una copia del
| > ejecutable en una carpeta determinada y crear varios accesos directos
| > al mismo cambiando el directorio de trabajo (en Windows 9x, campo
| > "iniciar en").
| >
| > Segunda:
| >
| > Este programa tiene una pequeña deficiencia: Siempre se conecta por
| > el mismo puerto, el 110, y no hay posibilidad de cambiarlo. Por
| > ejemplo, puede suponer un problema si se usan programas como Hotmail
| > Popper, un "traductor" de comunicaciones HTTP (Hotmail y MSN) a POP3
| > -muy útil para aplicaciones como Magic Mail Monitor, que sólo admite
| > cuentas POP3-, que se pueden poner a "escuchar" en un puerto distinto
| > al habitual. Ese cambio de puerto se podría justificar por diversas
| > razones.
| > Imagino que el autor del programa no contempló dicha posibilidad por
| > no necesitarla él. Afortunadamente, este señor distribuye la utilidad
| > con su código fuente, lo que permite mejorarla fácilmente (bueno, eso
| > depende de los conocimientos de programación y de lenguaje Delphi que
| > tenga uno, claro).
| >
| > Los cambios que sugiero son estos:
| >
| > Antes:
| >
| > interval,maxperint,deleted: integer;
| >
| > Después:
| >
| > pop3port,interval,maxperint,deleted: integer;
| >
| > Antes:
| >
| > pop3host:= s.ReadString('main','pop3host','');
| > pop3user:= s.ReadString('main','pop3user','');
| > pop3password:= s.ReadString('main','pop3password','');
| > testing:= (s.ReadInteger('main','autostart',1)=1);
| > interval:= s.ReadInteger('main','interval',1);
| >
| > Después:
| >
| > pop3host:= s.ReadString('main','pop3host','');
| > pop3user:= s.ReadString('main','pop3user','');
| > pop3password:= s.ReadString('main','pop3password','');
| > pop3port:= s.ReadInteger('main','pop3port',110);
| > testing:= (s.ReadInteger('main','autostart',1)=1);
| > interval:= s.ReadInteger('main','interval',1);
| >
| > Antes:
| >
| > POP.Host:= pop3host;
| > POP.Username:= pop3user;
| > POP.Password:= pop3password;
| > POP.Connect;
| >
| > Después:
| >
| > POP.Host:= pop3host;
| > POP.Username:= pop3user;
| > POP.Password:= pop3password;
| > POP.Port:= pop3port;
| > POP.Connect;
| >
| > Evidentemente hay que volver a compilarlo; se necesita Borland
| > Delphi, desconozco la versión mínima requerida (¿5, 6, 7...?).
| >
| > Esto habilitaría una nueva entrada en el fichero Fjern_MS_Virus.ini
| > que describiría el puerto de acceso al servidor POP3. Ejemplo
| > imaginario de Fjern_MS_Virus.ini:
| >
| > [main]
| > pop3host=pop.grijandemore.org
| > pop3user=cobarde
| > pop3password=ereuntorpedo
| > pop3port33
| > autostart=0
| > interval=1
| >
| > Si la línea pop3port= no está presente, se asume el puerto 110 por
| > defecto.
| >
| > (No sé qué pensaría el autor si se distribuyese una versión
| > modificada, un poco más completa, de su programa sin haberle
| > consultado.)
| >
| > "ThomasD (dk)" escribió en el mensaje
| > news:
| >> Un usuario danés, Uffe Kousgaard, ha elaborado un pequeño programa
| >> que elimina los correos con virus en el servidor cada x minutos.
| >> Ademas se crea un listado de los remitentes, asunto y otros datos
| >> que se abre en Excell. El programa de 265KB se puede bajar aquí
| >> www.routeware.dk/download/virus_mail_fjerner.zip
| >> Despues de la descarga y unzip se abre el archivo .ini y se ponen los
| >> datos del servidor pop3, nombre de usuario y contraseña. La línea mas
| >> abajo Interval=1 significa eleminacíon cada minuto, se puede cambiar
| >> el número a 2 cada dos minutos etc. Guardar.
| >> Despues se abre el programa en el icono y se pincha en Start. El
| >> programa elimina los correos virus en el servidor cada x minutos. Si
| >> en vez de Start se pincha en Fjern nu, solamente se eliminan los que
| >> ya están en el servidor.
| >> Se tiene un icono al lado del reloj que abre/cierra el programa con
| >> un click. Slettet=borrado, por minuto, por hora, Ikke slettet=no
| >> borrado. Tengo el programa instalado y funciona perfectamente.
| >> Si queréis id a probarlo.
| >> thomas
|
|
| > Interesante... Tengo dos observaciones que hacer:
| >
| > Primera:
| >
| > El programa está preparado para comprobar una única cuenta de correo.
| > Si queremos comprobar dos o más (siempre POP3), debemos crear tantas
| > carpetas como cuentas de correo, copiar los ficheros
| > Fjern_MS_Virus.exe y Fjern_MS_Virus.ini en cada una de ellas, y
| > editar los distintos ficheros .ini con los datos de cada cuenta. Para
| > comprobar una cuenta determinada, ejecutar el .exe de la carpeta
| > correspondiente.
| > Para usuarios más avanzados, se puede mantener sólo una copia del
| > ejecutable en una carpeta determinada y crear varios accesos directos
| > al mismo cambiando el directorio de trabajo (en Windows 9x, campo
| > "iniciar en").
| >
| > Segunda:
| >
| > Este programa tiene una pequeña deficiencia: Siempre se conecta por
| > el mismo puerto, el 110, y no hay posibilidad de cambiarlo. Por
| > ejemplo, puede suponer un problema si se usan programas como Hotmail
| > Popper, un "traductor" de comunicaciones HTTP (Hotmail y MSN) a POP3
| > -muy útil para aplicaciones como Magic Mail Monitor, que sólo admite
| > cuentas POP3-, que se pueden poner a "escuchar" en un puerto distinto
| > al habitual. Ese cambio de puerto se podría justificar por diversas
| > razones.
| > Imagino que el autor del programa no contempló dicha posibilidad por
| > no necesitarla él. Afortunadamente, este señor distribuye la utilidad
| > con su código fuente, lo que permite mejorarla fácilmente (bueno, eso
| > depende de los conocimientos de programación y de lenguaje Delphi que
| > tenga uno, claro).
| >
| > Los cambios que sugiero son estos:
| >
| > Antes:
| >
| > interval,maxperint,deleted: integer;
| >
| > Después:
| >
| > pop3port,interval,maxperint,deleted: integer;
| >
| > Antes:
| >
| > pop3host:= s.ReadString('main','pop3host','');
| > pop3user:= s.ReadString('main','pop3user','');
| > pop3password:= s.ReadString('main','pop3password','');
| > testing:= (s.ReadInteger('main','autostart',1)=1);
| > interval:= s.ReadInteger('main','interval',1);
| >
| > Después:
| >
| > pop3host:= s.ReadString('main','pop3host','');
| > pop3user:= s.ReadString('main','pop3user','');
| > pop3password:= s.ReadString('main','pop3password','');
| > pop3port:= s.ReadInteger('main','pop3port',110);
| > testing:= (s.ReadInteger('main','autostart',1)=1);
| > interval:= s.ReadInteger('main','interval',1);
| >
| > Antes:
| >
| > POP.Host:= pop3host;
| > POP.Username:= pop3user;
| > POP.Password:= pop3password;
| > POP.Connect;
| >
| > Después:
| >
| > POP.Host:= pop3host;
| > POP.Username:= pop3user;
| > POP.Password:= pop3password;
| > POP.Port:= pop3port;
| > POP.Connect;
| >
| > Evidentemente hay que volver a compilarlo; se necesita Borland
| > Delphi, desconozco la versión mínima requerida (¿5, 6, 7...?).
| >
| > Esto habilitaría una nueva entrada en el fichero Fjern_MS_Virus.ini
| > que describiría el puerto de acceso al servidor POP3. Ejemplo
| > imaginario de Fjern_MS_Virus.ini:
| >
| > [main]
| > pop3host=pop.grijandemore.org
| > pop3user=cobarde
| > pop3password=ereuntorpedo
| > pop3port33
| > autostart=0
| > interval=1
| >
| > Si la línea pop3port= no está presente, se asume el puerto 110 por
| > defecto.
| >
| > (No sé qué pensaría el autor si se distribuyese una versión
| > modificada, un poco más completa, de su programa sin haberle
| > consultado.)
| >
| > "ThomasD (dk)" escribió en el mensaje
| > news:
| >> Un usuario danés, Uffe Kousgaard, ha elaborado un pequeño programa
| >> que elimina los correos con virus en el servidor cada x minutos.
| >> Ademas se crea un listado de los remitentes, asunto y otros datos
| >> que se abre en Excell. El programa de 265KB se puede bajar aquí
| >> www.routeware.dk/download/virus_mail_fjerner.zip
| >> Despues de la descarga y unzip se abre el archivo .ini y se ponen los
| >> datos del servidor pop3, nombre de usuario y contraseña. La línea mas
| >> abajo Interval=1 significa eleminacíon cada minuto, se puede cambiar
| >> el número a 2 cada dos minutos etc. Guardar.
| >> Despues se abre el programa en el icono y se pincha en Start. El
| >> programa elimina los correos virus en el servidor cada x minutos. Si
| >> en vez de Start se pincha en Fjern nu, solamente se eliminan los que
| >> ya están en el servidor.
| >> Se tiene un icono al lado del reloj que abre/cierra el programa con
| >> un click. Slettet=borrado, por minuto, por hora, Ikke slettet=no
| >> borrado. Tengo el programa instalado y funciona perfectamente.
| >> Si queréis id a probarlo.
| >> thomas
|

Jorge Zeledon skrev:
Hola Jorge, tengo el permiso del autor de copiar, modificar etc. el
programa. Lo tengo en un correo que está en danés. El mismo ha pedido
que se publique en otro servidor. No hay problema en cuanto a Uffe
Kousgaard, tendrá orgullo en ver su sencillo programa publicado en
svetlian.com.
Si quieren mas dimelo.
thomas

Hola Thomas: Julián y Sve ambos [MS MVP] están de acuerdo en
publicarlo en su sitio: http://www.svetlian.com, pero quieren ver la
posibilidad de que gestiones tu el permiso del autor.
Altamente agradecido.
Un abrazo :.

"ThomasD (dk)" escribió en el mensaje
news:O%

Ramón Sola skrev:

He hablado con el autor que está de acuerdo con tus sugerencias, las
ha puesto y ha cambiado el idioma a inglés, se puede bajar aquí
www.routeware.dk/remove_ms_virus.zip.
Puedes cambiar lo que quieres en el programa hasta traducirlo a
castellano, si va a publicarse en los grupos de MS sería mejor
ponerlo en otro servidor, el del autor no tiene capacidad para
tantos downloads. thomas

Interesante... Tengo dos observaciones que hacer:

Primera:

El programa está preparado para comprobar una única cuenta de
correo. Si queremos comprobar dos o más (siempre POP3), debemos
crear tantas carpetas como cuentas de correo, copiar los ficheros
Fjern_MS_Virus.exe y Fjern_MS_Virus.ini en cada una de ellas, y
editar los distintos ficheros .ini con los datos de cada cuenta.
Para comprobar una cuenta determinada, ejecutar el .exe de la
carpeta correspondiente.
Para usuarios más avanzados, se puede mantener sólo una copia del
ejecutable en una carpeta determinada y crear varios accesos
directos al mismo cambiando el directorio de trabajo (en Windows
9x, campo "iniciar en").

Segunda:

Este programa tiene una pequeña deficiencia: Siempre se conecta por
el mismo puerto, el 110, y no hay posibilidad de cambiarlo. Por
ejemplo, puede suponer un problema si se usan programas como Hotmail
Popper, un "traductor" de comunicaciones HTTP (Hotmail y MSN) a POP3
-muy útil para aplicaciones como Magic Mail Monitor, que sólo admite
cuentas POP3-, que se pueden poner a "escuchar" en un puerto
distinto al habitual. Ese cambio de puerto se podría justificar por
diversas razones.
Imagino que el autor del programa no contempló dicha posibilidad por
no necesitarla él. Afortunadamente, este señor distribuye la
utilidad con su código fuente, lo que permite mejorarla fácilmente
(bueno, eso depende de los conocimientos de programación y de
lenguaje Delphi que tenga uno, claro).

Los cambios que sugiero son estos:

Antes:

interval,maxperint,deleted: integer;

Después:

pop3port,interval,maxperint,deleted: integer;

Antes:

pop3host:= s.ReadString('main','pop3host','');
pop3user:= s.ReadString('main','pop3user','');
pop3password:= s.ReadString('main','pop3password','');
testing:= (s.ReadInteger('main','autostart',1)=1);
interval:= s.ReadInteger('main','interval',1);

Después:

pop3host:= s.ReadString('main','pop3host','');
pop3user:= s.ReadString('main','pop3user','');
pop3password:= s.ReadString('main','pop3password','');
pop3port:= s.ReadInteger('main','pop3port',110);
testing:= (s.ReadInteger('main','autostart',1)=1);
interval:= s.ReadInteger('main','interval',1);

Antes:

POP.Host:= pop3host;
POP.Username:= pop3user;
POP.Password:= pop3password;
POP.Connect;

Después:

POP.Host:= pop3host;
POP.Username:= pop3user;
POP.Password:= pop3password;
POP.Port:= pop3port;
POP.Connect;

Evidentemente hay que volver a compilarlo; se necesita Borland
Delphi, desconozco la versión mínima requerida (¿5, 6, 7...?).

Esto habilitaría una nueva entrada en el fichero Fjern_MS_Virus.ini
que describiría el puerto de acceso al servidor POP3. Ejemplo
imaginario de Fjern_MS_Virus.ini:

[main]
pop3host=pop.grijandemore.org
pop3user=cobarde
pop3password=ereuntorpedo
pop3port33
autostart=0
interval=1

Si la línea pop3port= no está presente, se asume el puerto 110 por
defecto.

(No sé qué pensaría el autor si se distribuyese una versión
modificada, un poco más completa, de su programa sin haberle
consultado.)

"ThomasD (dk)" escribió en el mensaje
news:

Un usuario danés, Uffe Kousgaard, ha elaborado un pequeño programa
que elimina los correos con virus en el servidor cada x minutos.
Ademas se crea un listado de los remitentes, asunto y otros datos
que se abre en Excell. El programa de 265KB se puede bajar aquí
www.routeware.dk/download/virus_mail_fjerner.zip
Despues de la descarga y unzip se abre el archivo .ini y se ponen
los datos del servidor pop3, nombre de usuario y contraseña. La
línea mas abajo Interval=1 significa eleminacíon cada minuto, se
puede cambiar el número a 2 cada dos minutos etc. Guardar.
Despues se abre el programa en el icono y se pincha en Start. El
programa elimina los correos virus en el servidor cada x minutos.
Si en vez de Start se pincha en Fjern nu, solamente se eliminan
los que ya están en el servidor.
Se tiene un icono al lado del reloj que abre/cierra el programa con
un click. Slettet=borrado, por minuto, por hora, Ikke slettet=no
borrado. Tengo el programa instalado y funciona perfectamente.
Si queréis id a probarlo.
thomas

Interesante... Tengo dos observaciones que hacer:

Primera:

El programa está preparado para comprobar una única cuenta de
correo. Si queremos comprobar dos o más (siempre POP3), debemos
crear tantas carpetas como cuentas de correo, copiar los ficheros
Fjern_MS_Virus.exe y Fjern_MS_Virus.ini en cada una de ellas, y
editar los distintos ficheros .ini con los datos de cada cuenta.
Para comprobar una cuenta determinada, ejecutar el .exe de la
carpeta correspondiente.
Para usuarios más avanzados, se puede mantener sólo una copia del
ejecutable en una carpeta determinada y crear varios accesos
directos al mismo cambiando el directorio de trabajo (en Windows
9x, campo "iniciar en").

Segunda:

Este programa tiene una pequeña deficiencia: Siempre se conecta por
el mismo puerto, el 110, y no hay posibilidad de cambiarlo. Por
ejemplo, puede suponer un problema si se usan programas como Hotmail
Popper, un "traductor" de comunicaciones HTTP (Hotmail y MSN) a POP3
-muy útil para aplicaciones como Magic Mail Monitor, que sólo admite
cuentas POP3-, que se pueden poner a "escuchar" en un puerto
distinto al habitual. Ese cambio de puerto se podría justificar por
diversas razones.
Imagino que el autor del programa no contempló dicha posibilidad por
no necesitarla él. Afortunadamente, este señor distribuye la
utilidad con su código fuente, lo que permite mejorarla fácilmente
(bueno, eso depende de los conocimientos de programación y de
lenguaje Delphi que tenga uno, claro).

Los cambios que sugiero son estos:

Antes:

interval,maxperint,deleted: integer;

Después:

pop3port,interval,maxperint,deleted: integer;

Antes:

pop3host:= s.ReadString('main','pop3host','');
pop3user:= s.ReadString('main','pop3user','');
pop3password:= s.ReadString('main','pop3password','');
testing:= (s.ReadInteger('main','autostart',1)=1);
interval:= s.ReadInteger('main','interval',1);

Después:

pop3host:= s.ReadString('main','pop3host','');
pop3user:= s.ReadString('main','pop3user','');
pop3password:= s.ReadString('main','pop3password','');
pop3port:= s.ReadInteger('main','pop3port',110);
testing:= (s.ReadInteger('main','autostart',1)=1);
interval:= s.ReadInteger('main','interval',1);

Antes:

POP.Host:= pop3host;
POP.Username:= pop3user;
POP.Password:= pop3password;
POP.Connect;

Después:

POP.Host:= pop3host;
POP.Username:= pop3user;
POP.Password:= pop3password;
POP.Port:= pop3port;
POP.Connect;

Evidentemente hay que volver a compilarlo; se necesita Borland
Delphi, desconozco la versión mínima requerida (¿5, 6, 7...?).

Esto habilitaría una nueva entrada en el fichero Fjern_MS_Virus.ini
que describiría el puerto de acceso al servidor POP3. Ejemplo
imaginario de Fjern_MS_Virus.ini:

[main]
pop3host=pop.grijandemore.org
pop3user=cobarde
pop3password=ereuntorpedo
pop3port33
autostart=0
interval=1

Si la línea pop3port= no está presente, se asume el puerto 110 por
defecto.

(No sé qué pensaría el autor si se distribuyese una versión
modificada, un poco más completa, de su programa sin haberle
consultado.)

"ThomasD (dk)" escribió en el mensaje
news:

Un usuario danés, Uffe Kousgaard, ha elaborado un pequeño programa
que elimina los correos con virus en el servidor cada x minutos.
Ademas se crea un listado de los remitentes, asunto y otros datos
que se abre en Excell. El programa de 265KB se puede bajar aquí
www.routeware.dk/download/virus_mail_fjerner.zip
Despues de la descarga y unzip se abre el archivo .ini y se ponen
los datos del servidor pop3, nombre de usuario y contraseña. La
línea mas abajo Interval=1 significa eleminacíon cada minuto, se
puede cambiar el número a 2 cada dos minutos etc. Guardar.
Despues se abre el programa en el icono y se pincha en Start. El
programa elimina los correos virus en el servidor cada x minutos.
Si en vez de Start se pincha en Fjern nu, solamente se eliminan
los que ya están en el servidor.
Se tiene un icono al lado del reloj que abre/cierra el programa con
un click. Slettet=borrado, por minuto, por hora, Ikke slettet=no
borrado. Tengo el programa instalado y funciona perfectamente.
Si queréis id a probarlo.
thomas