#!/usr/bin/perl
#
##############################################
# Security Code Generator
##############################################
###########################
# Sintaxis: <script src="http://www.booking-centre-online.com/cgi-bin/security/"></script> # en caso de Caracteres estandard
# Sintaxis: <script src="http://www.booking-centre-online.com/cgi-bin/security/?bco"></script> # en caso de Caracteres personalizados
# en caso de imagenes personalizados, se deben poner dentro de: plantillas_afiliado/codimgs/
###########################
# Este cgi genera un codigo de seguridad y lo coloca en la pagina, junto a un oculto con el codigo correcto, el cliente debe rellenar el mismo codigo en un campo llamado "control".
#
##############################################

$cadena= $ENV{'QUERY_STRING'};
@cadena = split(/\&/,$cadena);
$imagenes=$cadena[0];

#print "Content-type: text/html\n\n";
#print "Hola\n";
#exit;

$imagenes="security" if($imagenes eq "");



srand($$ & time ^ $$);
$randsin=rand;
$randsin=~ s/\.//g;
$control_nr=substr($randsin,0,5);

$control_nr_letras=$control_nr;
##############################################
# Convertir en Imagenes
##############################################
$control_nr_letras =~ tr/[0,1,2,3,4,5,6,7,8,9]/[a,b,c,d,e,f,g,h,i,j]/;

$letra1 = substr($control_nr_letras,0,1);
$letra2 = substr($control_nr_letras,1,1);
$letra3 = substr($control_nr_letras,2,1);
$letra4 = substr($control_nr_letras,3,1);
$letra5 = substr($control_nr_letras,4,1);
##############################################

print "Content-type: text/html\n\n";

#print "$control_nr - $control_nr_letras\n";

print <<HTML;
document.write("<img src='codimgs/$letra1.gif'/><img src='codimgs/$letra2.gif'/><img src='codimgs/$letra3.gif'/><img src='codimgs/$letra4.gif'/><img src='codimgs/$letra5.gif'/>");
document.write("<input name='cont' type='hidden' id='cont' value='$control_nr_letras'>");
HTML

exit