crc32.vbs

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"))