Difference between revisions of "SHA-2"

From Second Life Wiki
Jump to navigation Jump to search
(Reverting to January 2008, last verion that seems to pass tests)
Line 1: Line 1:
{{LSL Header}}{{RightToc}}
{{LSL Header}}{{RightToc}}
Preforms a SHA-2 Hash on the text. Similar to and MD5 hash, although (slightly) more secure. Two versions of the function are provided, one for UTF-8 Strings (all strings in LSL are UTF-8) and the other is for Base64 Strings (you need to tell it how many bits long the data is).
Preforms a SHA2 Hash on the text. Similar to and MD5 hash, although (slightly) more secure. Two versions of the function are provided, one for UTF-8 Strings (all strings in LSL are UTF-8) and the other is for Base64 Strings (you need to tell it how many bits long the data is).


View {{Wikipedia|SHA-2}} for more information.
View http://en.wikipedia.org/wiki/SHA1 for more information.


==SHA-256==
==SHA-256==
<span style="color:red">'''(The validity of this script is in question. See the discussion section.)'''</span>


<lsl>//////////////////////////////////////////////////////////////////////////////////////
<lsl>//////////////////////////////////////////////////////////////////////////////////////
//
//
// UTF-8 SHA-2 SHA-256
// UTF-8 SHA2-256
// Version 1.2
// Version 1.1
// ESL Compiled: "Dec 13 2010", "01:29:52"
// ESL Compiled: "Oct 25 2007", "14:34:37"
// Copyright (C) 2007  Strife Onizuka
// Copyright (C) 2007  Strife Onizuka
// Based on Pseudo-code from http://en.wikipedia.org/wiki/SHA-2
// Based on Pseudo-code from http://en.wikipedia.org/wiki/SHA1
// https://wiki.secondlife.com/wiki/SHA-1
// https://wiki.secondlife.com/wiki/SHA2
//
//
// This library is free software; you can redistribute it and/or
// This library is free software; you can redistribute it and/or
Line 36: Line 34:
//===================================================//
//===================================================//
//                Combined Library                  //
//                Combined Library                  //
//            "Dec 13 2010", "01:29:52"            //
//            "Oct 25 2007", "14:34:37"            //
//  Copyright (C) 2004-2008, Strife Onizuka (cc-by)  //
//  Copyright (C) 2004-2007, Strife Onizuka (cc-by)  //
//    http://creativecommons.org/licenses/by/3.0/    //
//    http://creativecommons.org/licenses/by/3.0/    //
//===================================================//
//===================================================//
//{
//{


string TrimRight(string src, string chrs)//LSLEditor Safe, LSO Safe
string TrimRight(string src, string chrs)//Mono Unsafe, LSO Safe
{
{
     integer i = llStringLength(src);
     integer i = llStringLength(src);
    integer j = i;
     do;while(~llSubStringIndex(chrs, llGetSubString(src, (i = ~-i), i)) && i);
     do ; while(~llSubStringIndex(chrs, llGetSubString(src, i = ~-(j = i), i)) && j);
     return llDeleteSubString(src, (-~(i)), 0xFFFF);
     return llDeleteSubString(src, j, 0x7FFFFFF0);
}
}


Line 54: Line 51:
//} Combined Library
//} Combined Library


list k1 = [  
 
list k = [  
     0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5, 0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
     0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5, 0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
     0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3, 0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174];
     0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3, 0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
list k2 = [
     0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc, 0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
     0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc, 0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
     0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7, 0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
     0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7, 0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
Line 65: Line 62:
     0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208, 0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2];
     0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208, 0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2];


string UTF8_SHA_256(string plain) {  
string UTF8_SHA_256(string plain) {
     integer H1 = 0x6a09e667;
     integer H1 = 0x6a09e667;
     integer H2 = 0xbb67ae85;
     integer H2 = 0xbb67ae85;
Line 76: Line 73:


     //OR on the extra bit.
     //OR on the extra bit.
     integer j = llStringLength(plain = llStringToBase64(plain));
     integer j = llStringLength(plain) << 3;
     integer T = 0x80000000;
     integer b = (~-(((j + 552) & -512) >> 5));
    if (j) {
    integer T = llBase64ToInteger(TrimRight(llGetSubString(plain = llStringToBase64(plain), -4, -1),"=")+"AAAA");
        do ; while (llGetSubString(plain, (j = ~-j), j) == "=");
        j = (-6 * ~j) & -8;
        T = llBase64ToInteger((llGetSubString(plain, -4, j / 6)) + "AAAAAA") | (0x00000080 << ((j % 3) << 3));
    }
    integer b = ((j + 40) >> 5) | 15;
     string buf = "AAA";
     string buf = "AAA";
     integer i = -5;
     integer i = -5;
    do buf += buf; while((i = -~i));
do buf += buf; while((i = -~i));
    if(j)
    {
        i = 0x800000;
        if(T & 0xFF00)
            i = 0x00000080;
        else if(T & 0xFF0000)
            i = 0x00008000;
    }
    else
        T = 0x80000000;//T is corrupt because of https://jira.secondlife.com/browse/SVC-104
//    llOwnerSay(llList2CSV([i,j]));
//    llOwnerSay(llList2CSV([i,j]));
     plain = llGetSubString( llDeleteSubString(plain, -4, -1) +  
     plain = llGetSubString( llDeleteSubString(plain, -4, -1) +  
                             llGetSubString(llIntegerToBase64(T), 0, 5) +  
                             llGetSubString(llIntegerToBase64(T | i), 0, 5) +  
                             buf, 0, (b << 5) / 6) +  
                             buf, 0, (b << 4) / 3) +  
             llIntegerToBase64(j << (6 - ((b % 3) << 1)));
             llIntegerToBase64(j << (6 - ((b % 3) << 1)));
     list x;
     list x;
     integer S = 0;
     integer S;
    do
    i = 0;
do
     {
     {
         integer A = H1;
         integer A = H1;
Line 107: Line 110:
         do
         do
         {
         {
             T = llBase64ToInteger(buf = llGetSubString(plain, T = (((i + j) << 4) / 3), T + 6)) << (S = (((i + j) % 3) << 1));
             T = llBase64ToInteger(buf = llGetSubString(plain, T = ((i + j) << 4) / 3, T+6)) << (S = (((i + j) % 3) << 1));
             if(S)
             if(S)
                 T = T | (llBase64ToInteger("A" + (llDeleteSubString(buf, 0, 1))) >> (6 - S));
                 T = T | (llBase64ToInteger("A"+llDeleteSubString(buf, 0, 1)) >> (6 - S));
//            llOwnerSay("W["+(string)j+"]="+hex(T));
//            llOwnerSay("W["+(string)j+"]="+hex(T));
             x += T;
             x += T;
             T += H + (((E << 26) | ((E >>  6) & 0x03FFFFFF)) ^  
             T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^  
                       ((E << 21) | ((E >> 11) & 0x001FFFFF)) ^  
                       ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^  
                       ((E <<  7) | ((E >> 25) & 0x000007F))) +  
                       ((E <<  7) | ((E >> 25) & 0x7F))) +  
                     (G ^ (E & (F ^ G))) +
                     ((E & F) ^ ((~E) & G)) + llList2Integer(k, j);
                    llList2Integer(k1, j);
             H = G;
             H = G;
             G = F;
             G = F;
Line 125: Line 127:
             B = A;
             B = A;
             A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
             A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
                     ((B << 19) | ((B >> 13) & 0x0007FFFF)) ^  
                     ((B << 19) | ((B >> 13) & 0x7FFFF)) ^  
                     ((B << 10) | ((B >> 22) & 0x000003FF))) +  
                     ((B << 10) | ((B >> 22) & 0x3FF))) +  
                     ((B & C) ^ (B & D) ^ (C & D));
                     ((B & C) ^ (B & D) ^ (C & D));
         }while(16 > (j = -~j));
         }while(16 > (j = -~j));
Line 132: Line 134:
         do
         do
         {
         {
             x = llList2List(x, -16, -1);
             T = llList2Integer(x, -15);
            do
            S = llList2Integer(x, -2);
            {
            x = llList2List(x + T = llList2Integer(x,  -16) +  
                T = llList2Integer(x, -15);
                                    (((T << 25) | ((T >>  7) & 0x1FFFFFF)) ^  
                S = llList2Integer(x, -2);
                                    ((T << 14) | ((T >> 18) & 0x3FFF)) ^  
                x += T = llList2Integer(x,  -16) +  
                                    ((T >> 3) & 0x1FFFFFFF)) +  
                        (((T << 25) | ((T >>  7) & 0x01FFFFFF)) ^  
                                    llList2Integer(x,  -7) +  
                          ((T << 14) | ((T >> 18) & 0x00003FFF)) ^  
                                    (((S << 15) | ((S >> 17) & 0x0007FFF)) ^  
                          ((T >> 3) & 0x1FFFFFFF)) +  
                                    ((S << 13) | ((S >> 19) & 0x1FFF)) ^  
                        llList2Integer(x,  -7) +  
                                    ((S >> 10) & 0x03FFFFF)), -16, -1);
                        (((S << 15) | ((S >> 17) & 0x00007FFF)) ^  
//           llOwnerSay("W["+(string)j+"]="+hex(T));
                          ((S << 13) | ((S >> 19) & 0x00001FFF)) ^  
            T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^  
                          ((S >> 10) & 0x3FFFFF));
                      ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^  
//               llOwnerSay("W["+(string)j+"]="+hex(T));
                      ((E <<  7) | ((E >> 25) & 0x7F))) +  
                T += H + (((E << 26) | ((E >>  6) & 0x03FFFFFF)) ^  
                    ((E & F) ^ ((~E) & G)) + llList2Integer(k, j);
                          ((E << 21) | ((E >> 11) & 0x001FFFFF)) ^  
            H = G;
                          ((E <<  7) | ((E >> 25) & 0x0000007F))) +  
            G = F;
                        (G ^ (E & (F ^ G))) +
            F = E;
                        llList2Integer(k2, j - 16);
            E = D + T;
                H = G;
            D = C;
                G = F;
            C = B;
                F = E;
            B = A;
                E = D + T;
            A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
                D = C;
                    ((B << 19) | ((B >> 13) & 0x7FFFF)) ^  
                C = B;
                    ((B << 10) | ((B >> 22) & 0x3FF))) +  
                B = A;
                    ((B & C) ^ (B & D) ^ (C & D));
                A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
        }while(64 > (j = -~j));
                        ((B << 19) | ((B >> 13) & 0x0007FFFF)) ^  
                        ((B << 10) | ((B >> 22) & 0x000003FF))) +  
                        ((B & C) ^ (B & D) ^ (C & D));
            }while(3 & (j = -~j));
        }while(64 > j);
         H1 += A;
         H1 += A;
         H2 += B;
         H2 += B;
