Office: Hashwert erzeugen (md5)

Helfe beim Thema Hashwert erzeugen (md5) in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, wie kann ich aus dem Wert einer Zelle/Zeile einen Hashwert des Typs md5 erzeugen? Der Hashwert soll jeweils in die gleiche Zeile am... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von soko, 8. Juli 2007.

Seite 1 von 2

SOKO

soko

Hashwert erzeugen (md5)

Hallo zusammen,

wie kann ich aus dem Wert einer Zelle/Zeile einen Hashwert des Typs md5 erzeugen?
Der Hashwert soll jeweils in die gleiche Zeile am Ende aufgeführt werden.
z.B. möchte ich aus Zelle (5,5) & (5,6) einen Hashwert erzeugt bekommen, der der in Zelle (5,8) genannt wird.

Vielen Dank schon mal Voraus

Gruß
Soko

:)

soko, 8. Juli 2007

#1
SEBASTIAN SCHULZ

Sebastian Schulz

Hallo,

probiere doch einfach mal die Funktion von TommyK aus. ISt eigentlich für Access, müsste IMHO auch in Excel funktionieren. Habe Ihn dir soweit umgebaut, sodass du ihn benutzen kannst.

Der Code stand irgendwo hier mal im Forum und ich habe ihn in mein Code-Archiv kopiert. (Sorry Tommy, dass ich den Link nicht mehr kenne)

Code:

Option Explicit

Private lngTrack As Long
Private arrLongConversion(4) As Long
Private arrSplit64(63) As Byte

Private Const OFFSET_4 = 4294967296#
Private Const MAXINT_4 = 2147483647

Private Const S11 = 7
Private Const S12 = 12
Private Const S13 = 17
Private Const S14 = 22
Private Const S21 = 5
Private Const S22 = 9
Private Const S23 = 14
Private Const S24 = 20
Private Const S31 = 4
Private Const S32 = 11
Private Const S33 = 16
Private Const S34 = 23
Private Const S41 = 6
Private Const S42 = 10
Private Const S43 = 15
Private Const S44 = 21

Private Function MD5Round(strRound As String, a As Long, b As Long, _
C As Long, d As Long, x As Long, S As Long, _
ac As Long) As Long
Select Case strRound
Case Is = "FF"
a = MD5LongAdd4(a, (b And C) Or (Not (b) And d), x, ac)
a = MD5Rotate(a, S)
a = MD5LongAdd(a, b)
Case Is = "GG"
a = MD5LongAdd4(a, (b And d) Or (C And Not (d)), x, ac)
a = MD5Rotate(a, S)
a = MD5LongAdd(a, b)
Case Is = "HH"
a = MD5LongAdd4(a, b Xor C Xor d, x, ac)
a = MD5Rotate(a, S)
a = MD5LongAdd(a, b)
Case Is = "II"
a = MD5LongAdd4(a, C Xor (b Or Not (d)), x, ac)
a = MD5Rotate(a, S)
a = MD5LongAdd(a, b)
End Select
End Function

Private Function MD5Rotate(lngValue As Long, lngBits As Long) As Long
Dim lngSign As Long
Dim lngI As Long

lngBits = (lngBits Mod 32)
If lngBits = 0 Then MD5Rotate = lngValue: Exit Function
For lngI = 1 To lngBits
lngSign = lngValue And &HC0000000
lngValue = (lngValue And &H3FFFFFFF) * 2
lngValue = lngValue Or ((lngSign < 0) And 1) Or _
(CBool(lngSign And &H40000000) And &H80000000)
Next
MD5Rotate = lngValue
End Function

Private Function TRID() As String
Dim sngNum As Single, lngnum As Long
Dim strResult As String

