crc源码
① 求crc32校验C#源码，能用的哦！跪谢
我有CRC16校验的C#代码：
CRC循环冗余错误校验计算方法&&代码
CRC—16（循环冗余错误校验）生成CRC—16校验字节的步骤如下：
（1）装入一个16位寄存器，所有数位均为1。
（2）该16位寄存器的高位字节与开始8位字节进行“异或”运算。运算结果放入这个16位寄存器。
（3）把这个16位寄存器向右移1位。
（4a）若向右（标记位）移出的数位是1，则生成多项式1010000000000001和这个寄存器进行“异或”运算。
（4b）若向右移出的数位是0，则返回（3）。
（5）重复（3）和（4），直至移出8位。
（6）另外8位与该16位寄存器进行“异或”运算。
（7）重复（3）—（6），直至该报文所有字节均与16位寄存器进行“异或”运算，并移位8次。
（8）这个16位寄存器的内容即2字节CRC错误校验
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace CommPort
{
public class CRC16
{
public CRC16()
{
}
//校验crc16
public static bool check(byte[] buff, int index, int len)
{ //buff是待校验数组，index为起始索引，len为校验长度
//buff是待校验数组，index为起始索引，len为校验长度
uint i, j;
byte h, l;
byte c, d;
h = 0x55;
l = 0xaa;
for (i = (uint)index; i < index + len; i++)
{
h = (byte)(buff[i] ^ h);
for (j = 0; j < 8; j++)
{
c = (byte)(l & 0x80);
l <<= 1;
d = (byte)(h & 0x80);
h <<= 1;
if (c != 0)
h |= 0x01;
if (d != 0)
{
//
h = (byte)(h ^ 0x10);
l = (byte)(l ^ 0x21);
}
}
}
if ((h == 0) && (l == 0))
return true;
else
return false;
}
//计算一个byte数组中指定位置的crc16
public static byte[] cal(byte[] buff, int index, int len)
{
//buff是待校验数组，index为起始索引，len为校验长度
uint i, j;
byte h, l;
byte c, d;
h = 0x55;
l = 0xaa;
for (i = (uint)index; i < index + len; i++)
{
h = (byte)(buff[i] ^ h);
for (j = 0; j < 8; j++)
{
c = (byte)(l & 0x80);
l <<= 1;
d = (byte)(h & 0x80);
h <<= 1;
if (c != 0)
h |= 0x01;
if (d != 0)
{
//
h = (byte)(h ^ 0x10);
l = (byte)(l ^ 0x21);
}
}
}
byte[] resu = new byte[2];
resu[0] = (byte)h;
resu[1] = (byte)l;
return resu;
}
}
}
② 求一个CRC校验C++源代码。题目：发送数据为1101011011，生成的多项式为P（X）=X4+X+1(X4为X的4次方)，
下面的代码输入为原数据和多项式对就的二进制码，输出为产生的校验码。
如原数据是1101011011，多项式是X^4+X+1(即10011)。产生的校验码为1110。
输入110101101110011
输出1110
#include<iostream>
#include<cstring>
#include<iomanip>
usingnamespacestd;
#defineWORDSIZE255
intgetNum(chara[],intn);
voidshowNum(intr,intn);
intmain(intargc,char*argv[])
{
cout<<"pleaseinputXandP:"<<endl;
intx,p,lenA,lenP;
chara[WORDSIZE];
memset(a,' ',WORDSIZE);
cin>>a;
lenA=strlen(a);
x=getNum(a,WORDSIZE);
memset(a,' ',WORDSIZE);
cin>>a;
lenP=strlen(a);
p=getNum(a,WORDSIZE);
x<<=lenP-1;
intresult=0,i;
for(i=lenA-1;i>=0;i--){
if(x&(1<<(i+lenP-1))){
result=result*2+1;
x^=(p<<i);
}else{
result=result*2;
}
}
showNum(x,lenP-1);
return0;
}
intgetNum(chara[],intn)
{
intk=0;
inti;
for(i=0;i<n&&a[i]!=' ';i++){
k=k*2+a[i]-'0';
}
returnk;
}
voidshowNum(intr,intn)
{
inti;
for(i=n-1;i>=0;i--){
if(r&(1<<i)){
cout<<1;
}else{
cout<<0;
}
}
cout<<endl;
}
这是以前自己偷懒做计算机网络CRC题目时写的程序，希望对你有用。
③ vb，crc校验的程序
'Text1.Text 输入数据
'Text2.Text 输出数据
Dim ReturnData(1) As Byte
Private Sub Command1_Click()
Dim CRC(2) As Byte
Dim d(6) As Byte '待传输数据
ReDim data(7) As Byte
For i = 0 To 5
data(i) = "&h" + Mid(Text1.Text, 2 * i + 1, 2)
Debug.Print data(i)
Next i
Call CRC16(data, UBound(data) - 2, data(6), data(7)) '调用CRC16计算函数
' CRC(0)为高位
' CRC(1)为低位
End Sub
Function CRC16(data() As Byte, i As Integer, ByRef ReturnDatalo As Byte, ByRef ReturnDatahi As Byte) As String
Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC寄存器
Dim CL As Byte, CH As Byte '多项式码&HA001
Dim SaveHi As Byte, SaveLo As Byte
Dim Flag As Integer
CRC16Lo = &HFF
CRC16Hi = &HFF
CL = &H1
CH = &HA0
For i = 0 To UBound(data) - 2
CRC16Lo = CRC16Lo Xor data(i) '每一个数据与CRC寄存器进行异或
For Flag = 0 To 9
SaveHi = CRC16Hi
SaveLo = CRC16Lo
CRC16Hi = CRC16Hi \ 2 '高位右移一位
CRC16Lo = CRC16Lo \ 2 '低位右移一位
If ((SaveHi And &H1) = &H1) Then '如果高位字节最后一位为1
CRC16Lo = CRC16Lo Or &H80 '则低位字节右移后前面补1
End If '否则自动补0
If ((SaveLo And &H1) = &H1) Then '如果LSB为1，则与多项式码进行异或
CRC16Hi = CRC16Hi Xor CH
CRC16Lo = CRC16Lo Xor CL
End If
Next Flag
Next i
ReturnDatahi = CRC16Hi 'CRC高位
ReturnDatalo = CRC16Lo 'CRC低位
Debug.Print Hex(CRC16Lo), Hex(CRC16Hi)
Text2.Text = Text1.Text & Hex(CRC16Lo) & Hex(CRC16Hi)
End Function
④ 【人民币酬谢】求易语言crc16校验和代码
网上查呀
⑤ 谁有VB CRC16校验源码
Public Function UnsignInt(ByRef Num As Variant) As Boolean
Num = Num And &HFFFF&
End Function
'8005
Public Function CRC168005(ptr() As Byte) As String
Dim i As Integer, J As Integer
Dim Index As Integer
Dim crc As Long
crc = 0
Index = 0
For J = 0 To UBound(ptr)
i = &H80
Do While (i > 0)
UnsignInt crc
If ((crc And &H8000&) <> 0) Then
crc = crc * 2
UnsignInt crc
crc = crc Xor &H8005&
Else
crc = crc * 2
'crc = UnsignedAdd(crc, crc)
End If
If ((ptr(Index) And i) <> 0) Then
UnsignInt crc
crc = crc Xor &H8005& '关键点 结尾&符号
End If
i = i / 2
Loop
Index = Index + 1
Next
CRC168005 = Hex(crc)
End Function
'A001
Public Function CRC16(data() As Byte) As String
Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC寄存器
Dim CL As Byte, CH As Byte '多项式码&HA001
Dim SaveHi As Byte, SaveLo As Byte
Dim i As Integer
Dim flag As Integer
CRC16Lo = &HFF
CRC16Hi = &HFF
CL = &H1
CH = &HA0
For i = 0 To UBound(data)
CRC16Lo = CRC16Lo Xor data(i) '每一个数据与CRC寄存器进行异或
For flag = 0 To 7
SaveHi = CRC16Hi
SaveLo = CRC16Lo
CRC16Hi = CRC16Hi \ 2 '高位右移一位
CRC16Lo = CRC16Lo \ 2 '低位右移一位
If ((SaveHi And &H1) = &H1) Then 'VB下的CRC校验程序高位字节最后一位为1
CRC16Lo = CRC16Lo Or &H80 '则低位字节右移后前面补1
End If '否则自动补0
If ((SaveLo And &H1) = &H1) Then 'VB下的CRC校验程序LSB为1，则与多项式码进行异或
CRC16Hi = CRC16Hi Xor CH
CRC16Lo = CRC16Lo Xor CL
End If
Next flag
Next i
Dim ReturnData(2) As Byte
ReturnData(0) = CRC16Hi 'CRC高位
ReturnData(1) = CRC16Lo 'CRC低位
CRC16 = Bit(Hex(ReturnData(0))) & Bit(Hex(ReturnData(1)))
End Function
⑥ 请教高手！！急呀，请问谁有现成的CRC（循环冗余校验码）纠错源代码
我知道，电话是；654824565。