Keskustelu: Koodit: VB6: Salasana Generaattori

Salasana generaattori funktion joka luo satunnaisia salasanoja annettujen asetusten mukaan. Funktio toimii tietysti myös QBasicissa.

Sub Form_Activate ()

Print SalaGene("AAaa##??")

End Sub


Function SalaGene (SalaGene_Asetukset As String) As String

'Asetukset esim AAaa##??
'A = Iso kirjain
'a = Pieni kirjain
'# = Numero
'? = Mikä tahansa edellisistä

'Luodaan mahdolliset merkit muuttujiin
SalaGene_p$ = "abcdefghijklmnopqrstuvwxyz"
SalaGene_i$ = UCase$(SalaGene_p$)
SalaGene_n$ = "1234567890"
SalaGene_m$ = SalaGene_p$ + SalaGene_i$ + SalaGene_n$

Randomize Timer

'Luetaan asetukset ja lisätään satunnaiset merkit sen mukaisesti
For i = 1 To Len(SalaGene_Asetukset)
c$ = Mid$(SalaGene_Asetukset, i, 1)
If c$ = "A" Then SalaGene_v$ = SalaGene_v$ + Mid$(SalaGene_i$, Int(Len(SalaGene_i$) * Rnd + 1), 1)
If c$ = "a" Then SalaGene_v$ = SalaGene_v$ + Mid$(SalaGene_p$, Int(Len(SalaGene_p$) * Rnd + 1), 1)
If c$ = "#" Then SalaGene_v$ = SalaGene_v$ + Mid$(SalaGene_n$, Int(Len(SalaGene_n$) * Rnd + 1), 1)
If c$ = "?" Then SalaGene_v$ = SalaGene_v$ + Mid$(SalaGene_m$, Int(Len(SalaGene_m$) * Rnd + 1), 1)
Next i

SalaGene = SalaGene_v$

End Function

menettelee... käy paremman puutteessa, jos omat aivot ei toimi :P

Tälläsenhän voi helposti tehdä myös PHP:llä ja netistä salasanan tekeminen generaattorilla on huomattavasti nopeampaa, luullakseni, mutta "offline-tapaukseen" tuo on hyödyllinen.

Mutta, jos totta puhutaan niin tuollaiset salasana generaattorit ovat turhia, jos vaan viitsii käyttää aivojansa paremmin. ;)

eihän tuo edes toimi! ainakaan mulla

No eikait tuosta pahemmin luulisi kenenkään hyötyvän, mutta on myös aloittelijoita jotka tuosta ehkä jotain oppivat. Vai väittääkö joku, että on oppinut ohjelmointi kielen katsomatta ainuttakaan esimerkkiä. Ja näkyyhän tuo olevan sen verran vaativa, että kaikki eivät sitä saa edes toimimaan. Elikkä väittää olevansa niin viisas kaveri, että ei ole katsonut mistään mitään oppia. Eikös se kaikki yleensä lähde liikkeelle esimerkistä nimeltä "Hello World".

PS. Ja jos teillä sitä aivo kapasiteettiä tuntuu riittävän niin kirjoitelkaa, itse täänne niitä ammattilaisten tarpeisiin lukeutuvia vinkkejä, joita ei viisaatkaan tajua.

Eli ohjelma antaa vain alussa salasanan. Itse käytän kyllä salasanoja, jotka muistan ulkoa, mutta kukaan ei koskaan voisi arvata niitä (melko monimutkaisia arjen koodeja).

SalaSana Generaattorit on ihan turhia jos ei aio tehdä johonkin juttuun salasana generaattoria.

Kuinka tuon saa tulemaan tekstiboxiin?

Jakke1 kirjoitti:

Kuinka tuon saa tulemaan tekstiboxiin?

TextBoxinNimi.Text = SalaGene("AAaa##??")