Office: (Office 2016) Passwort hashing

Helfe beim Thema Passwort hashing in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hi, zu Passwort hashing habe ich folgenden Film gefunden: [MEDIA] Habe dies auch mit dem Code nachgebaut: Code: Option Compare Database Option... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von firela112, 16. November 2018.

Seite 1 von 2

FIRELA112

firela112

Passwort hashing

Hi,
zu Passwort hashing habe ich folgenden Film gefunden:

Habe dies auch mit dem Code nachgebaut:
Code:

Option Compare Database
Option Explicit
Public Const Salt As Long = 543211234

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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

funktioniert auch
Aber wie muss es im Formular bzw. im Modul aussehen, dass es mir z.B. das Passwort im Textfeld "Kennwort" ein Hashpasswort daraus macht?

Kenn mich da jetzt wirklich nicht mehr aus *frown.gif*

:)

firela112, 16. November 2018

#1
FIRELA112

firela112

Habe auch folgenden Code gefunden:
https://www.vb-paradise.de/index.php...hl%C3%BCsseln/

jedoch bringt es mir dann einen Laufzeitfehler 2185:
Sie können auf die Eigenschaften oder Methoden eines Steuerelements nur verweisen, wenn das Steuerelement den Fokus hat

firela112, 18. November 2018

#2
ELMAR

elmar

Die Fehlermeldung dürfte doch wohl mehr als eindeutig sein. Oder stellst Du dazu wirklich eine Frage?

elmar, 18. November 2018

#3
FIRELA112

firela112

Passwort hashing

würde nicht fragen, wenns ich wüsste.
Hab auch schon mit setfocus gearbeitet, aber des hat auch nicht funktioniert.

Wenn ich es auf:
Code:

Private Sub Befehl484_Click()
' Verschlüsseln
Me!txtResult = EncodeString(Me!txtToEncode, Me!txtPassword)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ändere kommt FE: Laufzeitfehler 94: Unzulässige Verwendung von Null, obwohl text in txtToEncode eingegeben ist

firela112, 18. November 2018

#4
ELMAR

elmar

Zeige mal den gesamten Code. Welche Eigenschaftseinstellungen hat das Steuerelement, auf das du mit dem Code zugreifen möchtest? (sichtbar? aktiviert?)

elmar, 18. November 2018

#5
FIRELA112

firela112

Hi,
guckst Du. *Smilie

ah vergiss es, funktioniert jetzt, habe übersehen, dass es aus Passwort und zu txttoencode zusammengesetzt ist.

Jetzt funktioniert es

firela112, 18. November 2018

#6
FIRELA112

firela112

kann mir jemand noch helfen mit der #1 Frage?

firela112, 18. November 2018

#7
OHRKESTER

Ohrkester

Passwort hashing

Servus firela112,

....Das ist zwar nicht richtig verschlüsselt, aber nicht jeder DAU kann das lesen. Es gibt Programmierer, die schreiben Passwörter unverschlüsselt in die Datenbank!!
Ich finde besser so als garnicht verschlüsselt....
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Genau das ist aber Dein Problem.
Halb verschlüsselt ist NICHT verschlüsselt.
Schau mal hier
https://www.ms-office-forum.net/foru...light=passwort

Ohrkester, 18. November 2018

#8
NOUBA

Nouba

Password Hashing ist anders definiert - nämlich in Form einer Verschlüsselung in einer Richtung. Dabei kommt immer vorher definerte Byte-Folge gleicher Länge heraus - egal ob das Passwort aus einem, 10 oder mehr Zeichen besteht. Und obwohl die Methode der Verschlüsselung exakt bekannt und für jedermann zugänglich ist, sollte es quasi unmöglich sein, aus dem Hashwert das ursprüngliche Passwort zu ermitteln. Suche nach SHA-2 (SHA-3 dürfte noch besser sein, benötigt aber eine externe Bibliothek, die AFAIK Windows nicht beiliegt).

Kennt man z.B. das Salz Deiner ersten Version, ist das Umwandeln in Klartext jederzeit gegeben. Noch schlimmer ist die zweite Methode, die ein Passwort verschlüsselt und dann wieder entschlüsselt.

