一日一膳腹八分目

// www.lsleditor.org  by Alphons van der Heijden (SL: Alphons Jano)

integer x = 123456789;

integer y = 362436069;

integer z = 521288629;

integer w = 88675123;

 

//***************************************************

//暗号化

//***************************************************

string alphabet="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/*-+.!\"#$%&'()~^|@{}[]*;?/_";

string encode(string txt)

{

    integer n=llStringLength(txt);

    string s="";

    while(n--)

    {

        integer v=llRound(xorShift128(1.0)*(llStringLength(alphabet)-1));

        s=llGetSubString(alphabet,v,v)+s;

    }

    return llXorBase64StringsCorrect(llStringToBase64(txt),llStringToBase64(s));

}

//***************************************************

//復号

//***************************************************

string decode(string crypt)

{

    integer n=llStringLength(llBase64ToString(crypt));

    string s="";

    while(n--)

    {

        integer v=llRound(xorShift128(1.0)*(llStringLength(alphabet)-1));

        s=llGetSubString(alphabet,v,v)+s;

    }

    return llBase64ToString(llXorBase64StringsCorrect(crypt,llStringToBase64(s)));

}

 

 

//論理右シフト

integer shrl(integer i,integer j)

{

    return ((i >> j) & (0x7fffffff >> j-1));

}

//RSハッシュ

integer rsHash(string str)

{

    integer len=llStringLength(str);

    integer b    = 378551;

    integer a    = 63689;

    integer hash = 0;

    while(str!="")

    {

        if (str!="")

        {

            while (llStringLength(str)<4)

            {

                str=str+" ";

            }

        }

        string s1=llGetSubString(str,0,3);

        str=llGetSubString(str,4,len);

        integer i=llBase64ToInteger(llStringToBase64(s1));

        integer k=llStringLength(s1);

        while(k--)

        {

            hash = hash * a + (((i & (0x000000ff << 8*k)) >> 8*k) & 0x000000ff);

            a    = a * b;

        }

    }

    return hash;

}

//Seed初期化（XorShift32）

randmize(string k)

{

    integer y0=rsHash(k);

    y0=y0^(y0<<13);

    y0=y0^shrl(y0,17);

    x=y0^(y0<<5);

    y0 =y0^(y0<<13);

    y0=y0^shrl(y0,17);

    y=y0^(y0<<5);

    y0=y0^(y0<<13);

    y0= y0^shrl(y0,17);

    z=y0^(y0<<5);

    y0=y0^(y0<<13);

    y0=y0^shrl(y0,17);

    w=y0^(y0<<5);

}

//XorShift乱数（周期2^128-1）

float xorShift128(float f)

{

    do

    {

        integer t = x ^ (x << 11);

        x = y;

        y = z;

        z = w;

        w =(w ^ shrl(w,19)) ^ (t ^ shrl(t,8));

    } while(w==-2147483648);

    return ((float)(2147483647-llAbs(w))/2147483646.0*f);

}


default

{

    state_entry()

    {

        randmize("abdcefg");

    }

    touch_start(integer total_number)

    {

        integer a=x;

        integer b=y;

        integer c=z;

        integer d=w;

        string test="Rocket FM is great!";

        llSay(0,test);

        string crypt=encode(test);

        llSay(0,llBase64ToString(crypt));

        x=a;

        y=b;

        z=c;

        w=d;

        llSay(0,decode(crypt));

    }

}

 

//ハッシュ？の登録

list tmpHash=[];

hash_add(string mykey,list l)

{

    mykey="LSL_TMP_HASH"+mykey;

    integer i=llListFindList(tmpHash,[mykey]);

    if (i<0)

    {

        tmpHash+=[mykey,llGetListLength(l)]+l;

        return;

    }

    else

    {

        integer len=llList2Integer(tmpHash,i+1);

        tmpHash=llListReplaceList(tmpHash,[llGetListLength(l)]+l,i+1,i+len+1);

    }

}

//ハッシュ？の削除

//削除されたリストを返す

list hash_remove(string mykey)

{

    mykey="LSL_TMP_HASH"+mykey;

    integer i=llListFindList(tmpHash,[mykey]);

    if (i<0)

    {

        return [];

    }

    else

    {

        integer len=llList2Integer(tmpHash,i+1);

        list l=llList2List(tmpHash,i+2,i+len+1);

        tmpHash=llListReplaceList(tmpHash,[],i,i+len+1);

        return l;

    }

}

//ハッシュ？の読み出し

list hash(string mykey)

{

    mykey="LSL_TMP_HASH"+mykey;

    integer i=llListFindList(tmpHash,[mykey]);

    if (i<0) return [];

    integer len=llList2Integer(tmpHash,i+1);

    return llList2List(tmpHash,i+2,i+len+1);

}

//ハッシュ？の全消し

hash_clear()

{

    tmpHash=[];

}

 

 

// www.lsleditor.org  by Alphons van der Heijden (SL: Alphons Jano)

float round(float a,integer p)

{

    float t=llPow(10.0,p);

    return llRound(a*t)/t;

}

test(float theta)

{

        if (ceil(theta,6)==ceil(0.5*PI,6))        {

            llSay(0, "0.5");

        }else if (ceil(theta,6)==ceil(1.5*PI,6))

    {

        llSay(0, "1.5");

    }

 

}

default

{

    state_entry()

    {

        integer i=64;

        float dtheta=2.0*PI/i;

        float theta=0;

        while(i--)

        {

            theta=dtheta*i;

            test(theta);

        }

    }

}