macro szHash name, res {
  local ..size, ..result, ..char, ..temp
  ..temp = 0
  ..result = 0
  virtual at 0
    db name, 0x0
    ..size = $
    repeat ..size
      load ..char byte from % - 1
      ..temp = (..temp shr 7) or (..temp shl 25)
      ..result = ..result xor ..temp
      ..temp = (..temp and 0xffffff00) or ..char
    end repeat
  end virtual
  res = ..result and 0xffffffff
}

proc getHashSz strz
    xor     rdx, rdx
    xor     r8, r8
.calcHash:
    ror     edx, 7
    xor     r8d, edx
    mov     dl, Byte [rcx]
    inc     rcx
    test    dl, dl
    jnz     .calcHash
    mov     eax, r8d
    ret
endp

proc    GetHashSz strz
    push    ecx
    push    ebx
    push    DWord [strz]
    pop     ecx
    xor     ebx, ebx
    push    ebx
.CalcHash:
    ror     ebx, 7
    xor     [esp], ebx
    mov     bl, Byte [ecx]
    inc     ecx
    cmp     bl, 0x0
    jnz     .CalcHash
    pop     eax
    pop     ebx
    pop     ecx
    ret
endp

function _rotr (value, shift) {
    if ((shift &= 31) == 0) return value;
    return ((value >>> shift) | (value << (32 - shift)));};

function hash_ror7xor(b){
    var r = 0, x = 0;
    for (i = 0; i<_.size(b); i++) { x = _rotr(x, 7); r ^= x; x = x & 0xffffff00; x |= b[i]>>>0; };
        return( (r^=_rotr(x, 7))>>>0);};