Difference between revisions of "Faster XTEA Base16 Base64"

From Second Life Wiki
Jump to navigation Jump to search
(A (hopefully) faster XTEA implementation, supporting hex and base64 ciphertext)
 
Line 1: Line 1:
Second revision: Added 7 bit base64 cipher.
<lsl>
<lsl>
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
Line 21: Line 23:
//  to optimize out unused code.  
//  to optimize out unused code.  
//
//
// There's also a 7-bit ASCII base64 function pair included that packs an extra
//  character into each 128bits, but is not 8-bit clean (well neither are the
//  others at the moment, lol).  It is slightly slower than the other base64
//  function pair, but is included in case someone decides to implement base64
//  conversion on the whole bit-stream instead of just 32bit blocks.  The 7-bit
//  encoding only wastes one byte per 72 characters, so it should result in far
//  shorter ciphertext if the base64 encoding is made "proper".
//
// The nonce is provided for timestamping and sequence numbering.  If you don't
// The nonce is provided for timestamping and sequence numbering.  If you don't
//  use it, just pass zero there.
//  use it, just pass zero there.
Line 252: Line 262:
             w1 = w1-((w2<<4^w2>>5)+w2^sum+llList2Integer(k,((sum-=0x9E3779B9)&3)));
             w1 = w1-((w2<<4^w2>>5)+w2^sum+llList2Integer(k,((sum-=0x9E3779B9)&3)));
         } while( n = ~-n );
         } while( n = ~-n );
         clear +=    llList2String(ASCII_TABLE,w1&0x0000007F) +
         clear +=    llList2String(ASCII_TABLE,w1&0x7f) +
                     llList2String(ASCII_TABLE,(w1&0x00007F00)>>8) +
                     llList2String(ASCII_TABLE,(w1&0x7f00)>>8) +
                     llList2String(ASCII_TABLE,(w1&0x007F0000)>>16) +
                     llList2String(ASCII_TABLE,(w1&0x7f0000)>>16) +
                     llList2String(ASCII_TABLE,(w1&0x7F000000)>>24) +
                     llList2String(ASCII_TABLE,(w1&0x7f000000)>>24) +
                     llList2String(ASCII_TABLE,w2&0x0000007F) +
                     llList2String(ASCII_TABLE,w2&0x7f) +
                     llList2String(ASCII_TABLE,(w2&0x00007F00)>>8) +
                     llList2String(ASCII_TABLE,(w2&0x7f00)>>8) +
                     llList2String(ASCII_TABLE,(w2&0x007F0000)>>16) +
                     llList2String(ASCII_TABLE,(w2&0x7f0000)>>16) +
                     llList2String(ASCII_TABLE,(w2&0x7F000000)>>24);
                     llList2String(ASCII_TABLE,(w2&0x7f000000)>>24);
    }
    return clear;       
}
 
string XTEAEncrypt7BitBase64( string clear, integer nonce )
{
    string  md5 = llMD5String( SECRET, nonce );
    list    k = [  (integer)("0x"+llGetSubString(md5,0,7)),
                    (integer)("0x"+llGetSubString(md5,8,15)),
                    (integer)("0x"+llGetSubString(md5,16,23)),
                    (integer)("0x"+llGetSubString(md5,24,31)) ];
    integer w1;
    integer w2;
    string  cipher;
    integer len = llStringLength( clear );
    integer i;
    integer n;
    integer sum;
    for( i=0; i<len; i+=9 )
    {
        w1 =
            (llListFindList(ASCII_TABLE,[llGetSubString(clear,i,i)])<<25) |
            (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+1,i+1)])<<18) |
            (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+2,i+2)])<<11) |
            (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+3,i+3)])<<4) |
            (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+4,i+4)])>>3);
        w2 =
            (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+4,i+4)])<<29) |
            (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+5,i+5)])<<22) |
            (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+6,i+6)])<<15) |
            (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+7,i+7)])<<8) |
            (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+8,i+8)])<<1);
        n = PASSES;
        sum = 0;
        do
        {
            w1 = w1+((w2<<4^w2>>5)+w2^sum+llList2Integer(k,(sum&3)));
            w2 = w2+((w1<<4^w1>>5)+w1^sum+llList2Integer(k,((sum+=0x9E3779B9)>>11&3)));
        } while( n = ~-n );
        cipher = cipher + llGetSubString(llIntegerToBase64(w1),0,5) + llGetSubString(llIntegerToBase64(w2),0,5);
    } 
    return cipher;       
}
 
