view release on metacpan or  search on metacpan

UnixCrypt.pm  view on Meta::CPAN

	PERM_OP($right, $left, 4, 0x0f0f0f0f, \@results);
	$right = $results[0]; $left = $results[1];

	my @out; $#out = 1;

	$out[0] = $left; $out[1] = $right;

	return \@out;
}

sub crypt($$) # String crypt(String plaintext, String salt)
{
	my ($plaintext, $salt) = @_;
	my $buffer = '';

	return $buffer if !defined $salt || $salt eq '';

	$salt .= $salt if length $salt < 2;
	$plaintext = '' if !defined $plaintext;
 
	$buffer = substr $salt,0,2;