Password Generator

Skelbti atsakymą
Žinutė
Autorius
Vartotojo avataras
Maxer
jaunasis rašytojas
jaunasis rašytojas
Pranešimai: 52
Užsiregistravo: 2006 06 26 17:27

Password Generator

#1 Standartinė Maxer » 2006 06 26 17:32

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
profesionalas
profesionalas
Pranešimai: 2030
Užsiregistravo: 2004 12 01 19:05

#2 Standartinė brain5ide » 2006 06 26 19:58

Tu apie bruteforce'ą(slaptažodžių perrinkėją) kalbi?
Never argue with an idiot. They bring you down to their level and beat you with experience.

Vartotojo avataras
GODhack
profesionalas
profesionalas
Pranešimai: 4469
Užsiregistravo: 2005 03 18 21:13
Susisiekti:

#3 Standartinė GODhack » 2006 06 26 21:25

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. :P

A bet atidziau paskaicius tai tau cia Bruteforcerio reik. toks nlb tiks, nes cia anejokio enter nespando. Na bet minti pagavai manau.
Nepatikti blogiems - girtinas dalykas. SENEKA
__________________________________________
progenic.com
library.2ya.com
Paveikslėlis

Vartotojo avataras
Maxer
jaunasis rašytojas
jaunasis rašytojas
Pranešimai: 52
Užsiregistravo: 2006 06 26 17:27

#4 Standartinė Maxer » 2006 06 26 21:55

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

Skelbti atsakymą

Grįžti į

Dabar prisijungę

Vartotojai naršantys šį forumą: 1 ir 0 svečias(ių)