User:Pedro Oval/Base64 HMAC MD5 - Revision history

Pedro Oval: to

2015-01-24T04:28:58Z

← Older revision		Revision as of 21:28, 23 January 2015
Line 13:		Line 13:
	All test cases pass with both LSO and Mono.		All test cases pass with both LSO and Mono.

	<~~lsl~~>		<source lang="lsl2">
	string HexToBase64Unpadded(string a)		string HexToBase64Unpadded(string a)
	{		{
Line 289:		Line 289:
	}		}
	}		}
	</~~lsl~~>		</source>

Pedro Oval: Add empty strings test vector

2011-03-07T02:25:24Z

Add empty strings test vector

← Older revision		Revision as of 19:25, 6 March 2011
Line 261:		Line 261:
	test_vector_MD5("blah", "MTIzAAA=", "9c196ba2c2dc1fa610800fd026e3f405"); // "123\0\0"		test_vector_MD5("blah", "MTIzAAA=", "9c196ba2c2dc1fa610800fd026e3f405"); // "123\0\0"
	test_vector_MD5("blah", "MTIzAAAA", "a0331f1846fa6937347e62ec7414ee43"); // "123\0\0\0"		test_vector_MD5("blah", "MTIzAAAA", "a0331f1846fa6937347e62ec7414ee43"); // "123\0\0\0"

			// Test vector added by the author
			test_vector_MD5("", "", "74e6f7298a9c2d168935f58c001bad88");

	// Test vectors added by the author to check for corner cases with the padding.		// Test vectors added by the author to check for corner cases with the padding.

Pedro Oval: Small optimization

2011-03-06T19:20:09Z

Small optimization

← Older revision		Revision as of 12:20, 6 March 2011
Line 112:		Line 112:
	while(64 > (round = -~round));		while(64 > (round = -~round));
	// llOwnerSay(llList2CSV(x));		// llOwnerSay(llList2CSV(x));
	~~H1 += A;~~
	~~H2 += B;~~
	~~H3 += C;~~
	~~H4 += D;~~

	return [H1, H2, H3, H4];		return [H1+A, H2+B, H3+C, H4+D];
	}		}

Pedro Oval: TrimRight substituted by RemovePadding for simplicity and speed; other minor changes

2011-03-06T18:12:26Z

TrimRight substituted by RemovePadding for simplicity and speed; other minor changes

← Older revision		Revision as of 11:12, 6 March 2011
Line 1:		Line 1:
	MD5 core ~~and TrimRight~~ written by [[User:Strife Onizuka\|Strife Onizuka]]. HMAC calculation function, test vectors function and testcases, and modifications to Base64_MD5 made by [[User:Pedro Oval\|Pedro Oval]]. Also, added ~~function~~ HexToBase64Unpadded, written by [[User:Pedro Oval\|Pedro Oval]]. Modifications to Base64_MD5 comprise:		MD5 core written by [[User:Strife Onizuka\|Strife Onizuka]]. HMAC calculation function, test vectors function and testcases, and modifications to Base64_MD5 made by [[User:Pedro Oval\|Pedro Oval]]. Also, added functions HexToBase64Unpadded and RemovePadding, written by [[User:Pedro Oval\|Pedro Oval]]. Modifications to Base64_MD5 comprise:

	* Accept base64 strings.		* Accept base64 strings instead of plain text strings.
	* Accept an initial input state.		* Accept an initial input state.
	* Accept an extra bitlength to consider as already added.		* Accept an extra bitlength to consider as already added.
Line 27:		Line 27:
	}		}

	string ~~TrimRight~~(string ~~src, string chrs~~)//~~LSLEditor Unsafe, LSO Safe~~		string RemovePadding(string b64) // specialized - it won't work if the string consists of all "="
	{		{
	integer i ~~= llStringLength(src)~~;		integer i;
	do ; while(~~~llSubStringIndex(chrs,~~ llGetSubString(~~src~~, i = ~-i, i)~~) && i~~);		do ; while(llGetSubString(b64, i = ~-i, i) == "=");
	return ~~llDeleteSubString~~(~~src~~, ~~-~(~~i~~), 0x7FFFFFF0~~);		return llGetSubString(b64, 0, i);
	}		}

