LRC校验_VB.NET,rcr校验

LRC的效验码的计算方法

你对LRC的理解有问题啊……

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名申请、雅安服务器托管、营销软件、网站建设、昔阳网站维护、网站推广。

图二中的有效ASCII字符串为“010300001388”，因此01+03+00+00+13+88 = 9F，9F的补码为61，因此校验码为“61”，即0x36、0x31。

lrc是什么意思？

LRC是纵向冗余校验。

纵向冗余校验（LRC，Longitudinal Redundancy Check）是通信中常用的一种校验形式。纵向冗余校验(LRC)是一种从纵向通道上的特定比特串产生校验比特的错误检测方法。在行列格式中（例如，在磁带中），LRC经常是与VRC一起使用，这样就会为每个字符校验码。

优势：

纵向冗余校验的异或校验和可以简单快速的计算出来，将一个数据块的所有数据字节递归，经过异或选通后即可产生异或校验和。由于算法简单，可以快速简单地计算纵向冗余校验。然而，LRC并不很可靠，多个错误可能相互抵消，在一个数据块内字节顺序的互换根本识别不出来。

因此LRC主要用于快速校验很小的数据块儿（如32B）。在射频识别系统中，由于标签的容量一般较小，每次交易的数据量也不大，所以这种算法还是比较适合的。

如何利用VB对一串数据进行LRC校验 希望给出代码和例子

分二步：

一、建立一个模块，复制下面代码

Option

Explicit

Private

Declare

Function

CryptAcquireContext

Lib

"advapi32.dll"

_

Alias

"CryptAcquireContextA"

(

_

ByRef

phProv

As

Long,

_

ByVal

pszContainer

As

String,

_

ByVal

pszProvider

As

String,

_

ByVal

dwProvType

As

Long,

_

ByVal

dwFlags

As

Long)

As

Long

Private

Declare

Function

CryptReleaseContext

Lib

"advapi32.dll"

(

_

ByVal

hProv

As

Long,

_

ByVal

dwFlags

As

Long)

As

Long

Private

Declare

Function

CryptCreateHash

Lib

"advapi32.dll"

(

_

ByVal

hProv

As

Long,

_

ByVal

Algid

As

Long,

_

ByVal

hKey

As

Long,

_

ByVal

dwFlags

As

Long,

_

ByRef

phHash

As

Long)

As

Long

Private

Declare

Function

CryptDestroyHash

Lib

"advapi32.dll"

(

_

ByVal

hHash

As

Long)

As

Long

Private

Declare

Function

CryptHashData

Lib

"advapi32.dll"

(

_

ByVal

hHash

As

Long,

_

pbData

As

Any,

_

ByVal

dwDataLen

As

Long,

_

ByVal

dwFlags

As

Long)

As

Long

Private

Declare

Function

CryptGetHashParam

Lib

"advapi32.dll"

(

_

ByVal

hHash

As

Long,

_

ByVal

dwParam

As

Long,

_

pbData

As

Any,

_

pdwDataLen

As

Long,

_

ByVal

dwFlags

As

Long)

As

Long

Private

Const

PROV_RSA_FULL

=

1

Private

Const

CRYPT_NEWKEYSET

=

H8

Private

Const

ALG_CLASS_HASH

=

32768

Private

Const

ALG_TYPE_ANY

=

Private

Const

ALG_SID_MD2

=

1

Private

Const

ALG_SID_MD4

=

2

Private

Const

ALG_SID_MD5

=

3

Private

Const

ALG_SID_SHA1

=

4

Enum

HashAlgorithm

MD2

=

ALG_CLASS_HASH

Or

ALG_TYPE_ANY

Or

ALG_SID_MD2

MD4

=

ALG_CLASS_HASH

Or

ALG_TYPE_ANY

Or

ALG_SID_MD4

MD5

=

ALG_CLASS_HASH

Or

ALG_TYPE_ANY

Or

ALG_SID_MD5

SHA1

=

ALG_CLASS_HASH

Or

ALG_TYPE_ANY

Or

ALG_SID_SHA1

End

Enum

Private

Const

HP_HASHVAL

=

2

Private

Const

HP_HASHSIZE

=

4

Function

HashString(

_

ByVal

Str

As

String,

_

Optional

ByVal

Algorithm

As

HashAlgorithm

=

MD5)

As

String

Dim

hCtx

As

Long

Dim

hHash

As

Long

Dim

lRes

As

Long

Dim

lLen

As

Long

Dim

lIdx

As

Long

Dim

abData()

As

Byte

'

Get

default

provider

context

handle

lRes

=

CryptAcquireContext(hCtx,

vbNullString,

_

vbNullString,

PROV_RSA_FULL,

0)

If

lRes

Then

'

Create

the

hash

lRes

=

CryptCreateHash(hCtx,

Algorithm,

0,

0,

hHash)

If

lRes

Then

'

Hash

the

string

lRes

=

CryptHashData(hHash,

ByVal

Str,

Len(Str),

0)

If

lRes

Then

'

Get

the

hash

lenght

lRes

=

CryptGetHashParam(hHash,

HP_HASHSIZE,

lLen,

4,

0)

If

lRes

Then

'

Initialize

the

buffer

ReDim

abData(0

To

lLen

-

1)

'

Get

the

hash

value

lRes

=

CryptGetHashParam(hHash,

HP_HASHVAL,

abData(0),

lLen,

0)

If

lRes

Then

'

Convert

value

to

hex

string

For

lIdx

=

To

UBound(abData)

HashString

=

HashString

_

Right$("0"

Hex$(abData(lIdx)),

2)

Next

End

If

End

If

End

If

'

Release

the

hash

handle

CryptDestroyHash

hHash

End

If

End

If

'

Release

the

provider

context

CryptReleaseContext

hCtx,

'

Raise

an

error

if

lRes

=

If

lRes

=

Then

Err.Raise

Err.LastDllError

End

Function

二、函数调用

msgbox

HashString(Text1.Text)

LRC校验码是怎么计算的

当选用ASCII模式作字符帧，错误检测域包含两个ASCII字符。这是使用LRC（纵向冗长检测）方法对消息内容计算得出的，不包括开始的冒号符及回车换行符。LRC字符附加在回车换行符前面。我理解的是各位ASCII码对应的字符求和，然后位反，最后加1，转化成对应的字符即为lrc校验码。

信息“:010300010001”中“010300010001”

的LRC校验码为“FA”，

01+03+00+01+00+01=06 06位取反码是F9 再加1是FA

很明显结果就是FA啊 求和:0000 0110 取反 +1 = 1111 1010