Line 172: Line 169:
         H7 += G;
         H7 += G;
         H8 += H;
         H8 += H;
     }while(b > (i += 16));
     }while(b > i += 16);
    x = [H1, H2, H3, H4, H5, H6, H7, H8];
x = [H1, H2, H3, H4, H5, H6, H7, H8];
     i = -8;
     i = -8;
    buf = "";
buf = "";
     do
     do
     {
     {
Line 187: Line 184:
}
}


string Base64_SHA_256(string plain, integer bit_length) { //$[E20009]
string Base64_SHA_256(string plain, integer bit_length) {//$[E20009]
     integer H1 = 0x6a09e667;
     integer H1 = 0x6a09e667;
     integer H2 = 0xbb67ae85;
     integer H2 = 0xbb67ae85;
Line 202: Line 199:
     string buf = "AAA";
     string buf = "AAA";
     integer i = -5;
     integer i = -5;
    do buf += buf; while((i = -~i));
do buf += buf; while((i = -~i));
     if(bit_length)
     if(bit_length)
     {
     {
Line 213: Line 210:
     else
     else
         T = 0x80000000;//T is corrupt because of https://jira.secondlife.com/browse/SVC-104
         T = 0x80000000;//T is corrupt because of https://jira.secondlife.com/browse/SVC-104
//    llOwnerSay(llList2CSV([i,j]));
//    llOwnerSay(llList2CSV([i,bit_length]));
     plain = llGetSubString( llDeleteSubString(plain, -4, -1) +  
     plain = llGetSubString( llDeleteSubString(plain, -4, -1) +  
                             llGetSubString(llIntegerToBase64(T | i), 0, 5) +  
                             llGetSubString(llIntegerToBase64(T | i), 0, 5) +  
Line 219: Line 216:
             llIntegerToBase64(bit_length << (6 - ((b % 3) << 1)));
             llIntegerToBase64(bit_length << (6 - ((b % 3) << 1)));
     list x;
     list x;
     integer S = i = 0;
     integer S;
    do
    i = 0;
do
     {
     {
         integer A = H1;
         integer A = H1;
Line 231: Line 229:
         integer H = H8;
         integer H = H8;
         x = (list)(bit_length = 0);//the zero gets flushed off the stack by the later loop
         x = (list)(bit_length = 0);//the zero gets flushed off the stack by the later loop
        do
do
         {
         {
             T = llBase64ToInteger(buf = llGetSubString(plain, T = (((i + bit_length) << 4) / 3), T+6)) << (S = (((i + bit_length) % 3) << 1));
             T = llBase64ToInteger(buf = llGetSubString(plain, T = ((i + bit_length) << 4) / 3, T+6)) << (S = (((i + bit_length) % 3) << 1));
             if(S)
             if(S)
                 T = T | (llBase64ToInteger("A" + (llDeleteSubString(buf, 0, 1))) >> (6 - S));
                 T = T | (llBase64ToInteger("A"+llDeleteSubString(buf, 0, 1)) >> (6 - S));
//            llOwnerSay("W["+(string)j+"]="+hex(T));
//            llOwnerSay("W["+(string)bit_length+"]="+hex(T));
             x += T;
             x += T;
             T += H + (((E << 26) | ((E >>  6) & 0x03FFFFFF)) ^  
             T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^  
                       ((E << 21) | ((E >> 11) & 0x001FFFFF)) ^  
                       ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^  
                       ((E <<  7) | ((E >> 25) & 0x0000007F))) +  
                       ((E <<  7) | ((E >> 25) & 0x7F))) +  
                     (G ^ (E & (F ^ G))) +  
                     ((E & F) ^ ((~E) & G)) + llList2Integer(k, bit_length);
                    llList2Integer(k1, bit_length);
             H = G;
             H = G;
             G = F;
             G = F;
Line 251: Line 248:
             B = A;
             B = A;
             A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
             A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
                     ((B << 19) | ((B >> 13) & 0x0007FFFF)) ^  
                     ((B << 19) | ((B >> 13) & 0x7FFFF)) ^  
                     ((B << 10) | ((B >> 22) & 0x000003FF))) +  
                     ((B << 10) | ((B >> 22) & 0x3FF))) +  
                     ((B & C) ^ (B & D) ^ (C & D));
                     ((B & C) ^ (B & D) ^ (C & D));
         }while(16 > (bit_length = -~bit_length));
         }while(16 > (bit_length = -~bit_length));
Line 258: Line 255:
         do
         do
         {
         {
             x = llList2List(x, -16, -1);
             T = llList2Integer(x, -15);
            do
            S = llList2Integer(x, -2);
            {
            x = llList2List(x + T = llList2Integer(x,  -16) +  
                T = llList2Integer(x, -15);
                                    (((T << 25) | ((T >>  7) & 0x1FFFFFF)) ^  
                S = llList2Integer(x, -2);
                                    ((T << 14) | ((T >> 18) & 0x3FFF)) ^  
                x += T = llList2Integer(x,  -16) +  
                                    ((T >> 3) & 0x1FFFFFFF)) +  
                        (((T << 25) | ((T >>  7) & 0x01FFFFFF)) ^  
                                    llList2Integer(x,  -7) +  
                          ((T << 14) | ((T >> 18) & 0x00003FFF)) ^  
                                    (((S << 15) | ((S >> 17) & 0x7FFF)) ^  
                          ((T >> 3) & 0x1FFFFFFF)) +  
                                    ((S << 13) | ((S >> 19) & 0x1FFF)) ^  
                        llList2Integer(x,  -7) +  
                                    ((S >> 10) & 0x3FFFFF)), -16, -1);
                        (((S << 15) | ((S >> 17) & 0x00007FFF)) ^  
//            llOwnerSay("W["+(string)bit_length+"]="+hex(T));
                          ((S << 13) | ((S >> 19) & 0x00001FFF)) ^  
            T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^  
                          ((S >> 10) & 0x3FFFFF));
                      ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^  
    //            llOwnerSay("W["+(string)j+"]="+hex(T));
                      ((E <<  7) | ((E >> 25) & 0x7F))) +  
                T += H + (((E << 26) | ((E >>  6) & 0x03FFFFFF)) ^  
                    ((E & F) ^ ((~E) & G)) + llList2Integer(k, bit_length);
                          ((E << 21) | ((E >> 11) & 0x001FFFFF)) ^  
            H = G;
                          ((E <<  7) | ((E >> 25) & 0x0000007F))) +  
            G = F;
                        (G ^ (E & (F ^ G))) +
            F = E;
                        llList2Integer(k2, bit_length - 16);
            E = D + T;
                H = G;
            D = C;
                G = F;
            C = B;
                F = E;
            B = A;
                E = D + T;
            A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
                D = C;
                    ((B << 19) | ((B >> 13) & 0x7FFFF)) ^  
                C = B;
                    ((B << 10) | ((B >> 22) & 0x3FF))) +  
                B = A;
                    ((B & C) ^ (B & D) ^ (C & D));
                A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
        }while(64 > (bit_length = -~bit_length));
                        ((B << 19) | ((B >> 13) & 0x0007FFFF)) ^  
                        ((B << 10) | ((B >> 22) & 0x000003FF))) +  
                        ((B & C) ^ (B & D) ^ (C & D));
            }while(3 & (bit_length = -~bit_length));
        }while(64 > bit_length);
         H1 += A;
         H1 += A;
         H2 += B;
         H2 += B;
Line 298: Line 290:
         H7 += G;
         H7 += G;
         H8 += H;
         H8 += H;
     }while(b > (i += 16));
     }while(b > i += 16);
     x = [H1, H2, H3, H4, H5, H6, H7, H8];
     x = [H1, H2, H3, H4, H5, H6, H7, H8];
     i = -8;
     i = -8;
