File Coverage

blib/lib/Webqq/Encryption/TEA.pm

Criterion	Covered	Total	%
statement	15	57	26.3
branch	1	16	6.2
condition	0	9	0.0
subroutine	5	11	45.4
pod	0	5	0.0
total	21	98	21.4

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 encrypt_js{
    my ($key,$data) = @_;
    my $je = _load_je();
    my $p = $je->eval(qq#
        var tea = TEA();
        tea.initkey('$key');
        var r = tea.encrypt2('$data');
        tea.initkey('');
        return(r);
    #);
    if($p and !$@){
        return $p;
    }
    else{
        croak "Webqq::Encryption::TEA error: $@\n";
    }
}
sub decrypt_js{
    my ($key,$data) = @_;
    my $je = _load_je();
    my $p = $je->eval(qq#
        var tea = TEA();
        tea.initkey('$key');
        var r = tea.decrypt('$data');
        tea.initkey('');
        return(r);
    #);
    if($p and !$@){
        return $p;
    }
    else{
        croak "Webqq::Encryption::TEA error: $@\n";
    }
}

sub strToHex{
    my $str = shift;
    my $return = "";
    for(split //,$str){$return .= sprintf "%02x",ord($_)};
    return $return;
}

sub hexToStr{
    return pack "H*",lc shift;
}
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) = @_;
    my $p = Webqq::Encryption::TEA::Perl::encrypt(hexToStr($data),hexToStr($key));
    return lc join "",unpack "H*",$p;

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

1;
__DATA__