Perl - 如何使用椭圆曲线数学将比特币私钥转换为地址

Question

我的比特币钱包中有大量私钥(约 25K)，但我没有映射到每个私钥的关联地址。在重新创建钱包之前我需要地址，因为我需要跳过一些地址而不是将它们添加到新钱包。

我被指向一个包含转换方法的 python 工具:pywallet ，但我宁愿在 Perl 中执行此操作，这样我可以更轻松地编写脚本。我还发现了这两个执行此操作的 JavaScript 网站:bitaddress.org和 brainwallet.org .

我在 CPAN 上找到了以下库，听起来它们可能有助于执行此操作，但我不知道如何将这些部分组合在一起:Math::EllipticCurve::Prime , Crypt::OpenSSL::EC .前者的文档说它真的很慢，后者可能更快，因为它使用 C 库，但文档令人困惑。我还在 Rosetta Code 上找到了一些椭圆曲线代码. CPAN 上曾经有一个 Crypt::ECDSA，但在某个时候被删除了。

那么，使用 Perl 从私钥获取比特币地址的最佳且快速的方法是什么？

Answer 1

你应该先检查这个:https://github.com/grondilu/libbitcoin-perl - 也许会给你一些想法。