Crypt::Salt - Module for generating a salt to be fed into crypt.

Crypt-Salt documentation

Contained in the Crypt-Salt distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
BUGS
AUTHOR
COPYRIGHT
SEE ALSO
- salt

Code Index:

package Crypt::Salt
- salt
EOF

NAME

Crypt::Salt - Module for generating a salt to be fed into crypt.

SYNOPSIS

  use Crypt::Salt;

  print crypt( "secret", salt() );

DESCRIPTION

The single exported subroutine in this module is for generating a salt suitable for being fed to crypt() and other similar functions.

BUGS

Please let the author know if any are caught

AUTHOR

	Jonathan Steinert
	hachi@cpan.org

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

perl(1).

salt

 Argument  : The first argument as passed will be used in numeric context as a count of how many characters you want returned in the salt, the default is 2. All other arguments are ignored.
 Returns   : A string of random characters suitable for use when being passed to the crypt() function

Crypt-Salt documentation

Contained in the Crypt-Salt distribution.

package Crypt::Salt;
use strict;

BEGIN {
	use Exporter ();
	use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
	$VERSION     = 0.01;
	@ISA         = qw (Exporter);
	#Give a hoot don't pollute, do not export more than needed by default
	@EXPORT      = qw (salt);
	@EXPORT_OK   = qw (salt);
	%EXPORT_TAGS = ();
}

############################################# main pod documentation end ##


################################################ subroutine header begin ##

################################################## subroutine header end ##


sub salt
{
        my $length = 2;
	$length = $_[0] if exists $_[0];

	return join "", ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[map {rand 64} (1..$length)];
}


1;