function HashPass(sPass as string) as ulong
  dim as ulong iHash = &hDEADBEEF+(len(sPass) shl 17)
  dim as integer iLast = 0
  for CNT as integer = 0 to len(sPass)-1
    for I2 as integer = 0 to sPass[CNT]+1+iLast
      asm rol dword ptr [iHash], 3
      iHash += sPass[CNT]*(CNT+1)
      iLast = (sPass[CNT] and (15))+(sPass[CNT] shr 4)
    next I2
  next CNT
  return iHash
end function

print hex$(HashPass("gr"))
print hex$(HashPass("rg"))
print
print hex$(HashPass("banana"))
print hex$(HashPass("aaannb"))
print
print hex$(HashPass("a"))
print hex$(HashPass("pa"))
print hex$(HashPass("paa"))
print hex$(HashPass("pasa"))
print hex$(HashPass("passa"))
print hex$(HashPass("passwa"))
print hex$(HashPass("passwoa"))
print hex$(HashPass("passwora"))
print hex$(HashPass("passworda"))
sleep