Google pagerank checksum algorithm

It turns out that there have been checksum-related cracking on the internet. I will interview the checksum compilation code and the vb version for cracking.
Currently, I am using the checksum code of vb.
Assembly Code of checksum:
GOOGLECHECK proc near
Var_8 = dword ptr-8
Var_4 = dword ptr-4
Url_offset = dword ptr 8
Url_length = dword ptr 0Ch
Magic_dword = dword ptr 10 h
Push ebp
Mov ebp, esp
Push ecx
Push ecx
Mov eax, [ebp + url_length]
Cmp eax, 0Ch
Push ebx
Push esi
Mov esi, [ebp + magic_dword]; = 0xE6359A60
Push edi
Mov edi, 9E3779B9h; derived from the golden number, hi TEA ;)
Mov ebx, edi
Mov [ebp + var_4], eax
Jb jump_1
Push 0Ch
Pop ecx
Xor edx, edx
Div ecx
Mov ecx, [ebp + url_offset]
Mov [ebp + var_8], eax
Loop_1:
Movzx eax, byte ptr [ecx + 7]
Movzx edx, byte ptr [ecx + 6]
Shl eax, 8
Add eax, edx
Movzx edx, byte ptr [ecx + 5]
Shl eax, 8
Add eax, edx
Movzx edx, byte ptr [ecx + 4]
Add edx, edi
Shl eax, 8
Lea edi, [edx + eax]
Movzx eax, byte ptr [ecx + 0Bh]
Movzx edx, byte ptr [ecx + 0Ah]
Shl eax, 8
Add eax, edx
Movzx edx, byte ptr [ecx + 9]
Shl eax, 8
Add eax, edx
Movzx edx, byte ptr [ecx + 8]
Add edx, esi
Shl eax, 8
Lea esi, [edx + eax]
Movzx edx, byte ptr [ecx + 3]
Movzx eax, byte ptr [ecx + 2]
Shl edx, 8
Add edx, eax
Movzx eax, byte ptr [ecx + 1]
Shl edx, 8
Add edx, eax
Movzx eax, byte ptr [ecx]
Shl edx, 8
Add edx, eax
Sub edx, edi
Sub edx, esi
Mov eax, esi
Shr eax, 0Dh
Add edx, ebx
Xor edx, eax
Sub edi, edx
Sub edi, esi
Mov eax, edx
Shl eax, 8
Xor edi, eax
Sub esi, edi
Sub esi, edx
Mov eax, edi
Shr eax, 0Dh
Xor esi, eax
Sub edx, edi
Sub edx, esi
Mov eax, esi
Shr eax, 0Ch
Xor edx, eax
Sub edi, edx
Sub edi, esi
Mov eax, edx
Shl eax, 10 h
Xor edi, eax