string XTEADecrypt7BitBase64( string cipher, integer nonce )
{
    string  md5 = llMD5String( SECRET, nonce );
    list    k = [  (integer)("0x"+llGetSubString(md5,0,7)),
                    (integer)("0x"+llGetSubString(md5,8,15)),
                    (integer)("0x"+llGetSubString(md5,16,23)),
                    (integer)("0x"+llGetSubString(md5,24,31)) ];
    integer w1;
    integer w2;
    string  clear;
    integer i;
    integer len = llStringLength(cipher);
    integer n;
    integer sum;
    integer dc = 0x9E3779B9*PASSES;
    integer ind;
    for( i=0; i<len; i+=12 )
    {
        w1 = llBase64ToInteger(llGetSubString(cipher,i,i+5));
        w2 = llBase64ToInteger(llGetSubString(cipher,i+6,i+11));
        n = PASSES;
        sum = dc;
        do
        {
            w2=w2-((w1<<4^w1>>5)+w1^sum+llList2Integer(k,(sum>>11&3)));
            w1=w1-((w2<<4^w2>>5)+w2^sum+llList2Integer(k,((sum-=0x9E3779B9)&3)));
        } while( n = ~-n );
        clear +=
            llList2String( ASCII_TABLE, (w1&0xfe000000)>>25 ) +
            llList2String( ASCII_TABLE, (w1&0x1fc0000)>>18 ) +
            llList2String( ASCII_TABLE, (w1&0x3f800)>>11 ) +
            llList2String( ASCII_TABLE, (w1&0x7f0)>>4 ) +
            llList2String(ASCII_TABLE,((w1&0xf)<<3)|(((w2&0xe0000000)>>29)&0x7))+
            llList2String( ASCII_TABLE, (w2&0x1fc00000)>>22 ) +
            llList2String( ASCII_TABLE, (w2&0x3f8000)>>15 ) +
            llList2String( ASCII_TABLE, (w2&0x7f00)>>8 ) +
            llList2String( ASCII_TABLE, (w2&0xfe)>>1 );
     }
     }
     return clear;         
     return clear;         
Line 277: Line 368:
     listen( integer ch, string n, key id, string msg )
     listen( integer ch, string n, key id, string msg )
     {
     {
         string s = msg+"\n";
         string s="";
         string e = XTEAEncryptBase64( msg, 0 );
        string e="";
         s += e+"\n";
//        s += "O:"+msg+"\n";
        s += XTEADecryptBase64( e, 0 )+"\n";
         s += "O:"+(string)llStringLength(msg)+"\n";
        e = XTEAEncryptBase64( msg, 0 );
//        s += "64e:"+e+" Len:"+(string)llStringLength(e)+"\n";
         s += "64e:"+(string)llStringLength(e)+"\n";
//        s += "64d:"+XTEADecryptBase64( e, 0 )+"\n";
         e = XTEAEncryptBase16( msg, 0 );
         e = XTEAEncryptBase16( msg, 0 );
         s += e+"\n";
//        s += "16e:"+e+" Len:"+(string)llStringLength(e)+"\n";
         s += XTEADecryptBase16( e, 0 );
        s += "16e:"+(string)llStringLength(e)+"\n";
//        s += "16d:"+XTEADecryptBase16( e, 0 )+"\n";
         e = XTEAEncrypt7BitBase64( msg, 0 );
//        s += "64e7b:"+e+" Len:"+(string)llStringLength(e)+"\n";
         s += "64e7b:"+(string)llStringLength(e)+"\n";
//        s += "64d7b:"+XTEADecrypt7BitBase64( e, 0 )+"\n";
         llSetText( s, <1,1,1>, 1 );
         llSetText( s, <1,1,1>, 1 );
     }
     }