Nouba, 18. November 2018

#9
FIRELA112

firela112

Hi, das hat mir vorher ein guter Kumpel jetzt auch erklärt.

Blos komme ich jetzt dev. an meine Grenzen.

Wir wollen folgendes umsetzen:
bei Vergabe eines neuen Benutzers soll ein zufälliges Passwort (z.B. 1234) erzeugt werden.
Zusätzlich soll jedem Benutzer ein zufälliger String erzeugt werden (Salt; 16 Zeichen)
Dann müsste Passwort mit Salt zusammengefasst werden und daraus den SHA512.

Wenn sich jetzt der Nutzer mit dem Passwort (1234) anmeldet (im LoginFormular), müsste die DB nach dem Salt suchen von dem Benutzer.
Dann müsste Salt und Passwort zusammengebaut werden und wieder ein SHA512 daraus gemacht werden.

Wenn das passt und das angegebene Passwort mit dem SHA512 übereinstimmt sollte es weitergehen.

Ich habe in der tbl_Personalverwaltung folgende Spalten:
Email_privat= als benutzername, Salt und SHA512

Hab dazu auch gegoogelt und folgendes gefunden:
https://en.m.wikibooks.org/wiki/Visu...Hashing_in_VBA

Hashing:
Code:

Option Explicit

Sub Test()
'run this to test md5, sha1, sha2/256, sha2/384, or sha2/512
Dim sIn As String, sOut As String, bB64 As Boolean, sH As String

'insert the text to hash within the sIn quotes
'note that a private string could be joined to sIn at this point
sIn = ""

'select as required
'bB64 = False 'output hex
bB64 = True 'output base-64

'enable any one
'sH = MD5(sIn, bB64)
'sH = SHA1(sIn, bB64)
'sH = SHA256(sIn, bB64)
'sH = SHA384(sIn, bB64)
sH = SHA512(sIn, bB64)

Debug.Print sH & vbNewLine & Len(sH) & " characters in length"
MsgBox sH & vbNewLine & Len(sH) & " characters in length"

End Sub

Public Function MD5(ByVal sIn As String, Optional bB64 As Boolean = 0) As String
'Set a reference to mscorlib 4.0 64-bit

'Test with empty string input:
'Hex: d41d8cd98f00...etc
'Base-64: 1B2M2Y8Asg...etc

Dim oT As Object, oMD5 As Object
Dim TextToHash() As Byte
Dim bytes() As Byte

Set oT = CreateObject("System.Text.UTF8Encoding")
Set oMD5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")

TextToHash = oT.GetBytes_4(sIn)
bytes = oMD5.ComputeHash_2((TextToHash))

If bB64 = True Then
MD5 = ConvToBase64String(bytes)
Else
MD5 = ConvToHexString(bytes)
End If

Set oT = Nothing
Set oMD5 = Nothing

End Function

Public Function SHA1(sIn As String, Optional bB64 As Boolean = 0) As String
'Set a reference to mscorlib 4.0 64-bit

'Test with empty string input:
'40 Hex: da39a3ee5e6...etc
'28 Base-64: 2jmj7l5rSw0yVb...etc

Dim oT As Object, oSHA1 As Object
Dim TextToHash() As Byte
Dim bytes() As Byte

Set oT = CreateObject("System.Text.UTF8Encoding")
Set oSHA1 = CreateObject("System.Security.Cryptography.SHA1Managed")

TextToHash = oT.GetBytes_4(sIn)
bytes = oSHA1.ComputeHash_2((TextToHash))

If bB64 = True Then
SHA1 = ConvToBase64String(bytes)
Else
SHA1 = ConvToHexString(bytes)
End If

Set oT = Nothing
Set oSHA1 = Nothing

End Function

Public Function SHA256(sIn As String, Optional bB64 As Boolean = 0) As String
'Set a reference to mscorlib 4.0 64-bit

'Test with empty string input:
'64 Hex: e3b0c44298f...etc
'44 Base-64: 47DEQpj8HBSa+/...etc

Dim oT As Object, oSHA256 As Object
Dim TextToHash() As Byte, bytes() As Byte

