Hi there, I have installed every CPAN Captcha image verification known
and cant get any of them to do a simple task - output to a directory a
set of Captcha images with codes and the code file..you would think
its simple, I tried GD:SecurityImage and this does nothing:
 use GD::SecurityImage;
  # Create a normal image
  my $image = GD::SecurityImage->new(width  => 80,
                   height  => 30,
                   lines  => 10,
                   gd_font => 'giant');
   $image->random($your_random_str);
   $image->create(normal => 'rect');
  my($image_data, $mime_type, $random_number) = $image->out;
It runs but you have no way of knowing "where" the images were
placed. Â can anyone reply with a true to life working SIMPLE script
that just dumps the images and code file ??????
I suppose you were in a web-context, so you need to print out the
result to STDOUT. you need also send out content-type header before
sending your image data.. what I did with HTML::Mason:
  my($image_data, $mime_type) = $image->out;
  binmode STDOUT;
  $m->clear_buffer();
  $r->content_type("image/$mime_type") ;
  $m->print($image_data);
  $m->flush_buffer();
  $m->abort();
If you were using plain-CGI, and your script filename is captcha.cgi,
then you probably can do things like:[sorry I have no experience with
plain CGI]
  {
    local $|++;
    my($image_data, $mime_type) = $image->out;
    binmode STDOUT;
    print "Content-type=image/$mime_type";
    print $image_data;
    close STDOUT;
  }
or something like that to print out image data to the web with a
proper content-type(make sure no other data are outputted before
sending content-type header), and then you can fetch it from the other
side with:
  <img src="/path/to/captcha.cgi?R=..." alt="" />
For me, the random number is generated from outside captcha.cgi, and
passed in with an encrypted query string(i.e. R=#### as in the above
sample). you can then decrypt it at the beginning of your Perl script
captcha.cgi.. If you like this approach, you need also check out CPAN
for some Crypt:: modules(I am using Crypt::RC4 for this).
BTW. with GD::ImageSecurity, you dont need any temporary file to save
the images....
Good luck,
lihao- Hide quoted text -
- Show quoted text -
Hey thanks but that doesnt help - looking for a simple script that
dumps to a DIRECTORY on WINDOWS captcha images and their code file.
Your code produces errors when I integrate it:
  use GD::SecurityImage;
use HTML::Mason;
  # Create a normal image
  my $image = GD::SecurityImage->new(width  => 80,
                   height  => 30,
                   lines  => 10,
                   gd_font => 'giant');
$your_random_str = '2345';
   $image->random($your_random_str);
   $image->create(normal => 'rect');
  my($image_data, $mime_type, $random_number) = $image->out;
 print " 1  $image_data  2  $mime_type  3  $random_number 4 $image
";
  binmode STDOUT;
  $m->clear_buffer();
  $r->content_type("$image/$mime_type") ;
  $m->print($image_data);
  $m->flush_buffer();
  $m->abort();
