[Help]Zufälliger Text + Zahlen in einer Textbox generieren

[xxfabbelxx]

Hi Leute, wie der Titel schon sagt, möchte ich einen Zufälligen text + nummern (also sowas wie: k3j4kjsj2) erstellen lassen per druck auf einen Button.

Ich bin schon so weit, dass es mit nummern geht. nur wie kann ich buchstaben an verschiedenen Positionen anzeigen lassen?

So weit bin ich:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rnd As Random
        Dim number As Integer
        rnd = New Random
        number = rnd.Next(1, 300000)
        TextBox1.Text = number.ToString

Jeder hilfreiche Post bekommt ein Thnx

[Shadow992]

Originally Posted by xxfabbelxx

Hi Leute, wie der Titel schon sagt, möchte ich einen Zufälligen text + nummern (also sowas wie: k3j4kjsj2) erstellen lassen per druck auf einen Button.

Ich bin schon so weit, dass es mit nummern geht. nur wie kann ich buchstaben an verschiedenen Positionen anzeigen lassen?

So weit bin ich:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rnd As Random
        Dim number As Integer
        rnd = New Random
        number = rnd.Next(1, 300000)
        TextBox1.Text = number.ToString

Jeder hilfreiche Post bekommt ein Thnx

Probiers mit einer For-Schleife , bei jedem Durchlauf einen neuer Buchstabe ans Wort gehängt .

[xxfabbelxx]

Originally Posted by Shadow992

Probiers mit einer For-Schleife , bei jedem Durchlauf wir ein neuer Buchstabe ans Wort gehängt .

Ich will nicht dass das Wort in jedem Durchlauf länger wird, sondern immer eine andere Länge + Anordnung hat. Also so:

1. Durchlauf: hf889676cgg
2. Durchlauf: 88d882ks00ß2
3. Durchlauf: 9402ßß2i2ng1

[HardCore.1337]

Buchstaben sind Ordinaltypen. Jeder Buchstabe hat außerdem eine eigene Zahl. Diese Zahl kann man nun in Buchstaben konvertieren. Da mein VB STand bei 0 ist, kann ich dir aber keine kongrette Funktion nenen

[Shadow992]

Originally Posted by xxfabbelxx

Ich will nicht dass das Wort in jedem Durchlauf länger wird, sondern immer eine andere Länge + Anordnung hat. Also so:

1. Durchlauf: hf889676cgg
2. Durchlauf: 88d882ks00ß2
3. Durchlauf: 9402ßß2i2ng1

Ach ne ist klar .
Das Wort wird auch nicht Länger , es wird nur so lang , wie oft du die Schleife durchlaufen lässt ...

Code

Public Function PasswordGenerator(ByVal lngLength As Long) _
  As String

' Description: Generate a random password of 'user input' length
' Parameters : lngLength - the length of the password to be 
                'generated
' Returns    : String    - Randomly generated password
' Created    : 08/21/1999 Andrew Ells-O'Brien 
             '(andrew@)
  
On Error GoTo Err_Proc
  
 Dim iChr As Integer
 Dim c As Long
 Dim strResult As String
 Dim iAsc As String
 
 Randomize Timer

 For c = 1 To lngLength
   
   ' Randomly decide what set of ASCII chars we will use
   iAsc = Int(3 * Rnd + 1)
   
    'Randomly pick a char from the random set
   Select Case iAsc
     Case 1
       iChr = Int((Asc("Z") - Asc("A") + 1) * Rnd + Asc("A"))
     Case 2
       iChr = Int((Asc("z") - Asc("a") + 1) * Rnd + Asc("a"))
     Case 3
       iChr = Int((Asc("9") - Asc("0") + 1) * Rnd + Asc("0"))
     Case Else
       Err.Raise 20000, , "PasswordGenerator has a problem."
   End Select
   
   strResult = strResult & Chr(iChr)
 
 Next c
 
 PasswordGenerator = strResult
 
Exit_Proc:
 Exit Function
 
Err_Proc:
 MsgBox Err.Number & ": " & Err.Description, _
    vbOKOnly + vbCritical
 PasswordGenerator = vbNullString
 Resume Exit_Proc
 
End Function