#!/usr/bin/perl

########################################
#
#            Security module
#               version 1.0
#
#            by Ryan Aycock
#
#            copyright 2001
#
#  This product is released under 
#  the BSD liscense.
#
########################################

package Security;

sub encrypt
{
$word = $_[0];
$word =~ tr/A-Za-z0-9/N-ZA-Mn-za-m5-90-4/;
return $word;
}

sub decrypt
{
$word = $_[0];
$word =~ tr/N-ZA-Mn-za-m5-90-4/A-Za-z0-9/;
return $word;
}

1;