Line 313: Line 305:
}
}


integer go(string in, string answer)
go(string in, string answer)
{
{
     llOwnerSay("");
     llOwnerSay("");
Line 319: Line 311:
     string out = UTF8_SHA_256(in);
     string out = UTF8_SHA_256(in);
     float t = llGetTime();
     float t = llGetTime();
     llOwnerSay(llList2CSV(([out,t,llStringLength(in)])));
     llOwnerSay(llList2CSV([out,t,llStringLength(in)]));
     if(answer)
     if(answer)llOwnerSay(answer);
    {
        llOwnerSay(answer);
        return answer == out;
    }
    return TRUE;
}
}


Line 332: Line 319:
     state_entry()
     state_entry()
     {
     {
         if(go("","E3B0C44298FC1C149AFBF4C8996FB92427AE41E4649B934CA495991B7852B855"))
         go("","E3B0C44298FC1C149AFBF4C8996FB92427AE41E4649B934CA495991B7852B855");
            if(go("abc","BA7816BF8F01CFEA414140DE5DAE2223B00361A396177A9CB410FF61F20015AD"))
        go("abc","BA7816BF8F01CFEA414140DE5DAE2223B00361A396177A9CB410FF61F20015AD");
                if(go("The quick brown fox jumps over the lazy dog","D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592"))
        go("The quick brown fox jumps over the lazy dog","D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592");
                    go("D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592","");
        go("D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592","");
//        llOwnerSay((string)llGetTime());
//        llOwnerSay((string)llGetTime());
     }
     }
Line 344: Line 331:
<lsl>//////////////////////////////////////////////////////////////////////////////////////
<lsl>//////////////////////////////////////////////////////////////////////////////////////
//
//
// UTF-8 SHA-2 SHA-224
// UTF-8 SHA2-224
// Version 1.2
// Version 1.1
// ESL Compiled: "Dec 13 2010", "01:34:46"
// ESL Compiled: "Oct 25 2007", "14:34:57"
// Copyright (C) 2010 Strife Onizuka
// Copyright (C) 2007 Strife Onizuka
// Based on Pseudo-code from http://en.wikipedia.org/wiki/SHA-2
// Based on Pseudo-code from http://en.wikipedia.org/wiki/SHA1
// https://wiki.secondlife.com/wiki/SHA-1
// https://wiki.secondlife.com/wiki/SHA2
//
//
// This library is free software; you can redistribute it and/or
// This library is free software; you can redistribute it and/or
Line 370: Line 357:
//===================================================//
//===================================================//
//                Combined Library                  //
//                Combined Library                  //
//            "Dec 13 2010", "01:34:46"            //
//            "Oct 25 2007", "14:34:57"            //
//  Copyright (C) 2004-2008, Strife Onizuka (cc-by)  //
//  Copyright (C) 2004-2007, Strife Onizuka (cc-by)  //
//    http://creativecommons.org/licenses/by/3.0/    //
//    http://creativecommons.org/licenses/by/3.0/    //
//===================================================//
//===================================================//
//{
//{


string TrimRight(string src, string chrs)//LSLEditor Safe, LSO Safe
string TrimRight(string src, string chrs)//Mono Unsafe, LSO Safe
{
{
     integer i = llStringLength(src);
     integer i = llStringLength(src);
    integer j = i;
     do;while(~llSubStringIndex(chrs, llGetSubString(src, (i = ~-i), i)) && i);
     do ; while(~llSubStringIndex(chrs, llGetSubString(src, i = ~-(j = i), i)) && j);
     return llDeleteSubString(src, (-~(i)), 0xFFFF);
     return llDeleteSubString(src, j, 0x7FFFFFF0);
}
}


Line 388: Line 374:
//} Combined Library
//} Combined Library


