Public Function RandomString(ByVal Type As Boolean, ByVal Length As Integer)
Dim RandomStr As New StringBuilder()
For i = 0 To Length
RandomStr.Append(Chr(New Random(Guid.NewGuid.GetHashCode).Next(48, 5
))
Next
If Type = True Then
Return RandomStr.ToString.ToUpper
Else
Return RandomStr.ToString.ToLower
End If
End Function
Public Function RandomString(ByVal Type As Boolean, ByVal Length As Integer)
Dim RandomStr As New StringBuilder()
For i = 0 To Length
RandomStr.Append(Chr(New Random(Guid.NewGuid.GetHashCode).Next(48, 5
))
Next
If Type = True Then
Return RandomStr.ToString.ToUpper
Else
Return RandomStr.ToString.ToLower
End If
End Function
PICHU.
Copyright © 2026, NextGenUpdate.
All Rights Reserved.