sngNum = Rnd(2147483648#)
strResult = CStr(sngNum)
strResult = Replace(strResult, "0.", "")
strResult = Replace(strResult, ".", "")
strResult = Replace(strResult, "E-", "")
TRID = strResult
End Function

Private Function MD564Split(lngLength As Long, bytBuffer() As Byte) As String
Dim lngBytesTotal As Long, lngBytesToAdd As Long
Dim intLoop As Integer, intLoop2 As Integer, lngTrace As Long
Dim intInnerLoop As Integer, intLoop3 As Integer

lngBytesTotal = lngTrack Mod 64
lngBytesToAdd = 64 - lngBytesTotal
lngTrack = (lngTrack + lngLength)
If lngLength >= lngBytesToAdd Then
For intLoop = 0 To lngBytesToAdd - 1
arrSplit64(lngBytesTotal + intLoop) = bytBuffer(intLoop)
Next intLoop
MD5Conversion arrSplit64
lngTrace = (lngLength) Mod 64
For intLoop2 = lngBytesToAdd To lngLength - intLoop - lngTrace Step 64
For intInnerLoop = 0 To 63
arrSplit64(intInnerLoop) = bytBuffer(intLoop2 + intInnerLoop)
Next intInnerLoop
MD5Conversion arrSplit64
Next intLoop2
lngBytesTotal = 0
Else
intLoop2 = 0
End If
For intLoop3 = 0 To lngLength - intLoop2 - 1
arrSplit64(lngBytesTotal + intLoop3) = bytBuffer(intLoop2 + intLoop3)
Next intLoop3
End Function

Private Function MD5StringArray(strInput As String) As Byte()
Dim intLoop As Integer
Dim bytBuffer() As Byte
ReDim bytBuffer(Len(strInput))

For intLoop = 0 To Len(strInput) - 1
bytBuffer(intLoop) = Asc(Mid(strInput, intLoop + 1, 1))
Next intLoop
MD5StringArray = bytBuffer
End Function

Private Sub MD5Conversion(bytBuffer() As Byte)
Dim x(16) As Long, a As Long
Dim b As Long, C As Long
Dim d As Long

a = arrLongConversion(1)
b = arrLongConversion(2)
C = arrLongConversion(3)
d = arrLongConversion(4)
MD5Decode 64, x, bytBuffer
MD5Round "FF", a, b, C, d, x(0), S11, -680876936
MD5Round "FF", d, a, b, C, x(1), S12, -389564586
MD5Round "FF", C, d, a, b, x(2), S13, 606105819
MD5Round "FF", b, C, d, a, x(3), S14, -1044525330
MD5Round "FF", a, b, C, d, x(4), S11, -176418897
MD5Round "FF", d, a, b, C, x(5), S12, 1200080426
MD5Round "FF", C, d, a, b, x(6), S13, -1473231341
MD5Round "FF", b, C, d, a, x(7), S14, -45705983
MD5Round "FF", a, b, C, d, x(8), S11, 1770035416
MD5Round "FF", d, a, b, C, x(9), S12, -1958414417
MD5Round "FF", C, d, a, b, x(10), S13, -42063
MD5Round "FF", b, C, d, a, x(11), S14, -1990404162
MD5Round "FF", a, b, C, d, x(12), S11, 1804603682
MD5Round "FF", d, a, b, C, x(13), S12, -40341101
MD5Round "FF", C, d, a, b, x(14), S13, -1502002290
MD5Round "FF", b, C, d, a, x(15), S14, 1236535329
MD5Round "GG", a, b, C, d, x(1), S21, -165796510
MD5Round "GG", d, a, b, C, x(6), S22, -1069501632
MD5Round "GG", C, d, a, b, x(11), S23, 643717713
MD5Round "GG", b, C, d, a, x(0), S24, -373897302
MD5Round "GG", a, b, C, d, x(5), S21, -701558691
MD5Round "GG", d, a, b, C, x(10), S22, 38016083
MD5Round "GG", C, d, a, b, x(15), S23, -660478335
MD5Round "GG", b, C, d, a, x(4), S24, -405537848
MD5Round "GG", a, b, C, d, x(9), S21, 568446438
MD5Round "GG", d, a, b, C, x(14), S22, -1019803690
MD5Round "GG", C, d, a, b, x(3), S23, -187363961
MD5Round "GG", b, C, d, a, x(8), S24, 1163531501
MD5Round "GG", a, b, C, d, x(13), S21, -1444681467
MD5Round "GG", d, a, b, C, x(2), S22, -51403784
MD5Round "GG", C, d, a, b, x(7), S23, 1735328473
MD5Round "GG", b, C, d, a, x(12), S24, -1926607734
MD5Round "HH", a, b, C, d, x(5), S31, -378558
MD5Round "HH", d, a, b, C, x(8), S32, -2022574463
MD5Round "HH", C, d, a, b, x(11), S33, 1839030562
MD5Round "HH", b, C, d, a, x(14), S34, -35309556
MD5Round "HH", a, b, C, d, x(1), S31, -1530992060
MD5Round "HH", d, a, b, C, x(4), S32, 1272893353
MD5Round "HH", C, d, a, b, x(7), S33, -155497632
MD5Round "HH", b, C, d, a, x(10), S34, -1094730640
MD5Round "HH", a, b, C, d, x(13), S31, 681279174
MD5Round "HH", d, a, b, C, x(0), S32, -358537222
MD5Round "HH", C, d, a, b, x(3), S33, -722521979
MD5Round "HH", b, C, d, a, x(6), S34, 76029189
MD5Round "HH", a, b, C, d, x(9), S31, -640364487
MD5Round "HH", d, a, b, C, x(12), S32, -421815835
MD5Round "HH", C, d, a, b, x(15), S33, 530742520
MD5Round "HH", b, C, d, a, x(2), S34, -995338651
MD5Round "II", a, b, C, d, x(0), S41, -198630844
MD5Round "II", d, a, b, C, x(7), S42, 1126891415
MD5Round "II", C, d, a, b, x(14), S43, -1416354905
MD5Round "II", b, C, d, a, x(5), S44, -57434055
MD5Round "II", a, b, C, d, x(12), S41, 1700485571
MD5Round "II", d, a, b, C, x(3), S42, -1894986606
MD5Round "II", C, d, a, b, x(10), S43, -1051523
MD5Round "II", b, C, d, a, x(1), S44, -2054922799
MD5Round "II", a, b, C, d, x(8), S41, 1873313359
MD5Round "II", d, a, b, C, x(15), S42, -30611744
MD5Round "II", C, d, a, b, x(6), S43, -1560198380
MD5Round "II", b, C, d, a, x(13), S44, 1309151649
MD5Round "II", a, b, C, d, x(4), S41, -145523070
MD5Round "II", d, a, b, C, x(11), S42, -1120210379
MD5Round "II", C, d, a, b, x(2), S43, 718787259
MD5Round "II", b, C, d, a, x(9), S44, -343485551
arrLongConversion(1) = MD5LongAdd(arrLongConversion(1), a)
arrLongConversion(2) = MD5LongAdd(arrLongConversion(2), b)
arrLongConversion(3) = MD5LongAdd(arrLongConversion(3), C)
arrLongConversion(4) = MD5LongAdd(arrLongConversion(4), d)
End Sub

Private Function MD5LongAdd(lngVal1 As Long, lngVal2 As Long) As Long
Dim lngHighWord As Long
Dim lngLowWord As Long
Dim lngOverflow As Long

lngLowWord = (lngVal1 And &HFFFF&) + (lngVal2 And &HFFFF&)
lngOverflow = lngLowWord \ 65536
lngHighWord = (((lngVal1 And &HFFFF0000) \ 65536) + _
((lngVal2 And &HFFFF0000) \ 65536) + _
lngOverflow) And &HFFFF&
MD5LongAdd = MD5LongConversion((lngHighWord * 65536#) + _
(lngLowWord And &HFFFF&))
End Function

Private Function MD5LongAdd4(lngVal1 As Long, lngVal2 As Long, _
lngVal3 As Long, lngVal4 As Long) As Long
Dim lngHighWord As Long
Dim lngLowWord As Long
Dim lngOverflow As Long

lngLowWord = (lngVal1 And &HFFFF&) + (lngVal2 And &HFFFF&) + _
(lngVal3 And &HFFFF&) + (lngVal4 And &HFFFF&)
lngOverflow = lngLowWord \ 65536
lngHighWord = (((lngVal1 And &HFFFF0000) \ 65536) + _
((lngVal2 And &HFFFF0000) \ 65536) + _
((lngVal3 And &HFFFF0000) \ 65536) + _
((lngVal4 And &HFFFF0000) \ 65536) + _
lngOverflow) And &HFFFF&
MD5LongAdd4 = MD5LongConversion((lngHighWord * 65536#) + _
(lngLowWord And &HFFFF&))
End Function

Private Sub MD5Decode(intLength As Integer, lngOutBuffer() As Long, _
bytInBuffer() As Byte)
Dim intDblIndex As Integer
Dim intByteIndex As Integer
Dim dblSum As Double

intDblIndex = 0
For intByteIndex = 0 To intLength - 1 Step 4
dblSum = bytInBuffer(intByteIndex) + _
bytInBuffer(intByteIndex + 1) * 256# + _
bytInBuffer(intByteIndex + 2) * 65536# + _
bytInBuffer(intByteIndex + 3) * 16777216#
lngOutBuffer(intDblIndex) = MD5LongConversion(dblSum)
intDblIndex = (intDblIndex + 1)
Next intByteIndex
End Sub

Private Function MD5LongConversion(dblValue As Double) As Long
If dblValue < 0 Or dblValue >= OFFSET_4 Then Error 6
If dblValue
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sebastian Schulz, 9. Juli 2007

#2

1 Person gefällt das.
SOKO

soko

Danke für die Hilfe. Funktioniert einwandfrei!!!!

soko, 10. Juli 2007

#3
M MERLIN

M Merlin

Hashwert erzeugen (md5)

Hallo zusammen,
ich habe hier einen alten Thread ausgegraben...
...da ich genau eine Umwandlung in einen MD5-Hash gesucht haben...

Jetzt meine Frage:
Kennt jemand eine Möglichkeit diesen Hash wieder in den Originaltext umzuwandeln...???

M Merlin, 4. Dezember 2012

#4
INGGI

IngGi

Hallo Merlin,

der Sinn eines Hashes ist es ja gerade, dass er eben nicht wieder in den Originaltext zurückgewandelt werden kann.

Gruß Ingolf

IngGi, 5. Dezember 2012

#5
PIT987

Pit987

Hallo Ingolf!
Es muß Wege geben, den Hash Wert zurückzuwandeln.
Programm, die Passworte anzeigen, lesen den Hash aus und zeigen dann im Klartext das PW.

Bis dann
Pit

Pit987, 5. Dezember 2012

#6
MUMPEL

mumpel

Da liegst Du falsch. Solche Programme lesen nicht das Originalkennwort aus. Sie probieren stattdessen solange alle Kennwörter aus, bis eines zum Hashwert passt. Dann hat man das Kennwort. Das nennt man Bruteforce-Attacke. Andere (moderne) Programme nutzen Rainbow-Tables. Aber niemals können solche Programme den Hashwert zurückwandeln, sonst bräuchte man keine Rainbow-Tables und Bruteforces.

mumpel, 5. Dezember 2012

#7
M MERLIN

M Merlin

Hashwert erzeugen (md5)

Unter .Net geht das doch auch...
http://www.obviex.com/samples/Encryption.aspx

Dann sollte das doch auch im normalen VB machbar sein... oder?

M Merlin, 5. Dezember 2012

#8
INGGI

IngGi

Hallo Merlin,

das ist ein weitverbreitetes, grundlegendes Missverständnis!

Die Verschlüsselung von Daten einerseits und die Ermittlung eines Hashwertes aus Daten andererseits haben nicht das Geringste miteinander zu tun. Es handelt sich um zwei völlig verschiedene Dinge.

Bei der Verschlüsselung bleiben die ursprünglichen Daten erhalten. Sie werden lediglich in eine andere, nicht lesbare Form gebracht.

Bei der Ermittlung eine Hashwertes dagegen werden die ursprünglichen Daten auf einen in aller Regel wesentlich kürzeren Hashwert reduziert und gehen durch diese Reduktion größtenteils verloren (Passwörter sind da zugegebenermaßen ein schlechtes Beispiel).

Mit Verschlüsselungen kann ich dir leider nicht weiterhelfen.

Gruß Ingolf

IngGi, 5. Dezember 2012

#9

1 Person gefällt das.
MUMPEL

mumpel

von IngGi

[...] Mit Verschlüsselungen kann ich dir leider nicht weiterhelfen [...]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auch kein Problem.

Public Function EncodeString(ByVal strToEncode As String, _
Optional ByVal strPassword As String = "TestKennwort") As String

Dim strResult As String
Dim i As Long
Dim cfc() As Integer

Redim cfc(1 To Len(strPassword))

For i = 1 To Ubound(cfc)
cfc(i) = Asc(Right(strPassword, _
Len(strPassword) - i + 1))
Next i

For i = 1 To Len(strToEncode)
strResult = strResult & _
Chr(addToIndex(Asc(Right(strToEncode, _
Len(strToEncode) - i + 1)), VirtPos(i, cfc)))
Next i

EncodeString = strResult
End Function

Public Function DecodeString(ByVal strToDecode As String, _
Optional ByVal strPassword As String = "TestKennwort") As String

Dim strResult As String
Dim i As Long
Dim cfc() As Integer

Redim cfc(1 To Len(strPassword))
Redim ttc(1 To Len(strToDecode))

For i = 1 To Ubound(cfc)
cfc(i) = Asc(Right(strPassword, _
Len(strPassword) - i + 1))
Next i

For i = 1 To Len(strToDecode)
strResult = strResult & _
Chr(GetOfIndex(Asc(Right(strToDecode, _
Len(strToDecode) - i + 1)), VirtPos(i, cfc)))
Next i

DecodeString = strResult
End Function

Private Function VirtPos(i As Long, _
a() As Integer) As Integer

If i > Ubound(a) Then
VirtPos = VirtPos(i - Ubound(a), a)
Else
VirtPos = a(i)
End If
End Function

Private Function addToIndex(i As Integer, _
j As Integer) As Integer

If i + j > 255 Then
addToIndex = i + j - 255
Else
addToIndex = i + j
End If
End Function

Private Function GetOfIndex(i As Integer, _
j As Integer) As Integer

If i - j < 0 Then
GetOfIndex = i - j + 255
Else
GetOfIndex = i - j
End If
End Function

Lukas Mosimann
Projektbetreuung durch mumpel

Code erstellt und getestet in Office 14
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

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

Mit "EncodeString" wird verschlüsselt, mit "DecodeString" wird entschlüsselt.

Sub Test34()
Range("A1").Value = EncodeString("NurEinTest")
End Sub

Lukas Mosimann
Projektbetreuung durch mumpel

Code erstellt und getestet in Office 14
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

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

Aus "NurEinTest" wird "¢Úå¹´ÓÂÓêã".

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

mumpel, 5. Dezember 2012

#10

1 Person gefällt das.
PIT987

Pit987

Hallo Mumpel!
Wieder was gelernt. Danke

Pit

Pit987, 5. Dezember 2012

#11
M MERLIN

M Merlin

Hallo Mumpel,
das sieht gut aus...
...ich habe da aber noch eine Frage zum Verständnis. Das was du da machst, ist eine Art der "Verschlüsselung", hat aber mit MD5 nichts zu tun, oder?

Ist deine "Verschlüsselung" ähnlich sicher wie MD5?

M Merlin, 5. Dezember 2012

#12
MUMPEL

mumpel

Hashwert erzeugen (md5)

Das ist nur ein Beispiel für Verschlüsselung, kein Hashwert. War nur ein Beispiel, um Dir die Unterschiede zwischen Verschlüsselung und Hashwerten vor Augen zu führen.

Noch einmal:
Einen Hashwert kann man nicht zurückwandeln. Man kann ihn nur per Bruteforce oder mit Rainbow-Tables vergleichen.

mumpel, 6. Dezember 2012

#13
M MERLIN

M Merlin

OK. Habe ich verstanden...
...aber ich muss trotzdem nochmal nachfragen

Das .Net Beispiel, ist das nicht eine Hashumwandlung ? Die wurde doch auch wieder zurückgewandelt...

M Merlin, 6. Dezember 2012

#14
MUMPEL

mumpel

Sieht nach Hashwert aus. Den kannst Du aber (wenn ich das richtig ableite, mein Englisch ist leider schlecht) nur entschlüsseln (zurückwandeln) wenn Dir das zur Verschlüsselung genutzte Kennwort (passPhrase) bekannt ist. Ohne das Verschlüsselungskennwort kannst Du nicht zurückwandeln. Das ist ähnlich wie bei meinem Beispielcode, da benötigst Du zur Entschlüsselung auch das Kennwort.

mumpel, 6. Dezember 2012

#15

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

Seite 1 von 2

Thema:

Hashwert erzeugen (md5)

Die Seite wird geladen...

Hashwert erzeugen (md5) - Similar Threads - Hashwert erzeugen md5
dropdown
in Microsoft Excel Hilfe
dropdown: Hallo Forum, ich habe folgendes Problem. Wenn in Spalte A (Datumstabelle a15:a45) ein SA,SO oder ein Feiertag steht, dann soll in Spalte b15:b45 die Dropdownliste (K,KK,U) ausgeschaltet sein. Am...
Werte für bestimmte Kürzel erzeugen
in Microsoft Excel Hilfe
Werte für bestimmte Kürzel erzeugen: Hallo zusammen Will in einer Spalte über Kürzel verschiedene Fahrzeug Typen erfassen, ist es möglich das ich jeden Kürzel einen Bestimmten wert hinterlegen kann der dann in einer anderen Spalte...
[VBA] Zwei neue Dateien als Emailanhang erzeugen
in Microsoft Excel Hilfe
[VBA] Zwei neue Dateien als Emailanhang erzeugen: Hallo zusammen, ich bastle gerade an meinem Code herum und komme nicht weiter. Das Ziel: In Tabelle1 liegen die Daten des ersten Blattes. Aus diesem Blatt soll eine neue Datei ohne Formeln, nur...
Ini-Dateien per VBA erzeugen
in Microsoft Excel Hilfe
Ini-Dateien per VBA erzeugen: Liebe Community, ich suche nach einer Lösung für folgende Fragestellung: Ich möchte aus einer Liste für jede Zelle einer Spalte eine neue ini-Datei erzeugen, in die der Inhalt der jeweiligen Zelle...
Geburtstag und Jubiläumstag -> Datum kombinieren
in Microsoft Access Hilfe
Geburtstag und Jubiläumstag -> Datum kombinieren: Hallo, Ich habe eine Mitgliederdatenbank für einen Verein. Darin sind die Mitglieder mit Geburtsdatum erfasst. Ich habe eine Auswertung erstellt, die mir alle Mitglieder mit "runden" Geburtstagen...
Vergleichbare X-Y-Sparklines (Diagramm in einer Zelle) erzeugen
in Microsoft Excel Tutorials
Vergleichbare X-Y-Sparklines (Diagramm in einer Zelle) erzeugen: Sparklines gibt es als Säulen-, Linien- und GuV-Diagramm. Ein X-Y-Diagramm wäre aber auch schön. Gehe ich nun auf "Sparklines-Achse", ist "...-Allgemeiner Achsentyp" voreingestellt. Wähle ich...
Aufgaben erzeugen immer eine Benachrichtigung
in Microsoft Teams Hilfe
Aufgaben erzeugen immer eine Benachrichtigung: Eine erstelle Aufgabe erzeugt immer für alle eine Benachrichtigung und nicht nur für den jeweiligen Kanal. Gibt es eine Möglichkeit die Einstellung so anzupassen, dass nur die Mitglieder des...

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