Set oT = CreateObject("System.Text.UTF8Encoding")
Set oSHA256 = CreateObject("System.Security.Cryptography.SHA256Managed")

TextToHash = oT.GetBytes_4(sIn)
bytes = oSHA256.ComputeHash_2((TextToHash))

If bB64 = True Then
SHA256 = ConvToBase64String(bytes)
Else
SHA256 = ConvToHexString(bytes)
End If

Set oT = Nothing
Set oSHA256 = Nothing

End Function

Public Function SHA384(sIn As String, Optional bB64 As Boolean = 0) As String
'Set a reference to mscorlib 4.0 64-bit

'Test with empty string input:
'96 Hex: 38b060a751ac...etc
'64 Base-64: OLBgp1GsljhM2T...etc

Dim oT As Object, oSHA384 As Object
Dim TextToHash() As Byte, bytes() As Byte

Set oT = CreateObject("System.Text.UTF8Encoding")
Set oSHA384 = CreateObject("System.Security.Cryptography.SHA384Managed")

TextToHash = oT.GetBytes_4(sIn)
bytes = oSHA384.ComputeHash_2((TextToHash))

If bB64 = True Then
SHA384 = ConvToBase64String(bytes)
Else
SHA384 = ConvToHexString(bytes)
End If

Set oT = Nothing
Set oSHA384 = Nothing

End Function

Public Function SHA512(sIn As String, Optional bB64 As Boolean = 0) As String
'Set a reference to mscorlib 4.0 64-bit

'Test with empty string input:
'128 Hex: cf83e1357eefb8bd...etc
'88 Base-64: z4PhNX7vuL3xVChQ...etc

Dim oT As Object, oSHA512 As Object
Dim TextToHash() As Byte, bytes() As Byte

Set oT = CreateObject("System.Text.UTF8Encoding")
Set oSHA512 = CreateObject("System.Security.Cryptography.SHA512Managed")

TextToHash = oT.GetBytes_4(sIn)
bytes = oSHA512.ComputeHash_2((TextToHash))

If bB64 = True Then
SHA512 = ConvToBase64String(bytes)
Else
SHA512 = ConvToHexString(bytes)
End If

Set oT = Nothing
Set oSHA512 = Nothing

End Function

Private Function ConvToBase64String(vIn As Variant) As Variant

Dim oD As Object

Set oD = CreateObject("MSXML2.DOMDocument")
With oD
.LoadXML ""
.DocumentElement.DataType = "bin.base64"
.DocumentElement.nodeTypedValue = vIn
End With
ConvToBase64String = Replace(oD.DocumentElement.Text, vbLf, "")

Set oD = Nothing

End Function

Private Function ConvToHexString(vIn As Variant) As Variant

Dim oD As Object

Set oD = CreateObject("MSXML2.DOMDocument")

With oD
.LoadXML ""
.DocumentElement.DataType = "bin.Hex"
.DocumentElement.nodeTypedValue = vIn
End With
ConvToHexString = Replace(oD.DocumentElement.Text, vbLf, "")

Set oD = Nothing

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

firela112, 18. November 2018

#10
FIRELA112

firela112

zufälliges Passwort:
https://www.tksoft-online.de/downloa...generator.html
Code:

Option Compare Database
Option Explicit

Public Enum KeyType
nurGross = 0
nurGrossUndKlein = 1
nurKlein = 2
nurGrossUndZahlen = 3
nurKleinUndZahlen = 4
ZahlenGrossUndKlein = 5
End Enum

Public Function CreatePassword(nLen As Long, nType As KeyType) As String
'---------------------------------------------------------------------------------------
' Procedure : CreatePassword
' DateTime : 23.02.2008 16:18
' Author : TommyK (Original von Dieter Otter)
' Purpose :
' Called by :
' Calls :
' Inputs :
' Output :
' Example :
'---------------------------------------------------------------------------------------
Dim sResult As String
Dim i As Integer
Dim nValue As Integer

On Error GoTo CreatePassword_Error

