j806 j engine supports various sha, both hex and byte output.
On Dec 22, 2017 4:51 PM, "Danil Osipchuk" <[email protected]> wrote:
> Below is a snippet I used to sign files with md5hmac, may be of some use.
> (I envy people easily reading other's J, I have difficulties reading mine a
> while later )
> regards,
> Danil
>
>
> qthash =: 4 : 0 NB. taken from qt ide, x is hash
> algo name str, y is a data string, result is hex string of hash
> c=.'"',libjqt,'" gethash ',(IFWIN#'+'),' i *c *c i * *i'
> 'r t m w p n'=. c cd (tolower x);y;(#y);(,2);,0
> res=. memr p,0,n
> if. r do. res (13!:8) 3 end.
> res
> )
> bfh=:a.{~_2(16&#.)\'0123456789abcdef'i.] NB. bytes from hex string
> (lowercase) (253*254)-:bfh 'fefc'
> md5b=: [:bfh 'md5'&qthash NB. libjqt returns hex string as a
> hash - convert it to bytes
> hmac =: 1 : 0 NB. m is a key data, return verb
> computing md5-based signature for y
> if. 64<#m do. k=.md5b m else.k=.m end. NB. if m is longer than pad
> (64 - block of md5) use md5 hash as a key
> kb=.64{.a.i.k NB. extend to 64 the key pad data
> with zero bytes
> 'i o'=.a.{~16b36 16b5c (22 b.)"0 1 kb NB. compute input and output
> pads from the key bytes
> md5b o, md5b i,y NB. calculate the final signature as in
> wikipedia
> )
> md5SgnDir =: 3 : 0 NB. sign like CryproSign.jar: md5SgnDir
> (<;._1)' ../sandbox *.cdr .md5 ../z/sssti_m7ium1_2016-05-25/
> crypto/key.txt'
> 'dr ms ex kf'=. y NB. directory name, mask of the filename,
> extension added to md5 sign file, key file name
> mk=.(fread kf)hmac NB. load a keyfile into a verb for
> computing signature
> ((mk@:fread"0)fwrite"1 0(,&ex&.>"0))dr fdls ms NB. calculate the
> signature of the content of each file and write to extended name
> )
>
> 2017-12-22 4:32 GMT+03:00 bill lam <[email protected]>:
>
> > if possible, please provide some examples or tests and I will add them to
> > addons. Thanks
> > ----------------------------------------------------------------------
> > For information about J forums see http://www.jsoftware.com/forums.htm
> >
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
