RMB求购google ch checksum值算法的VB代码?

zhaoyifhq 2009-08-26 11:56:12
RMB求购google ch checksum值算法的VB代码?
求checksum值算法的VB代码,要能用的,联系QQ620027066
...全文
194 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
yangke1994 2010-02-01
  • 打赏
  • 举报
 回复
这个才是对的：
模块代码：
Option Explicit

Const GOOGLE_MAGIC = &HE6359A60

Function sl(ByVal x, ByVal n)

    If n = 0 Then

        sl = x

    Else

        Dim k

        k = CLng(2 ^ (32 - n - 1))

        Dim d

        d = x And (k - 1)

        Dim c

        c = d * CLng(2 ^ n)

        If x And k Then

            c = c Or &H80000000

        End If

        sl = c

    End If

End Function

Function sr(ByVal x, ByVal n)

    If n = 0 Then

        sr = x

    Else

        Dim y

        y = x And &H7FFFFFFF

        Dim z

        If n = 32 - 1 Then

            z = 0

        Else

            z = y \ CLng(2 ^ n)

        End If

        If y <> x Then

            z = z Or CLng(2 ^ (32 - n - 1))

        End If

        sr = z

    End If

End Function

Function zeroFill(ByVal a, ByVal b)

    Dim x

    If (&H80000000 And a) Then

        x = sr(a, 1)

        x = x And (Not &H80000000)

        x = x Or &H40000000

        x = sr(x, b - 1)

    Else

        x = sr(a, b)

    End If

    zeroFill = x

End Function

Private Function uadd(ByVal L1, ByVal L2)

    Dim L11, L12, L21, L22, L31, L32

    L11 = L1 And &HFFFFFF

    L12 = (L1 And &H7F000000) \ &H1000000

    If L1 < 0 Then L12 = L12 Or &H80

    L21 = L2 And &HFFFFFF

    L22 = (L2 And &H7F000000) \ &H1000000

    If L2 < 0 Then L22 = L22 Or &H80

    L32 = L12 + L22

    L31 = L11 + L21

    If (L31 And &H1000000) Then L32 = L32 + 1

    uadd = (L31 And &HFFFFFF) + (L32 And &H7F) * &H1000000

    If L32 And &H80 Then uadd = uadd Or &H80000000

End Function

Private Function usub(ByVal L1, ByVal L2)

    Dim L11, L12, L21, L22, L31, L32

    L11 = L1 And &HFFFFFF

    L12 = (L1 And &H7F000000) \ &H1000000

    If L1 < 0 Then L12 = L12 Or &H80

    L21 = L2 And &HFFFFFF

    L22 = (L2 And &H7F000000) \ &H1000000

    If L2 < 0 Then L22 = L22 Or &H80

    L32 = L12 - L22

    L31 = L11 - L21

    If L31 < 0 Then

        L32 = L32 - 1

        L31 = L31 + &H1000000

    End If

    usub = L31 + (L32 And &H7F) * &H1000000

    If L32 And &H80 Then usub = usub Or &H80000000

End Function

Function mix(ByVal ia, ByVal ib, ByVal ic)

    Dim a, b, c

    a = ia

    b = ib

    c = ic

    

    a = usub(a, b)

    a = usub(a, c)

    a = a Xor zeroFill(c, 13)

    

    b = usub(b, c)

    b = usub(b, a)

    b = b Xor sl(a, 8)

    

    c = usub(c, a)

    c = usub(c, b)

    c = c Xor zeroFill(b, 13)

    

    a = usub(a, b)

    a = usub(a, c)

    a = a Xor zeroFill(c, 12)

    

    b = usub(b, c)

    b = usub(b, a)

    b = b Xor sl(a, 16)

    

    c = usub(c, a)

    c = usub(c, b)

    c = c Xor zeroFill(b, 5)

    

    a = usub(a, b)

    a = usub(a, c)

    a = a Xor zeroFill(c, 3)

 

    b = usub(b, c)

    b = usub(b, a)

    b = b Xor sl(a, 10)

    

    c = usub(c, a)

    c = usub(c, b)

    c = c Xor zeroFill(b, 15)

    

    Dim ret(3)

   

    ret(0) = a

    ret(1) = b

    ret(2) = c

    

    mix = ret

