File Coverage

blib/lib/Webqq/Encryption/RSA.pm

Criterion	Covered	Total	%
statement	11	54	20.3
branch	1	18	5.5
condition	0	3	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	15	80	18.7

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

BEGIN{
    eval{
        require Crypt::OpenSSL::RSA;
        require Crypt::OpenSSL::Bignum;
    };
    unless($@){
        $Webqq::Encryption::RSA::has_crypt_openssl_rsa = 1;
    }
    else{
        eval{
            require Crypt::RSA::ES::PKCS1v15;
            require Crypt::RSA::Key::Public;
        };
        unless($@){
            $Webqq::Encryption::RSA::has_crypt_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 = "0xE9A815AB9D6E86ABBF33A4AC64E9196D5BE44A09BD0ED6AE052914E1A865AC8331FED863DE8EA697E9A7F63329E5E23CDA09C72570F46775B7E39EA9670086F847D3C9C51963B131409B1E04265D9747419C635404CA651BBCBC87F99B8008F7F5824653E3658BE4BA73E4480156B390BB73BC1F8B33578E7A4E12440E9396F2552C1AFF1C92E797EBACDC37C109AB7BCE2367A19C56A033EE04534723CC2558CB27368F5B9D32C04D12DBD86BBD68B1D99B7C349A8453EA75D1B2E94491AB30ACF6C46A36A75B721B312BEDF4E7AAD21E54E9BCBCF8144C79B6E3C05EB4A1547750D224C0085D80E6DA3907C3D945051C13C7C1DCEFD6520EE8379C4F5231ED";
        my $public = Crypt::RSA::Key::Public->new();
        $public->e("0x10001");
        $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("E9A815AB9D6E86ABBF33A4AC64E9196D5BE44A09BD0ED6AE052914E1A865AC8331FED863DE8EA697E9A7F63329E5E23CDA09C72570F46775B7E39EA9670086F847D3C9C51963B131409B1E04265D9747419C635404CA651BBCBC87F99B8008F7F5824653E3658BE4BA73E4480156B390BB73BC1F8B33578E7A4E12440E9396F2552C1AFF1C92E797EBACDC37C109AB7BCE2367A19C56A033EE04534723CC2558CB27368F5B9D32C04D12DBD86BBD68B1D99B7C349A8453EA75D1B2E94491AB30ACF6C46A36A75B721B312BEDF4E7AAD21E54E9BCBCF8144C79B6E3C05EB4A1547750D224C0085D80E6DA3907C3D945051C13C7C1DCEFD6520EE8379C4F5231ED");
        my $e = Crypt::OpenSSL::Bignum->new_from_hex("10001");
        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__