Foro - Perl en Español

Hola amigos del foro quiero compartir con ustedes un problema que se me ha presentado recientemente y aun no tengo una solucion.

Sucede que algunas de las paginas que administro como webmaster utilizan scripts de CGI para el envio de email a traves de formularios. Hasta acá todo bien. Pero a partir de la semana pasada me doy cuenta que estas rutinas CGI están siendo utilizadas por spamers para enviar sus correos.
El gran problema es que mi proveedor de hosting me está cerrando todas las cuentas en forma eutomatizada por envio de spam.

Pregunto:

¿A alguien le está pasando lo mismo?
¿Conocen algun parche para evitar que estas rutinas sean vulnerables a estos ataques?

Desde ya gracias por todo.
Saludos cordiales

Yo utilizo el FormMail, rediseñado.

Hola:

El problema del formmail es que como mandas desde la forma la variable del que manda y del que recibe, entonces es muy sencillo usarlo para mandar spam.

Lo más recomendable es que uses un formmail totalmente customizado, es decir que nada más acepte las variables que necesitas, y que cada variable la cheque para que veas si estás recibiendo los datos que buscas.


SALUDOS

Hola chicos, bueno primero que nada gracias a ambos por la respuesta.

El problema que tengo es que no se casi nada de formmail. Sabrian decirme donde puedo conseguirlo con notas es español para poder customizarlo a mi modo?.

Desde ya gracias nuevamente

Disculpen, me olvidé de logearme. Soy Twity.

Saludos

Hola:

Tengo un programa hecho en Perl que sirve para crear formularios y formmails personalizados.

http://cgi.baboonsoftware.com/fp.htm

Gracias Kidd. Pero me gustaría aprender un poco a proteger mis script. Yo uso Perl Builder para diseñar mis rutinas y los formulario los diseño en Dream Waver. De esta manera estoy muy comodo.... Claro... si no fuera por el inconveniente que las rutinas quedan vulnerables.

Pero bueno, por ahora estoy probando con

my @referers = ('www.dominio.com.ar','dominio.com.ar);
&check_url;

sub check_url {

my $check_referer = 0;

if ($ENV{'HTTP_REFERER'}) {
foreach my $referer (@referers) {
if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$referer|i) {
$check_referer = 1;
last;
}
}
}
else {
$check_referer = 1;
}

if ($check_referer != 1) { &error('verificar','host') }
}


-------------------------------------------------------------

Y quedaré a la espera de ver que pasa con los malditos spamers.

Gracias por toda colaboracion