#!/usr/bin/perl #--------------------------------------------------------------------- # Import the necessary module. #--------------------------------------------------------------------- use WebService::CaptchasDotNet; #--------------------------------------------------------------------- # Construct the captchas object. Replace the required parameters # 'demo' and 'secret' with the values you receive upon # registration at http://captchas.net. # # Optional Parameters and Defaults: # # alphabet: 'abcdefghijklmnopqrstuvwxyz' (Used characters in captcha) # We recommend alphabet without ijl: 'abcdefghkmnopqrstuvwxyz' # # letters: '6' (Number of characters in captcha) # # width: '240' (image width) # height: '80' (image height) # # Don't forget the same settings in check.cgi #--------------------------------------------------------------------- my $captchas = WebService::CaptchasDotNet->new( client => 'demo', secret => 'secret'#, #alphabet => 'abcdefghkmnopqrstuvwxyz', #letters => 6, #width => 240, #height => 80, ); my $random = $captchas->random; my $image_url = $captchas->image_url; my $audio_url = $captchas->audio_url; my $image = $captchas->image; #--------------------------------------------------------------------- # Print html page #--------------------------------------------------------------------- print "Content-Type: text/html\n\n"; print '

Website Members Application

STEP 1 of 2

The section below is a security measure, to deter against automated submissions.

Security Access.. 

Copy the characters from the image on
the right, into the box below it:

' . $image . '

 

Can\'t make out the image? Hear the phonetic spelling (mp3) here.

'; #--------------------------------------------------------------------- # End #---------------------------------------------------------------------