Line 352: Line 452:
                 tclear = XTEADecryptBase64( tcipher, 42 );
                 tclear = XTEADecryptBase64( tcipher, 42 );
             etime = llGetTime();
             etime = llGetTime();
             llSay( 0, "Base64 Decryption ("+(string)passes+" passes): "+(string)(etime-stime)+" seconds (avg "+(string)((float)passes/(etime-stime))+" pass/s)." );
             llSay( 0, "Base64 Decryption ("+(string)passes+" passes): "+(string)(etime-stime)+" seconds (avg "+(string)((float)passes/(etime-stime))+" pass/s)." );           
            stime = llGetTime();
            for( i=0; i<pby5; i++ )
                tcipher = XTEAEncrypt7BitBase64( tclear, 42 );
            etime = llGetTime();
            llSay( 0, "7bit Base64 Encryption ("+(string)pby5+" passes): "+(string)(etime-stime)+" seconds (avg "+(string)((float)pby5/(etime-stime))+" pass/s)." );
            stime = llGetTime();
            for( i=0; i<passes; i++ )
                tclear = XTEADecrypt7BitBase64( tcipher, 42 );
            etime = llGetTime();
            llSay( 0, "7bit Base64 Decryption ("+(string)passes+" passes): "+(string)(etime-stime)+" seconds (avg "+(string)((float)passes/(etime-stime))+" pass/s)." );
         }
         }
         llSleep( 0.5 );
         llSleep( 0.5 );

Revision as of 11:52, 6 October 2008

Second revision: Added 7 bit base64 cipher.

<lsl> /////////////////////////////////////////////////////////////////////////////// // // Faster XTEA Library for LSL // --------------------------- // // (Also with a sane license [BSD], considering that we can't link shared // objects in LSL, lol) // // To use it, set your passphrase below. If you're not as worried about speed // and want more security, you may want to set the number of passes to 12 or // 16 as well. // // Base16 (Hex) and Base64 functions are included. The base64 functions seem // usually to be much much faster, but the base64 cipher operates on 32-bit // blocks, instead of the entire bitstream, which is technically incorrect, // so keep that in mind if you're sending data offworld into some magical // base64 XTEA script somewhere. If you want to correct that and it doesn't // slow things down too much, I'll send you a virtual cookie. It's perfectly // safe to delete whichever one you're not using, since LSL isn't smart enough // to optimize out unused code. // // There's also a 7-bit ASCII base64 function pair included that packs an extra // character into each 128bits, but is not 8-bit clean (well neither are the // others at the moment, lol). It is slightly slower than the other base64 // function pair, but is included in case someone decides to implement base64 // conversion on the whole bit-stream instead of just 32bit blocks. The 7-bit // encoding only wastes one byte per 72 characters, so it should result in far // shorter ciphertext if the base64 encoding is made "proper". // // The nonce is provided for timestamping and sequence numbering. If you don't // use it, just pass zero there. // // If you want to contact me about this code, or about paying me to script // something for you (lol), email ceawlin.creations@gmail.com, IM Liandra // Ceawlin on the LL main grid, or do a places search for Ceawlin Creations // and visit my freebie store. // /////////////////////////////////////////////////////////////////////////////// // // Oh yea, we can't forget the legalese. What all the stuff below basically // means is: You can use this code however you want, and redistribute it with // or without modify permissions, but you have to leave this license here, or // if you distribute something no-modify that uses it, the object and/or // documentation accompanying it have to say, in a conspicuous place, something // along the lines of: "Portions of this program are Copyright (c) 2008 Ceawlin // Creations, and the following restrictions apply to those parts", and include // the below text. // // Anyway, here's the legalese. Lol. // // Copyright (c) 2008, Ceawlin Creations // All rights reserved. // // Redistribution and use in source and binary forms, with or without // modification, are permitted provided that the following conditions are met: // // * Redistributions of source code must retain the above copyright notice, // this list of conditions and the following disclaimer. // * Redistributions in binary form must reproduce the above copyright // notice, this list of conditions and the following disclaimer in the // documentation and/or other materials provided with the distribution. // * Neither the name of Ceawlin Creations, Liandra Ceawlin, or A. J. Taylor, // nor the names of its contributors may be used to endorse or promote products // derived from this software without specific prior written permission. // // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE // ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE // LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR // CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF // SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS // INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN // CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) // ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE // POSSIBILITY OF SUCH DAMAGE. // ///////////////////////////////////////////////////////////////////////////////

