steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unbackwardsify hmac keys

db4
Doug Coleman 2009-05-26 17:46:41 -05:00
parent 1bc39df838
commit 38a8e80ba9
2 changed files with 21 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
basis/checksums/hmac/hmac-tests.factor
View File

@ -6,43 +6,43 @@ IN: checksums.hmac.tests
[ [
"\u000092\u000094rz68\u0000bb\u00001c\u000013\u0000f4\u00008e\u0000f8\u000015\u00008b\u0000fc\u00009d" "\u000092\u000094rz68\u0000bb\u00001c\u000013\u0000f4\u00008e\u0000f8\u000015\u00008b\u0000fc\u00009d"
] [ ] [
16 11 <string> "Hi There" md5 hmac-bytes >string ] unit-test "Hi There" 16 11 <string> md5 hmac-bytes >string ] unit-test
[ "u\u00000cx>j\u0000b0\u0000b5\u000003\u0000ea\u0000a8n1\n]\u0000b78" ] [ "u\u00000cx>j\u0000b0\u0000b5\u000003\u0000ea\u0000a8n1\n]\u0000b78" ]
[ "Jefe" "what do ya want for nothing?" md5 hmac-bytes >string ] unit-test [ "what do ya want for nothing?" "Jefe" md5 hmac-bytes >string ] unit-test
[ [
"V\u0000be4R\u00001d\u000014L\u000088\u0000db\u0000b8\u0000c73\u0000f0\u0000e8\u0000b3\u0000f6" "V\u0000be4R\u00001d\u000014L\u000088\u0000db\u0000b8\u0000c73\u0000f0\u0000e8\u0000b3\u0000f6"
] ]
[ [
16 HEX: aa <string> 50 HEX: dd <repetition>
50 HEX: dd <repetition> md5 hmac-bytes >string 16 HEX: aa <string> md5 hmac-bytes >string
] unit-test ] unit-test
[ [
"g[\u00000b:\eM\u0000dfN\u000012Hr\u0000dal/c+\u0000fe\u0000d9W\u0000e9" "g[\u00000b:\eM\u0000dfN\u000012Hr\u0000dal/c+\u0000fe\u0000d9W\u0000e9"
] [ ] [
16 11 <string> "Hi There" sha1 hmac-bytes >string "Hi There" 16 11 <string> sha1 hmac-bytes >string
] unit-test ] unit-test
[ [
"\u0000ef\u0000fc\u0000dfj\u0000e5\u0000eb/\u0000a2\u0000d2t\u000016\u0000d5\u0000f1\u000084\u0000df\u00009c%\u00009a|y" "\u0000ef\u0000fc\u0000dfj\u0000e5\u0000eb/\u0000a2\u0000d2t\u000016\u0000d5\u0000f1\u000084\u0000df\u00009c%\u00009a|y"
] [ ] [
"Jefe" "what do ya want for nothing?" sha1 hmac-bytes >string "what do ya want for nothing?" "Jefe" sha1 hmac-bytes >string
] unit-test ] unit-test
[ [
"\u0000d70YM\u000016~5\u0000d5\u000095o\u0000d8\0=\r\u0000b3\u0000d3\u0000f4m\u0000c7\u0000bb" "\u0000d70YM\u000016~5\u0000d5\u000095o\u0000d8\0=\r\u0000b3\u0000d3\u0000f4m\u0000c7\u0000bb"
] [ ] [
16 HEX: aa <string> 50 HEX: dd <repetition>
50 HEX: dd <repetition> sha1 hmac-bytes >string 16 HEX: aa <string> sha1 hmac-bytes >string
] unit-test ] unit-test
[ "b0344c61d8db38535ca8afceaf0bf12b881dc200c9833da726e9376c2e32cff7" ] [ "b0344c61d8db38535ca8afceaf0bf12b881dc200c9833da726e9376c2e32cff7" ]
[ 20 HEX: b <string> "Hi There" sha-256 hmac-bytes hex-string ] unit-test [ "Hi There" 20 HEX: b <string> sha-256 hmac-bytes hex-string ] unit-test
[ "167f928588c5cc2eef8e3093caa0e87c9ff566a14794aa61648d81621a2a40c6" ] [ "167f928588c5cc2eef8e3093caa0e87c9ff566a14794aa61648d81621a2a40c6" ]
[ [
"JefeJefeJefeJefeJefeJefeJefeJefe" "what do ya want for nothing?"
"what do ya want for nothing?" sha-256 hmac-bytes hex-string "JefeJefeJefeJefeJefeJefeJefeJefe" sha-256 hmac-bytes hex-string
] unit-test ] unit-test

21
basis/checksums/hmac/hmac.factor
View File

@ -13,27 +13,26 @@ IN: checksums.hmac
: ipad ( checksum-state -- seq ) block-size>> HEX: 36 <array> ; : ipad ( checksum-state -- seq ) block-size>> HEX: 36 <array> ;
:: init-K ( K checksum checksum-state -- o i ) :: init-key ( checksum key checksum-state -- o i )
checksum-state block-size>> K length < checksum-state block-size>> key length <
[ K checksum checksum-bytes ] [ K ] if [ key checksum checksum-bytes ] [ key ] if
checksum-state block-size>> 0 pad-tail checksum-state block-size>> 0 pad-tail
[ checksum-state opad seq-bitxor ] [ checksum-state opad seq-bitxor ]
[ checksum-state ipad seq-bitxor ] bi ; [ checksum-state ipad seq-bitxor ] bi ;
PRIVATE> PRIVATE>
:: hmac-stream ( K stream checksum -- value ) :: hmac-stream ( stream key checksum -- value )
K checksum dup initialize-checksum-state checksum initialize-checksum-state :> checksum-state
dup :> checksum-state checksum key checksum-state init-key :> Ki :> Ko
init-K :> Ki :> Ko
checksum-state Ki add-checksum-bytes checksum-state Ki add-checksum-bytes
stream add-checksum-stream get-checksum stream add-checksum-stream get-checksum
checksum initialize-checksum-state checksum initialize-checksum-state
Ko add-checksum-bytes swap add-checksum-bytes Ko add-checksum-bytes swap add-checksum-bytes
get-checksum ; get-checksum ;
: hmac-file ( K path checksum -- value ) : hmac-file ( path key checksum -- value )
[ binary <file-reader> ] dip hmac-stream ; [ binary <file-reader> ] 2dip hmac-stream ;
: hmac-bytes ( K seq checksum -- value ) : hmac-bytes ( seq key checksum -- value )
[ binary <byte-reader> ] dip hmac-stream ; [ binary <byte-reader> ] 2dip hmac-stream ;