GD::RPPNG - Package for generating human only readable images
GD::RPPNG - Package for generating human-only readable images
The GD::RPPNG (Random Password PNG) module was created to provide an easy access to human-only readable images. This is very usefull to avoid automatic processing of authentication. (ie: subscription to free email accounts).
use GD::RPPNG;
# create a new image
$myimage = new GD::RPPNG;
# configure the image
$myimage->Config (
Xsize => 400,
Ysize => 75,
CharSet => 'ABCDEFGHJKLMNPQRSTUVWXYZ23456789',
CodeLen => 8,
FontMinPT => 12,
FontMaxPT => 28,
yDivert => 10,
Angle => 45,
XLinesFactor => 10,
YLinesFactor => 10,
Transparent => 0,
Colors => 1,
bgColor => 'FFFFFF',
fgColor => '000000',
Code => 'mypasswd',
DebugCode => 0,
);
# add TrueType(C) fonts
$myimage->AddFonts (
'/usr/X11R6/lib/X11/fonts/truetype/arial.ttf',
'/usr/X11R6/lib/X11/fonts/truetype/courier.ttf',
);
# generate the image
( $mycode, $mypng ) = $image->GenImage();
Xsize => 400
Ysize => 75
CharSet => 'ABCDEFGHJKLMNPQRSTUVWXYZ23456789'
CodeLen => 8
FontMinPT => 12
FontMaxPT => 28
yDivert => 10
Angle => 45
XLinesFactor => 10
YLinesFactor => 10
Transparent => 0
Colors => 1
bgColor => 'FFFFFF'
fgColor => '000000'
Code => ''
DebugCode => 0
Config()'Xsize' defines the width of the image in pixels. here's an example:
$object->Config( Xsize => 400 )
'Ysize' defines the height of the image in pixels. here's an example:
$object->Config( Ysize => 75 )
'CharSet' defines the list of chars which may be used to generate the ``code''. Depending on the fonts you will use, its recommended to skip I,L,0,O and 1 as they might be confusing. here's an example:
$object->Config( CharSet => 'ABCDEFGHJKMNOPQRSTUVWXYZ23456789%$#@' )
'CodeLen' defines the number of chars to be used to generate the ``code''. here's an example:
$object->Config( CodeLen => 8 )
'FontMinPT' defines the minimal font size to use. here's an example:
$object->Config( FontMinPT => 12 )
'FontMaxPT' defines the maximal font size to use. here's an example:
$object->Config( FontMaxPT => 24 )
'yDivert' defines, in percent of the image height, the vertical range in which chars may be printed. here's an example:
$object->Config( yDivert => 10 )
'Angle' defines, in degree, the angle range in which chars may be rotated. As an example, 90 will allow chars to be rotated from -45 to +45 degrees. here's an example:
$object->Config( Angle => 45 )
'XLinesFactor' defines, in percent, the amount of horizontal lines to be draw. As an example, 50 on a 400 pixels wide image will draw about 200 lines. here's an example:
$object->Config( XLinesFactor => 20 )
'YLinesFactor' defines, in percent, the amount of vertical lines to be draw. As an example, 50 on a 100 pixels high image will draw about 50 lines. here's an example:
$object->Config( YLinesFactor => 20 )
'Transparent' defines if the background has to be transparent or not. here's an example:
$object->Config( Transparent => 0 )
'Colors' defines if the image will use random colors or not. here's an example:
$object->Config( Colors => 1 )
'bgColor' defines, in RRGGBB (hex) format, the background color to use. here's an example:
$object->Config( bgColor => 'FFFFFF' )
'fgColor' defines, in RRGGBB (hex) format, the foreground color to use. here's an example:
$object->Config( fgColor => '000000' )
'Code' defines the ``code''. If not set, a random code will be generated using the CharSet and the CodeLen options. If set, CharSet and CodeLen will be ignored. here's an example:
$object->Config( Code => 'q12we34r' )
NOTE: You may specify multiple options at the same time here's an example:
$object->Config(
Xsize => 400,
Ysize => 75,
Colors => 1
);
'DebugCode' defines if the ``code'' will be displayed on the top left of the image or not. NOTE: Do only use this for debugging purpose! here's an example:
AddFonts()
$object->AddFonts(
'/usr/X11R6/lib/X11/fonts/truetype/arial.ttf',
'/usr/X11R6/lib/X11/fonts/truetype/courier.ttf'
);
GenImage()
($mycode, $myimage) = $object->GenImage();
print "Content-type: image/png\n\n";
print $myimage;
Many examples may be found at http://www.spale.com/gd-rppng
Pascal Gloor <spale@cpan.org>
The GD::RPPNG module was written by Pascal Gloor.
Version 0.9, released on 11 Dec 2003.
GD::RPPNG Copyright (C) 2003 Pascal Gloor <spale@cpan.org>
GD Copyright (C) 1995-2000, Lincoln D. Stein.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.