2008-03-08 03:51:26 -05:00
|
|
|
USING: kernel io strings byte-arrays sequences namespaces math
|
|
|
|
|
parser crypto.hmac tools.test ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: crypto.hmac.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2009-05-01 00:46:37 -04:00
|
|
|
[
|
|
|
|
|
"\u000092\u000094rz68\u0000bb\u00001c\u000013\u0000f4\u00008e\u0000f8\u000015\u00008b\u0000fc\u00009d"
|
|
|
|
|
] [
|
|
|
|
|
16 11 <string> "Hi There" sequence>md5-hmac >string ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2009-05-01 00:46:37 -04:00
|
|
|
[ "u\u00000cx>j\u0000b0\u0000b5\u000003\u0000ea\u0000a8n1\n]\u0000b78" ]
|
|
|
|
|
[ "Jefe" "what do ya want for nothing?" sequence>md5-hmac >string ] unit-test
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
"V\u0000be4R\u00001d\u000014L\u000088\u0000db\u0000b8\u0000c73\u0000f0\u0000e8\u0000b3\u0000f6"
|
|
|
|
|
]
|
|
|
|
|
[
|
|
|
|
|
16 HEX: aa <string>
|
|
|
|
|
50 HEX: dd <repetition> sequence>md5-hmac >string
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
"g[\u00000b:\eM\u0000dfN\u000012Hr\u0000dal/c+\u0000fe\u0000d9W\u0000e9"
|
|
|
|
|
] [
|
|
|
|
|
16 11 <string> "Hi There" sequence>sha1-hmac >string
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
"\u0000ef\u0000fc\u0000dfj\u0000e5\u0000eb/\u0000a2\u0000d2t\u000016\u0000d5\u0000f1\u000084\u0000df\u00009c%\u00009a|y"
|
|
|
|
|
] [
|
|
|
|
|
"Jefe" "what do ya want for nothing?" sequence>sha1-hmac >string
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
"\u0000d70YM\u000016~5\u0000d5\u000095o\u0000d8\0=\r\u0000b3\u0000d3\u0000f4m\u0000c7\u0000bb"
|
|
|
|
|
] [
|
|
|
|
|
16 HEX: aa <string>
|
|
|
|
|
50 HEX: dd <repetition> sequence>sha1-hmac >string
|
|
|
|
|
] unit-test
|