string SECRET = "Put your passphrase here."; integer PASSES = 6;

list ASCII_TABLE = [ "", "", "", "", "", "", "", "", 

                       "",  "",  "",  "",  "", "\n", "",  "",
                       "",  "",  "",  "",  "",  "",  "",  "",
                       "",  "",  "",  "",  "",  "",  "",  "",
                       " ", "!","\"", "#", "$", "%", "&", "'",
                       "(", ")", "*", "+", ",", "-", ".", "/",
                       "0", "1", "2", "3", "4", "5", "6", "7",
                       "8", "9", ":", ";", "<", "=", ">", "?",
                       "@", "A", "B", "C", "D", "E", "F", "G",
                       "H", "I", "J", "K", "L", "M", "N", "O",
                       "P", "Q", "R", "S", "T", "U", "V", "W",
                       "X", "Y", "Z", "[","\\", "]", "^", "_", 
                       "`", "a", "b", "c", "d", "e", "f", "g", 
                       "h", "i", "j", "k", "l", "m", "n", "o", 
                       "p", "q", "r", "s", "t", "u", "v", "w", 
                       "x", "y", "z", "{", "|", "}", "~", ""  ];

list BASE16_TABLE = [ "0","1","2","3","4","5","6","7", 

                       "8","9","a","b","c","d","e","f" ];

string XTEAEncryptBase16( string clear, integer nonce ) { 

   string  md5 = llMD5String( SECRET, nonce );
   list    k = [   (integer)("0x"+llGetSubString(md5,0,7)),
                   (integer)("0x"+llGetSubString(md5,8,15)),
                   (integer)("0x"+llGetSubString(md5,16,23)),
                   (integer)("0x"+llGetSubString(md5,24,31)) ];
   integer w1;
   integer w2;
   string  cipher;
   integer len = llStringLength( clear ); 
   integer i;
   integer n;
   integer sum;
   for( i=0; i<len; i+=8 )
   {
       w1 =
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i,i)])) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+1,i+1)])<<8) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+2,i+2)])<<16) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+3,i+3)])<<24);
       w2 =
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+4,i+4)])) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+5,i+5)])<<8) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+6,i+6)])<<16) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+7,i+7)])<<24);
       n = PASSES;
       sum = 0;
       do
       {
           w1 = w1+((w2<<4^w2>>5)+w2^sum+llList2Integer(k,(sum&3)));
           w2 = w2+((w1<<4^w1>>5)+w1^sum+llList2Integer(k,((sum+=0x9E3779B9)>>11&3)));
       } while( n = ~-n );
       cipher = cipher +
           llList2String( BASE16_TABLE, ((w1>>28)&0xf) ) +
           llList2String( BASE16_TABLE, ((w1>>24)&0xf) ) +
           llList2String( BASE16_TABLE, ((w1>>20)&0xf) ) +
           llList2String( BASE16_TABLE, ((w1>>16)&0xf) ) +
           llList2String( BASE16_TABLE, ((w1>>12)&0xf) ) +
           llList2String( BASE16_TABLE, ((w1>>8)&0xf) ) +
           llList2String( BASE16_TABLE, ((w1>>4)&0xf) ) +
           llList2String( BASE16_TABLE, ((w1>>0)&0xf) ) +
           llList2String( BASE16_TABLE, ((w2>>28)&0xf) ) +
           llList2String( BASE16_TABLE, ((w2>>24)&0xf) ) +
           llList2String( BASE16_TABLE, ((w2>>20)&0xf) ) +
           llList2String( BASE16_TABLE, ((w2>>16)&0xf) ) +
           llList2String( BASE16_TABLE, ((w2>>12)&0xf) ) +
           llList2String( BASE16_TABLE, ((w2>>8)&0xf) ) +
           llList2String( BASE16_TABLE, ((w2>>4)&0xf) ) +
           llList2String( BASE16_TABLE, ((w2>>0)&0xf) );
   }  
   return cipher;

}

