/usr/share/perl5/CGI/Application/Plugin/Authentication/Driver/Filter/crypt.pm is in libcgi-application-plugin-authentication-perl 0.20-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | package CGI::Application::Plugin::Authentication::Driver::Filter::crypt;
use strict;
use warnings;
our $VERSION = '0.20';
sub check {
my $class = shift;
my $param = shift;
my $plain = shift;
my $filtered = shift;
return ( $class->filter( $param, $plain, $filtered ) eq $filtered ) ? 1 : 0;
}
sub filter {
my $class = shift;
shift; # not used
my $plain = shift;
my $salt = shift;
if (!$salt) {
my @alphabet = ( '.', '/', 0 .. 9, 'A' .. 'Z', 'a' .. 'z' );
$salt = join '', @alphabet[ rand 64, rand 64 ];
}
return crypt( $plain, $salt );
}
1;
__END__
=head1 NAME
CGI::Application::Plugin::Authentication::Driver::Filter::crypt - crypt Filter
=head1 VERSION
This document describes CGI::Application::Plugin::Authentication::Driver::Filter::crypt version 0.20
=head1 METHODS
=head2 filter ( undef, $string [, salt ] )
This will generate a crypted string. The first parameter is always ignored,
since there is only one way to use the crypt function. You can pass in an
extra parameter to act as the salt.
my $filtered = $class->filter(undef, 'foobar'); # mQvbWI43eDCAk
-or-
my $filtered = $class->filter(undef, 'foobar', 'AA'); # AAZk9Aj5/Ue0E
=head2 check ( undef, $string, $crypted )
This will crypt the string, and compare it against the provided crypted string.
The first parameter is always ignored, since there is only one way to use the
crypt function.
if ($class->check(undef, 'foobar', 'mQvbWI43eDCAk')) {
# they match
}
=head1 SEE ALSO
L<CGI::Application::Plugin::Authentication::Driver>, perl(1)
=head1 AUTHOR
Cees Hek <ceeshek@gmail.com>
=head1 LICENCE AND COPYRIGHT
Copyright (c) 2005, SiteSuite. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
=cut
|