Kod generatora VB

Cytat:LOL_LOL:
Dim AA As Decimal = Int(Rnd() * 10000)
Dim BB As Decimal = Int(Rnd() * 10000)
Dim CC As Decimal = Int(Rnd() * 10000)
Dim DD As Decimal = Int(Rnd() * 10000)
Dim EE As Decimal = Int(Rnd() * 10000)
If AA > 1000 And BB > 1000 And CC > 1000 And DD > 1000 And EE > 1000 Then
If AA + BB + CC + DD + EE = 35927 Then
Dim serial As String = AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE
serial = serial.Replace("2", "G")
serial = serial.Replace("4", "Z")
serial = serial.Replace("6", "S")
serial = serial.Replace("8", "N")
TextBox1.Text = serial
Exit Sub
Else
GoTo lol_lol
End If
Else
GoTo LOL_LOL
End If