initial commit

2026-08-27 11:04:21 -06:00
commit 07a49a8c50
937 changed files with 196477 additions and 0 deletions
@@ -0,0 +1,128 @@
+Public Class MyRandom
+
+#Region "GenerateRandomString()"
+    Public Shared Function GenerateRandomString(ByVal Uppers As Boolean, ByVal Lowers As Boolean, ByVal Numbers As Boolean, ByVal Specials As Boolean, ByVal Length As Integer) As String
+        Const STR_UPPERS As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+        Const STR_LOWERS As String = "abcdefghijklmnopqrstuvwxyz"
+        Const STR_NUMBERS As String = "0123456789"
+        Const STR_SPECIALS As String = "~`!@#$%^&*()_+=-{[}]|;:'<,>.?"
+
+        Dim Characters As String = Nothing
+        Dim RandomString As String = Nothing
+
+
+        If Uppers = True Then
+            Characters &= STR_UPPERS
+        End If
+
+        If Lowers = True Then
+            Characters &= STR_LOWERS
+        End If
+
+        If Numbers = True Then
+            Characters &= STR_NUMBERS
+        End If
+
+        If Specials = True Then
+            Characters &= STR_SPECIALS
+        End If
+
+
+        Randomize()
+
+        For i As Integer = 0 To Length - 1
+            RandomString &= Mid(Characters, Len(Characters) * Rnd() + 1, 1)
+        Next
+
+
+
+        Return RandomString
+    End Function
+#End Region
+
+#Region "GenerateRandomNumber()"
+    Public Shared Function GenerateRandomNumber(ByVal Max As Integer, Optional ByVal Min As Integer = 0, Optional ByVal Seed As Integer = 0) As Integer
+        Dim myRandom As Random
+
+        If Seed <> Nothing Then
+            myRandom = New Random(Seed)
+        Else
+            myRandom = New Random(Now.Millisecond)
+        End If
+
+
+        If Min > Max Then
+            Dim newMin As Integer = Min
+
+            Min = Max
+            Max = newMin
+        End If
+
+
+
+        Return myRandom.Next(Min, Max)
+    End Function
+#End Region
+
+#Region "GenerateRandomVersion()"
+    Public Shared Function GenerateRandomVersion() As String
+        Dim First As String = GenerateRandomNumber(9).ToString()
+
+        Randomize()
+        Dim Second As String = GenerateRandomNumber(9, 0, First * CInt(Rnd())).ToString()
+
+        Randomize()
+        Dim Third As String = GenerateRandomNumber(9, 0, Second * CInt(Rnd())).ToString()
+
+        Randomize()
+        Dim Fourth As String = GenerateRandomNumber(9, 0, Third * CInt(Rnd())).ToString()
+
+
+        Return First & "." & Second & "." & Third & "." & Fourth
+    End Function
+#End Region
+
+#Region "GenerateRandomActiveX()"
+    Public Shared Function GenerateRandomActiveX() As String
+FirstStep: Dim First As String = GenerateRandomString(True, True, True, False, 8)
+
+        If First.Length <> 8 Then
+            GoTo FirstStep
+        End If
+
+
+SecondStep: Dim Second As String = GenerateRandomString(True, True, True, False, 4)
+
+        If Second.Length <> 4 Then
+            GoTo SecondStep
+        End If
+
+
+ThirdStep: Dim Third As String = GenerateRandomString(True, True, True, False, 4)
+
+        If Third.Length <> 4 Then
+            GoTo ThirdStep
+        End If
+
+
+FourthStep: Dim Fourth As String = GenerateRandomString(True, True, True, False, 4)
+
+        If Fourth.Length <> 4 Then
+            GoTo FourthStep
+        End If
+
+
+FifthStep: Dim Fifth As String = GenerateRandomString(True, True, True, False, 12)
+
+        If Fifth.Length <> 12 Then
+            GoTo FifthStep
+        End If
+
+
+
+        Return "{" & First & "-" & Second & "-" & Third & "-" & Fourth & "-" & Fifth & "}"
+    End Function
+#End Region
+
+
+End Class