/usr/share/perl5/CGI/Session/ID/md5.pm is in libcgi-session-perl 4.48-1+deb8u1.
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 | package CGI::Session::ID::md5;
# $Id$
use strict;
use Digest::MD5;
use CGI::Session::ErrorHandler;
$CGI::Session::ID::md5::VERSION = '4.43';
@CGI::Session::ID::md5::ISA = qw( CGI::Session::ErrorHandler );
*generate = \&generate_id;
sub generate_id {
my $md5 = Digest::MD5->new();
$md5->add($$ , time() , rand(time) );
return $md5->hexdigest();
}
1;
=pod
=head1 NAME
CGI::Session::ID::md5 - default CGI::Session ID generator
=head1 SYNOPSIS
use CGI::Session;
$s = CGI::Session->new("id:md5", undef);
=head1 DESCRIPTION
CGI::Session::ID::MD5 is to generate MD5 encoded hexadecimal random ids. The library does not require any arguments.
=head1 LICENSING
For support and licensing see L<CGI::Session|CGI::Session>
=cut
|