string XTEAEncryptBase64( string clear, integer nonce ) { 

   string  md5 = llMD5String( SECRET, nonce );
   list    k = [   (integer)("0x"+llGetSubString(md5,0,7)),
                   (integer)("0x"+llGetSubString(md5,8,15)),
                   (integer)("0x"+llGetSubString(md5,16,23)),
                   (integer)("0x"+llGetSubString(md5,24,31)) ];
   integer w1;
   integer w2;
   string  cipher;
   integer len = llStringLength( clear ); 
   integer i;
   integer n;
   integer sum;
   for( i=0; i<len; i+=8 )
   {
       w1 =
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i,i)])) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+1,i+1)])<<8) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+2,i+2)])<<16) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+3,i+3)])<<24);
       w2 =
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+4,i+4)])) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+5,i+5)])<<8) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+6,i+6)])<<16) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+7,i+7)])<<24);
       n = PASSES;
       sum = 0;
       do
       {
           w1 = w1+((w2<<4^w2>>5)+w2^sum+llList2Integer(k,(sum&3)));
           w2 = w2+((w1<<4^w1>>5)+w1^sum+llList2Integer(k,((sum+=0x9E3779B9)>>11&3)));
       } while( n = ~-n );
       cipher = cipher + llGetSubString(llIntegerToBase64(w1),0,5) + llGetSubString(llIntegerToBase64(w2),0,5);
   }  
   return cipher;

}

string XTEADecryptBase16( string cipher, integer nonce ) { 

   string  md5 = llMD5String( SECRET, nonce );
   list    k = [   (integer)("0x"+llGetSubString(md5,0,7)),
                   (integer)("0x"+llGetSubString(md5,8,15)),
                   (integer)("0x"+llGetSubString(md5,16,23)),
                   (integer)("0x"+llGetSubString(md5,24,31)) ];
   integer w1;
   integer w2;
   string  clear;
   integer i;
   integer len = llStringLength(cipher);
   integer n;
   integer sum;
   integer dc = 0x9E3779B9*PASSES;
   integer ind;
   for( i=0; i<len; i+=16 )
   {
       w1 = (integer)("0x"+llGetSubString(cipher,i,i+7));
       w2 = (integer)("0x"+llGetSubString(cipher,i+8,i+15));
       n = PASSES;
       sum = dc;
       do
       {
           w2 = w2-((w1<<4^w1>>5)+w1^sum+llList2Integer(k,(sum>>11&3)));
           w1 = w1-((w2<<4^w2>>5)+w2^sum+llList2Integer(k,((sum-=0x9E3779B9)&3)));
       } while( n = ~-n );
       clear +=    llList2String(ASCII_TABLE,w1&0x7f) +
                   llList2String(ASCII_TABLE,(w1&0x7f00)>>8) +
                   llList2String(ASCII_TABLE,(w1&0x7f0000)>>16) +
                   llList2String(ASCII_TABLE,(w1&0x7f000000)>>24) +
                   llList2String(ASCII_TABLE,w2&0x7f) +
                   llList2String(ASCII_TABLE,(w2&0x7f00)>>8) +
                   llList2String(ASCII_TABLE,(w2&0x7f0000)>>16) +
                   llList2String(ASCII_TABLE,(w2&0x7f000000)>>24);
   }
   return clear;

}

