Zwei Dateien via Hashwert (MD5) miteinander vergleichen

  • VBScript

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Zwei Dateien via Hashwert (MD5) miteinander vergleichen

    Hi Zusammen, ich recherchiere schon länger nach ein Lösung via VBS. Ich möchte gerne zwei Dateien miteinander vergleichen, falls diese dann "gleich" sind soll die Datei aus dem Quellordner in den Zielordner kopiert werden.
    Das kopieren usw. habe ich bereits gecoded.

    Ich finde aber keinen wirklichen Ansatz zur Hashüberprüfung via VBS. Eher Lösungen mit VBA oder Vb.net

    Habt ihr vielleicht eine Idee wie ich das am Besten via VBS hinkriege oder ist es sinnvoller den Hashwert mit VB.net zu überprüfen?


    Viele Grüße

    Du kannst den CryptoserviceProvider auch aus VBS aufrufen
    Set Encryptor = CreateObject("System.Security.Cryptography.SHA1CryptoServiceProvider")Geht vermutlich auch mit MD5, wenn du SHA1 nicht magst..

    Alternativ kannst du auch die Managed-Funktionen verwenden:

    Visual Basic-Quellcode

    1. Set SHA = CreateObject("System.Security.Cryptography.SHA1Managed")
    2. Set UTF8 = CreateObject("System.Text.UTF8Encoding")
    3. HashArray = SHA.ComputeHash_2(UTF8.GetBytes_4(Text))


    P.S.:

    sajodino schrieb:

    Ich finde aber keinen wirklichen Ansatz zur Hashüberprüfung via VBS. Eher Lösungen mit VBA
    Wenn du eine VBA-Lösung hast, dann hast du in den meisten Fällen auch die VBS-Lösung.
    Natürlich mit Ausnahme der anwendungsspezifischen Methoden. Aber da gehört Kryptographie nicht dazu.


    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „petaod“ ()

    Hi und Danke!
    Habe es mal mit VB.net probiert und nen Codesnippet aussem Netz. Wenn ich die zu vergleichenden Dateien in einen Haswert umwandle haben beide unterschiedliche Haswerte.
    Liegt es vielleicht daran, dass beide in unterschiedlichen Ordnern liegen? Wie gesagt, es sind beide die gleichen Dateien

    Ich probier mal den VBS-Ansatz

    Viele Grüße

    Hashwerte sind reproduzierbar.
    Wenn du bei zwei vermeintlich gleichen Dateien unterschiedliche Hashes bekommst, sind die Dateien nicht gleich.
    Oder du verwendest nicht denselben Hash-Algorithmus.

    Was jagst du durch die Hash-Funktion? Nur die Dateiinhalte oder auch noch andere Informationen?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Wenn ich das richtig sehe , ist das hier weder md5 noch sha1? Kenne mich in der Materie wenig aus. Ich habe mich auf md5 festgestellt, weil ich das noch zuordnen kann. Welche die beste Methode weiss ich nicht. Mir geht es halt drum, dass falls sich eine der Dateien im Kopier/Downloadmodus befindet aber trotzdem schon im Ordner angezeigt wird, diese erst nach dem Kopier/Downloadvorgang verschoben werden soll.

    Das ist nen Snippet von mir erweitert von dieser Seite :

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Security
    3. Imports System.Security.Cryptography
    4. Imports System.Text
    6. Module Module1
    8. Sub Main()
    9. Dim sSourceData As String
    10. Dim Zieldata As String
    11. Dim tmpSource() As Byte
    12. Dim tmpSource1() As Byte
    13. Dim tmpHash() As Byte
    14. Dim tmpHash1() As Byte
    15. sSourceData = "C:\Zielordner\1\1111 - Kopie - Kopie (11).xls"
    16. Zieldata = "J:\DAS\exceltemp\1\1111 - Kopie - Kopie (11).xls"
    18. 'Create a byte array from source data.
    19. tmpSource = ASCIIEncoding.ASCII.GetBytes(sSourceData)
    20. tmpSource1 = ASCIIEncoding.ASCII.GetBytes(Zieldata)
    21. Console.WriteLine((tmpSource))
    22. Console.WriteLine((tmpSource1))
    23. 'Compute hash based on source data.
    24. tmpHash = New MD5CryptoServiceProvider().ComputeHash(tmpSource)
    25. Console.WriteLine(ByteArrayToString(tmpHash))
    27. tmpHash1 = New MD5CryptoServiceProvider().ComputeHash(tmpSource1)
    28. Console.WriteLine(ByteArrayToString(tmpHash1))
    30. sSourceData = "C:\Zielordner\1\1111 - Kopie - Kopie (11).xls"
    31. tmpSource = ASCIIEncoding.ASCII.GetBytes(sSourceData)
    32. Console.WriteLine(ByteArrayToString(tmpHash))
    34. Zieldata = "J:\DAS\exceltemp\1\1111 - Kopie - Kopie (11).xls"
    35. tmpSource1 = ASCIIEncoding.ASCII.GetBytes(Zieldata)
    36. Console.WriteLine(ByteArrayToString(tmpHash1))
    38. Dim tmpNewHash() As Byte
    39. Dim tmpNewHash1() As Byte
    40. Dim bEqual As Boolean = False
    41. tmpNewHash = New MD5CryptoServiceProvider().ComputeHash(tmpSource)
    42. tmpNewHash1 = New MD5CryptoServiceProvider().ComputeHash(tmpSource1)
    44. If tmpNewHash.Length = tmpNewHash1.Length Then
    45. Dim i As Integer
    46. Do While (i < tmpNewHash.Length) AndAlso (tmpNewHash(i) = tmpNewHash1(i))
    47. i += 1
    48. Loop
    49. If i = tmpNewHash.Length Then
    50. bEqual = True
    51. End If
    52. End If
    54. If bEqual Then
    55. Console.WriteLine("The two hash values are the same")
    56. Else
    57. Console.WriteLine("The two hash values are not the same")
    58. End If
    59. Console.ReadLine()
    60. End Sub
    62. Private Function ByteArrayToString(ByVal arrInput() As Byte) As String
    63. Dim i As Integer
    64. Dim sOutput As New StringBuilder(arrInput.Length)
    65. For i = 0 To arrInput.Length - 1
    66. sOutput.Append(arrInput(i).ToString("X2"))
    67. Next
    68. Return sOutput.ToString()
    69. End Function
    70. End Module

    danke, total übersehen.

    Habe mal bisschen rumgefuscht. Wenn ich einen Buchstabe bei

    [vbnetsSourceData = "C:\Zielordner\1\1111 - Kopie - Kopie (11).xls"][/vbnet]

    veränder, ändert sich der Hashwert. Kriege auch keinen Fehler, kann dort etwas beliebiges rein schreiben und der gibt mir den String dann als hashwert aus. Geht wohl nicht auf die Datei ein.

    Du berechnest auch nicht den Hash der Dateien sondern der Strings der Pfade. Du musst schon die dateien selber in ein ByteArray einlesen..

    VB.NET-Quellcode

    1. ​
    2. sSourceData = "C:\Zielordner\1\1111 - Kopie - Kopie (11).xls"
    3. tmpSource = ASCIIEncoding.ASCII.GetBytes(sSourceData)


    Hier musst du eine Datei einlesen.
    Einfachster Weg:

    VB.NET-Quellcode

    1. ​
    2. File.ReadAllBytes(fileName);
    Das ist meine Signatur und sie wird wunderbar sein!

    Mal kurz eine andere Frage bezogen auf das Thema.
    Wenn ich aus einem Ordner alle Dateien durch den Hashprozess jagen will , kann ich das am Besten mit For Next? Ich möchte es erstmal schaffen , dass alle Dateien durchgejagt werden und mir die Hashwerte ausgegeben werden. Komme da irgendwie nicht weiter

    VB.NET-Quellcode

    1. Dim tmpHash() As Byte
    2. Dim tmpSource() As Byte
    3. Dim ordner3 As Object
    4. Dim ordner4 As Object
    5. Dim fso = CreateObject("Scripting.FileSystemObject")
    6. ordner3 = "C:\Zielordner\1\"
    7. ordner4 = "J:\DAS\exceltemp\1\"
    9. For Each ofile In fso.GetFolder(ordner3).Files
    11. Dim tmpSource() As Byte = File.ReadAllBytes(ofile)
    13. 'Compute hash based on source data.
    14. tmpHash = New MD5CryptoServiceProvider().ComputeHash(tmpSource)
    15. Console.WriteLine(ByteArrayToString(tmpHash))
    16. Next

Facebook
Telefonspende