Select Code to Download

use Digest::MD5 ;
my $id = '213455' ;
# WARNING: this is the third password any cracker would guess, don't r
+eally use it.
my $secret = 'open sesame' ;
my $mac = Digest::MD5::md5_hex ("${id}${secret}") ;