Data update

Task/CRC-32/VBScript/crc-32.vb

@@ -1,32 +0,0 @@
-dim crctbl(255)
-const crcc =&hEDB88320
-
-sub gencrctable
-for i= 0 to 255
-   k=i
-   for j=1 to 8
-    if k and 1 then
-      k=(k and &h7fffffff)\2 or (&h40000000 and ((k and &h80000000)<>0))
-      k=k xor crcc
-    else
-      k=(k and &h7fffffff)\2 or (&h40000000 and ((k and &h80000000)<>0))
-   end if
-   next ' j
-   crctbl(i)=k
- next
-end sub
-
- function crc32 (buf)
-  dim r,r1,i
-  r=&hffffffff
-  for i=1 to len(buf)
-      r1=(r and &h7fffffff)\&h100 or (&h800000 and (r and &h80000000)<>0)
-    r=r1 xor crctbl((asc(mid(buf,i,1))xor r) and 255)
-  next
-  crc32=r xor &hffffffff
-end function
-
-
-'414FA339
-gencrctable
-wscript.stdout.writeline hex(crc32("The quick brown fox jumps over the lazy dog"))