Imports System

Imports System.Security.Cryptography

Imports Newtonsoft.Json

​

Public Enum AccessTypeEnum

    None

    Read

    ReadWrite

End Enum

​

Public Class Test

    Public Sub Main()

        Dim F = New FeatureAccess With {

            .DR = AccessTypeEnum.ReadWrite,

            .EE = AccessTypeEnum.ReadWrite,

            .FDD = AccessTypeEnum.ReadWrite,

            .Scheduling = AccessTypeEnum.ReadWrite

        }

        Console.WriteLine(F.ValidationHash())

    End Sub

    Private Class FeatureAccess

        Private Const SALT = "ru7fbUQHoQyp8*&xV*QJf2gc7f#hVR@0"

​

        Public Function ValidationHash() As String

            Dim Hasher = MD5.Create()

            Dim SerializedObject = JsonConvert.SerializeObject(Me)

            Console.WriteLine(SerializedObject)

            Dim ComputedHash As Byte() = Hasher.ComputeHash(System.Text.Encoding.ASCII.GetBytes(SerializedObject & SALT))

            Return ConvertByteDataToHexString(ComputedHash)

        End Function

        Private Function ConvertByteDataToHexString(bytes As Byte()) As String

            Dim sBuilder As New System.Text.StringBuilder()

            For n As Integer = 0 To bytes.Length - 1

                sBuilder.Append(bytes(n).ToString("X2"))

            Next n

​

            Return sBuilder.ToString()

        End Function

​

        Public Property DR As AccessTypeEnum

        Public Property EE As AccessTypeEnum

        Public Property FDD As AccessTypeEnum

        Public Property Scheduling As AccessTypeEnum

    End Class

End Class