Question

How to create the DJB2 hash function for strings in VB.NET

Answer 1

Imports System
 
Public Class Program
    Public Shared Function DJB2(ByVal str As String) As Integer
        Dim hash As Integer = 5381
 
        For i As Integer = 0 To str.Length - 1
            hash = ((hash << 5) + hash) + Convert.ToByte(str.Chars(i))
        Next
 
        Return hash
    End Function
 
    Public Shared Sub Main(ByVal args As String())
    	Dim hash As Integer = DJB2("vb.net")
     
        Console.WriteLine(hash)
    End Sub
End Class
 
 
 
' run:
'
' 573061938
'

 

70+ SQL courses for beginners and professionals