0

我正在使用 Perl 开发比特币大脑钱包生成器。我无法正确完成最后一步（base58 编码）来生成私钥（导入格式）。

我找到了一个非常简单的 bash 脚本来完成这项工作，我希望将它翻译成 Perl，这样我就可以完全在 Perl 上生成密钥。

有人可以帮我将以下 bash 代码翻译成 Perl 子程序吗？

#!/bin/bash
base58=({1..9} {A..H} {J..N} {P..Z} {a..k} {m..z})
bc <<<"ibase=16; n=${1^^}; while(n>0) { n%3A ; n/=3A }" |
tac |
while read n
do echo -n ${base58[n]}
done

编辑：谢谢巴尔玛！它更接近，但不起作用。我为获得最接近的结果所做的是： 

sub encode_base58sp {
    my $in = shift;
    my $out = '';
    my @base58 = (1 .. 9, 'A' .. 'H', 'J' .. 'N', 'P' .. 'Z', 'a' .. 'k', 'm' .. 'z');
    my $n = hex($in);
    while ($n > 1) {
       my $remain = $n % 58;
       $out = $base58[$remain] . $out;
       $n /= 58;
    }
    return $out;
}

这样我就可以得到前 9 个字符，但其余的都是错误的......有什么想法吗？

4

2 回答 2

2 
use bignum; # Get arbitrary precision arithmetic

# base58=({1..9} {A..H} {J..N} {P..Z} {a..k} {m..z})
my @base58 = (1 .. 9, 'A' .. 'H', 'J' .. 'N', 'P' .. 'Z', 'a' .. 'k', 'm' .. 'z');
# ibase=16; n=${1^^};
my $n = hex($ARGV[0]);
# while(n>0)
my $result = "";
while ($n > 0) {
  # n%3A, tac, and echo ${base58[n]} (hex 3A == dec 58)
  $result = $base58[$n % 58] . $result;
  # n/=3A
  $n /= 58;
}
print "$result\n";
于 2013-04-19T22:33:53.587 回答
0

谢谢巴马尔，

它适用于“使用 bigrat；” （对 Perl 的透明 BigNumber/BigRational 支持）。

这是解决方案（基于您的翻译的子）： 

 sub encode_Base58Check {
    use bigrat;
    my $in = shift;
    my $out = '';
    my @base58 = (1 .. 9, 'A' .. 'H', 'J' .. 'N', 'P' .. 'Z', 'a' .. 'k', 'm' .. 'z');
    my $n = hex($in);
    while ($n > 1) {
       $out = $base58[$n % 58] . $out;
       $n /= 58;
    }
    return $out;
}

谢谢！

于 2013-04-20T07:08:11.683 回答