Line 125:		Line 125:
	//OR on the extra bit.		//OR on the extra bit.
	integer b = (~-(((bit_length + 552) & -512) >> 5));		integer b = (~-(((bit_length + 552) & -512) >> 5));
	integer T = llBase64ToInteger(~~TrimRight~~(llGetSubString(b64, -4, -1)~~,"="~~) + "AAAA");		integer T = llBase64ToInteger(RemovePadding(llGetSubString(b64, -4, -1)) + "AAAA");
	string buf = "AAA";		string buf = "AAA";
	integer i = -5;		integer i = -5;
Line 190:		Line 190:

	list x = Base64MD5Compress(B64Key, 1732584193, -271733879, -1732584194, 271733878, 0);		list x = Base64MD5Compress(B64Key, 1732584193, -271733879, -1732584194, 271733878, 0);
	bit_length = (6 * !(B64Data=="") * (llStringLength(B64Data)-4+llStringLength(~~TrimRight~~(llGetSubString(B64Data,-4,-1)~~, "="~~)))) & -8;		bit_length = (6 * !(B64Data=="") * (llStringLength(B64Data)-4+llStringLength(RemovePadding(llGetSubString(B64Data,-4,-1))))) & -8;
	B64Data = HexToBase64Unpadded(Base64MD5forHMAC(B64Data, bit_length, 512, llList2Integer(x, 0), llList2Integer(x, 1), llList2Integer(x, 2), llList2Integer(x, 3))) + "==";		B64Data = HexToBase64Unpadded(Base64MD5forHMAC(B64Data, bit_length, 512, llList2Integer(x, 0), llList2Integer(x, 1), llList2Integer(x, 2), llList2Integer(x, 3))) + "==";

Line 208:		Line 208:
	if (hmac != HexHash)		if (hmac != HexHash)
	{		{
	llOwnerSay("HMAC failed.\nComputed: " + hmac + "\nExpected : " + HexHash);		llOwnerSay("HMAC-MD5 test failed.\nComputed: " + hmac + "\nExpected : " + HexHash);
	}		}
	else		else
	{		{
	llOwnerSay("HMAC passed in " + (string)llGetTime() + " seconds.");		llOwnerSay("HMAC-MD5 test passed in " + (string)llGetTime() + " seconds.");
	}		}
	}		}

Pedro Oval: Applied suggested optimization

2010-12-22T03:03:26Z

Applied suggested optimization

