Second Life Wiki - User contributions [en]

Key compression

2008-02-26T02:13:33Z

Tmyclyk Dmytryk:

'''Compress Keys of all sorts'''

<lsl>
string strFullCompression = "0123456789abcdefghijklmnopqrstuvwxyz!\"#$%&'()*+,-./:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`{|}~¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿĀāĂăĄąĆćĈĉĊċČčĎďĐđĒēĔĕĖėĘęĚěĜĝĞğĠġĢģĤĥĦħĨĩĪīĬĭĮįİıĲĳĴĵĶķĸĹĺĻļĽľĿŀŁłŃńŅ";
string compressKey(key id){
string str = (string)llParseString2List((string)id,["-"],[]);
integer i;
string output;
integer len = llStringLength(str);
while(i < len){
integer val = llSubStringIndex(strFullCompression,(llGetSubString(str,i,i)));
++i;
integer val2 = llSubStringIndex(strFullCompression,(llGetSubString(str,i,i)));
val *= 16;
val += val2;
output += llGetSubString(strFullCompression,val,val);
++i;
}

return output;
}

string decompressKey(string compressed){
integer i;
integer len = llStringLength(compressed);
string output;
while(i < len){
integer indx = llSubStringIndex(strFullCompression,llGetSubString(compressed,i,i));
integer val1 = (integer)indx / 16;
integer val2 = indx % 16;
output += llGetSubString(strFullCompression,val1,val1) + llGetSubString(strFullCompression,val2,val2);
++i;
}

return llGetSubString(llInsertString(llInsertString(llInsertString(llInsertString(llInsertString(llToLower(output),12,""),8,"-"),13,"-"),18,"-"),23,"-"),0,35);
}
</lsl>

This code is modified by SiRiS Asturias for efficiency, I have both here because on the mono they're both giving consistent but different outputs.. It's for reference.
<lsl>
string compressKey(key id){
id = (string)llParseString2List(id,(list)"-",[]);
integer i = llStringLength(id);
string output;
while(i--){
integer val = llSubStringIndex(strFullCompression,llGetSubString(id,i,i)) + (llSubStringIndex(strFullCompression,llGetSubString(id,i,i--)) << 4 );
output += llGetSubString(strFullCompression,val,val);
//++i;
}
return output;
}
string decompressKey(string compressed){
integer i = llStringLength(compressed);
string output; while(i--){
integer indx = llSubStringIndex(strFullCompression,llGetSubString(compressed,i,i));
integer val1 = (integer)(indx >> 4);
integer val2 = indx % 16;
output += llGetSubString(strFullCompression,val2,val2) + llGetSubString(strFullCompression,val1,val1);
}
return llGetSubString(llInsertString(llInsertString(llInsertString(llInsertString(output,8,"-"),13,"-"),18,"-"),23,"-"),0,35);
}
</lsl>

Key compression

2008-02-22T01:55:11Z

Tmyclyk Dmytryk:

'''Compress Keys of all sorts'''

<lsl>
string strFullCompression = "0123456789abcdefghijklmnopqrstuvwxyz!\"#$%&'()*+,-./:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`{|}~¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿĀāĂăĄąĆćĈĉĊċČčĎďĐđĒēĔĕĖėĘęĚěĜĝĞğĠġĢģĤĥĦħĨĩĪīĬĭĮįİıĲĳĴĵĶķĸĹĺĻļĽľĿŀŁłŃńŅ";
string compressKey(key id){
string str = (string)llParseString2List((string)id,["-"],[]);
integer i;
string output;
integer len = llStringLength(str);
while(i < len){
integer val = llSubStringIndex(strFullCompression,(llGetSubString(str,i,i)));
++i;
integer val2 = llSubStringIndex(strFullCompression,(llGetSubString(str,i,i)));
val *= 16;
val += val2;
output += llGetSubString(strFullCompression,val,val);
++i;
}

return output;
}

string decompressKey(string compressed){
integer i;
integer len = llStringLength(compressed);
string output;
while(i < len){
integer indx = llSubStringIndex(strFullCompression,llGetSubString(compressed,i,i));
integer val1 = (integer)indx / 16;
integer val2 = indx % 16;
output += llGetSubString(strFullCompression,val1,val1) + llGetSubString(strFullCompression,val2,val2);
++i;
}

return llGetSubString(llInsertString(llInsertString(llInsertString(llInsertString(llInsertString(llToLower(output),12,""),8,"-"),13,"-"),18,"-"),23,"-"),0,35);
}
</lsl>

Key compression

2008-02-22T01:46:05Z

Tmyclyk Dmytryk:

'''Compress Keys of all sorts'''

<lsl>
string strFullCompression = "0123456789abcdefghijklmnopqrstuvwxyz!\"#$%&'()*+,-./:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`{|}~ ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿĀāĂăĄąĆćĈĉĊċČčĎďĐđĒēĔĕĖėĘęĚěĜĝĞğĠġĢģĤĥĦħĨĩĪīĬĭĮįİıĲĳĴĵĶķĸĹĺĻļĽľĿŀŁłŃńŅ";
string compressKey(key id){
string str = (string)llParseString2List((string)id,["-"],[]);
integer i;
string output;
integer len = llStringLength(str);
while(i < len){
integer val = llSubStringIndex(strFullCompression,(llGetSubString(str,i,i)));
++i;
integer val2 = llSubStringIndex(strFullCompression,(llGetSubString(str,i,i)));
val *= 16;
val += val2;
output += llGetSubString(strFullCompression,val,val);
++i;
}

return output;
}

