Random tekststreng

Hej - måske kan du bruge dette (med inspiration fra http://www.aspfree.com/c/a/ASP-Code/Generate-a-random-pwd-record-to-a-database-and-email/):

ID = CInt(10) + 1
r = Rnd * 50
MsgBox prompt:=r
For i = 0 To 20
    If CInt(r) > 0 And CInt(r) < 26 Then myStr = myStr + Chr(97 + CInt(r))
    r = Rnd * 100
Next

MsgBox prompt:=myStr
pwd = Left(myStr, 2)
pwd = pwd & ID
pwd = pwd & Right(myStr, 2)
pwd = pwd & Second(Time)

MsgBox prompt:=pwd

venter lige og ser om der kommer flere svar...

'----------------------------- Form1 -----------------------------
Option Explicit

Private Sub Command1_Click()
  Me.Caption = GenPass(20)
End Sub

Public Function GenPass(ByVal intLen As Integer) As String
Dim strOut As String
Dim intLast As Integer
Dim intValue As Integer

  Randomize Time

  Do Until Len(strOut) = intLen

    If Int((2 * Rnd) + 1) = 1 Then
      intValue = (Int((26 * Rnd) + 1) + 64) 'A til Z
        Else
      intValue = (Int((26 * Rnd) + 1) + 96) 'a til z
    End If

    If intLast <> intValue Then
      strOut = (strOut & Chr$(intValue))
      intLast = intValue
    End If

  Loop
  GenPass = strOut
End Function
'----------------------------- Form1 -----------------------------

hejsa.. Har selv fundet en kode:
Option Explicit

Private Sub Command1_Click()
Dim num_characters As Integer
Dim i As Integer
Dim txt As String
Dim ch As Integer

    Randomize
    num_characters = CInt(txtNumCharacters.Text)
    For i = 1 To num_characters
        ch = Int((26 + 26 + 10) * Rnd)
        If ch < 26 Then
            txt = txt & Chr$(ch + Asc("A"))
        ElseIf ch < 2 * 26 Then
            ch = ch - 26
            txt = txt & Chr$(ch + Asc("a"))
        Else
            ch = ch - 26 - 26
            txt = txt & Chr$(ch + Asc("0"))
        End If
    Next i

    txtResults.Text = txt
End Sub

men tester lige sjh's kode om den er bedre.. I skal nok få point...

Bio

lægger du et svar -cls-??

sjh -> fin nok kode :) men den bruger ikke special tegn eller tal.. Eller god :)

nu er der tal med.. men hvad mener du med special tegn?? (skriv dem lige)


'----------------------------- Form1 -----------------------------
Option Explicit

Private Sub Command1_Click()
  Me.Caption = GenPass(20)
End Sub

Public Function GenPass(ByVal intLen As Integer) As String
Dim strOut As String
Dim intLast As Integer
Dim intValue As Integer

  Randomize Time

  Do Until Len(strOut) = intLen

    Select Case Int((3 * Rnd) + 1)
          Case 1: intValue = (Int((26 * Rnd) + 1) + 64) 'A til Z
          Case 2: intValue = (Int((26 * Rnd) + 1) + 96) 'a til z
          Case 3: intValue = (Int((10 * Rnd) + 1) + 47) '0 til 9
    End Select

    If intLast <> intValue Then
      strOut = (strOut & Chr$(intValue))
      intLast = intValue
    End If

  Loop
  GenPass = strOut
End Function
'----------------------------- Form1 -----------------------------

Special tegn:

! " # ¤ % & / ( ) = ? ¨ ^ ` ´ + * ' . : , ; - _ < > \

Det er specialtegn :)

så skulle den være der...


'----------------------------- Form1 -----------------------------
Option Explicit

Private Sub Command1_Click()
  Me.Caption = GenPass(20)
End Sub

Public Function GenPass(ByVal intLen As Integer) As String
Dim strOut As String
Dim intLast As Integer
Dim intTegn As Integer
Dim intValue As Integer

Const strTegn As String = "!#¤%&/()=?¨^`´+*'.:,;-_<>\"

  Randomize Time

  Do Until Len(strOut) = intLen

    Select Case Int((4 * Rnd) + 1)
          Case 1: intValue = (Int((26 * Rnd) + 1) + 64) 'A til Z
          Case 2: intValue = (Int((26 * Rnd) + 1) + 96) 'a til z
          Case 3: intValue = (Int((10 * Rnd) + 1) + 47) '0 til 9
          Case 4
            intTegn = Int((Len(strTegn) * Rnd) + 1)
            intValue = Asc(Mid$(strTegn, intTegn, 1))
    End Select

    If intLast <> intValue Then
      strOut = (strOut & Chr$(intValue))
      intLast = intValue
    End If

  Loop
  GenPass = strOut
End Function
'----------------------------- Form1 -----------------------------

sku nok være sådan:

Const strTegn As String = "!#¤%&/("")=?¨^`´+*'.:,;-_<>\"

Svar

jubii :) det virker... Tror jeg vil bruge din version da den anden jeg fandt ikke brugte special tegn :)

<-*-*-*-*- SPØRGSMÅL LUKKET -*-*-*-*-*>

hmm... Advanveret pointdeling virker ikke lige nu :S

du kan også gøre sådan her.. så forkommer det samme tegn, tal eller bogstav ikke 2 gange. ;)

'----------------------------- Form1 -----------------------------
Option Explicit

Private Sub Command1_Click()
  Me.Caption = GenPass(20)
End Sub

Public Function GenPass(ByVal intLen As Integer) As String
Dim strOut As String
Dim intTegn As Integer
Dim intValue As Integer

Const strTegn As String = "!#¤%&/("")=?¨^`´+*'.:,;-_<>\"

  Randomize Time
  If (Len(strTegn) + 62) > intLen Then
    Do Until Len(strOut) = intLen

      Select Case Int((4 * Rnd) + 1)
            Case 1: intValue = (Int((26 * Rnd) + 1) + 64) 'A til Z
            Case 2: intValue = (Int((26 * Rnd) + 1) + 96) 'a til z
            Case 3: intValue = (Int((10 * Rnd) + 1) + 47) '0 til 9
            Case 4
              intTegn = Int((Len(strTegn) * Rnd) + 1)
              intValue = Asc(Mid$(strTegn, intTegn, 1))
      End Select

      If InStr(strOut, Chr$(intValue)) = 0 Then
        strOut = (strOut & Chr$(intValue))
      End If

    Loop
  End If
  GenPass = strOut
End Function
'----------------------------- Form1 -----------------------------