Jeff Zhang


MicroECC - Perl wrapper for the micro-ecc ECDH and ECDSA library


  use MicroECC;
  use Digest::SHA qw/sha1 sha256/;

  #curves: secp160r1 secp192r1 secp224r1 secp256r1 secp256k1
  my $curve = MicroECC::secp160r1();
  printf "Public key size: %d, private key size: %d.\n", 
          MicroECC::curve_public_key_size($curve), MicroECC::curve_private_key_size($curve);

  my ($pubkey, $privkey) = MicroECC::make_key($curve);
  if(!MicroECC::valid_public_key($pubkey, $curve)){
          print "Invalid public key.\n";
  else {
          print "Valid public key.\n";

  # make shared secret with other people's public key.
  my $shared_secret = MicroECC::shared_secret($your_pubkey, $privkey);

  my $compute_pubkey = MicroECC::compute_public_key($privkey, $curve);
  if($compute_pubkey ne $pubkey) {
          print "Invalid compute pubkey.\n";
  else {
          print "Public key compute success.\n";

  my $message = "Coming soon: 14 Asia hotels we can't wait to check into in 2019";
  my $message_hash = sha256($message);
  my $signature = MicroECC::sign($privkey, $message_hash, $curve);
  printf "Signature: %s\n", unpack('H*', $signature);
  if(!MicroECC::verify($pubkey, $message_hash, $signature, $curve)) {
          print "Verify failed.\n";
  else {
          print "Verify success.\n";


This is the perl wrapper for the micro-ecc library ( ECDH and ECDSA for 8-bit, 32-bit, and 64-bit processors.


None by default.


Jeff Zhang, <>


Copyright (C) 2019 by Jeff Zhang

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.16.1 or, at your option, any later version of Perl 5 you may have available.