From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

CAMELCASE / HTML-TurboForm-0.48 / lib / HTML / TurboForm / Element / Captcha.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
—
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131

              
package HTML::TurboForm::Element::Captcha;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ session length/ );
sub render {
  my ($self, $options, $view)=@_;
  if ($view) { $self->{view}=$view; }
  my $request=$self->request;
  my $result='';
  my $disabled='';
  my $class='form_text';
  $class = $self->class if ($self->class);
  $self->length(4) if (!$self->length);
  my $name=' name="'.$self->name.'_input" ';
  my $value='';
  $value=' value="'.$request->{ $self->name }.'" ' if ($request->{ $self->name });
  if ($options->{frozen} == 1) {
    my $text= $value;
    $disabled=' disabled ';
    $result='<input type="hidden" '.$name.$value.'" />';
  }
  my @numbers = (0,1,2,3,4,5,6,7,8,9);
  my $random = '';
  for (my $i=0; $i < $self->length;$i++){
    my $x = int(rand(scalar(@numbers)));
    $random .= $x;
  }
  $result=$self->print_number($random);
  if ($self->session && $self->name){
    $self->session->{ $self->name."_captcha"}=$random;
  }
  $self->{value}=$random;
 # $result .='<input class="form_std" type="'.$self->type.'"'.$disabled.$name.$class.$value.'>' ;
  return $self->vor($options).$result.$self->nach;
}
sub get_value{
  my ($self)=@_;
  return  $self->session->{ $self->name."_captcha"};
}
sub get_digit_matrix{
  my ($self, $number)=@_;
  my @bitmasks = (31599, 18742, 29607, 31143, 18921, 31183, 31695, 18855, 31727, 31215);
  my @bits = (1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384);
  my @matrix=(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
  my $mask = $bitmasks[$number];
  for (my $i=14;$i>0;$i--){
    if (($mask / $bits[$i])>1) {
      $mask = $mask - $bits[$i];
      $matrix[$i]=1;
    }
  }
  if ($mask == 1) { $matrix[0]=1; }
  return @matrix ;
}
sub print_matrix{
  my ($self, @matrix)=@_;
  my $output ='';
  my $size = @matrix;
  for (my $i=0;$i<5;$i++) {
    for (my $k=0;$k < $size ;$k++){
      for (my $j=0;$j<3;$j++) {
        if ( $matrix[$k][($j+(3*$i))] == 1 ){
          $output.='<span class="b">&nbsp;&nbsp;</span>';
        } else {
          $output.='<span class="w">&nbsp;&nbsp;</span>';
        }
      }
      $output.='<span class="w">&nbsp;&nbsp;</span>';
    }
    $output.='<br />';
  }
  return $output;
}
sub print_number{
  my ($self, $number)=@_;
  my @matrix;
  for(my $i=0; $i<length($number); $i++) {
     my $digit = substr($number, $i, 1);
     $matrix[$i]= [ $self->get_digit_matrix($digit) ];
  }
  return $self->print_matrix(@matrix);
}
1;
__END__
=head1 HTML::TurboForm::Element::Captcha
Representation class for Captcha element.
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code for element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut