XTEA - Revision history

Gwyneth Llewelyn: Replaced with

2024-11-29T11:39:08Z

Replaced <source> with <syntaxhighlight>

← Older revision		Revision as of 04:39, 29 November 2024
Line 20:		Line 20:

	===Source===		===Source===
	<~~source~~ lang="lsl2">//===================================================//		<syntaxhighlight lang="lsl2">//===================================================//
	// XTEA Library v0.3 //		// XTEA Library v0.3 //
	// "Dec 9 2007", "05:15:17" //		// "Dec 9 2007", "05:15:17" //
Line 202:		Line 202:
	}		}
	}		}
	}</~~source~~>		}</syntaxhighlight>
	{{LSLC\|Encryption}}		{{LSLC\|Encryption}}

ObviousAltIsObvious Resident: tag to

2015-01-25T18:18:52Z

← Older revision		Revision as of 11:18, 25 January 2015
Line 20:		Line 20:

	===Source===		===Source===
	<~~lsl~~>//===================================================//		<source lang="lsl2">//===================================================//
	// XTEA Library v0.3 //		// XTEA Library v0.3 //
	// "Dec 9 2007", "05:15:17" //		// "Dec 9 2007", "05:15:17" //
Line 202:		Line 202:
	}		}
	}		}
	}</~~lsl~~>		}</source>
	{{LSLC\|Encryption}}		{{LSLC\|Encryption}}

Strife Onizuka at 23:08, 1 January 2008

2008-01-01T23:08:01Z

← Older revision		Revision as of 16:08, 1 January 2008
Line 203:		Line 203:
	}		}
	}</lsl>		}</lsl>
			{{LSLC\|Encryption}}

Strife Onizuka: /* Source */ spacing and poking

2007-12-09T10:14:17Z

Source: spacing and poking

← Older revision		Revision as of 03:14, 9 December 2007
Line 22:		Line 22:
	<lsl>//===================================================//		<lsl>//===================================================//
	// XTEA Library v0.3 //		// XTEA Library v0.3 //
	// "Dec 9 2007", "04:58:36" //		// "Dec 9 2007", "05:15:17" //
	// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //		// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //
	// http://creativecommons.org/licenses/by/3.0/ //		// http://creativecommons.org/licenses/by/3.0/ //
Line 72:		Line 72:
	//===================================================//		//===================================================//
	// Combined Library //		// Combined Library //
	// "Dec 9 2007", "04:58:36" //		// "Dec 9 2007", "05:15:17" //
	// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //		// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //
	// http://creativecommons.org/licenses/by/3.0/ //		// http://creativecommons.org/licenses/by/3.0/ //
Line 108:		Line 108:
	integer S = 10 - ((index << 5) % 6);		integer S = 10 - ((index << 5) % 6);
	v = llDeleteSubString(		v = llDeleteSubString(
			llInsertString(
			v,
			index = ((index << 5) / 6),
			llInsertString(
	llInsertString(		llInsertString(
	v,		llIntegerToBase64(
	~~index = ((index << 5) / 6),~~		(llBase64ToInteger(llGetSubString((v = llGetSubString(v, index, index + 12)) + "AAAAAA", 0, 5)) & (0xFFC00000 << S)) \|
	~~llInsertString~~(		((v0 >> (10 - S)) & ~(0xFFC00000 << S))
	~~llInsertString(~~		), 3,
	~~llIntegerToBase64(~~		llIntegerToBase64(
	(llBase64ToInteger(llGetSubString((v = llGetSubString(v, index, index + 12)) + "AAAAAA", 0, 5)) & (0xFFC00000 << S)) \|		((v1 >> (24 - S)) & ~(0xFFFFFF00 << S)) \|
	((v0 >> (10 - S)) & ~(0xFFC00000 << S))		(v0 << (8 + S))
	),		) ), 7,
	3,		llIntegerToBase64(
	llIntegerToBase64(		(llBase64ToInteger(llGetSubString((llDeleteSubString(v, 0, 6)) + "AAAAAA", 0, 5)) & ~(0xFFFFFFFF << S)) \|
	((v1 >> (24 - S)) & ~(0xFFFFFF00 << S)) \|		(v1 << S)
	(v0 << (8 + S))		) ) ), index + 12, index + 35);//insert it then remove the old and the extra.
	)
	),
	7,
	llIntegerToBase64(
	(llBase64ToInteger(llGetSubString((llDeleteSubString(v, 0, 6)) + "AAAAAA", 0, 5)) & ~(0xFFFFFFFF << S)) \|
	(v1 << S)
	)
	)
	),
	index + 12,
	index + 35
	);
	}		}

