CAPTCHA Perl. Generación con ImageMagick

29 de septiembre 2009 | Autor: dimio

Un generador pequeño código de la imagen para la función de perl imagemagick llamando a través de la Biblioteca de imágenes:: Magia.
Puede ser útil cuando el proveedor de alojamiento no permite instalar sus propios módulos de perl (por ejemplo, GD:: SecurityImage o Auchten:: Captcha). Módulo para trabajar con ImageMagick no por defecto a menos que un anfitrión muy negligente.
Esta característica se puede utilizar como una llamada a la librería, la llamada para pasar el nombre del archivo y la línea de generar un CAPTCHA.

 #! / Usr / bin / perl código de la imagen # Generator.  La idea y los parámetros de llamada Convertir se han tomado de captcha.ru (http://captcha.ru/captchas/multiswirl/).  # Implementación de una Biblioteca de imágenes:: Magia de perl - dimio (www.dimio.org).  # 27/09/2009 Imagen de uso:: Magick, sub CreateCapImage ($$){ my ($ cap_string, $ nombre) = @ _; my $ font = "times.ttf"; my $ PointSize = 70; my $ path = ' . / '; my $ imagen = new Image:: Magick, n º 1.  Cree un cuadro de 300x100 blanco.  $ Imagen-> Set (size => '300x100 '); $ imagen-> ReadImage (' xc: blanco '); # 2.  Imprimimos en color negro con antialiasing $ imagen-> Set (type => 'color verdadero ", antialias =>' True ', fill =>' negro ', la fuente # cadena STRING $ tamaño de la fuente $ fuente PointSize => $ fuente, PointSize => $ PointSize,); $ imagen-> Draw (primitiva => 'text', puntos => '20, 70 ', # líneas de orientación del texto dentro del texto de imagen => $ cap_string, que imprimen #) # 3.  Mover el centro hacia la izquierda a 100 puntos + fluctuación aleatoria $ imagen-> Extensión (geometría => '400x120 ', # cambia el tamaño de la imagen); $ imagen-> Roll (x => 101 + int (rand (4))) # 4.  El ángulo del remolino primero al azar (de 37 a 51) $ imagen-> Remolino (grados => int (rand (14)) 37,), # 5.  Mover el centro hacia la derecha por 200 píxeles, también con una fluctuación aleatoria de $ imagen-> Extensión (geometría => '600x140 ', # cambia el tamaño de la imagen); $ imagen-> Roll (x => 3-int (rand (4))) , n º 6.  La segunda rotación (de 20 a 35) $ imagen-> Remolino (grados => int (rand (15)), 20,,), # 7.  El procesamiento final y la salida $ imagen-> Cultivos ('300x100 100 +17'); $ imagen-> Cambiar el tamaño ('150x50 '); $ archivo = $ path.  $ Archivo, $ archivo .= 'png'.; Abierto (IMAGEN ,'>',$ nombre) or die $, $ imagen-> Write (archivo => \ * IMAGEN, nombre => $ archivo); cierre ( IMAGEN); return $ nombre;} 1; 

  # De llamadas guión de CAPTCHAs
 my $ num1 = int (rand (11)) + int (rand (3));
 my $ num2 = int (rand (8)) + int (rand (4));
 my $ suma = $ num1 + $ num2;
 my $ cap_string = $ num1 num2 .'+'.$ .'=';
 mi = $ cap_digest md5_hex ($ suma + rand (100) + rand (50));
 my $ cap_url = & CreateCapImage ($ cap_string, $ cap_digest);
	 $ Cap_url = ~ s | / home / dimioorg / public_html / dimioorg | |;
	 $ Cap_url = 'http://www.dimio.org' $ Cap_url.;
 print $ query-> em ("<img src=\"$cap_url\">"),
		 $ Consulta-> textfield (
				 -Nombre => 'cap_value,
				 -Size => 2,
				 -Maxlength => 2,
			 );

Como resultado, la página mostrará la imagen con los símbolos de la forma "12 7 =". La cadena puede en principio ser cualquier cosa.

Demasiado perezoso para copiar y pegar - pueden descargar captcha.pl característica y tres fuentes TTF .

Escrito sobre los Derechos de los lugares de interés para usted, pero si alguien muy útil

Más sobre temas similares:

• Generación de CAPTCHA en perl usando Auten:: Captcha
• Perl [Práctico de Extracción e Informe]
• Mojolicious - familiarización con la "red de medios de navegación fuera de la caja"

Comentarios