End Function



Function gc(ByVal s, ByVal i)

    gc = Asc(Mid(s, i + 1, 1))

End Function



Function GoogleCH(ByVal sUrl)

    Dim iLength, a, b, c, k, iLen, m

    iLength = Len(sUrl)



    a = &H9E3779B9

    b = &H9E3779B9

    c = GOOGLE_MAGIC

    k = 0

    

    iLen = iLength

    Do While iLen >= 12

        a = uadd(a, (uadd(gc(sUrl, k + 0), uadd(sl(gc(sUrl, k + 1), 8), uadd(sl(gc(sUrl, k + 2), 16), sl(gc(sUrl, k + 3), 24))))))

        b = uadd(b, (uadd(gc(sUrl, k + 4), uadd(sl(gc(sUrl, k + 5), 8), uadd(sl(gc(sUrl, k + 6), 16), sl(gc(sUrl, k + 7), 24))))))

        c = uadd(c, (uadd(gc(sUrl, k + 8), uadd(sl(gc(sUrl, k + 9), 8), uadd(sl(gc(sUrl, k + 10), 16), sl(gc(sUrl, k + 11), 24))))))



        m = mix(a, b, c)

        

        a = m(0)

        b = m(1)

        c = m(2)

        

        k = k + 12



        iLen = iLen - 12

    Loop



    c = uadd(c, iLength)



    Select Case iLen ' all the case statements fall through

        Case 11

            c = uadd(c, sl(gc(sUrl, k + 10), 24))

            c = uadd(c, sl(gc(sUrl, k + 9), 16))

            c = uadd(c, sl(gc(sUrl, k + 8), 8))

            b = uadd(b, sl(gc(sUrl, k + 7), 24))

            b = uadd(b, sl(gc(sUrl, k + 6), 16))

            b = uadd(b, sl(gc(sUrl, k + 5), 8))

            b = uadd(b, gc(sUrl, k + 4))

            a = uadd(a, sl(gc(sUrl, k + 3), 24))

            a = uadd(a, sl(gc(sUrl, k + 2), 16))

            a = uadd(a, sl(gc(sUrl, k + 1), 8))

            a = uadd(a, gc(sUrl, k + 0))

        Case 10

            c = uadd(c, sl(gc(sUrl, k + 9), 16))

            c = uadd(c, sl(gc(sUrl, k + 8), 8))

            b = uadd(b, sl(gc(sUrl, k + 7), 24))

            b = uadd(b, sl(gc(sUrl, k + 6), 16))

            b = uadd(b, sl(gc(sUrl, k + 5), 8))

            b = uadd(b, gc(sUrl, k + 4))

            a = uadd(a, sl(gc(sUrl, k + 3), 24))

            a = uadd(a, sl(gc(sUrl, k + 2), 16))

            a = uadd(a, sl(gc(sUrl, k + 1), 8))

            a = uadd(a, gc(sUrl, k + 0))

        Case 9

            c = uadd(c, sl(gc(sUrl, k + 8), 8))

            b = uadd(b, sl(gc(sUrl, k + 7), 24))

            b = uadd(b, sl(gc(sUrl, k + 6), 16))

            b = uadd(b, sl(gc(sUrl, k + 5), 8))

            b = uadd(b, gc(sUrl, k + 4))

            a = uadd(a, sl(gc(sUrl, k + 3), 24))

            a = uadd(a, sl(gc(sUrl, k + 2), 16))

            a = uadd(a, sl(gc(sUrl, k + 1), 8))

            a = uadd(a, gc(sUrl, k + 0))

        Case 8

            b = uadd(b, sl(gc(sUrl, k + 7), 24))

            b = uadd(b, sl(gc(sUrl, k + 6), 16))

            b = uadd(b, sl(gc(sUrl, k + 5), 8))

            b = uadd(b, gc(sUrl, k + 4))

            a = uadd(a, sl(gc(sUrl, k + 3), 24))

            a = uadd(a, sl(gc(sUrl, k + 2), 16))

            a = uadd(a, sl(gc(sUrl, k + 1), 8))

            a = uadd(a, gc(sUrl, k + 0))

        Case 7

            b = uadd(b, sl(gc(sUrl, k + 6), 16))

            b = uadd(b, sl(gc(sUrl, k + 5), 8))

            b = uadd(b, gc(sUrl, k + 4))

            a = uadd(a, sl(gc(sUrl, k + 3), 24))

            a = uadd(a, sl(gc(sUrl, k + 2), 16))

            a = uadd(a, sl(gc(sUrl, k + 1), 8))

            a = uadd(a, gc(sUrl, k + 0))

        Case 6

            b = uadd(b, sl(gc(sUrl, k + 5), 8))

            b = uadd(b, gc(sUrl, k + 4))

            a = uadd(a, sl(gc(sUrl, k + 3), 24))

            a = uadd(a, sl(gc(sUrl, k + 2), 16))

            a = uadd(a, sl(gc(sUrl, k + 1), 8))

            a = uadd(a, gc(sUrl, k + 0))

        Case 5

            b = uadd(b, gc(sUrl, k + 4))

            a = uadd(a, sl(gc(sUrl, k + 3), 24))

            a = uadd(a, sl(gc(sUrl, k + 2), 16))

            a = uadd(a, sl(gc(sUrl, k + 1), 8))

            a = uadd(a, gc(sUrl, k + 0))

        Case 4

            a = uadd(a, sl(gc(sUrl, k + 3), 24))

            a = uadd(a, sl(gc(sUrl, k + 2), 16))

            a = uadd(a, sl(gc(sUrl, k + 1), 8))

            a = uadd(a, gc(sUrl, k + 0))

        Case 3

            a = uadd(a, sl(gc(sUrl, k + 2), 16))

            a = uadd(a, sl(gc(sUrl, k + 1), 8))

            a = uadd(a, gc(sUrl, k + 0))

        Case 2

            a = uadd(a, sl(gc(sUrl, k + 1), 8))

            a = uadd(a, gc(sUrl, k + 0))

        Case 1

            a = uadd(a, gc(sUrl, k + 0))

    End Select

    

    m = mix(a, b, c)

    

    GoogleCH = m(2)

