view release on metacpan or  search on metacpan

Memfrob.pm  view on Meta::CPAN

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw( memfrob );
$VERSION = '1.00';

sub memfrob($) {
    return(join("", map { chr((ord($_) ^ 42) + 0) } (split(//, shift))));
}

1;
__END__

=head1 NAME

Crypt::Memfrob - memfrob implementation in pure Perl