list k1 = [  
 
list k = [  
     0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5, 0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
     0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5, 0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
     0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3, 0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174];
     0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3, 0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
list k2 = [
     0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc, 0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
     0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc, 0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
     0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7, 0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
     0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7, 0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
Line 410: Line 396:


     //OR on the extra bit.
     //OR on the extra bit.
     integer j = llStringLength(plain = llStringToBase64(plain));
     integer j = llStringLength(plain) << 3;
     integer T = 0x80000000;
     integer b = (~-(((j + 552) & -512) >> 5));
    if (j) {
    integer T = llBase64ToInteger(TrimRight(llGetSubString(plain = llStringToBase64(plain), -4, -1),"=")+"AAAA");
        do ; while (llGetSubString(plain, (j = ~-j), j) == "=");
        j = (-6 * ~j) & -8;
        T = llBase64ToInteger((llGetSubString(plain, -4, j / 6)) + "AAAAAA") | (0x00000080 << ((j % 3) << 3));
    }
    integer b = ((j + 40) >> 5) | 15;
     string buf = "AAA";
     string buf = "AAA";
     integer i = -5;
     integer i = -5;
    do buf += buf; while((i = -~i));
do buf += buf; while((i = -~i));
    if(j)
    {
        i = 0x800000;
        if(T & 0xFF00)
            i = 0x00000080;
        else if(T & 0xFF0000)
            i = 0x00008000;
    }
    else
        T = 0x80000000;//T is corrupt because of https://jira.secondlife.com/browse/SVC-104
//    llOwnerSay(llList2CSV([i,j]));
//    llOwnerSay(llList2CSV([i,j]));
     plain = llGetSubString( llDeleteSubString(plain, -4, -1) +  
     plain = llGetSubString( llDeleteSubString(plain, -4, -1) +  
                             llGetSubString(llIntegerToBase64(T), 0, 5) +  
                             llGetSubString(llIntegerToBase64(T | i), 0, 5) +  
                             buf, 0, (b << 5) / 6) +  
                             buf, 0, (b << 4) / 3) +  
             llIntegerToBase64(j << (6 - ((b % 3) << 1)));
             llIntegerToBase64(j << (6 - ((b % 3) << 1)));
     list x;
     list x;
     integer S = 0;
     integer S;
    i = 0;
     do
     do
     {
     {
Line 443: Line 435:
             T = llBase64ToInteger(buf = llGetSubString(plain, T = ((i + j) << 4) / 3, 6+T)) << (S = (((i + j) % 3) << 1));
             T = llBase64ToInteger(buf = llGetSubString(plain, T = ((i + j) << 4) / 3, 6+T)) << (S = (((i + j) % 3) << 1));
             if(S)
             if(S)
                 T = T | (llBase64ToInteger("A" + (llDeleteSubString(buf, 0, 1))) >> (6 - S));
                 T = T | (llBase64ToInteger("A"+llDeleteSubString(buf, 0, 1)) >> (6 - S));
//            llOwnerSay("W["+(string)j+"]="+hex(T));
//            llOwnerSay("W["+(string)j+"]="+hex(T));
             x += T;
             x += T;
             T += H + (((E << 26) | ((E >>  6) & 0x03FFFFFF)) ^  
             T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^  
                       ((E << 21) | ((E >> 11) & 0x001FFFFF)) ^  
                       ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^  
                       ((E <<  7) | ((E >> 25) & 0x0000007F))) +  
                       ((E <<  7) | ((E >> 25) & 0x7F))) +  
                     ((E & F) ^ ((~E) & G)) + llList2Integer(k1, j);
                     ((E & F) ^ ((~E) & G)) + llList2Integer(k, j);
             H = G;
             H = G;
             G = F;
             G = F;
Line 458: Line 450:
             B = A;
             B = A;
             A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
             A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
                     ((B << 19) | ((B >> 13) & 0x0007FFFF)) ^  
                     ((B << 19) | ((B >> 13) & 0x7FFFF)) ^  
                     ((B << 10) | ((B >> 22) & 0x000003FF))) +  
                     ((B << 10) | ((B >> 22) & 0x3FF))) +  
                     ((B & C) ^ (B & D) ^ (C & D));
                     ((B & C) ^ (B & D) ^ (C & D));
         }while(16 > (j = -~j));
         }while(16 > (j = -~j));
Line 467: Line 459:
             T = llList2Integer(x, -15);
             T = llList2Integer(x, -15);
             S = llList2Integer(x, -2);
             S = llList2Integer(x, -2);
             x = llList2List(x + (T = (llList2Integer(x,  -16) +  
             x = llList2List(x + T = llList2Integer(x,  -16) +  
                                     (((T << 25) | ((T >>  7) & 0x01FFFFFF)) ^  
                                     (((T << 25) | ((T >>  7) & 0x1FFFFFF)) ^  
                                     ((T << 14) | ((T >> 18) & 0x00003FFF)) ^  
                                     ((T << 14) | ((T >> 18) & 0x3FFF)) ^  
                                     ((T >>  3) & 0x1FFFFFFF)) +  
                                     ((T >>  3) & 0x1FFFFFFF)) +  
                                     llList2Integer(x,  -7) +  
                                     llList2Integer(x,  -7) +  
                                     (((S << 15) | ((S >> 17) & 0x00007FFF)) ^  
                                     (((S << 15) | ((S >> 17) & 0x0007FFF)) ^  
                                     ((S << 13) | ((S >> 19) & 0x00001FFF)) ^  
                                     ((S << 13) | ((S >> 19) & 0x1FFF)) ^  
                                     ((S >> 10) & 0x003FFFFF)))), -16, -1);
                                     ((S >> 10) & 0x03FFFFF)), -16, -1);
//            llOwnerSay("W["+(string)j+"]="+hex(T));
//            llOwnerSay("W["+(string)j+"]="+hex(T));
             T += H + (((E << 26) | ((E >>  6) & 0x03FFFFFF)) ^  
             T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^  
                       ((E << 21) | ((E >> 11) & 0x001FFFFF)) ^  
                       ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^  
                       ((E <<  7) | ((E >> 25) & 0x0000007F))) +  
                       ((E <<  7) | ((E >> 25) & 0x7F))) +  
                     ((E & F) ^ ((~E) & G)) + llList2Integer(k2, j - 16);
                     ((E & F) ^ ((~E) & G)) + llList2Integer(k, j);
             H = G;
             H = G;
             G = F;
             G = F;
Line 488: Line 480:
             B = A;
             B = A;
             A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
             A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
                     ((B << 19) | ((B >> 13) & 0x0007FFFF)) ^  
                     ((B << 19) | ((B >> 13) & 0x7FFFF)) ^  
                     ((B << 10) | ((B >> 22) & 0x000003FF))) +  
                     ((B << 10) | ((B >> 22) & 0x3FF))) +  
                     ((B & C) ^ (B & D) ^ (C & D));
                     ((B & C) ^ (B & D) ^ (C & D));
         }while(64 > (j = -~j));
         }while(64 > (j = -~j));
Line 500: Line 492:
         H7 += G;
         H7 += G;
         H8 += H;
         H8 += H;
     }while(b > (i += 16));
     }while(b > i += 16);
     x = [H1, H2, H3, H4, H5, H6, H7];//, H8];
     x = [H1, H2, H3, H4, H5, H6, H7];//, H8];
     i = -7;
     i = -7;
Line 515: Line 507:
}
}