← Older revision		Revision as of 20:03, 21 December 2010
Line 156:		Line 156:
	H4 = llList2Integer(x, 3);		H4 = llList2Integer(x, 3);
	}while(b > (i += 16));		}while(b > (i += 16));
	~~x = [H4, H3, H2, H1];~~
	i = -4;		i = -4;
	buf = "";		buf = "";
	do		do
	{		{
	T = llList2Integer(x,i);		T = llList2Integer(x,~i);
	bit_length = 32;		bit_length = 32;
	do		do

Pedro Oval: Added more test cases; small reformatting

2010-12-16T14:41:53Z

Added more test cases; small reformatting

← Older revision		Revision as of 07:41, 16 December 2010
Line 10:		Line 10:
	Best speed seen under Mono: 0.201365 seconds for test case 15; worst: 0.495030 for test case 5.		Best speed seen under Mono: 0.201365 seconds for test case 15; worst: 0.495030 for test case 5.
	Best speed seen under LSO : 5.698544 seconds for test case 19; worst: 13.351786 seconds for test case 7.		Best speed seen under LSO : 5.698544 seconds for test case 19; worst: 13.351786 seconds for test case 7.

			All test cases pass with both LSO and Mono.

	<lsl>		<lsl>
Line 251:		Line 253:
	// Test vectors added by the author for zero-terminated data strings at different padding positions		// Test vectors added by the author for zero-terminated data strings at different padding positions
	// (generated with an independent program written in PHP):		// (generated with an independent program written in PHP):
	test_vector_MD5("blah", "", "c10685c0953708077f6f4c7c5511ae53"); // ""		test_vector_MD5("blah", "", "c10685c0953708077f6f4c7c5511ae53"); // ""
	test_vector_MD5("blah", "AA==", "a761432a72606fd467aee08dd354d055"); // "\0"		test_vector_MD5("blah", "AA==", "a761432a72606fd467aee08dd354d055"); // "\0"
	test_vector_MD5("blah", "AAA=", "7ec1859fa4f3dc93557de5b6e0e6b579"); // "\0\0"		test_vector_MD5("blah", "AAA=", "7ec1859fa4f3dc93557de5b6e0e6b579"); // "\0\0"
	test_vector_MD5("blah", "AAAA", "daa25eabf94b653324a7d014bacf93ce"); // "\0\0\0"		test_vector_MD5("blah", "AAAA", "daa25eabf94b653324a7d014bacf93ce"); // "\0\0\0"
	test_vector_MD5("blah", "MQA=", "ed3a85846a50c499d0eee5789eb32f4d"); // "1\0"		test_vector_MD5("blah", "MQA=", "ed3a85846a50c499d0eee5789eb32f4d"); // "1\0"
	test_vector_MD5("blah", "MQAA", "df9ebb2a9194f1ccc005016cd7b8d2c2"); // "1\0\0"		test_vector_MD5("blah", "MQAA", "df9ebb2a9194f1ccc005016cd7b8d2c2"); // "1\0\0"
	test_vector_MD5("blah", "MQAAAA==", "84106dafe40539b5b7d680cc05ee5836"); // "1\0\0\0"		test_vector_MD5("blah", "MQAAAA==", "84106dafe40539b5b7d680cc05ee5836"); // "1\0\0\0"
	test_vector_MD5("blah", "MTIA", "a2aaec505f58dc3267f39b7c1ad130ba"); // "12\0"		test_vector_MD5("blah", "MTIA", "a2aaec505f58dc3267f39b7c1ad130ba"); // "12\0"
Line 264:		Line 266:
	test_vector_MD5("blah", "MTIzAAA=", "9c196ba2c2dc1fa610800fd026e3f405"); // "123\0\0"		test_vector_MD5("blah", "MTIzAAA=", "9c196ba2c2dc1fa610800fd026e3f405"); // "123\0\0"
	test_vector_MD5("blah", "MTIzAAAA", "a0331f1846fa6937347e62ec7414ee43"); // "123\0\0\0"		test_vector_MD5("blah", "MTIzAAAA", "a0331f1846fa6937347e62ec7414ee43"); // "123\0\0\0"

			// Test vectors added by the author to check for corner cases with the padding.
			// Buffer exactly 54 bytes; needs 1+1 padding bytes, this should not be a problem.
			test_vector_MD5("blah",
			"012345670123456701234567012345670123456701234567012345670123",
			"ed5accadc5138ea952d2cb519406f928");
			// Buffer exactly 55 bytes; needs 1+0 padding bytes, this might be a problem if adding 0 bytes is a problem.
			test_vector_MD5("blah",
			"0123456701234567012345670123456701234567012345670123456701234A==",
			"123d6892faec7f8d30844711b32be334");
			// Buffer exactly 56 bytes; needs 1+7+56 padding bytes. Problematic only in case the detection of the corner case is flawed.
			test_vector_MD5("blah",
			"01234567012345670123456701234567012345670123456701234567012345A=",
			"1651d80e8892463daa9aca2d0a9a2f76");
			// Buffer exactly 63 bytes; needs 1+56 padding bytes. The first byte must be appended to the end of the buffer; the rest in the next buffer.
			test_vector_MD5("blah",
			"012345670123456701234567012345670123456701234567012345670123456701234567012345670123",
			"3eb5654edd27e2441e7a521827ff6a77");
			// Buffer exactly 64 bytes; needs 1+55 padding bytes added to the next buffer. Should not be a problem.
			test_vector_MD5("blah",
			"0123456701234567012345670123456701234567012345670123456701234567012345670123456701234A==",
			"25fd54c13d95468e2f525163d7b6d63d");
	llOwnerSay("End of tests.");		llOwnerSay("End of tests.");
	}		}
	}		}
	</lsl>		</lsl>

Pedro Oval: Reorganize the summary of changes. Add the bugfix note. Add empty string test vector. Add more timings.

2010-12-16T12:40:34Z

Reorganize the summary of changes. Add the bugfix note. Add empty string test vector. Add more timings.

