Difference between revisions of "Basic Encryption Modules"

From Second Life Wiki
Jump to navigation Jump to search
m (typo)
m (<lsl> tag to <source>)
 
(2 intermediate revisions by 2 users not shown)
Line 1: Line 1:
{{LSL Header}}
{{LSL Header|ml=*}}
 


I have posted 3 sections to this code, the encryption, decryption, and also a 3rd file. While the 3rd is unnecessary, since the value for the next channel to communicate on is changed each time data is sent, i found it annoying that when you edited the code to change the number, or tweak minor things, when it was saved, it reloaded the default values. The third script does nothing more than store the next channel to communicate on and pass it to either the encrypter or decypter when that script is reset. If you choose to use it, it should be placed in both prims that you are using.
I have posted 3 sections to this code, the encryption, decryption, and also a 3rd file. While the 3rd is unnecessary, since the value for the next channel to communicate on is changed each time data is sent, i found it annoying that when you edited the code to change the number, or tweak minor things, when it was saved, it reloaded the default values. The third script does nothing more than store the next channel to communicate on and pass it to either the encrypter or decypter when that script is reset. If you choose to use it, it should be placed in both prims that you are using.
Line 10: Line 9:


Encrypter
Encrypter
<lsl>//Simple Alpha Hash for practical floats by Beverly Larkin
<source lang="lsl2">//Simple Alpha Hash for practical floats by Beverly Larkin


//WARNING!!!  Before actually using this to transfer any numbers(the principal is the same for strings)   
//WARNING!!!  Before actually using this to transfer any numbers(the principal is the same for strings)   
Line 115: Line 114:
     }
     }
}
}
</lsl>
</source>




Line 121: Line 120:
Decrypter
Decrypter


<lsl>//Simple Alpha Hash for practical floats by Beverly Larkin
<source lang="lsl2">//Simple Alpha Hash for practical floats by Beverly Larkin


list letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnoptuvwxyz";
list letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnoptuvwxyz";
Line 144: Line 143:
//s = channel
//s = channel


list Seperate_Numbers(string encrypted)
list Separate_Numbers(string encrypted)
{
{
     integer position = llSubStringIndex(encrypted, "q");
     integer position = llSubStringIndex(encrypted, "q");
Line 205: Line 204:
         llListenRemove(listener);
         llListenRemove(listener);
         llOwnerSay("Message received = " + message); // message received from encryt prim
         llOwnerSay("Message received = " + message); // message received from encryt prim
         list BEER = Seperate_Numbers(message);
         list BEER = Separate_Numbers(message);
         integer int;
         integer int;
         for(int = 0; int < llGetListLength(BEER); ++int)
         for(int = 0; int < llGetListLength(BEER); ++int)
Line 230: Line 229:
         }
         }
     }
     }
}</lsl>
}</source>


Channel Storage
Channel Storage


<lsl>integer com_channel = -21747232;
<source lang="lsl2">integer com_channel = -21747232;
default
default
{
{
Line 248: Line 247:
         }
         }
     }
     }
}</lsl>
}</source>
----
----
[[Category:LSL Library]] [[Category: LSL Encryption]]
[[Category:LSL Library]] [[Category: LSL Encryption]]

Latest revision as of 18:24, 24 January 2015

I have posted 3 sections to this code, the encryption, decryption, and also a 3rd file. While the 3rd is unnecessary, since the value for the next channel to communicate on is changed each time data is sent, i found it annoying that when you edited the code to change the number, or tweak minor things, when it was saved, it reloaded the default values. The third script does nothing more than store the next channel to communicate on and pass it to either the encrypter or decypter when that script is reset. If you choose to use it, it should be placed in both prims that you are using.

This code basically takes a float, converts it to an alpha key, randomizes it, than takes a random channel, converts it to an alpha key, randomizes it, appends it to the string for the float, and shouts it to another prim, which decrypts it and returns the value of the float, as well as change it's listen to the next randomly determined channel. In this incarnation the script is not practical for transferring data, however can be incorporated into your code to do so.

Thank you to whomever took the time to clean it up for easier viewing and made the changes :)


Encrypter 

//Simple Alpha Hash for practical floats by Beverly Larkin

//WARNING!!!   Before actually using this to transfer any numbers(the principal is the same for strings)  
//CHANGE THE ORDER OF THE LETTERS! - don't leave them sequential (a,b,c, etc.) 
//it might even be a good idea to perform a simple math function on your number before you send it, 
//(before encrypting it obviously). This is not practical for any use by itself, but i present it here 
//for those that wish to customize it for their own needs (change the list in the Decrypter to match 
//this one too :P

string letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnoptuvwxyz";
list numbers = [8388608, 4194304, 2097152, 1048576, 524288, 262144, 131072, 65536, 32768, 16384, 
                8192, 4096, 2048, 1024, 512, 256, 128, 64, 32, 16, 8, 4, 2, 1, 0.75, 0.5, 0.4, 
                0.2, 0.1, 0.05, 0.04, 0.02, 0.01, 0.005, 0.004, 0.002, 0.001, 0.0005, 0.0004, 0.0002, 
                0.0001, 0.00005, 0.00004, 0.00002, 0.00001, 0.000005, 0.000004, 0.000002, 0.000001 ];  

integer com_channel;

float test_number_to_send = 104.7525; //WARNING FLOATING POINT NUMBERS ARE ROUNDED AUTOMATICALLY 
                                      //excessively large numbers will be changed BEFORE they are 
                                      //encrypted, sorry no easy change for this, as this is just a 
                                      //demo script.

