Menu
▾
▴
SF.net SVN: frontierkernel: [1746] ODBs/trunk/frontierRoot/suites/fUnit/ testSuperStress/testCrypt.fvc
|
From: <cre...@us...> - 2007-09-30 23:53:29
|
Revision: 1746
http://frontierkernel.svn.sourceforge.net/frontierkernel/?rev=1746&view=rev
Author: creecode
Date: 2007-09-30 16:53:28 -0700 (Sun, 30 Sep 2007)
Log Message:
-----------
added test for crypt.MD5
reordered bundle in alpha order for easier code browsing
Modified Paths:
--------------
ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testCrypt.fvc
Modified: ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testCrypt.fvc
===================================================================
--- ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testCrypt.fvc 2007-09-30 23:50:39 UTC (rev 1745)
+++ ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testCrypt.fvc 2007-09-30 23:53:28 UTC (rev 1746)
@@ -1,7 +1,10 @@
-FrontierVcsFile:2:scpt:suites.fUnit.testSuperStress.testCrypt
+FrontierVcsFile:3:scpt:suites.fUnit.testSuperStress.testCrypt
on testCrypt () {
«Changes
+ «12/3/06; 11:09:17 AM by TAC
+ «added test for crypt.MD5
+ «reordered bundle in alpha order for easier code browsing
«3/11/06; 4:09:17 PM by TAC
«added test for crypt.SHA1, crypt.hmacSHA1
«3/10/06; 11:30:10 AM by TAC
@@ -12,18 +15,6 @@
assertEqual (crypt.cramMD5 ("tim", "tanstaaftanstaaf", base64.decode ("PDE4OTYuNjk3MTcwOTUyQHBvc3RvZmZpY2UucmVzdG9uLm1jaS5uZXQ+")), "tim b913a602c7eda7a495b4e6e7334d3890", "crypt.cramMD5 is broken")};
- bundle { // crypt.whirlpool
- «see < http://en.wikipedia.org/wiki/WHIRLPOOL >, < http://paginas.terra.com.br/informatica/paulobarreto/WhirlpoolPage.html >
-
- assertEqual (crypt.whirlpool (""), "19fa61d75522a4669b44e39c1d2e1726c530232130d407f89afee0964997f7a73e83be698b288febcf88e3e03c4f0757ea8964e59b63d93708b138cc42a66eb3", "crypt.whirlpool is broken");
- assertEqual (crypt.whirlpool ("a"), "8aca2602792aec6f11a67206531fb7d7f0dff59413145e6973c45001d0087b42d11bc645413aeff63a42391a39145a591a92200d560195e53b478584fdae231a", "crypt.whirlpool is broken");
- assertEqual (crypt.whirlpool ("abc"), "4e2448a4c6f486bb16b6562c73b4020bf3043e3a731bce721ae1b303d97e6d4c7181eebdb6c57e277d0e34957114cbd6c797fc9d95d8b582d225292076d4eef5", "crypt.whirlpool is broken");
- assertEqual (crypt.whirlpool ("message digest"), "378c84a4126e2dc6e56dcc7458377aac838d00032230f53ce1f5700c0ffb4d3b8421557659ef55c106b4b52ac5a4aaa692ed920052838f3362e86dbd37a8903e", "crypt.whirlpool is broken");
- assertEqual (crypt.whirlpool ("abcdefghijklmnopqrstuvwxyz"), "f1d754662636ffe92c82ebb9212a484a8d38631ead4238f5442ee13b8054e41b08bf2a9251c30b6a0b8aae86177ab4a6f68f673e7207865d5d9819a3dba4eb3b", "crypt.whirlpool is broken");
- assertEqual (crypt.whirlpool ("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"), "dc37e008cf9ee69bf11f00ed9aba26901dd7c28cdec066cc6af42e40f82f3a1e08eba26629129d8fb7cb57211b9281a65517cc879d7b962142c65f5a7af01467", "crypt.whirlpool is broken");
- assertEqual (crypt.whirlpool ("12345678901234567890123456789012345678901234567890123456789012345678901234567890"), "466ef18babb0154d25b9d38a6414f5c08784372bccb204d6549c4afadb6014294d5bd8df2a6c44e538cd047b2681a51a2c60481e88c5a20b2c2a80cf3a9a083b", "crypt.whirlpool is broken");
- assertEqual (crypt.whirlpool ("abcdbcdecdefdefgefghfghighijhijk"), "2a987ea40f917061f5d6f0a0e4644f488a7a5a52deee656207c562f988e95c6916bdc8031bc5be1b7b947639fe050b56939baaa0adff9ae6745b7b181c3be3fd", "crypt.whirlpool is broken")};
-
bundle { // crypt.hmacMD5
«see < ftp://ftp.rfc-editor.org/in-notes/rfc2104.txt > for test vectors
@@ -31,6 +22,28 @@
assertEqual (crypt.hmacMD5 ("what do ya want for nothing?", "Jefe"), "750c783e6ab0b503eaa86e310a5db738", "crypt.hmacMD5 is broken");
assertEqual (crypt.hmacMD5 (string.hexStringToBinary ("0xDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"), string.hexStringToBinary ("0xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA")), "56be34521d144c88dbb8c733f0e8b3f6", "crypt.hmacMD5 is broken")};
+ bundle { // crypt.hmacSHA1
+ «see < ftp://ftp.rfc-editor.org/in-notes/rfc2104.txt > for test vectors
+
+ assertEqual (crypt.hmacSHA1 ("Hi There", string.hexStringToBinary ("0x0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b")), "b617318655057264e28bc0b6fb378c8ef146be00", "crypt.hmacSHA1 is broken");
+ assertEqual (crypt.hmacSHA1 ("what do ya want for nothing?", "Jefe"), "effcdf6ae5eb2fa2d27416d5f184df9c259a7c79", "crypt.hmacSHA1 is broken");
+ assertEqual (crypt.hmacSHA1 (string.hexStringToBinary ("0xdddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd"), string.hexStringToBinary ("0xaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa")), "125d7342b9ac11cd91a39af48aa17b4f63f175d3", "crypt.hmacSHA1 is broken");
+ assertEqual (crypt.hmacSHA1 (string.hexStringToBinary ("0xcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcd"), string.hexStringToBinary ("0x0102030405060708090a0b0c0d0e0f10111213141516171819")), "4c9007f4026250c6bc8414f9bf50c86c2d7235da", "crypt.hmacSHA1 is broken");
+ assertEqual (crypt.hmacSHA1 ("Test With Truncation", string.hexStringToBinary ("0x0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c")), "4c1a03424b55e07fe7f27be1d58bb9324a9a5a04", "crypt.hmacSHA1 is broken");
+ assertEqual (crypt.hmacSHA1 ("Test Using Larger Than Block-Size Key - Hash Key First", string.hexStringToBinary ("0xaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa")), "aa4ae5e15272d00e95705637ce8a3b55ed402112", "crypt.hmacSHA1 is broken");
+ assertEqual (crypt.hmacSHA1 ("Test Using Larger Than Block-Size Key and Larger Than One Block-Size Data", string.hexStringToBinary ("0xaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa")), "e8e99d0f45237d786d6bbaa7965c7808bbff1a91", "crypt.hmacSHA1 is broken")};
+
+ bundle { // crypt.MD5
+ «see < http://tools.ietf.org/html/rfc1321> for test vectors
+
+ assertEqual ( crypt.MD5 ( "" ), "d41d8cd98f00b204e9800998ecf8427e", "crypt.MD5 is broken" );
+ assertEqual ( crypt.MD5 ( "a" ), "0cc175b9c0f1b6a831c399e269772661", "crypt.MD5 is broken" );
+ assertEqual ( crypt.MD5 ( "abc" ), "900150983cd24fb0d6963f7d28e17f72", "crypt.MD5 is broken" );
+ assertEqual ( crypt.MD5 ( "message digest" ), "f96b697d7cb7938d525a2f31aaf161d0", "crypt.MD5 is broken" );
+ assertEqual ( crypt.MD5 ( "abcdefghijklmnopqrstuvwxyz" ), "c3fcd3d76192e4007dfb496cca67e13b", "crypt.MD5 is broken" );
+ assertEqual ( crypt.MD5 ( "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" ), "d174ab98d277d9f5a5611c2c9f419d9f", "crypt.MD5 is broken" );
+ assertEqual ( crypt.MD5 ( "12345678901234567890123456789012345678901234567890123456789012345678901234567890" ), "57edf4a22be3c955ac49da2e2107b67a", "crypt.MD5 is broken" )};
+
bundle { // crypt.SHA1
bundle { // < http://en.wikipedia.org/wiki/Sha1#SHA1_hashes >
assertEqual (crypt.SHA1 ("The quick brown fox jumps over the lazy dog"), "2fd4e1c67a2d28fced849ee1bb76e7391b93eb12", "crypt.SHA1 is broken");
@@ -171,15 +184,18 @@
assertEqual (crypt.SHA1 (string.hexStringToBinary (["50408"].Msg)), ["50408"].MD, "crypt.SHA1 is broken");
assertEqual (crypt.SHA1 (string.hexStringToBinary (["51200"].Msg)), ["51200"].MD, "crypt.SHA1 is broken")}}};
- bundle { // crypt.hmacSHA1
- «see < ftp://ftp.rfc-editor.org/in-notes/rfc2104.txt > for test vectors
+ bundle { // crypt.whirlpool
+ «see < http://en.wikipedia.org/wiki/WHIRLPOOL >, < http://paginas.terra.com.br/informatica/paulobarreto/WhirlpoolPage.html >
- assertEqual (crypt.hmacSHA1 ("Hi There", string.hexStringToBinary ("0x0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b")), "b617318655057264e28bc0b6fb378c8ef146be00", "crypt.hmacSHA1 is broken");
- assertEqual (crypt.hmacSHA1 ("what do ya want for nothing?", "Jefe"), "effcdf6ae5eb2fa2d27416d5f184df9c259a7c79", "crypt.hmacSHA1 is broken");
- assertEqual (crypt.hmacSHA1 (string.hexStringToBinary ("0xdddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd"), string.hexStringToBinary ("0xaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa")), "125d7342b9ac11cd91a39af48aa17b4f63f175d3", "crypt.hmacSHA1 is broken");
- assertEqual (crypt.hmacSHA1 (string.hexStringToBinary ("0xcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcd"), string.hexStringToBinary ("0x0102030405060708090a0b0c0d0e0f10111213141516171819")), "4c9007f4026250c6bc8414f9bf50c86c2d7235da", "crypt.hmacSHA1 is broken");
- assertEqual (crypt.hmacSHA1 ("Test With Truncation", string.hexStringToBinary ("0x0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c")), "4c1a03424b55e07fe7f27be1d58bb9324a9a5a04", "crypt.hmacSHA1 is broken");
- assertEqual (crypt.hmacSHA1 ("Test Using Larger Than Block-Size Key - Hash Key First", string.hexStringToBinary ("0xaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa")), "aa4ae5e15272d00e95705637ce8a3b55ed402112", "crypt.hmacSHA1 is broken");
- assertEqual (crypt.hmacSHA1 ("Test Using Larger Than Block-Size Key and Larger Than One Block-Size Data", string.hexStringToBinary ("0xaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa")), "e8e99d0f45237d786d6bbaa7965c7808bbff1a91", "crypt.hmacSHA1 is broken")}};
+ assertEqual (crypt.whirlpool (""), "19fa61d75522a4669b44e39c1d2e1726c530232130d407f89afee0964997f7a73e83be698b288febcf88e3e03c4f0757ea8964e59b63d93708b138cc42a66eb3", "crypt.whirlpool is broken");
+ assertEqual (crypt.whirlpool ("a"), "8aca2602792aec6f11a67206531fb7d7f0dff59413145e6973c45001d0087b42d11bc645413aeff63a42391a39145a591a92200d560195e53b478584fdae231a", "crypt.whirlpool is broken");
+ assertEqual (crypt.whirlpool ("abc"), "4e2448a4c6f486bb16b6562c73b4020bf3043e3a731bce721ae1b303d97e6d4c7181eebdb6c57e277d0e34957114cbd6c797fc9d95d8b582d225292076d4eef5", "crypt.whirlpool is broken");
+ assertEqual (crypt.whirlpool ("message digest"), "378c84a4126e2dc6e56dcc7458377aac838d00032230f53ce1f5700c0ffb4d3b8421557659ef55c106b4b52ac5a4aaa692ed920052838f3362e86dbd37a8903e", "crypt.whirlpool is broken");
+ assertEqual (crypt.whirlpool ("abcdefghijklmnopqrstuvwxyz"), "f1d754662636ffe92c82ebb9212a484a8d38631ead4238f5442ee13b8054e41b08bf2a9251c30b6a0b8aae86177ab4a6f68f673e7207865d5d9819a3dba4eb3b", "crypt.whirlpool is broken");
+ assertEqual (crypt.whirlpool ("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"), "dc37e008cf9ee69bf11f00ed9aba26901dd7c28cdec066cc6af42e40f82f3a1e08eba26629129d8fb7cb57211b9281a65517cc879d7b962142c65f5a7af01467", "crypt.whirlpool is broken");
+ assertEqual (crypt.whirlpool ("12345678901234567890123456789012345678901234567890123456789012345678901234567890"), "466ef18babb0154d25b9d38a6414f5c08784372bccb204d6549c4afadb6014294d5bd8df2a6c44e538cd047b2681a51a2c60481e88c5a20b2c2a80cf3a9a083b", "crypt.whirlpool is broken");
+ assertEqual (crypt.whirlpool ("abcdbcdecdefdefgefghfghighijhijk"), "2a987ea40f917061f5d6f0a0e4644f488a7a5a52deee656207c562f988e95c6916bdc8031bc5be1b7b947639fe050b56939baaa0adff9ae6745b7b181c3be3fd", "crypt.whirlpool is broken")}};
-callScript (@fUnit.testSuperStress.testCrypt, {}, @fUnit.contextForTests)
\ No newline at end of file
+callScript (@fUnit.testSuperStress.testCrypt, {}, @fUnit.contextForTests)
+
+
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