End Function

Function CalculateChecksum(sUrl)

    CalculateChecksum = "6" & CStr(GoogleCH("info:" & sUrl)) ' AND &H7FFFFFFF)

End Function


调用代码：
chSum = CalculateChecksum(【要输入的内容】)
hkchoose 2010-01-19
  • 打赏
  • 举报
 回复
只能帮顶了～～～
challenge1 2009-09-06
  • 打赏
  • 举报
 回复
只能帮顶了～～～

----------------------------------------------------------------------------
人脑潜能开发,潜能开发音乐下载 潜能21网www.qn21.com
咸清 2009-08-28
  • 打赏
  • 举报
 回复
不知道什么逻辑~~~干嘛用的？
骚军 2009-08-28
  • 打赏
  • 举报
 回复
来收钱的 哈哈~
checksum的vb代码：

'=========================================================
' functions for the checksum:
'
' Function sl(ByVal x, ByVal n)
' Function sr(ByVal x, ByVal n)
' Function zeroFill(ByVal a, ByVal b)
' Private Function uadd(ByVal L1, ByVal L2)
' Private Function usub(ByVal L1, ByVal L2)
' Function mix(ByVal ia, ByVal ib, ByVal ic)
' Function gc(ByVal s, ByVal i)
' function GoogleCH(ByVal sURL)
' Function CalculateChecksum(sURL)
'=========================================================
Function sl(ByVal x, ByVal n)
If n = 0 Then
sl = x
Else
Dim k
k = CLng(2 ^ (32 - n - 1))
Dim d
d = x And (k - 1)
Dim c
c = d * CLng(2 ^ n)
If x And k Then
c = c Or &H80000000
End If
sl = c
End If
End Function

