File Coverage

blib/lib/Webqq/Encryption.pm

Criterion	Covered	Total	%
statement	18	57	31.5
branch	1	18	5.5
condition	0	3	0.0
subroutine	6	8	75.0
pod	0	2	0.0
total	25	88	28.4

package Webqq::Encryption;
use Carp;
use Exporter 'import';
use Digest::MD5 qw(md5_hex);
use Webqq::Encryption::TEA;
use Webqq::Encryption::RSA;
our @EXPORT_OK = qw(pwd_encrypt pwd_encrypt_js);

our $VERSION = "1.7";

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

sub pwd_encrypt{
    my ($pwd,$md5_salt,$verifycode,$is_md5_pwd) = @_;
    $is_md5_pwd = 1 unless defined $is_md5_pwd;
    $pwd = md5_hex($pwd) if $is_md5_pwd == 0;

    $md5_salt = eval qq{"$md5_salt"};
    my $r = pack "H*",lc $pwd;
    my $s = md5_hex($r . $md5_salt);

    my $a = Webqq::Encryption::TEA::strToHex(uc $verifycode);
    my $l = sprintf "%x",length($a)/2;
    while(length($l)<4){
        $l = "0" . $l;
    }
    my $c = Webqq::Encryption::TEA::encrypt($s,$pwd . Webqq::Encryption::TEA::strToHex($md5_salt) . $l . $a );
    my $u = sprintf "%x",length($c)/2;
    while(length($u)<4){
        $u =  "0" . $u;
    }

    my $h = Webqq::Encryption::RSA::encrypt( pack "H*",$u . $c );
    $h = MIME::Base64::encode_base64(pack("H*",$h),"");
    $h =~ tr/\/\+=/-*_/;
    return $h;
}

sub pwd_encrypt_js {
    croak "The JE module is not found, You must install it first\n" unless $Webqq::Encryption::has_je;
    my ($pwd,$md5_salt,$verifycode,$is_md5_pwd) = @_;
    $is_md5_pwd = 1 unless defined $is_md5_pwd;
    my $je;
    if(defined $Webqq::Encryption::_je ){
        $je = $Webqq::Encryption::_je ;
    }
    else{
        my $javascript;
        if(defined $Webqq::Encryption::_javascript){
            $javascript = $Webqq::Encryption::_javascript;
        }
        else{
            local $/ = undef;
            $javascript = ;
            $Webqq::Encryption::_javascript = $javascript;
            close DATA;
        }
        $je = JE->new;
        $je->eval($javascript);
        croak "load javascript error: $@\n" if $@;
        $Webqq::Encryption::_je = $je;
    }

    my $p = $je->eval(qq#
        var p = '$pwd';
        var salt = '$md5_salt';
        var verifycode = '$verifycode';
        var r = \$.Encryption.getEncryption(p,salt,verifycode,$is_md5_pwd);
        return(r);
    #);

    if($p and !$@){
        return $p;
    }
    else{
        croak "pwd_encrypt_js error $@\n";
    }
}

1;
__DATA__