// each pass of data includes an encrypted "next channel command" the channel to be used for the next 
// packet of data is determined by:
// integer com_channel = (integer)llFrand((8388608) + 100000) * -1;
// next channel could be lower, but left to a "smaller" range to keep it practical for use with this script


float received_number;

//q = number separator
//r = * -1
//s = channel

string Encrypt(float X)
{
    integer negative = (X < 0.0);
    if( negative )
        X = -X;
    string returned;
    integer int = 0;
    for(; int < 49; ++int)
    {
        if(X >= llList2Float(numbers, int))
        {
            returned += llGetSubString(letters, int, int);
            X -= llList2Float(numbers, int);
        }
    }
    if( negative )
    {
        returned += "r";
    }
    return returned;
}

string Randomized(string X)
{
    integer length = llStringLength(X);
    integer int;
    list randomized;
    for(int = 0; int < length; ++int)
    {
        randomized += llGetSubString(X, int, int);
    }
    return (string)llListRandomize(randomized, 1);
}

default
{
    on_rez(integer X)
    {
        llResetScript();
    }
    
    state_entry()
    {
        llMessageLinked(LINK_THIS, 0, "retrieve", NULL_KEY);
    }
    
    touch_start(integer Z)
    {
        string encrypted;
        string hashed = Encrypt(test_number_to_send);
        hashed = Randomized(hashed);
        encrypted += hashed;
        encrypted += "q";
        integer next_com_channel = (integer)llFrand((8388608) + 100000) * -1;
        hashed = Encrypt(next_com_channel);
        hashed += "s";
        hashed = Randomized(hashed);
        encrypted += hashed;
        llShout(com_channel, encrypted);
        com_channel = next_com_channel;
        llMessageLinked(LINK_THIS, com_channel, "store", NULL_KEY);
        
    }
    link_message(integer SENDER, integer NUM, string STR, key ID)
    {
        if(STR == "com_channel")
        {
            com_channel = NUM;
        }
    }
}


Decrypter 

//Simple Alpha Hash for practical floats by Beverly Larkin

list letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnoptuvwxyz";
list numbers = [8388608, 4194304, 2097152, 1048576, 524288, 262144, 131072, 65536, 32768, 16384, 
                8192, 4096, 2048, 1024, 512, 256, 128, 64, 32, 16, 8, 4, 2, 1, 0.75, 0.5, 0.4, 
                0.2, 0.1, 0.05, 0.04, 0.02, 0.01, 0.005, 0.004, 0.002, 0.001, 0.0005, 0.0004, 0.0002, 
                0.0001, 0.00005, 0.00004, 0.00002, 0.00001, 0.000005, 0.000004, 0.000002, 0.000001 ];  

integer listener;
integer com_channel;

// each pass of data includes an encrypted "next channel command" the channel to be used for the next
// packet of data is determined by:
// integer com_channel = (integer)llFrand((8388608) + 100000) * -1;
// next channel could be lower, but left to a "smaller" range to keep it practical for use with 
// this script

float received_number;

//q = number separator
//r = * -1
//s = channel

list Separate_Numbers(string encrypted)
{
    integer position = llSubStringIndex(encrypted, "q");
    return [llDeleteSubString(encrypted, position, -1), llDeleteSubString(encrypted, 0, position)];
}

float Value(string X)
{
    integer position = llSubStringIndex(letters, X);
    float returned = llList2Float(numbers, position);
    return returned;
}

float Number_Convert(string X)
{
    integer negative = FALSE;
    integer channel = FALSE;
    integer position = llSubStringIndex(X, "r");
    if(~position)
    {
        negative = TRUE;
        X = llDeleteSubString(X, position, position);
    }
    if(~(position = llSubStringIndex(X, "s")))
    {
        channel = TRUE;
        X = llDeleteSubString(X, position, position);
    }
    integer int;
    float returned;
    for(int = 0; int < llStringLength(X); ++int)
    {
        returned += Value(llGetSubString(X, int, int));
    }
    if(negative)
    {
        returned = -returned;
    }
    if(channel)
    {
        com_channel = (integer)returned;
        returned = 0.0;
    }
    return returned;
}

default
{
    on_rez(integer X)
    {
        llResetScript();
    }
    
    state_entry()
    {
        llMessageLinked(LINK_THIS, 0, "retrieve", NULL_KEY);   
    }
    listen(integer channel, string name, key id, string message)
    {
        llListenRemove(listener);
        llOwnerSay("Message received = " + message); // message received from encryt prim
        list BEER = Separate_Numbers(message);
        integer int;
        for(int = 0; int < llGetListLength(BEER); ++int)
        {
            float X = Number_Convert(llList2String(BEER, int));
            if(X)
            {
                received_number = X;
            }
        }
        listener = llListen(com_channel, "", "", "");
        // next channel to receive data on
        llOwnerSay("Next message will be received on channel " +(string)com_channel); 
        llOwnerSay("Decrypted Number is " + (string)received_number); // decrypted number
        llMessageLinked(LINK_THIS, com_channel, "store", NULL_KEY);
    }

    link_message(integer SENDER, integer NUM, string STR, key ID)
    {
        if(STR == "com_channel")
        {
            com_channel = NUM;
            listener = llListen(com_channel, "", "", "");
        }
    }
}

Channel Storage 

integer com_channel = -21747232;
default
{
    link_message(integer SENDER, integer NUM, string STR, key ID)
    {
        if(STR == "store")
        {
            com_channel = NUM;
        }
        else if(STR == "retrieve")
        {
            llMessageLinked(LINK_THIS, com_channel, "com_channel", NULL_KEY);
        }
    }
}
Retrieved from "https://wiki.secondlife.com/w/index.php?title=Basic_Encryption_Modules&oldid=1194962"