Difference between revisions of "SHA-1"

From Second Life Wiki
Jump to navigation Jump to search
(wikipedia)
(wikipedia in code)
Line 15: Line 15:
// ESL Compiled: "Dec 13 2010", "01:29:03"
// ESL Compiled: "Dec 13 2010", "01:29:03"
// Copyright (C) 2010  Strife Onizuka
// Copyright (C) 2010  Strife Onizuka
// Based on Pseudo-code from http://en.wikipedia.org/wiki/SHA1
// Based on Pseudo-code from http://en.wikipedia.org/wiki/SHA-1
// https://wiki.secondlife.com/wiki/SHA1
// https://wiki.secondlife.com/wiki/SHA1
//
//

Revision as of 06:07, 17 February 2012

 NEW  LSL now includes the function llSHA1String, which removes the need for the UTF8_SHA1 variant from this library.

Preforms a SHA1 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).

There is also an SHA2 implementations (224 & 256).

View http://en.wikipedia.org/wiki/SHA-1 for more information.

<lsl>////////////////////////////////////////////////////////////////////////////////////// // // UTF-8 SHA1 // Version 1.2 // ESL Compiled: "Dec 13 2010", "01:29:03" // Copyright (C) 2010 Strife Onizuka // Based on Pseudo-code from http://en.wikipedia.org/wiki/SHA-1 // https://wiki.secondlife.com/wiki/SHA1 // // 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 // // "Dec 13 2010", "01:29:03" // // Copyright (C) 2004-2008, Strife Onizuka (cc-by) // // http://creativecommons.org/licenses/by/3.0/ // //===================================================// //{

string TrimRight(string src, string chrs)//LSLEditor Safe, LSO Safe { 

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

}

string hexc="0123456789ABCDEF";

//} Combined Library

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

   integer H1 = 0x67452301;
   integer H2 = 0xefcdab89;
   integer H3 = 0x98badcfe;
   integer H4 = 0x10325476;
   integer H5 = 0xc3d2e1f0;

   //OR on the extra bit.
   integer b = ((bit_length + 40) >> 5) | 15;
   integer T = llBase64ToInteger((TrimRight(llGetSubString(plain, -4, -1),"=")) + "AAAA");
   string buf = "AAA";
   integer i = -5;
   do buf += buf; while((i = -~i));
   if(bit_length)
   {
       i = 0x800000;
       if(!(bit_length % 24))
           i = 0x00000080;
       else if((bit_length % 24) == 16)
           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;
       x = (list)(bit_length = 0);//the zero gets flushed off the stack by the later loops
       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 += ((A << 5) | ((A >> 27) & 0x1F)) + (D ^ (B & (C ^ D))) + E + 0x5a827999;
           E = D;
           D = C;
           C = ((B << 30) | ((B >> 2) & 0x3FFFFFFF));
           B = A;
           A = T;
       }while(16 > (bit_length = -~bit_length));

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

       do
       {
           S = llList2Integer(x,  -3) ^ llList2Integer(x,  -8) ^ llList2Integer(x, -14) ^ llList2Integer(x, -16);
           x = llList2List(x + (T = ((S << 1) | !!(S & 0x80000000))), -16, -1);

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

           T += ((A << 5) | ((A >> 27) & 0x1F)) + (D ^ (B & (C ^ D))) + E + 0x5a827999;
           E = D;
           D = C;
           C = ((B << 30) | ((B >> 2) & 0x3FFFFFFF));
           B = A;
           A = T;
       }while(20 > (bit_length = -~bit_length));
       do
       {
           S = llList2Integer(x,  -3) ^ llList2Integer(x,  -8) ^ llList2Integer(x, -14) ^ llList2Integer(x, -16);
           x = llList2List(x + (T = ((S << 1) | !!(S & 0x80000000))), -16, -1);

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

           T += ((A << 5) | ((A >> 27) & 0x1F)) + (B ^ C ^ D) + E + 0x6ed9eba1;
           E = D;
           D = C;
           C = ((B << 30) | ((B >> 2) & 0x3FFFFFFF));
           B = A;
           A = T;
       }while(40 > (bit_length = -~bit_length));
       do
       {
           S = llList2Integer(x,  -3) ^ llList2Integer(x,  -8) ^ llList2Integer(x, -14) ^ llList2Integer(x, -16);
           x = llList2List(x + (T = ((S << 1) | !!(S & 0x80000000))), -16, -1);

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

           T += ((A << 5) | ((A >> 27) & 0x1F)) + ((B & C) | (B & D) | (C & D)) + E + 0x8f1bbcdc;
           E = D;
           D = C;
           C = ((B << 30) | ((B >> 2) & 0x3FFFFFFF));
           B = A;
           A = T;
       }while(60 > (bit_length = -~bit_length));
       do
       {
           S = llList2Integer(x,  -3) ^ llList2Integer(x,  -8) ^ llList2Integer(x, -14) ^ llList2Integer(x, -16);
           x = llList2List(x + (T = ((S << 1) | !!(S & 0x80000000))), -16, -1);

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

           T += ((A << 5) | ((A >> 27) & 0x1F)) + (B ^ C ^ D) + E + 0xca62c1d6;
           E = D;
           D = C;
           C = ((B << 30) | ((B >> 2) & 0x3FFFFFFF));
           B = A;
           A = T;
       }while(80 > (bit_length = -~bit_length));
       H1 += A;
       H2 += B;
       H3 += C;
       H4 += D;
       H5 += E;
   }while(b > (i += 16));
   x = [H1, H2, H3, H4, H5];
   i = -5;
   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;

}