string decompressKey(string compressed){
integer i;
integer len = llStringLength(compressed);
string output;
while(i < len){
integer indx = llSubStringIndex(strFullCompression,llGetSubString(compressed,i,i));
integer val1 = (integer)indx / 16;
integer val2 = indx % 16;
output += llGetSubString(strFullCompression,val1,val1) + llGetSubString(strFullCompression,val2,val2);
++i;
}

return llGetSubString(llInsertString(llInsertString(llInsertString(llInsertString(llInsertString(llToLower(output),12,""),8,"-"),13,"-"),18,"-"),23,"-"),0,35);
}
</lsl>

Key compression

2008-02-21T21:36:52Z

Tmyclyk Dmytryk:

'''Compress Keys of all sorts'''

This function set will both compress and decompress a key. I've seen size cut down by anywhere from 25 - 50%

<lsl>
string alphanum = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZqrstuvwxyz~!@#$%^&*()_+[]\{}|;':\",./<>?ÇüéâäàçêëèïîìÄÅÉæÆôöòûùÿÖÜáíóúñÑ¿abcdefghijklmnop";
integer boundOffset = 107;
string compressKey(key id){
string str = (string)llParseString2List((string)id,["-"],[]);
integer i;
string output;
integer len = llStringLength(str);
while(i < len){
integer val = llSubStringIndex(alphanum,llToUpper(llGetSubString(str,i,i)));
++i;
integer val2 = llSubStringIndex(alphanum,llToUpper(llGetSubString(str,i,i)));
if(val <= 7 && val2 != 15){
val *= 15;
val += val2;
output += llGetSubString(alphanum,val,val);
}else{
output += llGetSubString(alphanum,boundOffset + val,boundOffset + val);
val = llSubStringIndex(alphanum,llToUpper(llGetSubString(str,i,i)));
output += llGetSubString(alphanum,boundOffset + val,boundOffset + val);
}
++i;
}

return output;
}

string decompressKey(string compressed){
integer i;
integer len = llStringLength(compressed);
string output;
while(i < len){
integer indx = llSubStringIndex(alphanum,llGetSubString(compressed,i,i));
if(indx >= boundOffset){
output += llGetSubString(alphanum,indx - boundOffset,indx - boundOffset);
}else{
integer val1 = (integer)indx / 15;
integer val2 = indx % 15;
output += llGetSubString(alphanum,val1,val1) + llGetSubString(alphanum,val2,val2);
}
++i;
}

return llGetSubString(llInsertString(llInsertString(llInsertString(llInsertString(llInsertString(llToLower(output),12,""),8,"-"),13,"-"),18,"-"),23,"-"),0,35);
}
</lsl>

'''Example Output'''
Original Key: a80bba1c-bcc2-49a0-9142-6b1ffc4f0fb0
Compressed Key: kiBlkRlmmc.kajb}íbppmepapla
Compressed Key Length: 27
Decompressed Key: a80bba1c-bcc2-49a0-9142-6b1ffc4f0fb0

'''Example Output 2'''
Original Key: a2e76fcd-9360-4f6d-a924-000000000003
Compressed Key: kcohgpmnjdæepúkjY000003
Compressed Key Length: 23
Decompressed Key: a2e76fcd-9360-4f6d-a924-000000000003

Key compression

2008-02-21T21:34:20Z

Tmyclyk Dmytryk: New page: '''Compress Keys of all sorts''' This function set will both compress and decompress a key. I've seen size cut down by anywhere from 25 - 50% <lsl> string alphanum = "0123456789ABCDEFGHI...

LlGetScriptState

2007-10-29T04:46:56Z

Tmyclyk Dmytryk:

{{LSL_Function/inventory|name|uuid=false|type=script}}
{{LSL_Function
|func_id=250|func_sleep=0.0|func_energy=10.0
|func=llGetScriptState|return_type=integer|p1_type=string|p1_name=name
|func_footnote
|func_desc
|return_text={{HoverText|boolean|TRUE or FALSE}} that is {{LSLG|TRUE}} if script '''name''' is running.
|spec
|caveats=*<s>Will not report [[FALSE]] for a script that encountered a {{LSLGC|Error|run-time error}}, which greatly reduces the usefulness of this function.</s> - This doesn't seem to be the case anymore.
|constants
|examples
|helpers
|also_functions=
{{LSL DefineRow||[[llSetScriptState]]|}}
{{LSL DefineRow||[[llResetOtherScript]]|}}
|also_events
|also_tests
|also_articles
|notes
|permission
|negative_index
|sort=GetScriptState
|cat1=Script
|cat2
|cat3
|cat4
}}

Category:Scripter

2007-05-29T03:35:08Z

Tmyclyk Dmytryk:

== Are you a Volunteer with scripting skills ? ==

When editing pages relevant to you (your user page, articles in your user space regarding your work as a volunteer specifically etc), please take the time out to add yourself to this category.

You can go to your user page by logging in and clicking on your avatar name when it appears at the top of the browser window.

To get yourself listed as a Scripter, please go read the instructions on [[Template:visl]].

[[Category:Second Life Volunteers|*Scripter]]

User:Tmyclyk Dmytryk

2007-05-29T03:34:24Z

Tmyclyk Dmytryk:

User:Tmyclyk Dmytryk

2007-05-29T03:34:01Z

Tmyclyk Dmytryk:

Category:Scripter

2007-05-29T03:32:38Z

Tmyclyk Dmytryk: /* Are you a Volunteer with scripting skills ? */

Category:Scripter

2007-05-29T03:31:29Z

Tmyclyk Dmytryk: /* Are you a Volunteer with scripting skills ? */