string Base64_SHA_224(string plain, integer bit_length) { //$[E20009]
string Base64_SHA_224(string plain, integer bit_length) {//$[E20009]
     integer H1 = 0xC1059ED8;
     integer H1 = 0xC1059ED8;
     integer H2 = 0x367CD507;
     integer H2 = 0x367CD507;
Line 527: Line 519:
     //OR on the extra bit.
     //OR on the extra bit.
     integer b = (~-(((bit_length + 552) & -512) >> 5));
     integer b = (~-(((bit_length + 552) & -512) >> 5));
     integer T = llBase64ToInteger((TrimRight(llGetSubString(plain = llStringToBase64(plain), -4, -1),"=")) + "AAAA");
     integer T = llBase64ToInteger(TrimRight(llGetSubString(plain = llStringToBase64(plain), -4, -1),"=")+"AAAA");
     string buf = "AAA";
     string buf = "AAA";
     integer i = -5;
     integer i = -5;
    do buf += buf; while((i = -~i));
do buf += buf; while((i = -~i));
     if(bit_length)
     if(bit_length)
     {
     {
Line 541: Line 533:
     else
     else
         T = 0x80000000;//T is corrupt because of https://jira.secondlife.com/browse/SVC-104
         T = 0x80000000;//T is corrupt because of https://jira.secondlife.com/browse/SVC-104
//    llOwnerSay(llList2CSV([i,j]));
//    llOwnerSay(llList2CSV([i,bit_length]));
     plain = llGetSubString( llDeleteSubString(plain, -4, -1) +  
     plain = llGetSubString( llDeleteSubString(plain, -4, -1) +  
                             llGetSubString(llIntegerToBase64(T | i), 0, 5) +  
                             llGetSubString(llIntegerToBase64(T | i), 0, 5) +  
Line 547: Line 539:
             llIntegerToBase64(bit_length << (6 - ((b % 3) << 1)));
             llIntegerToBase64(bit_length << (6 - ((b % 3) << 1)));
     list x;
     list x;
     integer S = i = 0;
     integer S;
    i = 0;
     do
     do
     {
     {
Line 561: Line 554:
         do
         do
         {
         {
             T = llBase64ToInteger(buf = llGetSubString(plain, T = ((i + bit_length) << 4) / 3, 6+T)) << (S = (((i + bit_length) % 3) << 1));
             T = llBase64ToInteger(buf = llGetSubString(plain, T = ((i + bit_length) << 4) / 3, T+6)) << (S = (((i + bit_length) % 3) << 1));
             if(S)
             if(S)
                 T = T | (llBase64ToInteger("A" + (llDeleteSubString(buf, 0, 1))) >> (6 - S));
                 T = T | (llBase64ToInteger("A"+llDeleteSubString(buf, 0, 1)) >> (6 - S));
//            llOwnerSay("W["+(string)j+"]="+hex(T));
//            llOwnerSay("W["+(string)bit_length+"]="+hex(T));
             x += T;
             x += T;
             T += H + (((E << 26) | ((E >>  6) & 0x03FFFFFF)) ^  
             T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^  
                       ((E << 21) | ((E >> 11) & 0x001FFFFF)) ^  
                       ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^  
                       ((E <<  7) | ((E >> 25) & 0x0000007F))) +  
                       ((E <<  7) | ((E >> 25) & 0x7F))) +  
                     ((E & F) ^ ((~E) & G)) + llList2Integer(k1, bit_length);
                     ((E & F) ^ ((~E) & G)) + llList2Integer(k, bit_length);
             H = G;
             H = G;
             G = F;
             G = F;
Line 578: Line 571:
             B = A;
             B = A;
             A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
             A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
                     ((B << 19) | ((B >> 13) & 0x0007FFFF)) ^  
                     ((B << 19) | ((B >> 13) & 0x7FFFF)) ^  
                     ((B << 10) | ((B >> 22) & 0x000003FF))) +  
                     ((B << 10) | ((B >> 22) & 0x3FF))) +  
                     ((B & C) ^ (B & D) ^ (C & D));
                     ((B & C) ^ (B & D) ^ (C & D));
         }while(16 > (bit_length = -~bit_length));
         }while(16 > (bit_length = -~bit_length));
Line 587: Line 580:
             T = llList2Integer(x, -15);
             T = llList2Integer(x, -15);
             S = llList2Integer(x, -2);
             S = llList2Integer(x, -2);
             x = llList2List(x + (T = (llList2Integer(x,  -16) +  
             x = llList2List(x + T = llList2Integer(x,  -16) +  
                                     (((T << 25) | ((T >>  7) & 0x01FFFFFF)) ^  
                                     (((T << 25) | ((T >>  7) & 0x1FFFFFF)) ^  
                                     ((T << 14) | ((T >> 18) & 0x00003FFF)) ^  
                                     ((T << 14) | ((T >> 18) & 0x3FFF)) ^  
                                     ((T >> 3) & 0x1FFFFFFF)) +  
                                     ((T >> 3) & 0x1FFFFFFF)) +  
                                     llList2Integer(x,  -7) +  
                                     llList2Integer(x,  -7) +  
                                     (((S << 15) | ((S >> 17) & 0x00007FFF)) ^  
                                     (((S << 15) | ((S >> 17) & 0x7FFF)) ^  
                                     ((S << 13) | ((S >> 19) & 0x00001FFF)) ^  
                                     ((S << 13) | ((S >> 19) & 0x1FFF)) ^  
                                     ((S >> 10) & 0x003FFFFF)))), -16, -1);
                                     ((S >> 10) & 0x3FFFFF)), -16, -1);
//            llOwnerSay("W["+(string)j+"]="+hex(T));
//            llOwnerSay("W["+(string)bit_length+"]="+hex(T));
             T += H + (((E << 26) | ((E >>  6) & 0x03FFFFFF)) ^  
             T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^  
                       ((E << 21) | ((E >> 11) & 0x001FFFFF)) ^  
                       ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^  
                       ((E <<  7) | ((E >> 25) & 0x0000007F))) +  
                       ((E <<  7) | ((E >> 25) & 0x7F))) +  
                     ((E & F) ^ ((~E) & G)) + llList2Integer(k2, bit_length - 16);
                     ((E & F) ^ ((~E) & G)) + llList2Integer(k, bit_length);
             H = G;
             H = G;
             G = F;
             G = F;
Line 608: Line 601:
             B = A;
             B = A;
             A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
             A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^  
                     ((B << 19) | ((B >> 13) & 0x0007FFFF)) ^  
                     ((B << 19) | ((B >> 13) & 0x7FFFF)) ^  
                     ((B << 10) | ((B >> 22) & 0x000003FF))) +  
                     ((B << 10) | ((B >> 22) & 0x3FF))) +  
                     ((B & C) ^ (B & D) ^ (C & D));
                     ((B & C) ^ (B & D) ^ (C & D));
         }while(64 > (bit_length = -~bit_length));
         }while(64 > (bit_length = -~bit_length));
Line 620: Line 613:
         H7 += G;
         H7 += G;
         H8 += H;
         H8 += H;
     }while(b > (i += 16));
     }while(b > i += 16);
     x = [H1, H2, H3, H4, H5, H6, H7, H8];
     x = [H1, H2, H3, H4, H5, H6, H7, H8];
     i = -8;
     i = -8;
Line 635: Line 628:
}
}


integer go(string in, string answer)
go(string in, string answer)
{
{
     llOwnerSay("");
     llOwnerSay("");
Line 642: Line 635:
     float t = llGetTime();
     float t = llGetTime();
     llOwnerSay(llList2CSV([out,t,llStringLength(in)]));
     llOwnerSay(llList2CSV([out,t,llStringLength(in)]));
     if(answer)
     if(answer)llOwnerSay(answer);
    {
        llOwnerSay(answer);
        return answer == out;
    }
    return TRUE;
}
}


Line 654: Line 642:
     state_entry()
     state_entry()
     {
     {
         if(go("","D14A028C2A3A2BC9476102BB288234C415A2B01F828EA62AC5B3E42F"))
         go("","D14A028C2A3A2BC9476102BB288234C415A2B01F828EA62AC5B3E42F");
            if(go("abc","23097D223405D8228642A477BDA255B32AADBCE4BDA0B3F7E36C9DA7"))
        go("abc","23097D223405D8228642A477BDA255B32AADBCE4BDA0B3F7E36C9DA7");
                if(go("The quick brown fox jumps over the lazy dog","730E109BD7A8A32B1CB9D9A09AA2325D2430587DDBC0C38BAD911525"))
        go("The quick brown fox jumps over the lazy dog","730E109BD7A8A32B1CB9D9A09AA2325D2430587DDBC0C38BAD911525");
                    go("D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592","");
        go("D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592","");
//        llOwnerSay((string)llGetTime());
//        llOwnerSay((string)llGetTime());
     }
     }
}</lsl>
}</lsl>


{{LSLC|Library}}{{LSLC|Examples}}{{LSLC|Encryption}}
{{LSLC|Library}}{{LSLC|Examples}}
[[Category: LSL Encryption]]

Revision as of 15:15, 16 November 2013

Preforms a SHA2 Hash on the text. Similar to and MD5 hash, although (slightly) more secure. Two versions of the function are provided, one for UTF-8 Strings (all strings in LSL are UTF-8) and the other is for Base64 Strings (you need to tell it how many bits long the data is).

View http://en.wikipedia.org/wiki/SHA1 for more information.

SHA-256

