CRC-32: Difference between revisions
Content added Content deleted
| Line 2,822: | Line 2,822: | ||
=={{header|VBScript}}== |
=={{header|VBScript}}== |
||
VBScript does'nt have bit rotation instructions and then bit to bit logic converts the default Double values to SIGNED 32 bit integers and back. A table driven implementation is required to speed things up. |
VBScript does'nt have bit rotation instructions and then bit to bit logic converts the default Double values to SIGNED 32 bit integers and back. A table driven implementation is required to speed things up. The code generates the table on the fly. |
||
<lang vb> |
<lang vb> |
||
dim crctbl |
dim crctbl(255) |
||
const crcc =&hEDB88320 |
|||
crctbl=array( _ |
|||
&h00000000 , &h77073096 , &hee0e612c , &h990951ba , &h076dc419 , &h706af48f _ |
|||
sub gencrctable |
|||
, &he963a535 , &h9e6495a3 , &h0edb8832 , &h79dcb8a4 , &he0d5e91e , &h97d2d988 _ |
|||
for i= 0 to 255 |
|||
, &h09b64c2b , &h7eb17cbd , &he7b82d07 , &h90bf1d91 , &h1db71064 , &h6ab020f2 _ |
|||
k=i |
|||
, &hf3b97148 , &h84be41de , &h1adad47d , &h6ddde4eb , &hf4d4b551 , &h83d385c7 _ |
|||
for j=1 to 8 |
|||
, &h136c9856 , &h646ba8c0 , &hfd62f97a , &h8a65c9ec , &h14015c4f , &h63066cd9 _ |
|||
if k and 1 then |
|||
, &hfa0f3d63 , &h8d080df5 , &h3b6e20c8 , &h4c69105e , &hd56041e4 , &ha2677172 _ |
|||
k=(k and &h7fffffff)\2 or (&h40000000 and ((k and &h80000000)<>0)) |
|||
, &h3c03e4d1 , &h4b04d447 , &hd20d85fd , &ha50ab56b , &h35b5a8fa , &h42b2986c _ |
|||
k=k xor crcc |
|||
, &hdbbbc9d6 , &hacbcf940 , &h32d86ce3 , &h45df5c75 , &hdcd60dcf , &habd13d59 _ |
|||
else |
|||
, &h26d930ac , &h51de003a , &hc8d75180 , &hbfd06116 , &h21b4f4b5 , &h56b3c423 _ |
|||
k=(k and &h7fffffff)\2 or (&h40000000 and ((k and &h80000000)<>0)) |
|||
, &hcfba9599 , &hb8bda50f , &h2802b89e , &h5f058808 , &hc60cd9b2 , &hb10be924 _ |
|||
end if |
|||
, &h2f6f7c87 , &h58684c11 , &hc1611dab , &hb6662d3d , &h76dc4190 , &h01db7106 _ |
|||
next ' j |
|||
, &h98d220bc , &hefd5102a , &h71b18589 , &h06b6b51f , &h9fbfe4a5 , &he8b8d433 _ |
|||
crctbl(i)=k |
|||
, &h7807c9a2 , &h0f00f934 , &h9609a88e , &he10e9818 , &h7f6a0dbb , &h086d3d2d _ |
|||
next |
|||
, &h91646c97 , &he6635c01 , &h6b6b51f4 , &h1c6c6162 , &h856530d8 , &hf262004e _ |
|||
end sub |
|||
, &h6c0695ed , &h1b01a57b , &h8208f4c1 , &hf50fc457 , &h65b0d9c6 , &h12b7e950 _ |
|||
, &h8bbeb8ea , &hfcb9887c , &h62dd1ddf , &h15da2d49 , &h8cd37cf3 , &hfbd44c65 _ |
|||
, &h4db26158 , &h3ab551ce , &ha3bc0074 , &hd4bb30e2 , &h4adfa541 , &h3dd895d7 _ |
|||
, &ha4d1c46d , &hd3d6f4fb , &h4369e96a , &h346ed9fc , &had678846 , &hda60b8d0 _ |
|||
, &h44042d73 , &h33031de5 , &haa0a4c5f , &hdd0d7cc9 , &h5005713c , &h270241aa _ |
|||
, &hbe0b1010 , &hc90c2086 , &h5768b525 , &h206f85b3 , &hb966d409 , &hce61e49f _ |
|||
, &h5edef90e , &h29d9c998 , &hb0d09822 , &hc7d7a8b4 , &h59b33d17 , &h2eb40d81 _ |
|||
, &hb7bd5c3b , &hc0ba6cad , &hedb88320 , &h9abfb3b6 , &h03b6e20c , &h74b1d29a _ |
|||
, &head54739 , &h9dd277af , &h04db2615 , &h73dc1683 , &he3630b12 , &h94643b84 _ |
|||
, &h0d6d6a3e , &h7a6a5aa8 , &he40ecf0b , &h9309ff9d , &h0a00ae27 , &h7d079eb1 _ |
|||
, &hf00f9344 , &h8708a3d2 , &h1e01f268 , &h6906c2fe , &hf762575d , &h806567cb _ |
|||
, &h196c3671 , &h6e6b06e7 , &hfed41b76 , &h89d32be0 , &h10da7a5a , &h67dd4acc _ |
|||
, &hf9b9df6f , &h8ebeeff9 , &h17b7be43 , &h60b08ed5 , &hd6d6a3e8 , &ha1d1937e _ |
|||
, &h38d8c2c4 , &h4fdff252 , &hd1bb67f1 , &ha6bc5767 , &h3fb506dd , &h48b2364b _ |
|||
, &hd80d2bda , &haf0a1b4c , &h36034af6 , &h41047a60 , &hdf60efc3 , &ha867df55 _ |
|||
, &h316e8eef , &h4669be79 , &hcb61b38c , &hbc66831a , &h256fd2a0 , &h5268e236 _ |
|||
, &hcc0c7795 , &hbb0b4703 , &h220216b9 , &h5505262f , &hc5ba3bbe , &hb2bd0b28 _ |
|||
, &h2bb45a92 , &h5cb36a04 , &hc2d7ffa7 , &hb5d0cf31 , &h2cd99e8b , &h5bdeae1d _ |
|||
, &h9b64c2b0 , &hec63f226 , &h756aa39c , &h026d930a , &h9c0906a9 , &heb0e363f _ |
|||
, &h72076785 , &h05005713 , &h95bf4a82 , &he2b87a14 , &h7bb12bae , &h0cb61b38 _ |
|||
, &h92d28e9b , &he5d5be0d , &h7cdcefb7 , &h0bdbdf21 , &h86d3d2d4 , &hf1d4e242 _ |
|||
, &h68ddb3f8 , &h1fda836e , &h81be16cd , &hf6b9265b , &h6fb077e1 , &h18b74777 _ |
|||
, &h88085ae6 , &hff0f6a70 , &h66063bca , &h11010b5c , &h8f659eff , &hf862ae69 _ |
|||
, &h616bffd3 , &h166ccf45 , &ha00ae278 , &hd70dd2ee , &h4e048354 , &h3903b3c2 _ |
|||
, &ha7672661 , &hd06016f7 , &h4969474d , &h3e6e77db , &haed16a4a , &hd9d65adc _ |
|||
, &h40df0b66 , &h37d83bf0 , &ha9bcae53 , &hdebb9ec5 , &h47b2cf7f , &h30b5ffe9 _ |
|||
, &hbdbdf21c , &hcabac28a , &h53b39330 , &h24b4a3a6 , &hbad03605 , &hcdd70693 _ |
|||
, &h54de5729 , &h23d967bf , &hb3667a2e , &hc4614ab8 , &h5d681b02 , &h2a6f2b94 _ |
|||
, &hb40bbe37 , &hc30c8ea1 , &h5a05df1b , &h2d02ef8d) |
|||
function crc32 (buf) |
function crc32 (buf) |
||
| Line 2,878: | Line 2,850: | ||
next |
next |
||
crc32=hex(r xor &hffffffff) |
crc32=hex(r xor &hffffffff) |
||
end function |
end function |
||
'414FA339 |
|||
gencrctable |
|||
wscript.stdout.writeline crc32("The quick brown fox jumps over the lazy dog") |
wscript.stdout.writeline crc32("The quick brown fox jumps over the lazy dog") |
||
</lang> |
</lang> |
||
Output |
|||
<pre> |
|||
414FA339 |
|||
</pre> |
|||
=={{header|Visual Basic}}== |
=={{header|Visual Basic}}== |
||
{{works with|Visual Basic|5}} |
{{works with|Visual Basic|5}} |
||