Zufällige Seriennummer

Imports System.Text

''' <summary>
''' SerialNumber Generator Class
''' </summary>
''' <remarks>
''' Die Klasse erzeugt eine zufällige Seriennummer. Die Rückgabe erfolgt
''' über die .ToString Methode. Im Konstruktor wird festgelegt, wieviele
''' Blöcke und mit welcher Blocklänge die Seriennummer erzeugt wird.
''' </remarks>
Public Class SerialNumber

   ' Member Variablen
   Private m_BlockLength As Int16 = 6
   Private m_BlockCount As Int16 = 2
   Private m_Delimiter As String = "-"

   ''' <summary>
   ''' Initialisiert die Klasse
   ''' </summary>
   Public Sub New()
   End Sub

   ''' <summary>
   ''' Initialisiert die Klasse
   ''' </summary>
   ''' <param name="BlockLength">Legt die Länge eines Blocks fest.</param>
   ''' <param name="BlockCount">Legt die Anzahl Blöcke in der Seriennummer fest.</param>
   Public Sub New(ByVal BlockLength As Int16, ByVal BlockCount As Int16)
      m_BlockLength = BlockLength
      m_BlockCount = BlockCount
   End Sub

   ''' <summary>
   ''' Initialisiert die Klasse
   ''' </summary>
   ''' <param name="BlockLength">Legt die Länge eines Blocks fest.</param>
   ''' <param name="BlockCount">Legt die Anzahl Blöcke in der Seriennummer fest.</param>
   ''' <param name="Delimiter">Legt den Trenner zwischen den Blöcken fest.</param>
   Public Sub New(ByVal BlockLength As Int16, ByVal BlockCount As Int16, ByVal Delimiter As String)
      m_BlockLength = BlockLength
      m_BlockCount = BlockCount
      m_Delimiter = Delimiter
   End Sub

   Private Function Generate(ByVal BlockLength As Int16, _
      ByVal BlockCount As Int16, ByVal Delimiter As String) As String

      Dim si As New StringBuilder
      Dim sb As New StringBuilder
      For n = 0 To BlockCount - 1
         Try
            si.Append(Guid.NewGuid.ToString().Replace("-", "").ToUpper)
            sb.Append(si.ToString.Substring(n * BlockLength, BlockLength) & Delimiter)
         Catch ex As Exception
            Throw New Exception("Fehler beim Erstellen der Seriennummer.")
         End Try
      Next

      Return sb.ToString.Substring(0, sb.Length - Delimiter.Length)
   End Function

   ''' <summary>
   ''' Gibt die erzeugte Seriennummer zurück.
   ''' </summary>
   Public Overrides Function ToString() As String
      Return Me.Generate(m_BlockLength, m_BlockCount, m_Delimiter)
   End Function

End Class