Line 138:		Line 130:
	{		{
	v = "";		v = "";
	integer e = (llStringLength(a = ~~(a +~~ "0000000000000000")) - 9) & 0xFFFFFFF8;		integer e = (llStringLength(a += "0000000000000000") - 9) & 0xFFFFFFF8;
	integer g;		integer g;
	do		do{
	{
	v0 = ((integer)("0x"+(llGetSubString(a, g, g + 7)))); v1 = ((integer)("0x"+(llGetSubString(a, g + 8, g + 15)))); WriteBase64IntegerPair(g >> 3);		v0 = ((integer)("0x"+(llGetSubString(a, g, g + 7)))); v1 = ((integer)("0x"+(llGetSubString(a, g + 8, g + 15)))); WriteBase64IntegerPair(g >> 3);
	}while((g += 16) < e);		}while((g += 16) < e);
Line 169:		Line 160:
	{		{
	if(a == 1)		if(a == 1)
			{
			rounds = (integer)d;
			llOwnerSay(llList2CSV([rounds, "~~~~"] + mk));
			}
			else if(a == 2)
	{		{
	mk = [];		mk = [];
Line 174:		Line 170:
	for(a = 0; a < 3; ++a)		for(a = 0; a < 3; ++a)
	mk += (integer)llList2String(e,a);		mk += (integer)llList2String(e,a);
	~~llOwnerSay(llList2CSV([rounds, "~~~~"] + mk));~~
	}
	~~else if(a == 2)~~
	{
	~~rounds = (integer)d;~~
	llOwnerSay(llList2CSV([rounds, "~~~~"] + mk));		llOwnerSay(llList2CSV([rounds, "~~~~"] + mk));
	}		}

Strife Onizuka at 09:57, 9 December 2007

2007-12-09T09:57:20Z

Show changes

Strife Onizuka: /* Source */ rouge tabs

2007-12-08T22:00:27Z

Source: rouge tabs

← Older revision		Revision as of 15:00, 8 December 2007
Line 22:		Line 22:
	<lsl>//===================================================//		<lsl>//===================================================//
	// XTEA Library v0.2 //		// XTEA Library v0.2 //
	// "Dec 8 2007", "16:59:47" //		// "Dec 8 2007", "17:01:47" //
	// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //		// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //
	// http://creativecommons.org/licenses/by/3.0/ //		// http://creativecommons.org/licenses/by/3.0/ //
Line 29:		Line 29:
	//===================================================//		//===================================================//
	// Combined Library //		// Combined Library //
	// "Dec 8 2007", "16:59:47" //		// "Dec 8 2007", "17:01:47" //
	// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //		// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //
	// http://creativecommons.org/licenses/by/3.0/ //		// http://creativecommons.org/licenses/by/3.0/ //
Line 101:		Line 101:
	{		{
	v = "";		v = "";
	integer e = (llStringLength(a = (a + "0000000000000000")) - 9) & 0xFFFFFFF8;		integer e = (llStringLength(a = (a + "0000000000000000")) - 9) & 0xFFFFFFF8;
	integer g;		integer g;
	do		do
	{		{
	v0 = ((integer)("0x"+(llGetSubString(a, g, g + 7)))); v1 = ((integer)("0x"+(llGetSubString(a, g + 8, g + 15)))); WriteBase64IntegerPair(g >> 3);		v0 = ((integer)("0x"+(llGetSubString(a, g, g + 7)))); v1 = ((integer)("0x"+(llGetSubString(a, g + 8, g + 15)))); WriteBase64IntegerPair(g >> 3);
	}while((g += 16) < e);		}while((g += 16) < e);

	}		}
Line 222:		Line 222:
	}		}
	}		}
	}		}</lsl>
	</lsl>

Strife Onizuka: /* 0.1 */

2007-12-08T21:58:26Z

0.1

