Topic: Perl Private Key -> Public Address (Read 1444 times)

$ grep -r BN_init /usr/include/openssl/
/usr/include/openssl/bn.h:void	BN_init(BIGNUM *);

$ dpkg -l |grep ssl.*dev
ii  libssl-dev                        1.0.1e-2+deb7u15      amd64                 SSL development libraries, header files and documentation
ii  libssl-doc                        1.0.1e-2+deb7u15      all                   SSL development documentation documentation

#!/usr/bin/perl

use strict;
use warnings;
use Digest::SHA qw/sha256/;
use Crypt::Digest::RIPEMD160 qw/ripemd160/;
use Encode::Base58::GMP;
use Inline C => Config => LIBS => '-lssl';
use Inline C => <<'END_OF_C_CODE';
#include 
#include 
#include 
#include 
#include 

#define NID_secp256k1       714

SV* get_pubkey (char *pk) {
    EC_KEY *k = NULL;
    EC_POINT *pub_key = NULL;
    const EC_GROUP *group = NULL;
    BIGNUM start;
    BIGNUM *priv_key;
    BN_CTX *ctx;

    BN_init(&start);
    ctx = BN_CTX_new();
    assert(ctx);

    priv_key = &start;
    BN_hex2bn(&priv_key,pk);

    k = EC_KEY_new_by_curve_name(NID_secp256k1); assert(k);
    group = EC_KEY_get0_group(k); assert(group);
    pub_key = EC_POINT_new(group); assert(pub_key);
    assert(EC_POINT_mul(group, pub_key, priv_key, NULL, NULL, ctx)); assert(pub_key);

    char *hex = EC_POINT_point2hex(group, pub_key, POINT_CONVERSION_UNCOMPRESSED, ctx);
    SV *hex_copy = newSVpvf("%s", hex);
    OPENSSL_free(hex);

    return hex_copy;
}
END_OF_C_CODE

sub base58_gmp_to_btc {
    my ($base58) = @_; 
    $base58 =~ y|0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuv|123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz|;
    return $base58;
}

sub b58_gmp {
    my ($str) = @_; 
    return base58_gmp_to_btc encode_base58 "0x$str", 'gmp';
}

sub checksum { return uc unpack 'H8', sha256 sha256 pack 'H*', shift }

sub hash160 { return unpack 'H*', ripemd160 sha256 pack 'H*', shift; }

my @leaders; @leaders[0,5] = (1, 3); 
sub b58ck {
    my ($ver, $str) = @_; 
    my $cksum = checksum "$ver$str";

    "$ver$str$cksum" =~ /^(0*)/;
    my $num_leading_0s = int +(length $1)/2;

    my $b58c = sprintf "%34s", b58_gmp  "$ver$str$cksum";

    my $b58 = $b58c;
    $b58 =~ s/ //g;
    $b58 = sprintf "%s$b58", $leaders[$ver]x$num_leading_0s;

    return $b58;
}

my $privkey = '1900966ca8703f337ad2c191718af367a04a1929685fe17e4b7fa3e1b9dd6d2d';  ## change me!
my $pubkey = get_pubkey $privkey;
my $h160 = hash160 $pubkey;
my $addr = b58ck '00', $h160;
print <<"EOF";
privkey $privkey
pubkey $pubkey
h160 $h160
addr $addr
EOF

import ecdsa

secp256k1curve=ecdsa.ellipticcurve.CurveFp(115792089237316195423570985008687907853269984665640564039457584007908834671663,0,7)
secp256k1point=ecdsa.ellipticcurve.Point(secp256k1curve,0x79BE667EF9DCBBAC55A06295CE870B07029BFCDB2DCE28D959F2815B16F81798,0x483ADA7726A3C4655DA4FBFC0E1108A8FD17B448A68554199C47D08FFB10D4B8,0xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEBAAEDCE6AF48A03BBFD25E8CD0364141)
secp256k1=ecdsa.curves.Curve('secp256k1',secp256k1curve,secp256k1point,(1,3,132,0,10))

#--------------------------------------

import binascii, hashlib

def addy(pk):
 pko=ecdsa.SigningKey.from_secret_exponent(pk,secp256k1)
 pubkey=binascii.hexlify(pko.get_verifying_key().to_string())
 pubkey2=hashlib.sha256(binascii.unhexlify('04'+pubkey)).hexdigest()
 pubkey3=hashlib.new('ripemd160',binascii.unhexlify(pubkey2)).hexdigest()
 pubkey4=hashlib.sha256(binascii.unhexlify('00'+pubkey3)).hexdigest()
 pubkey5=hashlib.sha256(binascii.unhexlify(pubkey4)).hexdigest()
 pubkey6=pubkey3+pubkey5[:8]
 pubnum=int(pubkey6,16)
 pubnumlist=[]
 while pubnum!=0: pubnumlist.append(pubnum%58); pubnum/=58
 address=''
 for l in ['123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz'[x] for x in pubnumlist]:
  address=l+address
 return '1'+address
 
print addy(0x18E14A7B6A307F426A94F8114701E7C8E774E7F9A47E2C2035DB29A206321725)
print addy(int(hashlib.sha256('something small and easy to remember but not easy to guess').hexdigest(),16))