IZBORNIK HOME FORUM ACCESS 2003 EXCEL 2003 WORD 2003  .
   
   
HOME
FORUM Win Tips&Tricks
   
KAKO INSTALIRATI
WINDOWS XP ?
Kako instalirati Win XP sa USB STICKA
Kako instalirati WINDOWS 7 ?
Naučite za 15 minuta raditi u Windows XP
Naučite Internet Explorer i Outlook Express
za 15 minuta
Kako kreirati BOOT CD za instalaciju Win95
   
MS OFFICE 2003
MS OFFICE 2007
   
   
HOME NETWORK
tutorijal za mreže
Network Windows 7 - XP
   
ZANIMLJIVI LINKOVI
BROJEVNI SUSTAVI
(DEC, OKT, BIN, HEX )
CMD - Command Prompt
CISCO - CCNA tutoriali
VLSM and SUBNETTING
   
Tutorijali za phpBB forum
JAVASCRIPT
VISUAL BASIC 6.0
AUTOCAD 2007
 
.

MICROSOFT EXCEL 2007- Password Generator u Excelu - generator jake lozinke u Excelu

Kako kreirati jak password u Excelu
(Random Password Generator)

Kreiranje jake slučajne lozinke u Excelu

Ovaj tutorijal prikazuje način na koji u Excelu možete kreirati jaku lozinku (password).

Ako želite kreirati kvalitetan password ili lozinku za prijavu na neki web ili bilo gdje gdje treba upisati kvalitetnu lozinku tada možete iskoristiti Excel i funkcije koje sadrži.

U daljnjem tekstu prikazat ću formule pomoću kojih možete kreirati jaku password (lozinku). Na kraju tutorijala možete skinuti datoteku iz primjera koja sadrži sve funkcije za kreiranje password (lozinke)

Na slici uočite ćelije koje sadrže Random (slučajan) broj ćelije koje su obojane žutom bojom su polazna točka za kreiranje slučajne lozinke.

Kombinacijom formula možete postići slučajnu lozinku u više varijanti sa brojem znakova po želji kao i vrstom znakova koji dolaze u obzir.

Osvježavanje (Refresh) nove lozinke vršite pritiskom na tipku F9

Formula u stupcu A1:A10 je

=INT(RAND()*35)
 

Formula u stupcu A14:A25 je

 =RANDBETWEEN(7;9)

 

Formula u stupcu C1:C10 je =IF(A1<10;A1;CHAR(A1-3+65))
Formula u stupcu D1:D10 je =INT(RAND()*9)
Formula u stupcu E1:E10 je =RL(1;1;2)
Formula u stupcu F1:F10 je =INT(RAND()*36)
Formula u stupcu G1:G10 je =RL(1;1;2)
Formula u stupcu H1:H10 je =IF(A1<10;A1;IF(A1<36;CHAR(A1-10+65);CHAR(A1-36+97)))
Formula u stupcu I1:I10 je =IF(A1<10;A1;IF(A1<36;CHAR(A1-7+65);CHAR(A1-36+97)))
Formula u stupcu L1:L10 je =C1&D1&E1&F1&G1&H1&I1

Formula u stupcu L13 je =RndPassP(A13)
Formula u stupcu L14 je =RndPass(8;A14)
Formula u stupcu L14 je =pass(A15)

Macro code iz primjera

Public Function RndPassP(Phrase As String) As String
'add this code to a vb module
'syntax is ‘RndPassP(string):
'RndPassP ("I work in Property Finance")
Dim Max As Integer
Dim Min As Integer

Dim RndPassLoop As String

If Len(Phrase) < 12 Then
RndPassP = "Phrase too short - please choose something longer"
Exit Function
End If

If subStringCount(Phrase, "a") + _
subStringCount(Phrase, "c") + _
subStringCount(Phrase, "e") + _
subStringCount(Phrase, "i") + _
subStringCount(Phrase, "o") + _
subStringCount(Phrase, "s") + _
subStringCount(Phrase, "u") + _
subStringCount(Phrase, "r") < 4 Then

