18-03-20, 02:13 PM
الارقام توجد في موضعين فقط
على سبيل المثال الو كان بهذه الصورة : 240276BUTEHUSI491737NUHI
هل تريد جمع الرقمين : 24027 و 491737 وضربها ب 100 ثم جمعها مع 1000 وتنقيص 2
أعتقد انك تريده بهذه الصورة
ملاحظة
وجدت ان توليد الجمل العشوائية يبدأ برقم ثم مجموعة حروف ثم رقم ثم مجموعة حروف
وقد تم تخليص الرقم الاول وتطبيق العملية الحسابه عليه وهي * 100 ثم + 1000 ثم ناقص 2
وكذلك تم على الرقم الثاني
أرجو ان يكون هذا ماتريده
على سبيل المثال الو كان بهذه الصورة : 240276BUTEHUSI491737NUHI
هل تريد جمع الرقمين : 24027 و 491737 وضربها ب 100 ثم جمعها مع 1000 وتنقيص 2
أعتقد انك تريده بهذه الصورة
كود :
Public Class Form1
Dim lst As New List(Of String)
Dim a, s, d, f As Integer
Dim b, b2 As Long
Public Function GeneratePassword(ByVal Length As Integer) As String
' Creates a memorable password of the specified Length
Dim blnOnVowel As Boolean
Dim strTempLetter As String
Dim strPassword As String
Dim intCount As Integer
For intCount = 1 To Length
If blnOnVowel = False Then
' Choose a nice consonant - no C, X, Z, or Q
strTempLetter = CType(Choose(CType(GetRandomNumber(1, 17), Double),
"B", "D", "F", "G", "H", "J", "K", "L", "M",
"N", "P", "R", "S", "T", "V", "W", "Y"), String)
' Append it to the password string
strPassword += strTempLetter
' Swich to vowel mode
blnOnVowel = True
Else
' Choose a vowel
strTempLetter = CType(Choose(CType(GetRandomNumber(1, 5), Double),
"A", "E", "I", "O", "U"), String)
' Append it to the password string
strPassword += strTempLetter
' Switch back again, ready for next loop round
blnOnVowel = False
End If
Next
Return strPassword
End Function
Dim objRandom As New System.Random(CType((System.DateTime.Now.Ticks _
Mod System.Int32.MaxValue), Integer))
Public Function GetRandomNumber(Optional ByVal Low As Integer = 1,
Optional ByVal High As Integer = 100) As Integer
' Returns a random number,
' between the optional Low and High parameters
Return objRandom.Next(Low, High + 1)
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Randomize()
gn:
a = Rnd() * 999999
f = Rnd() * 999999
If lst.Contains(a) Then
GoTo gn
End If
lst.Add(a)
Dim M As System.Text.RegularExpressions.Match
M = System.Text.RegularExpressions.Regex.Match(a & GeneratePassword(8) & f & GeneratePassword(4), "(\d+)([^0-9]+)(\d+)([^0-9]+)")
b = M.Groups(1).Value
b2 = M.Groups(3).Value
b *= 100
b += 1000
b -= 2
b2 *= 100
b2 += 1000
b2 -= 2
TextBox1.Text = b & M.Groups(2).Value & b2 & M.Groups(4).Value
Form2.Show()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox2.Text = b Then
MsgBox("Yes")
Else
MsgBox("No")
End If
End Sub
End Classملاحظة
وجدت ان توليد الجمل العشوائية يبدأ برقم ثم مجموعة حروف ثم رقم ثم مجموعة حروف
وقد تم تخليص الرقم الاول وتطبيق العملية الحسابه عليه وهي * 100 ثم + 1000 ثم ناقص 2
وكذلك تم على الرقم الثاني
أرجو ان يكون هذا ماتريده