File Coverage

blib/lib/Webqq/Encryption/RSA.pm

Criterion	Covered	Total	%
statement	16	21	76.1
branch	3	6	50.0
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	22	30	73.3

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

BEGIN{
    eval{
        require Crypt::RSA::ES::PKCS1v15;
        require Crypt::RSA::Key::Public;
    };
    unless($@){
        $Webqq::Encryption::RSA::has_crypt_rsa = 1;
    }
    else{
        eval{
            require Crypt::OpenSSL::RSA;
            require Crypt::OpenSSL::Bignum;
        };
        unless($@){
            $Webqq::Encryption::RSA::has_crypt_openssl_rsa = 1;
        }
        else{
            eval{require JE;};
            unless($@){
                $Webqq::Encryption::RSA::has_je = 1;
            }
            else{
                croak "You must install Crypt::RSA or Crypt::OpenSSL::RSA or JE module to support rsa encrypt\n";
            }
        }
    }

}

sub encrypt {
    my $data = shift;
    if($Webqq::Encryption::RSA::has_crypt_rsa){
        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,);
    }
    elsif($Webqq::Encryption::RSA::has_crypt_openssl_rsa){
        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__