string XTEADecryptBase64( string cipher, integer nonce ) { 

   string  md5 = llMD5String( SECRET, nonce );
   list    k = [   (integer)("0x"+llGetSubString(md5,0,7)),
                   (integer)("0x"+llGetSubString(md5,8,15)),
                   (integer)("0x"+llGetSubString(md5,16,23)),
                   (integer)("0x"+llGetSubString(md5,24,31)) ];
   integer w1;
   integer w2;
   string  clear;
   integer i;
   integer len = llStringLength(cipher);
   integer n;
   integer sum;
   integer dc = 0x9E3779B9*PASSES;
   integer ind;
   for( i=0; i<len; i+=12 )
   {
       w1 = llBase64ToInteger(llGetSubString(cipher,i,i+5));
       w2 = llBase64ToInteger(llGetSubString(cipher,i+6,i+11));
       n = PASSES;
       sum = dc;
       do
       {
           w2 = w2-((w1<<4^w1>>5)+w1^sum+llList2Integer(k,(sum>>11&3)));
           w1 = w1-((w2<<4^w2>>5)+w2^sum+llList2Integer(k,((sum-=0x9E3779B9)&3)));
       } while( n = ~-n );
       clear +=    llList2String(ASCII_TABLE,w1&0x7f) +
                   llList2String(ASCII_TABLE,(w1&0x7f00)>>8) +
                   llList2String(ASCII_TABLE,(w1&0x7f0000)>>16) +
                   llList2String(ASCII_TABLE,(w1&0x7f000000)>>24) +
                   llList2String(ASCII_TABLE,w2&0x7f) +
                   llList2String(ASCII_TABLE,(w2&0x7f00)>>8) +
                   llList2String(ASCII_TABLE,(w2&0x7f0000)>>16) +
                   llList2String(ASCII_TABLE,(w2&0x7f000000)>>24);
   }
   return clear;

}

string XTEAEncrypt7BitBase64( string clear, integer nonce ) { 

   string  md5 = llMD5String( SECRET, nonce );
   list    k = [   (integer)("0x"+llGetSubString(md5,0,7)),
                   (integer)("0x"+llGetSubString(md5,8,15)),
                   (integer)("0x"+llGetSubString(md5,16,23)),
                   (integer)("0x"+llGetSubString(md5,24,31)) ];
   integer w1;
   integer w2;
   string  cipher;
   integer len = llStringLength( clear ); 
   integer i;
   integer n;
   integer sum;
   for( i=0; i<len; i+=9 )
   {
       w1 =
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i,i)])<<25) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+1,i+1)])<<18) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+2,i+2)])<<11) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+3,i+3)])<<4) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+4,i+4)])>>3);
       w2 =
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+4,i+4)])<<29) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+5,i+5)])<<22) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+6,i+6)])<<15) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+7,i+7)])<<8) |
           (llListFindList(ASCII_TABLE,[llGetSubString(clear,i+8,i+8)])<<1);
       n = PASSES;
       sum = 0;
       do
       {
           w1 = w1+((w2<<4^w2>>5)+w2^sum+llList2Integer(k,(sum&3)));
           w2 = w2+((w1<<4^w1>>5)+w1^sum+llList2Integer(k,((sum+=0x9E3779B9)>>11&3)));
       } while( n = ~-n );
       cipher = cipher + llGetSubString(llIntegerToBase64(w1),0,5) + llGetSubString(llIntegerToBase64(w2),0,5);
   }  
   return cipher;

}