RndPassP = "Phrase does not include enough key letters - please choose another"
Exit Function
End If

Phrase = StrConv(Phrase, vbLowerCase)

Randomize Timer

RndPassLoop = Replace(Phrase, "a", "@")
Phrase = Replace(RndPassLoop, "b", "8")
RndPassLoop = Replace(Phrase, "e", "3")
Phrase = Replace(RndPassLoop, "i", "!")
RndPassLoop = Replace(Phrase, "o", "0")
Phrase = Replace(RndPassLoop, "s", "$")
RndPassLoop = Replace(Phrase, " ", "")
Phrase = Replace(RndPassLoop, "u", " * ")
RndPassLoop = Replace(Phrase, "r", "L")
Phrase = Replace(RndPassLoop, "M", "M")
RndPassLoop = Replace(Phrase, "N", "N")
Phrase = Replace(RndPassLoop, "T", "T")
RndPassLoop = Replace(Phrase, "X", "X")
Phrase = Replace(RndPassLoop, "G", "G")

Phrase = RndPassLoop & ":)"""

RndPassP = Phrase

End Function

Function subStringCount(longString As String, subString As String) As Double
subStringCount = Len(longString) _
- Len(Application.Substitute(longString, subString, vbNullChar))
End Function

Public Function RndPass(Length As Integer, Optional Lower As Boolean) As String
'add this code to a vb module
'syntax is RndPass(Length of password, True (lowercase) / Empty or False (both upper and lower)
'RndPass(20,1) = 20 characters lower case
Dim Max As Integer
Dim Min As Integer

Dim RndPassLoop As String

Max = 126
Min = 48

Randomize Timer

If Length < 8 Then
Length = 8
End If

For i = 1 To Length
RndPassLoop = RndPassLoop & Chr(Int((Max - Min + 1) * Rnd + Min))
Next i

If Lower = False Then
RndPass = RndPassLoop
Else
RndPass = StrConv(RndPassLoop, vbLowerCase)
End If

End Function

Function pass(Length As Integer)

Dim p As String
Dim c As String

p = ""

For i = 1 To Length

x = Int(Rnd() * 4)

If x = 1 Then c = Chr(Int(Rnd() * (57 - 48) + 48))
If x = 2 Then c = Chr(Int(Rnd() * (90 - 65) + 65))
If x = 3 Then c = Chr(Int(Rnd() * (120 - 97) + 97))

p = p & c

Next i

pass = p

End Function

Public Function RL(Cnt1 As Integer, Cnt2 As Integer, MySet As Integer)
Dim Rand As String
Dim i As Integer, RndNo As Integer, XSet As Integer
Dim MyCase As Integer

Application.Volatile
Select Case MySet
Case Is = "1" 'Upper case
MyCase = 65: XSet = 26
Case Is = "2" 'Lower Case
MyCase = 97: XSet = 26
Case Is = "3" 'Leading Capital
MyCase = 97: XSet = 26
Case Is = "4" 'Text digits
MyCase = 48: XSet = 10
Case Is = "5" 'Numeric digits
MyCase = 48: XSet = 10
End Select

If MySet = 3 Then 'Set leading character of "Name"
i = i + 1
Randomize
Rand = Rand & Chr(Int((26) * Rnd + 65))
End If
'Set random length of string
RndNo = Int((Cnt2 + 1 - Cnt1) * Rnd + Cnt1)
Do
i = i + 1
Randomize
Rand = Rand & Chr(Int((XSet) * Rnd + MyCase))
Loop Until i = RndNo
RL = Rand
'Convert string to number
If MySet = 5 Then RL = RL * 1

End Function
                                           DOWNLOAD datoteke iz primjera


Page copy protected against web site content infringement by Copyscape - Do not copy content from the page. Plagiarism will be detected by Copyscape  COPYRIGHT ©- 2006 - 2011 - IC  - Sva prava pridržana.  ic.ims.hr