← Older revision		Revision as of 05:40, 16 December 2010
Line 1:		Line 1:
	MD5 core and TrimRight written by [[User:Strife Onizuka\|Strife Onizuka]]. HMAC ~~code~~ and modifications to Base64_MD5 by [[User:Pedro Oval\|Pedro Oval]]. ~~Modifications to Base64_MD5 comprise: accept base64 strings~~, ~~accept an initial input state and accept an extra bitlength to consider as already~~ added~~; separated into compression function and padding function, to avoid the costly Base64 bitshift that would be needed otherwise; renamed globals to minimize the risk of a collision with usercode. Added~~ function HexToBase64Unpadded, written by [[User:Pedro Oval\|Pedro Oval]].		MD5 core and TrimRight written by [[User:Strife Onizuka\|Strife Onizuka]]. HMAC calculation function, test vectors function and testcases, and modifications to Base64_MD5 made by [[User:Pedro Oval\|Pedro Oval]]. Also, added function HexToBase64Unpadded, written by [[User:Pedro Oval\|Pedro Oval]]. Modifications to Base64_MD5 comprise:

	Best speed seen (under Mono): 0.~~201600~~ seconds.		* Accept base64 strings.
			* Accept an initial input state.
			* Accept an extra bitlength to consider as already added.
			* Separated into compression function and padding function, to avoid the costly Base64 bitshift that would be needed otherwise.
			* Renamed globals to minimize the risk of a collision with usercode.
			* Fixed bug with data ending in zeros.

			Best speed seen under Mono: 0.201365 seconds for test case 15; worst: 0.495030 for test case 5.
			Best speed seen under LSO : 5.698544 seconds for test case 19; worst: 13.351786 seconds for test case 7.

	<lsl>		<lsl>
Line 241:		Line 249:
	"6f630fad67cda0ee1fb1f562db3aa53e");		"6f630fad67cda0ee1fb1f562db3aa53e");

	// Test vectors added by the author for zero-terminated data strings at different padding positions:		// Test vectors added by the author for zero-terminated data strings at different padding positions
			// (generated with an independent program written in PHP):
			test_vector_MD5("blah", "", "c10685c0953708077f6f4c7c5511ae53"); // ""
	test_vector_MD5("blah", "AA==", "a761432a72606fd467aee08dd354d055"); // "\0"		test_vector_MD5("blah", "AA==", "a761432a72606fd467aee08dd354d055"); // "\0"
	test_vector_MD5("blah", "AAA=", "7ec1859fa4f3dc93557de5b6e0e6b579"); // "\0\0"		test_vector_MD5("blah", "AAA=", "7ec1859fa4f3dc93557de5b6e0e6b579"); // "\0\0"

Pedro Oval: Fix case of zero-ending data; add test vectors for it

2010-12-16T12:11:01Z

Fix case of zero-ending data; add test vectors for it

← Older revision		Revision as of 05:11, 16 December 2010
Line 122:		Line 122:
	{		{
	i = 0x800000;		i = 0x800000;
	if(~~T & 0xFF00~~)		if(!(bit_length % 24))
	i = 0x80;		i = 0x80;
	else if(~~T & 0xFF0000~~)		else if((bit_length % 24) == 16)
	i = 0x8000;		i = 0x8000;
	}		}
Line 240:		Line 240:
	llStringToBase64("Test Using Larger Than Block-Size Key and Larger Than One Block-Size Data"),		llStringToBase64("Test Using Larger Than Block-Size Key and Larger Than One Block-Size Data"),
	"6f630fad67cda0ee1fb1f562db3aa53e");		"6f630fad67cda0ee1fb1f562db3aa53e");

			// Test vectors added by the author for zero-terminated data strings at different padding positions:
			test_vector_MD5("blah", "AA==", "a761432a72606fd467aee08dd354d055"); // "\0"
			test_vector_MD5("blah", "AAA=", "7ec1859fa4f3dc93557de5b6e0e6b579"); // "\0\0"
			test_vector_MD5("blah", "AAAA", "daa25eabf94b653324a7d014bacf93ce"); // "\0\0\0"
			test_vector_MD5("blah", "MQA=", "ed3a85846a50c499d0eee5789eb32f4d"); // "1\0"
			test_vector_MD5("blah", "MQAA", "df9ebb2a9194f1ccc005016cd7b8d2c2"); // "1\0\0"
			test_vector_MD5("blah", "MQAAAA==", "84106dafe40539b5b7d680cc05ee5836"); // "1\0\0\0"
			test_vector_MD5("blah", "MTIA", "a2aaec505f58dc3267f39b7c1ad130ba"); // "12\0"
			test_vector_MD5("blah", "MTIAAA==", "24b9ea69f29389136386c06632a0e4c2"); // "12\0\0"
			test_vector_MD5("blah", "MTIAAAA=", "dbf936625759ada5eacc7f88f66ff20e"); // "12\0\0\0"
			test_vector_MD5("blah", "MTIzAA==", "8f2b761ddcf87a60593bde245691b409"); // "123\0"
			test_vector_MD5("blah", "MTIzAAA=", "9c196ba2c2dc1fa610800fd026e3f405"); // "123\0\0"
			test_vector_MD5("blah", "MTIzAAAA", "a0331f1846fa6937347e62ec7414ee43"); // "123\0\0\0"
			llOwnerSay("End of tests.");
	}		}
	}		}
	</lsl>		</lsl>

