Password Generator

[Maxer]

Sveiki, gal kas mokate suprogramuoti automatini password generatoriu, butu malonu jai kas parasytumete kaip, tai atrodytu Visul Basic kalboje, ar gal kaa seip zinote is kur galima parsisiusti gera generatoriu kuris (generuotu slaptazodi tik tam tikrame nurodytame langelyje, po kiekvienos generacijos spaustu "enter" ir, kad sugebetu generuoti su visais simboliais,skaiciais,didziosiomis ir mazosiomis raidemis.

[brain5ide]

Tu apie bruteforce'ą(slaptažodžių perrinkėją) kalbi?

[GODhack]

Nlb isivaizduoju kam tau jo reik juk pilnas intikas ir taip tu generatoriu, bet prasom, kai pageidausi VB:

Declarations

Kodas: Pasirinkti visus

textbox called text1
commandbuttons called commandbutton1 , command1

Ir esme:

Kodas: Pasirinkti visus

Dim z
Private Sub Command1_Click()
Text1.Text = RandomPass(z) 'The 6 is the number of password charicters
End Sub

Public Function RandomPass(ByVal ChaNum As Integer) As String
For ju = 0 To ChaNum
Dim rnn As Integer
Randomize
rnn = Int(Rnd * 2) 'Generate random number 0 or 1
    If rnn = "0" Then
        'Get random Charicter
        Dim RandNum As Integer
        Dim SetChar As String
redo:
        Randomize
        RandNum = Int(Rnd * 122) 'generate random ascii number
             If RandNum > 64 And RandNum < 90 Or RandNum > 97 And RandNum < 122 Then
                                    'if the numbers are in the relevent area's:
                 'MsgBox RandNum
                 SetChar = Chr$(RandNum)
                 randomchar = randomchar & SetChar
             Else
                 GoTo redo          'otherwise do it again
             End If
    Else
        'Get random number
        randomchar = randomchar & Int(Rnd * 9)
End If
Next ju
RandomPass = randomchar
End Function

Private Sub CommandButton1_Click()
j$ = "Input the amount of a characters the password contains"
k$ = "password characters"
z = InputBox(j$, k$)
End Sub

kap du pirstus apmyzt.

A bet atidziau paskaicius tai tau cia Bruteforcerio reik. toks nlb tiks, nes cia anejokio enter nespando. Na bet minti pagavai manau.

[Maxer]

thx zinok jai vb kalboj tai man tinka ir tox aciu tau tikrai