Re^3: Signed Long Hash

Update: Although I do not receive the same result - are you sure about the input and output?

use strict;
use warnings;
use MIME::Base64 'encode_base64';

use Test::More tests => 1;

is (encode_base64((pack 'q', -281581062704388899), ''), '/Befg+4HJN0')
+;
[download]

gives '3SQH7oOfF/w=' instead.

Comment on Re^3: Signed Long Hash Download Code

Replies are listed 'Best First'.
Re^4: Signed Long Hash by breezykatt (Acolyte) on Jun 15, 2017 at 18:14 UTC
Thanks. What I was trying to do was something similar, but this might not yield the same results to what i'm trying to achieve? I thought I had to convert the value to an array of bytes first and then convert that to base64. Something like: `$signed="-281581062704388899"; $bits = unpack("B", pack("N", $signed)); $base64 = encode_base64(pack("B", $bits), ""); #or $base64 = encode_base64($bits);` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Signed Long Hash
by breezykatt (Acolyte) on Jun 15, 2017 at 18:14 UTC

$signed="-281581062704388899";
$bits = unpack("B*", pack("N", $signed));
$base64 = encode_base64(pack("B*", $bits), "");
#or
$base64 = encode_base64($bits);
[download]

[reply]
[d/l]