Pedro Oval: Changed round function -> compression function; added note on changed globals

2010-12-16T10:21:13Z

Changed round function -> compression function; added note on changed globals

← Older revision		Revision as of 03:21, 16 December 2010
Line 1:		Line 1:
	MD5 core and TrimRight written by [[User:Strife Onizuka\|Strife Onizuka]]. HMAC code and modifications to Base64_MD5 by [[User:Pedro Oval\|Pedro Oval]]. Modifications to Base64_MD5 comprise: accept base64 strings, accept an initial input state and accept an extra bitlength to consider as already added; separated into ~~round~~ function and padding function, to avoid the costly Base64 bitshift that would be needed otherwise. Added function HexToBase64Unpadded, written by [[User:Pedro Oval\|Pedro Oval]].		MD5 core and TrimRight written by [[User:Strife Onizuka\|Strife Onizuka]]. HMAC code and modifications to Base64_MD5 by [[User:Pedro Oval\|Pedro Oval]]. Modifications to Base64_MD5 comprise: accept base64 strings, accept an initial input state and accept an extra bitlength to consider as already added; separated into compression function and padding function, to avoid the costly Base64 bitshift that would be needed otherwise; renamed globals to minimize the risk of a collision with usercode. Added function HexToBase64Unpadded, written by [[User:Pedro Oval\|Pedro Oval]].

	Best speed seen (under Mono): 0.201600 seconds.		Best speed seen (under Mono): 0.201600 seconds.