Function sr(ByVal x, ByVal n)
If n = 0 Then
sr = x
Else
Dim y
y = x And &H7FFFFFFF
Dim z
If n = 32 - 1 Then
z = 0
Else
z = y \ CLng(2 ^ n)
End If
If y <> x Then
z = z Or CLng(2 ^ (32 - n - 1))
End If
sr = z
End If
End Function

Function zeroFill(ByVal a, ByVal b)
Dim x
if (&H80000000 AND a) then
x = sr(a,1)
x = x AND (NOT &H80000000)
x = x OR &H40000000
x = sr(x,b-1)
else
x = sr(a,b)
end if
zeroFill = x
End Function

Private Function uadd(ByVal L1, ByVal L2)
Dim L11, L12, L21, L22, L31, L32
L11 = L1 And &HFFFFFF
L12 = (L1 And &H7F000000) \ &H1000000
If L1 < 0 Then L12 = L12 Or &H80
L21 = L2 And &HFFFFFF
L22 = (L2 And &H7F000000) \ &H1000000
If L2 < 0 Then L22 = L22 Or &H80
L32 = L12 + L22
L31 = L11 + L21
If (L31 And &H1000000) Then L32 = L32 + 1
uadd = (L31 And &HFFFFFF) + (L32 And &H7F) * &H1000000
If L32 And &H80 Then uadd = uadd Or &H80000000
End Function

Private Function usub(ByVal L1, ByVal L2)
Dim L11, L12, L21, L22, L31, L32
L11 = L1 And &HFFFFFF
L12 = (L1 And &H7F000000) \ &H1000000
If L1 < 0 Then L12 = L12 Or &H80
L21 = L2 And &HFFFFFF
L22 = (L2 And &H7F000000) \ &H1000000
If L2 < 0 Then L22 = L22 Or &H80
L32 = L12 - L22
L31 = L11 - L21
If L31 < 0 Then
L32 = L32 - 1
L31 = L31 + &H1000000
End If
usub = L31 + (L32 And &H7F) * &H1000000
If L32 And &H80 Then usub = usub Or &H80000000
End Function

Function mix(ByVal ia, ByVal ib, ByVal ic)
Dim a, b, c
a = ia
b = ib
c = ic

a = usub(a,b)
a = usub(a,c)
a = a XOR zeroFill(c,13)

b = usub(b,c)
b = usub(b,a)
b = b XOR sl(a,8)

c = usub(c,a)
c = usub(c,b)
c = c XOR zeroFill(b,13)

a = usub(a,b)
a = usub(a,c)
a = a XOR zeroFill(c,12)

b = usub(b,c)
b = usub(b,a)
b = b XOR sl(a,16)

c = usub(c,a)
c = usub(c,b)
c = c XOR zeroFill(b,5)

a = usub(a,b)
a = usub(a,c)
a = a XOR zeroFill(c,3)

b = usub(b,c)
b = usub(b,a)
b = b XOR sl(a,10)

c = usub(c,a)
c = usub(c,b)
c = c XOR zeroFill(b,15)

Dim ret(3)

ret(0) = a
ret(1) = b
ret(2) = c

mix = ret
End Function

Function gc(ByVal s, ByVal i)
gc = Asc(Mid(s,i+1,1))
End Function

function GoogleCH(ByVal sURL)
Dim iLength, a, b, c, k, iLen, m
iLength = Len(sURL)

a = &H9E3779B9
b = &H9E3779B9
c = GOOGLE_MAGIC
k = 0