For i = 1 To nLen
Randomize -Timer
nValue = Int(1000 * Rnd)
If nType = nurGross Then
Randomize -Timer
Do
nValue = Int(26 * Rnd)
Loop Until nValue >= 1 And nValue = 1 And nValue = 1 And nValue = 1 And nValue = 1 And nValue = 1 And nValue = 1 And nValue = 1 And nValue = 1 And nValue = 1 And nValue = 1 And nValue
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

firela112, 18. November 2018

#11
FIRELA112

firela112

Jetzt bin ich soweit mit den obigen Codes, dass es mir ein festes Passwort, einen zufälligen Code (Salt) generiert und diese zusammenführt.
Jedoch macht es mir Probleme beim Typen von SHA512.
Wenn mans in SHA512 umwandelt um welchen Typen handelt es sich bei SHA512?

firela112, 18. November 2018

#12
NOUBA

Nouba

Passwort hashing

Anmelden und Rollenzuordnung sind zwei verschiedene Paar Schuh. Nutzungseinschränkungen von Formular-Funktionalitäten würde ich von Rollen abhängig machen, während ein Anwender durchaus mehrere oder gar keine Rolle (minimale Rechte) einnehmen kann.

Beim Starten des Frontends kann dann einmalig, um den Anwender nicht unnötig zu nerven, ein Login stattfinden und bei Erfolg kann die Rollenzugehörigkeit globalen Variablen festgehalten werden und beim Öffnen von einschränkenden Formularen darauf basierend Funktionen ausgrauen oder unsichtbar schalten. Wenn man die Rollen so vergibt, dass deren Wert immer Zweier-Potenzen beinhalten, genügt eine Long-Variable, um die Rollenzugehörigkeiten festzuhalten. Die Rollen hätten dann also Werte von 1, 2, 4, 8, 16, ... In VBA legt man sich dafür dann eine öffentlich Enum an und kann mit logischem Und (and) prüfen, ob Voraussetzungen erfüllt sind. Mit logischem Oder (or) bzw. mit plus (+) können Rollen zusammengefasst werden. Voreinstellungen für Ränge in der Feuerwehr-Hierarchie nach Berufen sind natürlich auch möglich, um nicht für jeden einzeln alles zusammenklicken zu müssen. Code:

Public Enum UserRoles 'die Reihenfolge ist egal
urReadAccess = 1
urReadWriteAccess = 2
urPrintReports = 4
urSendReport = 8
urNoConstraints = 16
'usw. usf.
End Enum

'das sollte von der Login-Routine einmalig eingetragen werden
Private mUserRole As Long

Public Property Get UserRole() As Long
UserRole = m

'in einschränkenden Formularen dann in etwa so vorgen:
Private Form_Open(Cancel As Integer)
Select Case True
Case (UserRole And urNoConstraints) = urNoConstraints:
'keine Einschränkungen
Case (UserRole And urSendReport) = 0:
Me.EMailKnopf.Enable = False
Case (UserRole And urPrintReport) = 0:
Me.DruckenKnopf.Enabled = False
'usw. usf.
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das kann man parallel auch in einer Tabelle hinterlegen, um Klartexte lesen zu können und besser Rollen vergeben zu können, was ja auch eine Rolle sein wird.

Wenn sich Anwender selbstständig erstmalig anmelden dürfen, sollte es dafür beim Login-Formular eine Verzweigung mit Hinweisen geben. Wenn alle Benutzerangaben vollzogen sind, kann sich der Benutzer selbst ein Passwort aussuchen, das dann entsprechend eurer Vorgaben mindestens X-Zeichen lang ist und ggf. mindestens eine Ziffer und/oder ggf. aus Buchstaben mit Groß- und Kleinschreibung besteht und/oder mindestens ein Sonderzeichen enthält. Daraus wird dann der Hash-Wert gebildet und beim Anwender entweder Hex-codiert oder Base64-codiert gespeichert. Der Rollenwert sollte 0 sein - also keine besonderen Rechte beinhalten. Wenn jeder sein eigenes Salz verwenden soll - ist nicht unbedingt nötig, muss dieses vorher zufällig erstellt werden und beim Hashing verwendet werden und natürlich auch gespeichert werden.