string XTEADecrypt7BitBase64( string cipher, integer nonce ) { 

   string  md5 = llMD5String( SECRET, nonce );
   list    k = [   (integer)("0x"+llGetSubString(md5,0,7)),
                   (integer)("0x"+llGetSubString(md5,8,15)),
                   (integer)("0x"+llGetSubString(md5,16,23)),
                   (integer)("0x"+llGetSubString(md5,24,31)) ];
   integer w1;
   integer w2;
   string  clear;
   integer i;
   integer len = llStringLength(cipher);
   integer n;
   integer sum;
   integer dc = 0x9E3779B9*PASSES;
   integer ind;
   for( i=0; i<len; i+=12 )
   {
       w1 = llBase64ToInteger(llGetSubString(cipher,i,i+5));
       w2 = llBase64ToInteger(llGetSubString(cipher,i+6,i+11));
       n = PASSES;
       sum = dc;
       do
       {
           w2=w2-((w1<<4^w1>>5)+w1^sum+llList2Integer(k,(sum>>11&3)));
           w1=w1-((w2<<4^w2>>5)+w2^sum+llList2Integer(k,((sum-=0x9E3779B9)&3)));
       } while( n = ~-n );
       clear +=
           llList2String( ASCII_TABLE, (w1&0xfe000000)>>25 ) +
           llList2String( ASCII_TABLE, (w1&0x1fc0000)>>18 ) +
           llList2String( ASCII_TABLE, (w1&0x3f800)>>11 ) +
           llList2String( ASCII_TABLE, (w1&0x7f0)>>4 ) +
           llList2String(ASCII_TABLE,((w1&0xf)<<3)|(((w2&0xe0000000)>>29)&0x7))+
           llList2String( ASCII_TABLE, (w2&0x1fc00000)>>22 ) +
           llList2String( ASCII_TABLE, (w2&0x3f8000)>>15 ) +
           llList2String( ASCII_TABLE, (w2&0x7f00)>>8 ) +
           llList2String( ASCII_TABLE, (w2&0xfe)>>1 );
   }
   return clear;

}

default { 

   state_entry()
   {
       llListen( 0, "", llGetOwner(), "" );
       llSetText( "Touch me to run a speed test, or say something in chat.", <0,1,0>, 1 );
   }
   touch_start( integer ndet )
   {
       state speed_test;
   }
   listen( integer ch, string n, key id, string msg )
   {
       string s="";
       string e="";

// s += "O:"+msg+"\n"; 

       s += "O:"+(string)llStringLength(msg)+"\n";
       e = XTEAEncryptBase64( msg, 0 );

// s += "64e:"+e+" Len:"+(string)llStringLength(e)+"\n"; 

       s += "64e:"+(string)llStringLength(e)+"\n";

// s += "64d:"+XTEADecryptBase64( e, 0 )+"\n"; 

       e = XTEAEncryptBase16( msg, 0 );

// s += "16e:"+e+" Len:"+(string)llStringLength(e)+"\n"; 

       s += "16e:"+(string)llStringLength(e)+"\n";

// s += "16d:"+XTEADecryptBase16( e, 0 )+"\n"; 

       e = XTEAEncrypt7BitBase64( msg, 0 );

// s += "64e7b:"+e+" Len:"+(string)llStringLength(e)+"\n"; 

       s += "64e7b:"+(string)llStringLength(e)+"\n";

// s += "64d7b:"+XTEADecrypt7BitBase64( e, 0 )+"\n"; 

       llSetText( s, <1,1,1>, 1 );
   }

}

