File Coverage

blib/lib/Webqq/Encryption/TEA.pm

Criterion	Covered	Total	%
statement	15	44	34.0
branch	1	14	7.1
condition	0	3	0.0
subroutine	5	8	62.5
pod	0	2	0.0
total	21	71	29.5

package Webqq::Encryption::TEA;
use strict;
use Carp;
use MIME::Base64 ();
use Webqq::Encryption::TEA::Perl;

BEGIN{
        eval{require JE;};
        $Webqq::Encryption::TEA::has_je = 1 unless $@;
}

sub strToBytes{
    my $str = shift;
    #$str = join "",map {"\\x$_"} unpack "H2"x length($str),$str;
    my $return = "";
    for(split //,$str){$return .= sprintf "%02x",ord($_)};
    #print qq#
    #    var tea = TEA();
    #    var r = tea.strToBytes('$str');
    #    return(r);
    ##;
    #$return = $je->eval(qq#
    #    var tea = TEA();
    #    var r = tea.strToBytes('$str');
    #    return(r);
    ##);

    #croak $@ if $@;
    return $return;
}
sub _load_je{
    my $je;
    croak "The JE module is not found, You may install it first\n" unless $Webqq::Encryption::TEA::has_je;
    if(defined $Webqq::Encryption::TEA::_je ){
        $je = $Webqq::Encryption::TEA::_je ;
    }
    else{
        my $javascript;
        if(defined $Webqq::Encryption::TEA::_javascript){
            $javascript = $Webqq::Encryption::TEA::_javascript;
        }
        else{
            local $/ = undef;
            $javascript = ;
            $Webqq::Encryption::TEA::_javascript = $javascript;
            close DATA;
        }
        $je = JE->new;
        $je->eval($javascript);
        croak "Webqq::Encryption::TEA load javascript error: $@\n" if $@;
        $Webqq::Encryption::TEA::_je = $je;
    }
    return $je;
}
sub encrypt {
    my ($key,$data) = @_;
    #$key = join "",map {"\\x$_"} unpack "H2"x length($key),$key;
    my $p = Webqq::Encryption::TEA::Perl::encrypt($key,$data);
    return  MIME::Base64::encode_base64($p,"") if $p;

    #print qq#
    #    var tea = TEA();
    #    tea.initkey('$key');
    #    //var r = tea.enWithoutBase64('$data');
    #    var r = tea.enAsBase64("$data");
    #    tea.initkey("");
    #    return(r);
    ##;
    my $je = _load_je();
    my $p = $je->eval(qq#
        var tea = TEA();
        tea.initkey('$key');
        var r = tea.encrypt('$data');
        tea.initkey('');
        return(r);
    #);
    if($p and !$@){
        return MIME::Base64::encode_base64($p,"");
    }
    else{
        croak "Webqq::Encryption::TEA error: $@\n";
    }
}

1;
__DATA__