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

05/14/2010 22:12 xxfabbelxx#1
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:

Code:
 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 ;)
05/14/2010 22:16 Shadow992#2
Quote:
Originally Posted by xxfabbelxx View Post
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:

Code:
 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 .
05/14/2010 22:20 xxfabbelxx#3
Quote:
Originally Posted by Shadow992 View Post
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
05/14/2010 22:20 HardCore.1337#4
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
05/14/2010 22:24 Shadow992#5
Quote:
Originally Posted by xxfabbelxx View Post
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
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@[Only registered and activated users can see links. Click Here To Register...])
  
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