summaryrefslogtreecommitdiff
path: root/packages/hash/tests
diff options
context:
space:
mode:
Diffstat (limited to 'packages/hash/tests')
-rw-r--r--packages/hash/tests/tests.pp16
-rw-r--r--packages/hash/tests/testshmac.pas269
2 files changed, 285 insertions, 0 deletions
diff --git a/packages/hash/tests/tests.pp b/packages/hash/tests/tests.pp
new file mode 100644
index 0000000000..b86d48352e
--- /dev/null
+++ b/packages/hash/tests/tests.pp
@@ -0,0 +1,16 @@
+program tests;
+
+{$mode objfpc}
+
+uses
+ consoletestrunner, TestsHMAC, HMAC;
+
+var
+ Application: TTestRunner;
+begin
+ Application := TTestRunner.Create(nil);
+ Application.Initialize;
+ Application.Run;
+ Application.Free;
+end.
+
diff --git a/packages/hash/tests/testshmac.pas b/packages/hash/tests/testshmac.pas
new file mode 100644
index 0000000000..a69387d839
--- /dev/null
+++ b/packages/hash/tests/testshmac.pas
@@ -0,0 +1,269 @@
+// See all test cases in: http://tools.ietf.org/html/rfc2202
+
+unit TestsHMAC;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ HMAC, FPCUnit, TestRegistry;
+
+type
+
+ { TTestHMACMD5 }
+
+ TTestHMACMD5 = class(TTestCase)
+ published
+ {
+ test_case = 1
+ key = 0x0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b
+ key_len = 16
+ data = "Hi There"
+ data_len = 8
+ digest = 0x9294727a3638bb1c13f48ef8158bfc9d
+ }
+ procedure Test1;
+ {
+ test_case = 2
+ key = "Jefe"
+ key_len = 4
+ data = "what do ya want for nothing?"
+ data_len = 28
+ digest = 0x750c783e6ab0b503eaa86e310a5db738
+ }
+ procedure Test2;
+ {
+ test_case = 3
+ key = 0xaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+ key_len 16
+ data = 0xdd repeated 50 times
+ data_len = 50
+ digest = 0x56be34521d144c88dbb8c733f0e8b3f6
+ }
+ procedure Test3;
+ {
+ test_case = 4
+ key = 0x0102030405060708090a0b0c0d0e0f10111213141516171819
+ key_len 25
+ data = 0xcd repeated 50 times
+ data_len = 50
+ digest = 0x697eaf0aca3a3aea3a75164746ffaa79
+ }
+ procedure Test4;
+ {
+ test_case = 5
+ key = 0x0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c
+ key_len = 16
+ data = "Test With Truncation"
+ data_len = 20
+ digest = 0x56461ef2342edc00f9bab995690efd4c
+ digest-96 0x56461ef2342edc00f9bab995
+ }
+ procedure Test5;
+ {
+ test_case = 6
+ key = 0xaa repeated 80 times
+ key_len = 80
+ data = "Test Using Larger Than Block-Size Key - Hash Key First"
+ data_len = 54
+ digest = 0xaa4ae5e15272d00e95705637ce8a3b55ed402112
+ }
+ procedure Test6;
+ {
+ test_case = 7
+ key = 0xaa repeated 80 times
+ key_len = 80
+ data = "Test Using Larger Than Block-Size Key and Larger
+ Than One Block-Size Data"
+ data_len = 73
+ digest = 0x6f630fad67cda0ee1fb1f562db3aa53e
+ }
+ procedure Test7;
+ end;
+
+ { TTestHMACSHA1 }
+
+ TTestHMACSHA1 = class(TTestCase)
+ published
+ {
+ test_case = 1
+ key = 0x0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b
+ key_len = 20
+ data = "Hi There"
+ data_len = 8
+ digest = 0xb617318655057264e28bc0b6fb378c8ef146be00
+ }
+ procedure Test1;
+ {
+ test_case = 2
+ key = "Jefe"
+ key_len = 4
+ data = "what do ya want for nothing?"
+ data_len = 28
+ digest = 0xeffcdf6ae5eb2fa2d27416d5f184df9c259a7c79
+ }
+ procedure Test2;
+ {
+ test_case = 3
+ key = 0xaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+ key_len = 20
+ data = 0xdd repeated 50 times
+ data_len = 50
+ digest = 0x125d7342b9ac11cd91a39af48aa17b4f63f175d3
+ }
+ procedure Test3;
+ {
+ test_case = 4
+ key = 0x0102030405060708090a0b0c0d0e0f10111213141516171819
+ key_len = 25
+ data = 0xcd repeated 50 times
+ data_len = 50
+ digest = 0x4c9007f4026250c6bc8414f9bf50c86c2d7235da
+ }
+ procedure Test4;
+ {
+ test_case = 5
+ key = 0x0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c
+ key_len = 20
+ data = "Test With Truncation"
+ data_len = 20
+ digest = 0x4c1a03424b55e07fe7f27be1d58bb9324a9a5a04
+ digest-96 = 0x4c1a03424b55e07fe7f27be1
+ }
+ procedure Test5;
+ {
+ test_case = 6
+ key = 0xaa repeated 80 times
+ key_len = 80
+ data = "Test Using Larger Than Block-Size Key - Hash Key First"
+ data_len = 54
+ digest = 0xaa4ae5e15272d00e95705637ce8a3b55ed402112
+ }
+ procedure Test6;
+ {
+ test_case = 7
+ key = 0xaa repeated 80 times
+ key_len = 80
+ data = "Test Using Larger Than Block-Size Key and Larger
+ Than One Block-Size Data"
+ data_len = 73
+ digest = 0xe8e99d0f45237d786d6bbaa7965c7808bbff1a91
+ data_len = 20
+ digest = 0x4c1a03424b55e07fe7f27be1d58bb9324a9a5a04
+ digest-96 = 0x4c1a03424b55e07fe7f27be1
+ }
+ procedure Test7;
+ end;
+
+implementation
+
+{ TTestHMACMD5 }
+
+procedure TTestHMACMD5.Test1;
+begin
+ AssertEquals('9294727a3638bb1c13f48ef8158bfc9d',
+ HMACMD5(StringOfChar(#$0b, 16), 'Hi There'));
+end;
+
+procedure TTestHMACMD5.Test2;
+begin
+ AssertEquals('750c783e6ab0b503eaa86e310a5db738', HMACMD5('Jefe',
+ 'what do ya want for nothing?'));
+end;
+
+procedure TTestHMACMD5.Test3;
+begin
+ AssertEquals('56be34521d144c88dbb8c733f0e8b3f6',
+ HMACMD5(StringOfChar(#$aa, 16), StringOfChar(#$dd, 50)));
+end;
+
+procedure TTestHMACMD5.Test4;
+begin
+ AssertEquals('697eaf0aca3a3aea3a75164746ffaa79', HMACMD5(#$01+#$02+#$03+#$04+
+ #$05+#$06+#$07+#$08+#$09+#$0a+#$0b+#$0c+#$0d+#$0e+#$0f+#$10+#$11+#$12+#$13+
+ #$14+#$15+#$16+#$17+#$18+#$19, StringOfChar(#$cd, 50)));
+end;
+
+procedure TTestHMACMD5.Test5;
+var
+ S: string;
+begin
+ S := HMACMD5(StringOfChar(#$0c, 16), 'Test With Truncation');
+ AssertEquals('56461ef2342edc00f9bab995690efd4c', S);
+ SetLength(S, 24);
+ AssertEquals('56461ef2342edc00f9bab995', S);
+end;
+
+procedure TTestHMACMD5.Test6;
+begin
+ AssertEquals('6b1ab7fe4bd7bf8f0b62e6ce61b9d0cd',
+ HMACMD5(StringOfChar(#$aa, 80),
+ 'Test Using Larger Than Block-Size Key - Hash Key First'));
+end;
+
+procedure TTestHMACMD5.Test7;
+begin
+ AssertEquals('6f630fad67cda0ee1fb1f562db3aa53e',
+ HMACMD5(StringOfChar(#$aa, 80),
+ 'Test Using Larger Than Block-Size Key and Larger Than One Block-Size Data'));
+end;
+
+{ TTestHMACSHA1 }
+
+procedure TTestHMACSHA1.Test1;
+begin
+ AssertEquals('b617318655057264e28bc0b6fb378c8ef146be00',
+ HMACSHA1(StringOfChar(#$0b, 20), 'Hi There'));
+end;
+
+procedure TTestHMACSHA1.Test2;
+begin
+ AssertEquals('effcdf6ae5eb2fa2d27416d5f184df9c259a7c79', HMACSHA1('Jefe',
+ 'what do ya want for nothing?'));
+end;
+
+procedure TTestHMACSHA1.Test3;
+begin
+ AssertEquals('125d7342b9ac11cd91a39af48aa17b4f63f175d3',
+ HMACSHA1(StringOfChar(#$aa, 20), StringOfChar(#$dd, 50)));
+end;
+
+procedure TTestHMACSHA1.Test4;
+begin
+ AssertEquals('4c9007f4026250c6bc8414f9bf50c86c2d7235da',
+ HMACSHA1(#$01+#$02+#$03+#$04+#$05+#$06+#$07+#$08+#$09+#$0a+#$0b+#$0c+#$0d+
+ #$0e+#$0f+#$10+#$11+#$12+#$13+#$14+#$15+#$16+#$17+#$18+#$19,
+ StringOfChar(#$cd, 50)));
+end;
+
+procedure TTestHMACSHA1.Test5;
+var
+ S: string;
+begin
+ S := HMACSHA1(StringOfChar(#$0c, 20), 'Test With Truncation');
+ AssertEquals('4c1a03424b55e07fe7f27be1d58bb9324a9a5a04', S);
+ SetLength(S, 24);
+ AssertEquals('4c1a03424b55e07fe7f27be1', S);
+end;
+
+procedure TTestHMACSHA1.Test6;
+begin
+ AssertEquals('aa4ae5e15272d00e95705637ce8a3b55ed402112',
+ HMACSHA1(StringOfChar(#$aa, 80),
+ 'Test Using Larger Than Block-Size Key - Hash Key First'));
+end;
+
+procedure TTestHMACSHA1.Test7;
+begin
+ AssertEquals('e8e99d0f45237d786d6bbaa7965c7808bbff1a91',
+ HMACSHA1(StringOfChar(#$aa, 80),
+ 'Test Using Larger Than Block-Size Key and Larger Than One Block-Size Data'));
+end;
+
+initialization
+ RegisterTest(TTestHMACMD5);
+ RegisterTest(TTestHMACSHA1);
+
+end.
+
View Lorry Controller Status