← Older revision		Revision as of 14:58, 8 December 2007
Line 19:		Line 19:
	*Initial Release		*Initial Release

			===Source===
	<lsl>//===================================================//		<lsl>//===================================================//
	// XTEA Library v0.2 //		// XTEA Library v0.2 //
	// "Dec 8 2007", "16:57:27" //		// "Dec 8 2007", "16:59:47" //
	// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //		// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //
	// http://creativecommons.org/licenses/by/3.0/ //		// http://creativecommons.org/licenses/by/3.0/ //
Line 28:		Line 29:
	//===================================================//		//===================================================//
	// Combined Library //		// Combined Library //
	// "Dec 8 2007", "16:57:27" //		// "Dec 8 2007", "16:59:47" //
	// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //		// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //
	// http://creativecommons.org/licenses/by/3.0/ //		// http://creativecommons.org/licenses/by/3.0/ //
Line 117:		Line 118:
	string Base64_XTEA_Encipher(integer num_rounds, string in, list k) {		string Base64_XTEA_Encipher(integer num_rounds, string in, list k) {

	integer len = (((llStringLength(v = TrimRight(in,in="=")) + 4) * 6) >> 5) ~~& 0xFFFFFFFE~~;		integer len = (((llStringLength(v = TrimRight(in,in="=")) + 4) * 6) >> 5);

	integer i = -2;		integer i = -2;
Line 139:		Line 140:
	string Base64_XTEA_Decipher(integer num_rounds, string in, list k) {		string Base64_XTEA_Decipher(integer num_rounds, string in, list k) {

	integer len = (((llStringLength(v = TrimRight(in,in="=")) + 4) * 6) >> 5) ~~& 0xFFFFFFFE~~;		integer len = (((llStringLength(v = TrimRight(in,in="=")) + 4) * 6) >> 5);

	integer i = -2;		integer i = -2;
Line 221:		Line 222:
	}		}
	}		}
	}</lsl>		}
			</lsl>

Strife Onizuka at 21:56, 8 December 2007

2007-12-08T21:56:12Z

Show changes

Strife Onizuka at 10:00, 7 December 2007

2007-12-07T10:00:49Z

← Older revision		Revision as of 03:00, 7 December 2007
Line 2:		Line 2:

	<lsl>//===================================================//		<lsl>//===================================================//
	// XTEA Library //		// XTEA Library v0.1 //
	// "Dec 7 2007", "03:00:09" //		// "Dec 7 2007", "03:00:09" //
	// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //		// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //

Strife Onizuka: New page: Another XTEA implementation for LSL. Not sure if i have used the correct endian. //===================================================// // XTEA Library ...

2007-12-07T08:08:40Z

New page: Another XTEA implementation for LSL. Not sure if i have used the correct endian. <lsl>//===================================================// // XTEA Library ...

New page

Another XTEA implementation for LSL. Not sure if i have used the correct endian.

<lsl>//===================================================//
// XTEA Library //
// "Dec 7 2007", "03:00:09" //
// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //
// http://creativecommons.org/licenses/by/3.0/ //
//===================================================//

//===================================================//
// Combined Library //
// "Dec 7 2007", "03:00:09" //
// Copyright (C) 2004-2007, Strife Onizuka (cc-by) //
// http://creativecommons.org/licenses/by/3.0/ //
//===================================================//
//{

//Functions marked "Mono Safe" are safe for use in LSLEditor & Mono
//Functions marked "LSO Safe" are safe for use in LSO
//Functions marked "Double Safe" are safe for use in VM's that support doubles (Mono, LSLEditor).
//Mono is the future VM for LSL, LSO is the current VM of LSL.
//To achieve safety, the functions require more bytecode and sacrifice a bit of performance.

string TrimRight(string src, string chrs)//Mono Safe, LSO Safe
{
integer i = llStringLength(src);
integer j = i;
do ; while(~llSubStringIndex(chrs, llGetSubString(src, i = (~-(j = i)), i)) && j);
return llDeleteSubString(src, j, 0xFFFF);
}

//} Combined Library

integer ReadBase64Integer(string data, integer index)
{
integer S = (index % 3) << 1;
index = llBase64ToInteger(llGetSubString((data = llGetSubString(data, index = ((index << 4) / 3), index+6)) + "AAAAAA", 0, 5)) << S;
if(S)
return index | (llBase64ToInteger(llGetSubString("A" + (llDeleteSubString(data, 0, 1)) + "AAAAA", 0, 5)) >> (6 - S));
return index;
}

