I am tesing the ImagePwd from webtools.
below sample code shows a pic with numbers on it.
however how to print out exactly the numbers first and then a pic?
in others words, how to get the value of numbers?
i have tried quite few times with no luck.
could any one help me on this issue?
THanks in advance.
#!/usr/local/bin/perl
use ImagePwd;
##webtools 127
$obj = ImagePwd->new(len=>5, height=>60, width=>280, fixed=>1, rot=>10,quality=>128, cell=>0, f_min=>45);
$obj->fonts(['G:/winnt/FONTS/BNHRDMOB.TTF','G:/winnt/FONTS/ariblk.TTF',
'G:/winnt/FONTS/GOUDHNDN.TTF','G:/winnt/FONTS/KABELU.TTF',
'G:/winnt/FONTS/BOOKOSBI.TTF','G:/winnt/FONTS/FUTURABI.TTF',
]);
# $obj->fonts(['kai.ttf']); # And more fonts for Unix/Linux users
$img = $obj->ImagePassword();
$| = 1;
binmode STDOUT;
print "Content-type: image/png\n\n";
print $img->Write('png:-');
below sample code shows a pic with numbers on it.
however how to print out exactly the numbers first and then a pic?
in others words, how to get the value of numbers?
i have tried quite few times with no luck.
could any one help me on this issue?
THanks in advance.
#!/usr/local/bin/perl
use ImagePwd;
##webtools 127
$obj = ImagePwd->new(len=>5, height=>60, width=>280, fixed=>1, rot=>10,quality=>128, cell=>0, f_min=>45);
$obj->fonts(['G:/winnt/FONTS/BNHRDMOB.TTF','G:/winnt/FONTS/ariblk.TTF',
'G:/winnt/FONTS/GOUDHNDN.TTF','G:/winnt/FONTS/KABELU.TTF',
'G:/winnt/FONTS/BOOKOSBI.TTF','G:/winnt/FONTS/FUTURABI.TTF',
]);
# $obj->fonts(['kai.ttf']); # And more fonts for Unix/Linux users
$img = $obj->ImagePassword();
$| = 1;
binmode STDOUT;
print "Content-type: image/png\n\n";
print $img->Write('png:-');