VB快速校验CRC32

testid

1. Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
2. Private Function AsmCrc(bytInput() As Byte, ByVal Init As Long) As Long
   
3.     Dim Asm(5) As Long
   
4.     Asm(0) = &H5B5A5958
   
5.     Asm(1) = &HC033505E
   
6.     Asm(2) = &H3018A36
   
7.     Asm(3) = &H41CED1F0
   
8.     Asm(4) = &HF47ECA3B
   
9.     Asm(5) = &HC3338936
   
10.     CallWindowProc VarPtr(Asm(0)), VarPtr(bytInput(LBound(bytInput))), VarPtr(bytInput(UBound(bytInput))), VarPtr(AsmCrc), Init
    
11. End Function

复制代码

马大哈

这个....咋用?第二个参数init是什么?

Tesla.Angela

网上找到一个例子：

1. 
   
2. Private Sub Command1_Click()
   
3.       Dim myBAry() As Byte
   
4.       Dim myL        As Long
   
5. 
   
6.       myBAry = StrConv(Text1.Text, vbFromUnicode)
   
7. 
   
8.       myL = AsmCrc(myBAry, Len(Text1.Text))
   
9.       Text2.Text = "字符串“" & Text1.Text & "”的CRC校验：" & myL
   
10. End Sub
    

复制代码

http://www.yulv.net/jiajia/article/69.htm

dabingrain

部分系统上出错啊！

dabingrain

有个别地方使用会导致崩溃，例如vb.net,可能和线程有关系

xxhaishixx

我是来支持的。

asdf70813

我是来支持的。