// Ama's Simple Cypher v. 0.3

// Feel free to reorganize either of these.  Infact, doing so is recommended.
// Just remember - these must match whatever strings are in the partner script you are communicating with.
string ASCII = " ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890`-=~!@#$%^&*()_+[]\\{}|;':\",./<>? ";
string CODE = " ABCDEFGHIJKLMNOPQRSTUVWXYZadbcefghijklmnopqrstuvwxyz1234567890`-=~!@#$%^&*()_+[]\\{}|;':\",./<>? ";
string PWD;
integer asciiLength;  // asciiLength = llStringLength(ASCII); in state_entry of default
integer passLength;
string ret;
integer i;
integer bit;
integer size;
list coms;

string encode(string mes, string pwd)
{
    ret = "";
    size = llStringLength(mes);
    passLength = llStringLength(pwd);
    for (i=0;i<size;i++)
    {
        bit = (llSubStringIndex(ASCII,llGetSubString(mes,i,i)) + (integer)llGetSubString(pwd,i%passLength,i%passLength) ) % asciiLength;
        ret +=  llGetSubString(CODE,bit,bit);
    }
    return ret;
}

string decode(string mes, string pwd)
{
    ret = "";
    size = llStringLength(mes);
    passLength = llStringLength(pwd);
    for (i=0;i<size;i++)
    {
        bit = (llSubStringIndex(CODE,llGetSubString(mes,i,i)) - (integer)llGetSubString(pwd,i%passLength,i%passLength) ) % asciiLength;
        ret +=  llGetSubString(ASCII,bit,bit);
    }
    return ret;
}

default
{
    state_entry()
    {
        asciiLength = llStringLength(ASCII);
        llListen(0,"",llGetOwner(),"");
    }

    listen(integer chan, string name, key id, string mes)
    {
        coms = llCSV2List(mes);
        llWhisper(0,encode(llList2String(coms,1),llList2String(coms,0)) + "," + decode(llList2String(coms,1),llList2String(coms,0)));
    }
}