state speed_test { 

   state_entry()
   {
       llSetText( "Running speed test. Please wait...", <1,0,0>, 1 );
       llSay( 0, "Preparing speed test. Please wait..." );
       string  tclear = "xxxxxxxxxx";
       string  tcipher;
       float   stime;
       float   etime;
       integer passes;
       integer pby5;
       integer i;
       integer n;
       // The first test seems to be abnormally slow unless we peg the VM
       //  beforehand. O_o
       for( i=0; i<20; i++ )
       {
           tcipher = XTEAEncryptBase64( tclear, 42 );
           tclear = XTEADecryptBase64( tcipher, 42 );
           tcipher = XTEAEncryptBase16( tclear, 42 );
           tclear = XTEADecryptBase16( tcipher, 42 );
       }
       for( n=0; n<3; n++ )
       {
           if( n==0 )
           {
               passes = 1000;
               pby5 = passes/5;
               tclear = "tiny";
               llSay( 0, "Running short string speed test..." );
           }
           else if( n == 1 )
           {
               passes = 250;
               pby5 = passes/5;
               tclear = "Here is a string of moderate length for a test.";
               llSay( 0, "Running medium string speed test..." );
           }
           else if( n == 2 )
           {
               passes = 100;
               pby5 = passes/5;
               tclear = "OMG it's a big ol huuuuge string.OMG it's a big ol huuuuge string.OMG it's a big ol huuuuge string.OMG it's a big ol huuuuge string.OMG it's a big ol huuuuge string.OMG it's a big ol huuuuge string.OMG it's a big ol huuuuge string.OMG it's a big ol huuuuge string.OMG it's a big ol huuuuge string.OMG it's a big ol huuuuge string.";
               llSay( 0, "Running long string speed test..." );
           }
           stime = llGetTime();
           for( i=0; i<pby5; i++ )
               tcipher = XTEAEncryptBase16( tclear, 42 );
           etime = llGetTime();
           llSay( 0, "Hex Encryption ("+(string)pby5+" passes): "+(string)(etime-stime)+" seconds (avg "+(string)((float)pby5/(etime-stime))+" pass/s)." );
           for( i=0; i<passes; i++ )
               tclear = XTEADecryptBase16( tcipher, 42 );
           etime = llGetTime();
           llSay( 0, "Hex Decryption ("+(string)passes+" passes): "+(string)(etime-stime)+" seconds (avg "+(string)((float)passes/(etime-stime))+" pass/s)." );
           stime = llGetTime();
           for( i=0; i<pby5; i++ )
               tcipher = XTEAEncryptBase64( tclear, 42 );
           etime = llGetTime();
           llSay( 0, "Base64 Encryption ("+(string)pby5+" passes): "+(string)(etime-stime)+" seconds (avg "+(string)((float)pby5/(etime-stime))+" pass/s)." );
           stime = llGetTime();
           for( i=0; i<passes; i++ )
               tclear = XTEADecryptBase64( tcipher, 42 );
           etime = llGetTime();
           llSay( 0, "Base64 Decryption ("+(string)passes+" passes): "+(string)(etime-stime)+" seconds (avg "+(string)((float)passes/(etime-stime))+" pass/s)." );             
           stime = llGetTime();
           for( i=0; i<pby5; i++ )
               tcipher = XTEAEncrypt7BitBase64( tclear, 42 );
           etime = llGetTime();
           llSay( 0, "7bit Base64 Encryption ("+(string)pby5+" passes): "+(string)(etime-stime)+" seconds (avg "+(string)((float)pby5/(etime-stime))+" pass/s)." );
           stime = llGetTime();
           for( i=0; i<passes; i++ )
               tclear = XTEADecrypt7BitBase64( tcipher, 42 );
           etime = llGetTime();
           llSay( 0, "7bit Base64 Decryption ("+(string)passes+" passes): "+(string)(etime-stime)+" seconds (avg "+(string)((float)passes/(etime-stime))+" pass/s)." );
       }
       llSleep( 0.5 );
       llSay( 0, "Speed test complete. Carry on." );
       llSetText( "Speed test complete.", <0,1,0>, 1 );
       state default;
   }

} </lsl>

Retrieved from "https://wiki.secondlife.com/w/index.php?title=Faster_XTEA_Base16_Base64&oldid=94600"