Line 45:		Line 45:


	list ~~Base64MD5Round~~(string b64, integer H1, integer H2, integer H3, integer H4, integer i)		list Base64MD5Compress(string b64, integer H1, integer H2, integer H3, integer H4, integer i)
	{		{
	integer A = H1;		integer A = H1;
Line 140:		Line 140:
	do		do
	{		{
	x = ~~Base64MD5Round~~(b64, H1, H2, H3, H4, i);		x = Base64MD5Compress(b64, H1, H2, H3, H4, i);
	H1 = llList2Integer(x, 0);		H1 = llList2Integer(x, 0);
	H2 = llList2Integer(x, 1);		H2 = llList2Integer(x, 1);
Line 180:		Line 180:
	B64Key = llXorBase64StringsCorrect(llGetSubString(B64Key + buf, 0, 85) + "==", "NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Ng==");		B64Key = llXorBase64StringsCorrect(llGetSubString(B64Key + buf, 0, 85) + "==", "NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Ng==");

	list x = ~~Base64MD5Round~~(B64Key, 1732584193, -271733879, -1732584194, 271733878, 0);		list x = Base64MD5Compress(B64Key, 1732584193, -271733879, -1732584194, 271733878, 0);
	bit_length = (6 * !(B64Data=="") * (llStringLength(B64Data)-4+llStringLength(TrimRight(llGetSubString(B64Data,-4,-1), "=")))) & -8;		bit_length = (6 * !(B64Data=="") * (llStringLength(B64Data)-4+llStringLength(TrimRight(llGetSubString(B64Data,-4,-1), "=")))) & -8;
	B64Data = HexToBase64Unpadded(Base64MD5forHMAC(B64Data, bit_length, 512, llList2Integer(x, 0), llList2Integer(x, 1), llList2Integer(x, 2), llList2Integer(x, 3))) + "==";		B64Data = HexToBase64Unpadded(Base64MD5forHMAC(B64Data, bit_length, 512, llList2Integer(x, 0), llList2Integer(x, 1), llList2Integer(x, 2), llList2Integer(x, 3))) + "==";
Line 186:		Line 186:
	// Xor with Base64(chr(0x36 xor 0x5C) * 64)		// Xor with Base64(chr(0x36 xor 0x5C) * 64)
	B64Key = llXorBase64StringsCorrect(B64Key, "ampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqag==");		B64Key = llXorBase64StringsCorrect(B64Key, "ampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqampqag==");
	x = ~~Base64MD5Round~~(B64Key, 1732584193, -271733879, -1732584194, 271733878, 0);		x = Base64MD5Compress(B64Key, 1732584193, -271733879, -1732584194, 271733878, 0);
	bit_length = 128;		bit_length = 128;
	return Base64MD5forHMAC(B64Data, bit_length, 512, llList2Integer(x, 0), llList2Integer(x, 1), llList2Integer(x, 2), llList2Integer(x, 3));		return Base64MD5forHMAC(B64Data, bit_length, 512, llList2Integer(x, 0), llList2Integer(x, 1), llList2Integer(x, 2), llList2Integer(x, 3));

Pedro Oval: Fix bug in padding when key length > hash function input length; add test vectors from RFC 2202, which include those in RFC 2104

2010-12-16T02:45:48Z

Fix bug in padding when key length > hash function input length; add test vectors from RFC 2202, which include those in RFC 2104

← Older revision		Revision as of 19:45, 15 December 2010
Line 165:		Line 165:
	{		{
	integer bit_length = llSubStringIndex(B64Key, "=");		integer bit_length = llSubStringIndex(B64Key, "=");
	if (~bit_length)		if (!~bit_length)
	{
	~~B64Key = llGetSubString(B64Key, 0, bit_length-1);~~
	}
	~~else~~
	{		{
	bit_length = llStringLength(B64Key);		bit_length = llStringLength(B64Key);
Line 178:		Line 174:
	bit_length = 22;		bit_length = 22;
	}		}
			B64Key = llGetSubString(B64Key, 0, bit_length-1);
	string buf = "AAA";		string buf = "AAA";
	integer i = -5;		integer i = -5;
Line 186:		Line 183:
	bit_length = (6 * !(B64Data=="") * (llStringLength(B64Data)-4+llStringLength(TrimRight(llGetSubString(B64Data,-4,-1), "=")))) & -8;		bit_length = (6 * !(B64Data=="") * (llStringLength(B64Data)-4+llStringLength(TrimRight(llGetSubString(B64Data,-4,-1), "=")))) & -8;
	B64Data = HexToBase64Unpadded(Base64MD5forHMAC(B64Data, bit_length, 512, llList2Integer(x, 0), llList2Integer(x, 1), llList2Integer(x, 2), llList2Integer(x, 3))) + "==";		B64Data = HexToBase64Unpadded(Base64MD5forHMAC(B64Data, bit_length, 512, llList2Integer(x, 0), llList2Integer(x, 1), llList2Integer(x, 2), llList2Integer(x, 3))) + "==";


	// Xor with Base64(chr(0x36 xor 0x5C) * 64)		// Xor with Base64(chr(0x36 xor 0x5C) * 64)
Line 215:		Line 211:
	state_entry()		state_entry()
	{		{
	// RFC ~~2104~~ test vectors:		// RFC 2202 test vectors:
	test_vector_MD5(~~llStringToBase64(llUnescapeURL~~("~~%0B%0B%0B%0B%0B%0B%0B%0B%0B%0B%0B%0B%0B%0B%0B%0B~~")),		test_vector_MD5(HexToBase64Unpadded("0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b") + "==",
	llStringToBase64("Hi There"),		llStringToBase64("Hi There"),
	"9294727a3638bb1c13f48ef8158bfc9d");		"9294727a3638bb1c13f48ef8158bfc9d");
Line 225:		Line 221:
	"3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d0=",		"3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d0=",
	"56be34521d144c88dbb8c733f0e8b3f6");		"56be34521d144c88dbb8c733f0e8b3f6");
			test_vector_MD5(HexToBase64Unpadded("0102030405060708090a0b0c0d0e0f10111213141516171819")+"==",
			HexToBase64Unpadded("cdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcdcd")+"=",
			"697eaf0aca3a3aea3a75164746ffaa79");
			test_vector_MD5(HexToBase64Unpadded("0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c") + "==",
			llStringToBase64("Test With Truncation"),
			"56461ef2342edc00f9bab995690efd4c");

			string buf = "aaaaa";
			buf += buf;
			buf += buf;
			buf += buf;
			buf += buf;
			buf += buf;
			test_vector_MD5(HexToBase64Unpadded(buf) + "=",
			llStringToBase64("Test Using Larger Than Block-Size Key - Hash Key First"),
			"6b1ab7fe4bd7bf8f0b62e6ce61b9d0cd");
			test_vector_MD5(HexToBase64Unpadded(buf) + "=",
			llStringToBase64("Test Using Larger Than Block-Size Key and Larger Than One Block-Size Data"),
			"6f630fad67cda0ee1fb1f562db3aa53e");
	}		}
	}		}
	</lsl>		</lsl>