Generiert eine zufällige MAC-Adresse oder HEX Wert.
HEX mit gewünschtem Seperator und in beliebiger länge.
19.11.2007:
Weis zwar nicht, womit ich die 1,8 verdient hab, aber mit Stringbuilder siehts sauberer aus ;)
GFU-Schulungen [Anzeige]
XML und .NET ÜberblickUm auf dem neuesten Wissensstand zu sein, sollten Sie unser aktuelles ASP .NET Komplett Seminar belegen.
Nach dem Seminar kennen Sie die wichtigsten Strömungen in der Software-Technologie
C# AufbaukursSie haben grundlegende .NET- und C#-Kenntnisse und und wollen diese nun erweitern. Der Aufbaukurs C# führt Sie ein die Arbeit mit Interfaces und Delegates, Generics und Parallel Computing.
Public Function GenerateMAC() As String
Dim table As String = "0123456789ABCDEF"
Dim RanMac As New System.Text.StringBuilder
Dim rnd As New System.Random
For i As Integer = 0 To 11
RanMac.Append(table.Substring(rnd.Next(0, table.Length), 1))
Next
Return RanMac.ToString
End Function
Public Function GenerateHEX(ByVal Count As Integer, Optional ByVal Seperator As String = "") As String
If Count < 1 Then Return ""
Dim table As String = "0123456789ABCDEF"
Dim RanHEX As New System.Text.StringBuilder
Dim rnd As New System.Random
For i As Integer = 1 To Count
RanHEX.Append(table.Substring(rnd.Next(0, table.Length), 1))
RanHEX.Append(table.Substring(rnd.Next(0, table.Length), 1))
If i <> Count Then
RanHEX.Append(Seperator)
End If
Next
Return RanHEX.ToString
End Function
2 Kommentare zum Snippet