bascommon.bas

a Tiger Hash algorithmn code

Attribute VB_Name = "basCommon"
Option Explicit

' ***************************************************************************
' Constants
' ***************************************************************************
  Private Const MODULE_NAME As String = "basCommon"
  Private Const ZEROES_8    As String = "00000000"
  Private Const KB_4        As Long = 4096        ' 4 kb
  Private Const KB_8        As Long = 8192        ' 8 kb
  Private Const KB_16       As Long = 16384       ' 16 kb
  Private Const KB_32       As Long = 32768       ' 32 kb
  Private Const KB_48       As Long = 49152       ' 48 kb
  Private Const KB_60       As Long = 61440       ' 60 kb
  Private Const MAXLONG     As Long = 2147483647
  Private Const MAXLONG_NEG As Double = -2147483648#
  Private Const MAXDBL      As Double = 4294967296#
  
' ***************************************************************************
' Type structures
' ***************************************************************************
  Private Type mtypLONG_BYTE_TYPE
      byte1 As Byte
      byte2 As Byte
      byte3 As Byte
      byte4 As Byte
  End Type
  
  Private Type mtypLONG_VALUE
      Value As Long
  End Type

' ***************************************************************************
' Enumerations
' ***************************************************************************
  Public Enum enumHASH_ALGORITHM
      TIGER128    ' 0
      TIGER160    ' 1
      TIGER192    ' 2
      TIGER224    ' 3  MY BETA VERSION
      TIGER256    ' 4  MY BETA VERSION
      TIGER384    ' 5  MY BETA VERSION
      TIGER512    ' 6  MY BETA VERSION
  End Enum
  
  ' return format after being hashed
  Public Enum enumHASH_RET_FORMAT
      HASH_RET_ASCII        ' 0
      HASH_RET_HEX          ' 1
      HASH_RET_BYTE_ARRAY   ' 2
      HASH_RET_LONG_ARRAY   ' 3
  End Enum

' ***************************************************************************
' Global variables
' ***************************************************************************
  Public glngHashMethod   As enumHASH_ALGORITHM
  Public glngReturnFormat As enumHASH_RET_FORMAT

' ***************************************************************************
' Routine:       HashString
'
' Description:   Function to create a unique hex string representation of