سلام.
من برای بازیابی رمز تابعی برای ایجاد یک کد شش کاراکتری متغیر ساختم که متشکل از ارقام 6 فروند GUID هست که با چرحش در حلقه 6 دوره هربار یک کاراکتر از یک GUID از 12 کاراکتر GUID به یک لیست اضافه می کنه که در نهایت می شه یک کد شش کاراکتری غیر تکراری
اگر راهکاری برای بهتر شدن این تابع دارید اعلام بفرمائید.
با تشکر .....
SharedScreenshot13.jpg
Function CreateNewRecoveryCode() As String
Dim TempIDs As New List(Of String)
Dim Guids As Guid() = {Guid.NewGuid, Guid.NewGuid, Guid.NewGuid, Guid.NewGuid, Guid.NewGuid, Guid.NewGuid}
Dim X, I As Byte
X = 0 : I = 0
For Each G As Guid In Guids
X += 1
Select Case X
Case 1 : I = 9
Case 2 : I = 8
Case 3 : I = 11
Case 4 : I = 5
Case 5 : I = 1
Case 6 : I = 4
End Select
TempIDs.Add(G.ToString.Replace("-", "").Substring(I, 1).ToUpper)
Next
Return Join(TempIDs.ToArray).Replace(Space(1), String.Empty)
End Function
پاسخ با نقل قول