string UTF8_SHA1(string plain) { 

   integer H1 = 0x67452301;
   integer H2 = 0xefcdab89;
   integer H3 = 0x98badcfe;
   integer H4 = 0x10325476;
   integer H5 = 0xc3d2e1f0;

   //OR on the extra bit.
   integer j = llStringLength(plain = llStringToBase64(plain));
   integer T = 0x80000000;
   if (j) {
       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";
   integer i = -5;
   do buf += buf; while((i = -~i));

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

   plain = llGetSubString( llDeleteSubString(plain, -4, -1) + 
                           llGetSubString(llIntegerToBase64(T), 0, 5) + 
                           buf, 0, (b << 4) / 3) +
           llIntegerToBase64(j << (6 - ((b % 3) << 1)));
   list x;
   integer S = 0;
   do
   {
       integer A = H1;
       integer B = H2;
       integer C = H3;
       integer D = H4;
       integer E = H5;
       x = (list)(j = 0);//the zero gets flushed off the stack by the later loops
       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 += ((A << 5) | ((A >> 27) & 0x1F)) + (D ^ (B & (C ^ D))) + E + 0x5a827999;
           E = D;
           D = C;
           C = ((B << 30) | ((B >> 2) & 0x3FFFFFFF));
           B = A;
           A = T;
       }while(16 > (j = -~j));

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

       do
       {
           S = llList2Integer(x,  -3) ^ llList2Integer(x,  -8) ^ llList2Integer(x, -14) ^ llList2Integer(x, -16);
           x = llList2List(x + (T = ((S << 1) | !!(S & 0x80000000))), -16, -1);

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

           T += ((A << 5) | ((A >> 27) & 0x1F)) + (D ^ (B & (C ^ D))) + E + 0x5a827999;
           E = D;
           D = C;
           C = ((B << 30) | ((B >> 2) & 0x3FFFFFFF));
           B = A;
           A = T;
       }while(20 > (j = -~j));
       do
       {
           S = llList2Integer(x,  -3) ^ llList2Integer(x,  -8) ^ llList2Integer(x, -14) ^ llList2Integer(x, -16);
           x = llList2List(x + (T = ((S << 1) | !!(S & 0x80000000))), -16, -1);

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

           T += ((A << 5) | ((A >> 27) & 0x1F)) + (B ^ C ^ D) + E + 0x6ed9eba1;
           E = D;
           D = C;
           C = ((B << 30) | ((B >> 2) & 0x3FFFFFFF));
           B = A;
           A = T;
       }while(40 > (j = -~j));
       do
       {
           S = llList2Integer(x,  -3) ^ llList2Integer(x,  -8) ^ llList2Integer(x, -14) ^ llList2Integer(x, -16);
           x = llList2List(x + (T = ((S << 1) | !!(S & 0x80000000))), -16, -1);

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

           T += ((A << 5) | ((A >> 27) & 0x1F)) + ((B & C) | (B & D) | (C & D)) + E + 0x8f1bbcdc;
           E = D;
           D = C;
           C = ((B << 30) | ((B >> 2) & 0x3FFFFFFF));
           B = A;
           A = T;
       }while(60 > (j = -~j));
       do
       {
           S = llList2Integer(x,  -3) ^ llList2Integer(x,  -8) ^ llList2Integer(x, -14) ^ llList2Integer(x, -16);
           x = llList2List(x + (T = ((S << 1) | !!(S & 0x80000000))), -16, -1);

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

           T += ((A << 5) | ((A >> 27) & 0x1F)) + (B ^ C ^ D) + E + 0xca62c1d6;
           E = D;
           D = C;
           C = ((B << 30) | ((B >> 2) & 0x3FFFFFFF));
           B = A;
           A = T;
       }while(80 > (j = -~j));
       H1 += A;
       H2 += B;
       H3 += C;
       H4 += D;
       H5 += E;
   }while(b > (i += 16));
   x = [H1, H2, H3, H4, H5];
   i = -5;
   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;

}


integer go(string in, string answer) { 

   llOwnerSay("");
   llResetTime();
   string out = UTF8_SHA1(in);
   float t = llGetTime();
   llOwnerSay(llDumpList2String(([out,t,llStringLength(in)]),","));
   if(answer)
   {
       llOwnerSay(answer);
       return answer == out;
   }
   return TRUE;

}

default { 

   state_entry()
   {
       if (Base64_SHA1("AAAA", 24) != "29e2dcfbb16f63bb0254df7585a15bb6fb5e927d")
           llOwnerSay("Failed Base64_SHA1(\"AAAA\", 24)");
       if(go("", "DA39A3EE5E6B4B0D3255BFEF95601890AFD80709"))
           if(go("abc", "A9993E364706816ABA3E25717850C26C9CD0D89D"))
               if(go("The quick brown fox jumps over the lazy dog", "2FD4E1C67A2D28FCED849EE1BB76E7391B93EB12"))
                   if(go("Étude¿º", llSHA1String("Étude¿º")))
                       go("DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF95601890AFD80709DA39A3EE5E6B4B0D3255BFEF", "");

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

   }

}</lsl>

Retrieved from "https://wiki.secondlife.com/w/index.php?title=SHA-1&oldid=1163226"