Brojevi(cifre) + velika slova + mala slova = 62 razlicita karaktera
sifra sa 8 karaktera ima 62^8 (> 218.000.000.000.000) kombinacija, mislim da nema sanse da se ponovi.
tj uvek ima sanse, ali je pitanje za sta ti treba.
e sad ovo je za VB 6, mozda ces morati izmeniti za Visual Studio 2008
Code:
Private Sub Form_Load()
Randomize Timer
Label1.Caption = Sifra & Sifra & Sifra & Sifra & Sifra & Sifra & Sifra & Sifra
End Sub
Function Sifra() As String
Dim i As Integer
i = Int(1 + 3 * Rnd)
Select Case i
Case 1
'Brojevi
Sifra = Chr(Int(48 + 10 * Rnd))
Case 2
'Velika slova
Sifra = Chr(Int(65 + 26 * Rnd))
Case 3
'Mala slova
Sifra = Chr(Int(97 + 26 * Rnd))
End Select
End Function