<lsl>////////////////////////////////////////////////////////////////////////////////////// // // UTF-8 SHA2-256 // Version 1.1 // ESL Compiled: "Oct 25 2007", "14:34:37" // Copyright (C) 2007 Strife Onizuka // Based on Pseudo-code from http://en.wikipedia.org/wiki/SHA1 // https://wiki.secondlife.com/wiki/SHA2 // // This library is free software; you can redistribute it and/or // modify it under the terms of the GNU Lesser General Public License // as published by the Free Software Foundation; // version 3 of the License. // // This library is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU Lesser General Public License for more details. // // You should have received a copy of the GNU Lesser General Public License // along with this library. If not, see <http://www.gnu.org/licenses/> // or write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, // Boston, MA 02111-1307 USA // //////////////////////////////////////////////////////////////////////////////////////

//===================================================// // Combined Library // // "Oct 25 2007", "14:34:37" // // Copyright (C) 2004-2007, Strife Onizuka (cc-by) // // http://creativecommons.org/licenses/by/3.0/ // //===================================================// //{

string TrimRight(string src, string chrs)//Mono Unsafe, LSO Safe {

   integer i = llStringLength(src);
   do;while(~llSubStringIndex(chrs, llGetSubString(src, (i = ~-i), i)) && i);
   return llDeleteSubString(src, (-~(i)), 0xFFFF);

}

string hexc="0123456789ABCDEF";

//} Combined Library


list k = [

   0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5, 0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
   0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3, 0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
   0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc, 0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
   0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7, 0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
   0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13, 0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,
   0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3, 0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,
   0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5, 0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,
   0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208, 0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2];

string UTF8_SHA_256(string plain) {

   integer H1 = 0x6a09e667;
   integer H2 = 0xbb67ae85;
   integer H3 = 0x3c6ef372;
   integer H4 = 0xa54ff53a;
   integer H5 = 0x510e527f;
   integer H6 = 0x9b05688c;
   integer H7 = 0x1f83d9ab;
   integer H8 = 0x5be0cd19;
   //OR on the extra bit.
   integer j = llStringLength(plain) << 3;
   integer b = (~-(((j + 552) & -512) >> 5));
   integer T = llBase64ToInteger(TrimRight(llGetSubString(plain = llStringToBase64(plain), -4, -1),"=")+"AAAA");
   string buf = "AAA";
   integer i = -5;

do buf += buf; while((i = -~i));

   if(j)
   {
       i = 0x800000;
       if(T & 0xFF00)
           i = 0x00000080;
       else if(T & 0xFF0000)
           i = 0x00008000;
   }
   else
       T = 0x80000000;//T is corrupt because of https://jira.secondlife.com/browse/SVC-104

// llOwnerSay(llList2CSV([i,j]));

   plain = llGetSubString( llDeleteSubString(plain, -4, -1) + 
                           llGetSubString(llIntegerToBase64(T | i), 0, 5) + 
                           buf, 0, (b << 4) / 3) + 
           llIntegerToBase64(j << (6 - ((b % 3) << 1)));
   list x;
   integer S;
   i = 0;

do

   {
       integer A = H1;
       integer B = H2;
       integer C = H3;
       integer D = H4;
       integer E = H5;
       integer F = H6;
       integer G = H7;
       integer H = H8;
       x = (list)(j = 0);//the zero gets flushed off the stack by the later loop
       do
       {
           T = llBase64ToInteger(buf = llGetSubString(plain, T = ((i + j) << 4) / 3, T+6)) << (S = (((i + j) % 3) << 1));
           if(S)
               T = T | (llBase64ToInteger("A"+llDeleteSubString(buf, 0, 1)) >> (6 - S));

// llOwnerSay("W["+(string)j+"]="+hex(T));

           x += T;
           T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^ 
                     ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^ 
                     ((E <<  7) | ((E >> 25) & 0x7F))) + 
                    ((E & F) ^ ((~E) & G)) + llList2Integer(k, j);
           H = G;
           G = F;
           F = E;
           E = D + T;
           D = C;
           C = B;
           B = A;
           A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^ 
                    ((B << 19) | ((B >> 13) & 0x7FFFF)) ^ 
                    ((B << 10) | ((B >> 22) & 0x3FF))) + 
                   ((B & C) ^ (B & D) ^ (C & D));
       }while(16 > (j = -~j));

// llOwnerSay(llList2CSV(hexm(x)));

       do
       {
           T = llList2Integer(x, -15);
           S = llList2Integer(x, -2);
           x = llList2List(x + T = llList2Integer(x,  -16) + 
                                   (((T << 25) | ((T >>  7) & 0x1FFFFFF)) ^ 
                                    ((T << 14) | ((T >> 18) & 0x3FFF)) ^ 
                                    ((T >>  3) & 0x1FFFFFFF)) + 
                                   llList2Integer(x,  -7) + 
                                   (((S << 15) | ((S >> 17) & 0x0007FFF)) ^ 
                                    ((S << 13) | ((S >> 19) & 0x1FFF)) ^ 
                                    ((S >> 10) & 0x03FFFFF)), -16, -1);

// llOwnerSay("W["+(string)j+"]="+hex(T));

           T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^ 
                     ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^ 
                     ((E <<  7) | ((E >> 25) & 0x7F))) + 
                    ((E & F) ^ ((~E) & G)) + llList2Integer(k, j);
           H = G;
           G = F;
           F = E;
           E = D + T;
           D = C;
           C = B;
           B = A;
           A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^ 
                    ((B << 19) | ((B >> 13) & 0x7FFFF)) ^ 
                    ((B << 10) | ((B >> 22) & 0x3FF))) + 
                   ((B & C) ^ (B & D) ^ (C & D));
       }while(64 > (j = -~j));
       H1 += A;
       H2 += B;
       H3 += C;
       H4 += D;
       H5 += E;
       H6 += F;
       H7 += G;
       H8 += H;
   }while(b > i += 16);

x = [H1, H2, H3, H4, H5, H6, H7, H8];

   i = -8;

buf = "";

   do
   {
       T = llList2Integer(x,i);
       j = 32;
       do
           buf += llGetSubString(hexc, b = ((T >> (j -= 4)) & 0xF), b);
       while (j);
   }while ((i = -~i));
   return buf;

}

string Base64_SHA_256(string plain, integer bit_length) {//$[E20009]

   integer H1 = 0x6a09e667;
   integer H2 = 0xbb67ae85;
   integer H3 = 0x3c6ef372;
   integer H4 = 0xa54ff53a;
   integer H5 = 0x510e527f;
   integer H6 = 0x9b05688c;
   integer H7 = 0x1f83d9ab;
   integer H8 = 0x5be0cd19;
   //OR on the extra bit.
   integer b = (~-(((bit_length + 552) & -512) >> 5));
   integer T = llBase64ToInteger(TrimRight(llGetSubString(plain = llStringToBase64(plain), -4, -1),"=")+"AAAA");
   string buf = "AAA";
   integer i = -5;

do buf += buf; while((i = -~i));

   if(bit_length)
   {
       i = 0x800000;
       if(T & 0xFF00)
           i = 0x00000080;
       else if(T & 0xFF0000)
           i = 0x00008000;
   }
   else
       T = 0x80000000;//T is corrupt because of https://jira.secondlife.com/browse/SVC-104

// llOwnerSay(llList2CSV([i,bit_length]));

   plain = llGetSubString( llDeleteSubString(plain, -4, -1) + 
                           llGetSubString(llIntegerToBase64(T | i), 0, 5) + 
                           buf, 0, (b << 4) / 3) + 
           llIntegerToBase64(bit_length << (6 - ((b % 3) << 1)));
   list x;
   integer S;
   i = 0;

do

   {
       integer A = H1;
       integer B = H2;
       integer C = H3;
       integer D = H4;
       integer E = H5;
       integer F = H6;
       integer G = H7;
       integer H = H8;
       x = (list)(bit_length = 0);//the zero gets flushed off the stack by the later loop

do

       {
           T = llBase64ToInteger(buf = llGetSubString(plain, T = ((i + bit_length) << 4) / 3, T+6)) << (S = (((i + bit_length) % 3) << 1));
           if(S)
               T = T | (llBase64ToInteger("A"+llDeleteSubString(buf, 0, 1)) >> (6 - S));

// llOwnerSay("W["+(string)bit_length+"]="+hex(T));

           x += T;
           T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^ 
                     ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^ 
                     ((E <<  7) | ((E >> 25) & 0x7F))) + 
                    ((E & F) ^ ((~E) & G)) + llList2Integer(k, bit_length);
           H = G;
           G = F;
           F = E;
           E = D + T;
           D = C;
           C = B;
           B = A;
           A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^ 
                    ((B << 19) | ((B >> 13) & 0x7FFFF)) ^ 
                    ((B << 10) | ((B >> 22) & 0x3FF))) + 
                   ((B & C) ^ (B & D) ^ (C & D));
       }while(16 > (bit_length = -~bit_length));

