#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

use Modern::Perl;

use Digest::SHA qw(  sha1 sha1_hex sha1_base64 hmac_sha1 hmac_sha1_hex hmac_sha1_base64 );

my $var = 'A10000009296F2';

say "hmac_sha1: " . hmac_sha1($var);
say "hmac_sha1_hex: " . hmac_sha1_hex($var);
say "hmac_sha1_bae_64: " . hmac_sha1_base64($var);
say "sha1: " . sha1($var);
say "sha1_hex: " . sha1_hex($var);
say "sha1_base64: " . sha1_base64($var);
say "orig var: " . $var;


##</code><code>##

import hashlib
 
mid = 'A10000009296F2'.upper()
 
s = hashlib.sha1(mid.decode('hex'))

print s.hexdigest()