//string Aws_secret_key="69UpmIewQNh+Nva4ekyPvk0P1ELBfY5z2Dpg1Qjm";
//tring Aws_access_key="13324DMR90QHWWT0Y502";
string b64pad  = "="; 
integer chrsz = 8;


list core_sha1(list x, integer len)
{
    integer temp2;
    list temp=[(llList2Integer(x,(len >> 5)))|(0x80 << (24 -len % 32))];
       x=llListReplaceList(x,temp,(len >> 5),(len >> 5));
    temp=[];
    list xx=x;
    temp=[len];
    x=[];
    for (temp2=0;temp2<=(((len + 64 >> 9) << 4) + 15);temp2++)
    {
        x+=[0];
    }
    x=llListReplaceList(x,xx,0,llGetListLength(xx)-1);
    temp2=0;
    x=llListReplaceList(x,temp,(((len + 64 >> 9) << 4) + 15),(((len + 64 >> 9) << 4) + 15));
    list w=[];
    integer a =  1732584193;
       integer b = -271733879;
       integer c = -1732584194;
       integer d =  271733878;
       integer e = -1009589776;
    integer i=0;

       for (;i<llGetListLength(x);i+=16)
     {
        integer olda = a;
        integer oldb = b;
        integer oldc = c;
        integer oldd = d;
        integer olde = e;

        integer j=0;
        for(j=0;j<80;j++)
        {
            w+=[0];
        }
        for(j=0;j<80;j++)
        {
            temp=[];
            temp2=0;
               if (j<16) 
            {
                 temp=[llList2Integer(x,i+j)];
         
                }
               else 
            {
                temp2=llList2Integer(w,j-3)^llList2Integer(w,j-8)^llList2Integer(w,j-14)^llList2Integer(w,j-16);
                
               integer inn;
        if (temp2 >= 0)     inn= temp2 >> (31);
    else     inn= (temp2 & 0x7FFFFFFF) >> (31) | 1 << 0;
    temp= [(temp2 << 1) | inn]; 
                
                
                
                //temp=[rol(temp2,1)];
            } 
        
             w=llListReplaceList(w,temp,j,j);
            temp2=0;
            temp2=llList2Integer(w,j);
            integer xy=rol(a,5);
            integer yy=sha1_ft(j,b,c,d);
            
            integer ttt=(((xy & 0xFFFF) + (yy & 0xFFFF))&0xFFFF)|(((xy >> 16) + (yy >> 16) + (((xy & 0xFFFF) + (yy & 0xFFFF)) >> 16))<<16  );
integer ttt2=(((e & 0xFFFF) + (temp2 & 0xFFFF))&0xFFFF)|(((e >> 16) + (temp2 >> 16) + (((e & 0xFFFF) + (temp2 & 0xFFFF)) >> 16))<<16  );
integer ttt3=sha1_kt(j);
integer ttt4=(((ttt2 & 0xFFFF) + (ttt3 & 0xFFFF))&0xFFFF)|(((ttt2 >> 16) + (ttt3 >> 16) + (((ttt2 & 0xFFFF) + (ttt3 & 0xFFFF)) >> 16))<<16  );

             //integer t=safe_add(safe_add(rol(a,5),sha1_ft(j,b,c,d)),safe_add(safe_add(e,temp2),sha1_kt(j)));
integer t=(((ttt & 0xFFFF) + (ttt4 & 0xFFFF))&0xFFFF)|(((ttt >> 16) + (ttt4 >> 16) + (((ttt & 0xFFFF) + (ttt4 & 0xFFFF)) >> 16))<<16  );
//integer t=safe_add(ttt,ttt4);
               e = d;
            d = c;
            c = rol(b, 30);
               b = a;
            a = t;
           }
        a = safe_add(a, olda);
        b = safe_add(b, oldb);
        c = safe_add(c, oldc);
        d = safe_add(d, oldd);
        e = safe_add(e, olde);
    }
    temp=[];
    list temp9=[a,b,c,d,e];
    return temp9;
}

integer sha1_ft(integer t, integer b, integer c,integer d)
{
    integer temp2;
    if(t < 20) {temp2=(b & c) | ((~b) & d);}
    else if(t>=20 && t < 40) {temp2= b ^ c ^ d;}
    else if(t>=40 && t < 60) {temp2= (b & c) | (b & d) | (c & d);}
    else {temp2= b ^ c ^ d;}
    return temp2;
}

integer rol(integer num,integer cnt)
{   integer in;
    if (num >= 0)     in= num >> (32-cnt);
    else     in= (num & 0x7FFFFFFF) >> (32-cnt) | 1 << (cnt-1);
    return (num << cnt) | in;
}

integer sha1_kt(integer t)
{
    integer temp2;
      if (t<20) temp2= 1518500249;
      else if (t>=20&&t<40) temp2= 1859775393;
      else if (t>=40&&t<60) temp2= -1894007588;
      else temp2= -899497514;
      return temp2;


}
integer safe_add(integer x,integer y)
{
    return (((x & 0xFFFF) + (y & 0xFFFF))&0xFFFF)|(((x >> 16) + (y >> 16) + (((x & 0xFFFF) + (y & 0xFFFF)) >> 16))<<16);

}
list sec;
integer co=0;
default
{
    link_message(integer sender_number, integer number, string message, key id)
    { if (id=="00000000-0000-0000-0000-000000000001")
    {    sec=[];
        sec=core_sha1(llCSV2List(message),number);
        message="";
        llMessageLinked(LINK_SET,0,llList2CSV(sec),"00000000-0000-0000-0000-000000000002");
    }
    else if (id=="00000000-0000-0000-0000-000000000003")
    {    sec=[];
        sec=core_sha1(llCSV2List(message),number);
        message="";    
        llMessageLinked(LINK_SET,0,llList2CSV(sec),"00000000-0000-0000-0000-000000000004");
    }
        
    }
}