iLen = iLength
do while iLen >= 12
a = uadd(a,(uadd(gc(sURL,k+0),uadd(sl(gc(sURL,k+1),8),uadd(sl(gc(sURL,k+2),16),sl(gc(sURL,k+3),24))))))
b = uadd(b,(uadd(gc(sURL,k+4),uadd(sl(gc(sURL,k+5),8),uadd(sl(gc(sURL,k+6),16),sl(gc(sURL,k+7),24))))))
c = uadd(c,(uadd(gc(sURL,k+8),uadd(sl(gc(sURL,k+9),8),uadd(sl(gc(sURL,k+10),16),sl(gc(sURL,k+11),24))))))

m = mix(a,b,c)

a = m(0)
b = m(1)
c = m(2)

k = k + 12

iLen = iLen - 12
loop

c = uadd(c,iLength)

select case iLen ' all the case statements fall through
case 11
c = uadd(c,sl(gc(sURL,k+10),24))
c = uadd(c,sl(gc(sURL,k+9),16))
c = uadd(c,sl(gc(sURL,k+8),8))
b = uadd(b,sl(gc(sURL,k+7),24))
b = uadd(b,sl(gc(sURL,k+6),16))
b = uadd(b,sl(gc(sURL,k+5),8))
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 10
c = uadd(c,sl(gc(sURL,k+9),16))
c = uadd(c,sl(gc(sURL,k+8),8))
b = uadd(b,sl(gc(sURL,k+7),24))
b = uadd(b,sl(gc(sURL,k+6),16))
b = uadd(b,sl(gc(sURL,k+5),8))
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 9
c = uadd(c,sl(gc(sURL,k+8),8))
b = uadd(b,sl(gc(sURL,k+7),24))
b = uadd(b,sl(gc(sURL,k+6),16))
b = uadd(b,sl(gc(sURL,k+5),8))
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 8
b = uadd(b,sl(gc(sURL,k+7),24))
b = uadd(b,sl(gc(sURL,k+6),16))
b = uadd(b,sl(gc(sURL,k+5),8))
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 7
b = uadd(b,sl(gc(sURL,k+6),16))
b = uadd(b,sl(gc(sURL,k+5),8))
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 6
b = uadd(b,sl(gc(sURL,k+5),8))
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 5
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 4
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 3
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 2
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 1
a = uadd(a,gc(sURL,k+0))
End Select

m = mix(a,b,c)

GoogleCH = m(2)
End Function

Function CalculateChecksum(sURL)
CalculateChecksum = "6" & CStr(GoogleCH("info:" & sURL) AND &H7FFFFFFF)
End Function

wozhidaode 2009-08-28
  • 打赏
  • 举报
 回复
帮顶
嗷嗷叫的老马 2009-08-28
  • 打赏
  • 举报
 回复
帮顶顶.
贝隆 2009-08-27
  • 打赏
  • 举报
 回复
不懂，顶之
射天狼 2009-08-26
  • 打赏
  • 举报
 回复
只能帮顶了～～～～
现在还是人类 2009-08-26
  • 打赏
  • 举报
 回复
顶吧
zhaoyifhq 2009-08-26
  • 打赏
  • 举报
 回复
谢谢帮顶....
【elasticsearch】elasticsearch--6.8.0报错信息如下： checksum failed (hardware problem?)
界面查不到数据，查看es的heath，看到集群的是red的，然后查看red的分片，手动分配是可以分配的，但是不会自动分配，查看日志报错节点的信息如下： Caused by: org.apache.lucene.index.CorruptIndexException: checksum failed (hardware problem?) : expected=2511ad16 actual=b83be2a (resource=BufferedChecksumIndexInput(MMapIndexInpu
checksum的算法和代码实现
在汽车软件中，经常需要进行数据的校验和即checksum,以防止数据传输的过程中出错
Checksum算法
checksum算法，IP checksum算法，tcp checksum算法，udp checksum算法。
Python调用C语言代码实现CheckSum算法和CRC算法
Python调用C语言代码实现CheckSum算法和CRC算法
汽车CAN网络中的checksum和Rollingcounter的作用？
汽车CAN网络中的checksum和Rollingcounter的作用？
网络编程

1,502

社区成员

18,437

社区内容

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章