File Coverage

blib/lib/Webqq/Encryption/RSA.pm

Criterion	Covered	Total	%
statement	9	49	18.3
branch	0	12	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	69	17.3

package Webqq::Encryption::RSA;
use strict;
use JE;
use Carp;

sub encrypt {
    my $data = shift;
    eval {
        require Crypt::RSA::ES::PKCS1v15;
        require Crypt::RSA::Key::Public;
    };
    unless($@){
        my $n = "0xF20CE00BAE5361F8FA3AE9CEFA495362FF7DA1BA628F64A347F0A8C012BF0B254A30CD92ABFFE7A6EE0DC424CB6166F8819EFA5BCCB20EDFB4AD02E412CCF579B1CA711D55B8B0B3AEB60153D5E0693A2A86F3167D7847A0CB8B00004716A9095D9BADC977CBB804DBDCBA6029A9710869A453F27DFDDF83C016D928B3CBF4C7";
        my $public = Crypt::RSA::Key::Public->new();
        $public->e("0x3");
        $public->n($n);
        my $rsa = Crypt::RSA::ES::PKCS1v15->new();
        return lc join "",unpack "H*", $rsa->encrypt(Message=>$data,Key=>$public,);
    }
    else{
        eval{
            require Crypt::OpenSSL::RSA;
            require Crypt::OpenSSL::Bignum;
        };
        unless($@){
            my $n = Crypt::OpenSSL::Bignum->new_from_hex("F20CE00BAE5361F8FA3AE9CEFA495362FF7DA1BA628F64A347F0A8C012BF0B254A30CD92ABFFE7A6EE0DC424CB6166F8819EFA5BCCB20EDFB4AD02E412CCF579B1CA711D55B8B0B3AEB60153D5E0693A2A86F3167D7847A0CB8B00004716A9095D9BADC977CBB804DBDCBA6029A9710869A453F27DFDDF83C016D928B3CBF4C7");
            my $e = Crypt::OpenSSL::Bignum->new_from_hex("3");
            my $rsa = Crypt::OpenSSL::RSA->new_key_from_parameters($n,$e);
            $rsa->use_pkcs1_padding();
            return lc join "",unpack "H*", $rsa->encrypt($data);
        }
    }
    $data = join "",map {"\\x$_"} unpack "H2"x length($data),$data;
    my $je;
    if(defined $Webqq::Encryption::RSA::_je ){
        $je = $Webqq::Encryption::RSA::_je ;
    }
    else{
        my $javascript;
        if(defined $Webqq::Encryption::RSA::_javascript){
            $javascript = $Webqq::Encryption::RSA::_javascript;
        }
        else{
            local $/ = undef;
            $javascript = ;
            $Webqq::Encryption::RSA::_javascript = $javascript;
            close DATA;
        }
        $je = JE->new;
        $je->eval($javascript);
        croak "Webqq::Encryption::RSA load javascript error: $@\n" if $@;
        $Webqq::Encryption::RSA::_je = $je;
    }

    #print qq#
    #    var rsa = RSA();
    #    var r = rsa.rsa_encrypt('$data');
    #    return(r);
    ##;
    my $p = $je->eval(qq#
        var rsa = RSA();
        var r = rsa.rsa_encrypt('$data');
        return(r);
    #);
    if($p and !$@){
        return $p;
    }
    else{
        croak "Webqq::Encryption::RSA error: $@\n";
    }

}

1;
__DATA__