Imports System.Security
Imports System.Text
 
Imports System.Security.Cryptography
 
Public Class agrarLicense
 
    Private strLicense As String
 
    Public Sub New()
 
        Dim conf As New AgrarConfig
        Dim oInfo As agrarInfo
        oInfo = New agrarInfo("lizenz")
 
        Me.strLicense = conf.Config("Vorname") & conf.Config("Nachname") & _
          conf.Config("Ort") & conf.Config("Straße") & conf.Config( _
          "Betriebsnummer")
        Me.strLicense += agrarSysInfo.getHdSerial("c") & oInfo.infoWert
 
    End Sub
 
 
    Public ReadOnly Property LicenseString() As String
        Get
            Return Me.strLicense
        End Get
    End Property
 
    Public ReadOnly Property HashWert() As String
        Get
            Dim tmpHash2() As Byte
            Dim tmpSource() As Byte
            Dim sSourcedata As String = Me.LicenseString
            tmpSource = ASCIIEncoding.ASCII.GetBytes(sSourcedata)
            tmpHash2 = New MD5CryptoServiceProvider().ComputeHash(tmpSource)
 
            Return ByteArrayToString(tmpHash2)
 
        End Get
    End Property
 
    Private Function ByteArrayToString(ByVal arrInput() As Byte) As String
        Dim i As Integer
        Dim sOutput As New StringBuilder(arrInput.Length)
        For i = 0 To arrInput.Length - 1
            sOutput.Append(arrInput(i).ToString("X"))
        Next
 
        Return sOutput.ToString()
    End Function
 
  End Class