Passwords automatisch hashen

[maomanna]

Hallo,

Ik heb een functie waarmee wachtwoorden gehashed worden.

dat doe ik met de functie:

Public Const Salt As Long = 1458796582

Public Function encrypt(strIn As String) As String
Dim strChr As String
Dim i As Integer

For i = 1 To Len(strIn)
strChr = strChr & CStr(Asc(Mid(strIn, i, 1)) Xor Salt)
Next i
encrypt = strChr
End Function

Nu moet ik het wachtwoord handmatig kopieren en moet ik het in de VBA venster -> Venster Direct handmatig aanroepen met

?encrypt("wachtwoordhierinvullen")

Vervolgens hashed hij het dan.

Dat moet anders kunnen, dus als de betreffende persoon zijn wachtwoord wijzigd, hij het gehashed opslaat.

Hoe kan ik dat automatisch laten hashen?

 

[edmoor]

Die kan je gewoon aanroepen met:
HashedWachtwoord = encrypt(VariabeleMetWachtwoord)

Daar is het tenslotte een Function voor.

 

[maomanna]

en dan is het "veldnaamwaarpasswordinstaat" tissen de ( )?

 

[edmoor]

Je geeft daar het leesbare wachtwoord in. Waar die vandaan komt kan ik niet voor je bepalen.

 

[maomanna]

Wat je zegt begrijp ik, dat doe ik nu handmatig.

Het wwe komt uit een tekstveld, die de gebruiker zelf kan aanpassen.
Na het bewerken of sluiten van het venster moet deze gehashed worden weggeschreven naar het betreffende Password veld.

 

[edmoor]

Ok, dan weet je dus waar het vandaan moet komen en dat gebruik je dan op die plek.

 

[maomanna]

Top!

Private Sub Passwrdbox_AfterUpdate()
    Password = encrypt(Me.Passwrdbox)
End Sub

waar Password de kolom is en Passwrdbox het veld is.

 

[edmoor]

Precies :thumb: