Snippet of the Day

[SplitIce]

That almost makes me spew as much as.

Public Function Adler32$(data As StringReader, Optional InitL& = 1, Optional InitH& = 0)
   With data
            Dim L&, h&
            h = InitH: L = InitL
               
               Dim StrCharPos&, tmpBuff$
               tmpBuff = StrConv(.mvardata, vbFromUnicode, LocaleID_ENG)
                  'The largest prime less than 2^16
                  L = (AscB(MidB$(tmpBuff, StrCharPos, 1)) + L) ' Mod 65521 '&HFFF1
                  h = (h + L) ' Mod 65521 '&HFFF1

                  If (0 = (StrCharPos Mod 5552)) Or _
                           (StrCharPos = Len(.mvardata)) Then
                     L = L Mod 65521  '&HFFF1
                     h = h Mod 65521  '&HFFF1
                     myDoEvents
                  End If
                  
               Next

      Adler32 = H16(h) & H16(L)
   End With
End Function

which by the way is just

static public uint adler32(byte[] data, int len){
 	        ulong a = 17;
 	        ulong b = 0;
 	        ulong MOD_ADLER = 65521;
 	        for(int i = 0; i < len; ++i){
 		        a = (a + data[i]) % MOD_ADLER;
 		        b = (b + a) % MOD_ADLER;
 	        }
 	        return (uint)((b << 16) | a);
         }

SplitIce Reviewed by SplitIce on 1st Jul 2012. Snippet of the Day Disclaimer: Ok, just an idea I thought up. Might take off, might not. With that out of the way let me introduce snippet of the day. In this thread you may post one snippet of code a day (at most) that you are particularly proud of. Rules: Snippets must be at most 15 lines long. Try to keep them as short as possible. You must have written them yourself and within the course of the day. Any language is allowed No insulting peoples coding. Although that said, if you just started Rating: 5