| | 82 | if( 'md5' eq $op ) { |
|---|
| | 83 | use Digest::MD5; |
|---|
| | 84 | return Digest::MD5::md5_hex( $rvalue ) if defined $rvalue; |
|---|
| | 85 | return Digest::MD5::md5_hex( $lvalue ); |
|---|
| | 86 | } |
|---|
| | 87 | if( 'sha1' eq $op ) { |
|---|
| | 88 | use Digest::SHA1; |
|---|
| | 89 | return Digest::SHA1::sha1_hex( $rvalue ) if defined $rvalue; |
|---|
| | 90 | return Digest::SHA1::sha1_hex( $lvalue ); |
|---|
| | 91 | } |
|---|
| | 92 | if( 'base64encode' eq $op ) { |
|---|
| | 93 | use MIME::Base64 (); |
|---|
| | 94 | return MIME::Base64::encode( $rvalue ) if defined $rvalue; |
|---|
| | 95 | return MIME::Base64::encode( $lvalue ); |
|---|
| | 96 | } |
|---|
| | 97 | if( 'base64decode' eq $op ) { |
|---|
| | 98 | use MIME::Base64 (); |
|---|
| | 99 | return MIME::Base64::decode( $rvalue ) if defined $rvalue; |
|---|
| | 100 | return MIME::Base64::decode( $lvalue ); |
|---|
| | 101 | } |
|---|