// llOwnerSay(llList2CSV(hexm(x)));

       do
       {
           T = llList2Integer(x, -15);
           S = llList2Integer(x, -2);
           x = llList2List(x + T = llList2Integer(x,  -16) + 
                                   (((T << 25) | ((T >>  7) & 0x1FFFFFF)) ^ 
                                    ((T << 14) | ((T >> 18) & 0x3FFF)) ^ 
                                    ((T >> 3) & 0x1FFFFFFF)) + 
                                   llList2Integer(x,  -7) + 
                                   (((S << 15) | ((S >> 17) & 0x7FFF)) ^ 
                                    ((S << 13) | ((S >> 19) & 0x1FFF)) ^ 
                                    ((S >> 10) & 0x3FFFFF)), -16, -1);

// llOwnerSay("W["+(string)bit_length+"]="+hex(T));

           T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^ 
                     ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^ 
                     ((E <<  7) | ((E >> 25) & 0x7F))) + 
                    ((E & F) ^ ((~E) & G)) + llList2Integer(k, bit_length);
           H = G;
           G = F;
           F = E;
           E = D + T;
           D = C;
           C = B;
           B = A;
           A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^ 
                    ((B << 19) | ((B >> 13) & 0x7FFFF)) ^ 
                    ((B << 10) | ((B >> 22) & 0x3FF))) + 
                   ((B & C) ^ (B & D) ^ (C & D));
       }while(64 > (bit_length = -~bit_length));
       H1 += A;
       H2 += B;
       H3 += C;
       H4 += D;
       H5 += E;
       H6 += F;
       H7 += G;
       H8 += H;
   }while(b > i += 16);
   x = [H1, H2, H3, H4, H5, H6, H7, H8];
   i = -8;
   buf = "";
   do
   {
       T = llList2Integer(x,i);
       bit_length = 32;
       do
           buf += llGetSubString(hexc, b = ((T >> (bit_length -= 4)) & 0xF), b);
       while (bit_length);
   }while ((i = -~i));
   return buf;

}

go(string in, string answer) {

   llOwnerSay("");
   llResetTime();
   string out = UTF8_SHA_256(in);
   float t = llGetTime();
   llOwnerSay(llList2CSV([out,t,llStringLength(in)]));
   if(answer)llOwnerSay(answer);

}

default {

   state_entry()
   {
       go("","E3B0C44298FC1C149AFBF4C8996FB92427AE41E4649B934CA495991B7852B855");
       go("abc","BA7816BF8F01CFEA414140DE5DAE2223B00361A396177A9CB410FF61F20015AD");
       go("The quick brown fox jumps over the lazy dog","D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592");
       go("D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592","");

// llOwnerSay((string)llGetTime());

   }

}</lsl>

SHA-224

<lsl>////////////////////////////////////////////////////////////////////////////////////// // // UTF-8 SHA2-224 // Version 1.1 // ESL Compiled: "Oct 25 2007", "14:34:57" // Copyright (C) 2007 Strife Onizuka // Based on Pseudo-code from http://en.wikipedia.org/wiki/SHA1 // https://wiki.secondlife.com/wiki/SHA2 // // This library is free software; you can redistribute it and/or // modify it under the terms of the GNU Lesser General Public License // as published by the Free Software Foundation; // version 3 of the License. // // This library is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU Lesser General Public License for more details. // // You should have received a copy of the GNU Lesser General Public License // along with this library. If not, see <http://www.gnu.org/licenses/> // or write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, // Boston, MA 02111-1307 USA // //////////////////////////////////////////////////////////////////////////////////////

//===================================================// // Combined Library // // "Oct 25 2007", "14:34:57" // // Copyright (C) 2004-2007, Strife Onizuka (cc-by) // // http://creativecommons.org/licenses/by/3.0/ // //===================================================// //{

string TrimRight(string src, string chrs)//Mono Unsafe, LSO Safe {

   integer i = llStringLength(src);
   do;while(~llSubStringIndex(chrs, llGetSubString(src, (i = ~-i), i)) && i);
   return llDeleteSubString(src, (-~(i)), 0xFFFF);

}

string hexc="0123456789ABCDEF";

//} Combined Library


list k = [

   0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5, 0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
   0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3, 0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
   0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc, 0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
   0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7, 0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
   0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13, 0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,
   0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3, 0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,
   0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5, 0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,
   0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208, 0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2];

string UTF8_SHA_224(string plain) {

   integer H1 = 0xC1059ED8;
   integer H2 = 0x367CD507;
   integer H3 = 0x3070DD17;
   integer H4 = 0xF70E5939;
   integer H5 = 0xFFC00B31;
   integer H6 = 0x68581511;
   integer H7 = 0x64F98FA7;
   integer H8 = 0xBEFA4FA4;
   //OR on the extra bit.
   integer j = llStringLength(plain) << 3;
   integer b = (~-(((j + 552) & -512) >> 5));
   integer T = llBase64ToInteger(TrimRight(llGetSubString(plain = llStringToBase64(plain), -4, -1),"=")+"AAAA");
   string buf = "AAA";
   integer i = -5;

do buf += buf; while((i = -~i));

   if(j)
   {
       i = 0x800000;
       if(T & 0xFF00)
           i = 0x00000080;
       else if(T & 0xFF0000)
           i = 0x00008000;
   }
   else
       T = 0x80000000;//T is corrupt because of https://jira.secondlife.com/browse/SVC-104

// llOwnerSay(llList2CSV([i,j]));

   plain = llGetSubString( llDeleteSubString(plain, -4, -1) + 
                           llGetSubString(llIntegerToBase64(T | i), 0, 5) + 
                           buf, 0, (b << 4) / 3) + 
           llIntegerToBase64(j << (6 - ((b % 3) << 1)));
   list x;
   integer S;
   i = 0;
   do
   {
       integer A = H1;
       integer B = H2;
       integer C = H3;
       integer D = H4;
       integer E = H5;
       integer F = H6;
       integer G = H7;
       integer H = H8;
       x = (list)(j = 0);//the zero gets flushed off the stack by the later loop
       do
       {
           T = llBase64ToInteger(buf = llGetSubString(plain, T = ((i + j) << 4) / 3, 6+T)) << (S = (((i + j) % 3) << 1));
           if(S)
               T = T | (llBase64ToInteger("A"+llDeleteSubString(buf, 0, 1)) >> (6 - S));

// llOwnerSay("W["+(string)j+"]="+hex(T));

           x += T;
           T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^ 
                     ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^ 
                     ((E <<  7) | ((E >> 25) & 0x7F))) + 
                    ((E & F) ^ ((~E) & G)) + llList2Integer(k, j);
           H = G;
           G = F;
           F = E;
           E = D + T;
           D = C;
           C = B;
           B = A;
           A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^ 
                    ((B << 19) | ((B >> 13) & 0x7FFFF)) ^ 
                    ((B << 10) | ((B >> 22) & 0x3FF))) + 
                   ((B & C) ^ (B & D) ^ (C & D));
       }while(16 > (j = -~j));