Nimmt jedoch ein Anwender mit Berechtigung die Erstanmeldung vor, so kann man sich ein zufälliges Passwort erstellen lassen, das man dem neuen Anwender vertrauensvoll in einem Briefkuvert mit Anmeldekennung überreicht-eine Email über einen sicheren Server versendet wäre eine Alternative. Dieses Passwort sollte nur für eine geringe Anzahl an Anmeldungen gültig sein und der Anwender sollte aufgefordert werden, ein eigenes Passwort einzutragen. Ob Passworte nach X-Tagen verfallen sollen, wäre eine Überlegung wert.

Am besten baust Du Dir diese Szenerie in einer kleinen Spiel-Datenbank einmal auf, um das Prinzip richtig zu verstehen und anwenden zu lernen.

Nouba, 18. November 2018

#13
FIRELA112

firela112

Hi, nouba
erstmal danke das Du für mich Zeit nimmst.
Schön langsam komme auch rein. Auch mit den Rollen.
Rollen sind auch schon vergeben und das einloggen ist auch kein Problem mehr.
Hab auch schon gebastelt mit dem Hashing. (s. Beispiel eins ober Dir).
Blos haut es mir da den Fehler mit den Typenunverträglichkeiten.
Hab aber keine Ahnung wodurch.

firela112, 18. November 2018

#14
FIRELA112

firela112

Also habs jetzt getestet, wenn ich SHA384 und langer Text bei SHA512 drinnen habe funktionierts.

Warum auch immer. Mit SHA512 funktionierts nicht mehr.
Gibt es da evtl. irgendwas, was ich übersehe?

firela112, 18. November 2018

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Passwort hashing

Die Seite wird geladen...

Passwort hashing - Similar Threads - Passwort hashing
Outlook mit T-Online - Passwort wird nicht akzeptiert
in Microsoft Outlook Hilfe
Outlook mit T-Online - Passwort wird nicht akzeptiert: Hallo, ich stehe kurz vor der kompletten Verzweifelung....Ich habe meinen Rechner neu installiert und möchte nun Office Outlook (2016) installieren. Bei der Installation kann ich den Provider...
einloggen über IMAP
in Microsoft Outlook Hilfe
einloggen über IMAP: Moin zusammen, wir schaffen es einfach nicht Outlook auf einen Laptop über die IMAP einzurichten. Beim einrichten von Outlook wollen wir über die IMAP rein und er fragt nach einem Passwort, was...
Blattschutz Paßwort
in Microsoft Excel Hilfe
Blattschutz Paßwort: Hallo, gibt es eine Möglichkeit den Blattschutz bei Excel (MAC) aufzuheben, da ich das Passwort vergessen habe. Danke für die schnelle Hilfe Gruß mfkathie
Passwort Probleme - Outlook Konto nach Android Handy Wechsel
in Microsoft Outlook Hilfe
Passwort Probleme - Outlook Konto nach Android Handy Wechsel: Folgende Situation: Altes Android Handy ruft Outlook.de Adresse über die Outlook.App ab, klappt. Nun kam ein neues Androis Handy, alles wurde vorher gespiegelt, aber ich kann auf dem neuen Handy...
Excel Datei mit Passwort versehen obwohl Makro
in Microsoft Excel Hilfe
Excel Datei mit Passwort versehen obwohl Makro: Hallo, ich muss meine Excel Datei mit einem Passwort versehen oder den Zugriff für Personen beschränken aber ich bekomme eine Meldung dass ich erst alle Makros entfernen muss. Gibt es dafür eine...
Passwort eine Excel-Tabelle wurde verändert - Wie rausfinden?
in Microsoft Excel Hilfe
Passwort eine Excel-Tabelle wurde verändert - Wie rausfinden?: Jemand im Büro hat das Passwort (Blattschutz) einer Excel-Tabelle verändert. Ich kann nicht herausfinden, wie das neue ist. Kann da jemand einfach helfen? Danke
Auffordern um ein Passwort zu vergeben
in Microsoft Excel Hilfe
Auffordern um ein Passwort zu vergeben: Hallo zusammen, ich hoffe, dass ich hier die entsprechende Unterstützung bekomme. Ich habe eine Excel-Datei, die an mehrere Personen verschickt werden soll. Jeder einzelne Empfänger müsste...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden