Solstice::Encryption - Solstice's standard two-way encryption library.

  use Solstice::Encryption;

  my $encrypter = Solstice::Encryption->new;

  my $ciphertext = $encrypter->encrypt($string);

  my $string = $encrypter->decrypt($ciphertext);

Will encrypt/decrypt a string using the Rijndael algorithm (aes).

No symbols exported.

new()

Constructor. Returns an encrypter object.

encrypt(plain_text_string)

Returns the encrypted version of the plain_text_string in URL safe text.

encryptHex(plain_text_string) Returns the encrypted version of the plain_text_string escaped as hex. =cut

sub encryptHex { my $self = shift; my $pt = shift; return unpack "H*", $self->_encrypt($pt); }

_encrypt() =cut

sub _encrypt { my $self = shift; my $pt = shift; # text to encode

    # require a parameter
    return undef unless (defined $pt && $pt);

    # make sure that our data is a multiple of DIVISOR bytes.
    my $length = length(Unicode::String->new($pt)->as_string());
    if ($length % DIVISOR != 0) {
        $pt = ' ' x (DIVISOR - ($length % DIVISOR)) . $pt;
    }
    return $self->_getCipher()->encrypt($pt);
}

decrypt(encrypted_string)

Returns the decrypted version of the encrypted_string

decryptHex(encrypted_string) Returns the decrypted version of the encrypted string. =cut

sub decryptHex { my $self = shift; my $cipher = shift; return undef unless (defined $cipher && $cipher); return $self->_decrypt(pack "H*", $cipher); }

_decrypt() =cut

sub _decrypt { my $self = shift; my $et = shift; my $padded; eval{ $padded = $self->_getCipher()->decrypt($et); };

    $padded =~ s/^[ ]*//;
    return $padded;
}

_setCipher($cipher)

_getCipher()

Crypt::Rijndael, MIME::Base64, URI::Escape.

Catalyst Group, <catalyst@u.washington.edu>

$Revision: 3364 $

Copyright 1998-2007 Office of Learning Technologies, University of Washington

Licensed under the Educational Community License, Version 1.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at: http://www.opensource.org/licenses/ecl1.php

Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License.