CGI::Session::ID::MD5_Base64 - CGI::Session ID driver based on Base64 encoding


CGI-Session-ID-MD5_Base64 documentation Contained in the CGI-Session-ID-MD5_Base64 distribution.

Index


Code Index:

NAME

Top

CGI::Session::ID::MD5_Base64 - CGI::Session ID driver based on Base64 encoding

SYNOPSIS

Top

    use CGI::Session;

    $session = new CGI::Session("id:MD5_Base64", undef, { Directory => '/tmp' };

DESCRIPTION

Top

CGI::Session::ID::MD5_Base64 is to generate MD5 digest Base64 encoded random ids. The library does not require any arguments.

COPYRIGHT

Top

AUTHOR

Top

Daniel Peder <danpeder@cpan.org>

Feedbacks, suggestions and patches are welcome.

SEE ALSO

Top


CGI-Session-ID-MD5_Base64 documentation Contained in the CGI-Session-ID-MD5_Base64 distribution.

package CGI::Session::ID::MD5_Base64;

# $Id: MD5_Base64.pm_rev 1.3 2003/12/11 16:32:43 root Exp root $

use strict;
use Digest::MD5;

use vars qw( $VERSION );

	$VERSION = '1.01';

sub generate_id {
    my $self = shift;
    my $md5 = new Digest::MD5();
    $md5->add( $$ , time() , rand(9999) );
    return $md5->b64digest();
}


1;