editbox:
//bset &v 128 1 | noop $sha1(&v,1) | echo -a $bvar(&v,1-)
//bset &v 128 1 | noop $hmac(&v,key,sha1,1) | echo -a $bvar(&v,1-)
alias test_sha1_hmac_binvar {
var %i 0 , %c 3 , %hash , %size 256 | echo -a ===== length %size
bset &v %size 0
; first block not corrupted by being non-0x00's
bset &v 1 $regsubex($str(x,64),/x/g,$calc(\n -1) $chr(32))
; changing the next line from 1 to 0 means that block will not become corrupted
bset &v 65 1
while (%i < 3) {
echo %c -a after $ord(%i) hash $bvar(&v,1-) hash: %hash
if (%size >= 1) echo -a offset $v2 -> $bvar(&v,$v2,64)
if (%size >= 65) echo -a offset $v2 -> $bvar(&v,$v2,64)
if (%size >= 129) echo -a offset $v2 -> $bvar(&v,$v2,64)
if (%size >= 193) echo -a offset $v2 -> $bvar(&v,$v2,64)
; trade hashes $hmac vs $sha1 produces identical results
var %hash $sha1(&v,1)
; var %hash $hmac(&v,key,sha1,1)
var %c 7 - %c , %i %i + 1
}
}