// llOwnerSay(llList2CSV(hexm(x)));

       do
       {
           T = llList2Integer(x, -15);
           S = llList2Integer(x, -2);
           x = llList2List(x + T = llList2Integer(x,  -16) + 
                                   (((T << 25) | ((T >>  7) & 0x1FFFFFF)) ^ 
                                    ((T << 14) | ((T >> 18) & 0x3FFF)) ^ 
                                    ((T >>  3) & 0x1FFFFFFF)) + 
                                   llList2Integer(x,  -7) + 
                                   (((S << 15) | ((S >> 17) & 0x0007FFF)) ^ 
                                    ((S << 13) | ((S >> 19) & 0x1FFF)) ^ 
                                    ((S >> 10) & 0x03FFFFF)), -16, -1);

// llOwnerSay("W["+(string)j+"]="+hex(T));

           T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^ 
                     ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^ 
                     ((E <<  7) | ((E >> 25) & 0x7F))) + 
                    ((E & F) ^ ((~E) & G)) + llList2Integer(k, j);
           H = G;
           G = F;
           F = E;
           E = D + T;
           D = C;
           C = B;
           B = A;
           A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^ 
                    ((B << 19) | ((B >> 13) & 0x7FFFF)) ^ 
                    ((B << 10) | ((B >> 22) & 0x3FF))) + 
                   ((B & C) ^ (B & D) ^ (C & D));
       }while(64 > (j = -~j));
       H1 += A;
       H2 += B;
       H3 += C;
       H4 += D;
       H5 += E;
       H6 += F;
       H7 += G;
       H8 += H;
   }while(b > i += 16);
   x = [H1, H2, H3, H4, H5, H6, H7];//, H8];
   i = -7;
   buf = "";
   do
   {
       T = llList2Integer(x,i);
       j = 32;
       do
           buf += llGetSubString(hexc, b = ((T >> (j -= 4)) & 0xF), b);
       while (j);
   }while ((i = -~i));
   return buf;

}

string Base64_SHA_224(string plain, integer bit_length) {//$[E20009]

   integer H1 = 0xC1059ED8;
   integer H2 = 0x367CD507;
   integer H3 = 0x3070DD17;
   integer H4 = 0xF70E5939;
   integer H5 = 0xFFC00B31;
   integer H6 = 0x68581511;
   integer H7 = 0x64F98FA7;
   integer H8 = 0xBEFA4FA4;
   //OR on the extra bit.
   integer b = (~-(((bit_length + 552) & -512) >> 5));
   integer T = llBase64ToInteger(TrimRight(llGetSubString(plain = llStringToBase64(plain), -4, -1),"=")+"AAAA");
   string buf = "AAA";
   integer i = -5;

do buf += buf; while((i = -~i));

   if(bit_length)
   {
       i = 0x800000;
       if(T & 0xFF00)
           i = 0x00000080;
       else if(T & 0xFF0000)
           i = 0x00008000;
   }
   else
       T = 0x80000000;//T is corrupt because of https://jira.secondlife.com/browse/SVC-104

// llOwnerSay(llList2CSV([i,bit_length]));

   plain = llGetSubString( llDeleteSubString(plain, -4, -1) + 
                           llGetSubString(llIntegerToBase64(T | i), 0, 5) + 
                           buf, 0, (b << 4) / 3) + 
           llIntegerToBase64(bit_length << (6 - ((b % 3) << 1)));
   list x;
   integer S;
   i = 0;
   do
   {
       integer A = H1;
       integer B = H2;
       integer C = H3;
       integer D = H4;
       integer E = H5;
       integer F = H6;
       integer G = H7;
       integer H = H8;
       x = (list)(bit_length = 0);//the zero gets flushed off the stack by the later loop
       do
       {
           T = llBase64ToInteger(buf = llGetSubString(plain, T = ((i + bit_length) << 4) / 3, T+6)) << (S = (((i + bit_length) % 3) << 1));
           if(S)
               T = T | (llBase64ToInteger("A"+llDeleteSubString(buf, 0, 1)) >> (6 - S));

// llOwnerSay("W["+(string)bit_length+"]="+hex(T));

           x += T;
           T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^ 
                     ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^ 
                     ((E <<  7) | ((E >> 25) & 0x7F))) + 
                    ((E & F) ^ ((~E) & G)) + llList2Integer(k, bit_length);
           H = G;
           G = F;
           F = E;
           E = D + T;
           D = C;
           C = B;
           B = A;
           A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^ 
                    ((B << 19) | ((B >> 13) & 0x7FFFF)) ^ 
                    ((B << 10) | ((B >> 22) & 0x3FF))) + 
                   ((B & C) ^ (B & D) ^ (C & D));
       }while(16 > (bit_length = -~bit_length));

// llOwnerSay(llList2CSV(hexm(x)));

       do
       {
           T = llList2Integer(x, -15);
           S = llList2Integer(x, -2);
           x = llList2List(x + T = llList2Integer(x,  -16) + 
                                   (((T << 25) | ((T >>  7) & 0x1FFFFFF)) ^ 
                                    ((T << 14) | ((T >> 18) & 0x3FFF)) ^ 
                                    ((T >> 3) & 0x1FFFFFFF)) + 
                                   llList2Integer(x,  -7) + 
                                   (((S << 15) | ((S >> 17) & 0x7FFF)) ^ 
                                    ((S << 13) | ((S >> 19) & 0x1FFF)) ^ 
                                    ((S >> 10) & 0x3FFFFF)), -16, -1);

// llOwnerSay("W["+(string)bit_length+"]="+hex(T));

           T += H + (((E << 26) | ((E >>  6) & 0x3FFFFFF)) ^ 
                     ((E << 21) | ((E >> 11) & 0x1FFFFF)) ^ 
                     ((E <<  7) | ((E >> 25) & 0x7F))) + 
                    ((E & F) ^ ((~E) & G)) + llList2Integer(k, bit_length);
           H = G;
           G = F;
           F = E;
           E = D + T;
           D = C;
           C = B;
           B = A;
           A = T + (((B << 30) | ((B >>  2) & 0x3FFFFFFF)) ^ 
                    ((B << 19) | ((B >> 13) & 0x7FFFF)) ^ 
                    ((B << 10) | ((B >> 22) & 0x3FF))) + 
                   ((B & C) ^ (B & D) ^ (C & D));
       }while(64 > (bit_length = -~bit_length));
       H1 += A;
       H2 += B;
       H3 += C;
       H4 += D;
       H5 += E;
       H6 += F;
       H7 += G;
       H8 += H;
   }while(b > i += 16);
   x = [H1, H2, H3, H4, H5, H6, H7, H8];
   i = -8;
   buf = "";
   do
   {
       T = llList2Integer(x,i);
       bit_length = 32;
       do
           buf += llGetSubString(hexc, b = ((T >> (bit_length -= 4)) & 0xF), b);
       while (bit_length);
   }while ((i = -~i));
   return buf;

}

go(string in, string answer) {

   llOwnerSay("");
   llResetTime();
   string out = UTF8_SHA_224(in);
   float t = llGetTime();
   llOwnerSay(llList2CSV([out,t,llStringLength(in)]));
   if(answer)llOwnerSay(answer);

}

default {

   state_entry()
   {
       go("","D14A028C2A3A2BC9476102BB288234C415A2B01F828EA62AC5B3E42F");
       go("abc","23097D223405D8228642A477BDA255B32AADBCE4BDA0B3F7E36C9DA7");
       go("The quick brown fox jumps over the lazy dog","730E109BD7A8A32B1CB9D9A09AA2325D2430587DDBC0C38BAD911525");
       go("D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592","");

// llOwnerSay((string)llGetTime());

   }

}</lsl>