string WriteBase64IntegerPair(string data, integer index, integer low, integer high)
{
integer S = ((index % 3) << 1);

return llDeleteSubString(
llInsertString(
data,
index = ((index << 4) / 3),
llInsertString(
llInsertString(
llIntegerToBase64(
(llBase64ToInteger(llGetSubString((data = llGetSubString(data, index, index + 12)) + "AAAAAA", 0, 5)) & (0xFC000000 << (6 - S))) |
((low >> S) & ~(0xFC000000 << (6 - S)))
),
3,
llIntegerToBase64(
((high >> (S + 14)) & ~(-1 << (18 - S))) |
(low << (18 - S))
)
),
7,
llIntegerToBase64(
(llBase64ToInteger(llGetSubString((llDeleteSubString(data, 0, 6)) + "AAAAAA", 0, 5)) & ~(-1 << (10 - S))) |
(high << (10 - S))
)
)
),
index + 12,
index + 35
);

}

integer delta = 0x9E3779B9;

string Base64_XTEA_Encipher(integer num_rounds, string v, list k) {

integer len = llStringLength(v = TrimRight(v,"A="));

integer i = 0;
for(len = (3 * (len + 4)) >> 4; i < len; i += 2)
{
integer sum = 0;
integer v0 = ReadBase64Integer(v, i);
integer v1 = ReadBase64Integer(v, (-~(i)));
integer j = (-~(num_rounds));
while((j = ~-j)){
v0 += (((v1 << 4) ^ ((v1 >> 5) & 0x07FFFFFF)) + v1) ^ (sum + llList2Integer(k, sum & 3));
sum += delta;
v1 += (((v0 << 4) ^ ((v0 >> 5) & 0x07FFFFFF)) + v0) ^ (sum + llList2Integer(k, (sum >> 11) & 3));
}

v = WriteBase64IntegerPair(v, i, v0, v1);
}

return TrimRight(v,"A");

}

string Base64_XTEA_Decipher(integer num_rounds, string v, list k) {

integer len = llStringLength(v = TrimRight(v,"A="));

integer i = 0;
for(len = (3 * (len + 4)) >> 4; i < len; i += 2)
{
integer sum = delta * num_rounds;
integer v0 = ReadBase64Integer(v, i);
integer v1 = ReadBase64Integer(v, (-~(i)));
integer j = (-~(num_rounds));
while((j = ~-j)){
v1 -= (((v0 << 4) ^ ((v0 >> 5) & 0x07FFFFFF)) + v0) ^ (sum + llList2Integer(k, (sum >> 11) & 3));
sum -= delta;
v0 -= (((v1 << 4) ^ ((v1 >> 5) & 0x07FFFFFF)) + v1) ^ (sum + llList2Integer(k, sum & 3));
}
v = WriteBase64IntegerPair(v, i, v0, v1);
}

return TrimRight(v,"A");

}

list mk;
integer rounds = 128;

default
{

state_entry()
{
key owner = llGetOwner();
llListen(0, "", owner, "");
llListen(1, "", owner, "");
llListen(2, "", owner, "");
llListen(3, "", owner, "");

}
listen(integer a, string b, key c, string d)
{
if(a == 1)
{
mk = [];
list e = llCSV2List(d);
for(a = 0; a < 3; ++a)
mk += (integer)llList2String(e,a);
llOwnerSay(llList2CSV(mk));
}
else if(a == 2)
{
rounds = (integer)d;
}
else if(a == 3)
{
b = TrimRight(llStringToBase64(d), "=");
mk = [ReadBase64Integer(b, 0), ReadBase64Integer(b, 1), ReadBase64Integer(b, 2), ReadBase64Integer(b, 3)];
llOwnerSay(llList2CSV(mk));
}
else
{

llOwnerSay(b = d = llStringToBase64(d));

llOwnerSay(d = Base64_XTEA_Encipher(rounds, b, mk));
llOwnerSay(llList2CSV([d = Base64_XTEA_Decipher(rounds, d, mk), llBase64ToString(d)]));
llOwnerSay(llList2CSV([b,llBase64ToString(b)]));
}
}
}</lsl>