वीबीए का उपयोग कर फाइल के लिए एमडी 5 हेक्स हैश कैसे प्राप्त करें?

Question

वीबीए का उपयोग कर फ़ाइल के लिए एमडी 5 हेक्स हैश कैसे प्राप्त कर सकता हूं?

मुझे एक ऐसे संस्करण की आवश्यकता है जो फ़ाइल के लिए काम करे।

कुछ इस अजगर कोड के रूप में सरल:

import hashlib 

def md5_for_file(fileLocation, block_size=2**20): 
    f = open(fileLocation) 
    md5 = hashlib.md5() 
    while True: 
     data = f.read(block_size) 
     if not data: 
      break 
     md5.update(data) 
    f.close() 
    return md5.hexdigest() 

लेकिन VBA में।

Answer 1

http://www.di-mgt.com.au/crypto.html#MD5

Answer 2

यह करना चाहिए:

 Dim fileBytes() As Byte = File.ReadAllBytes(path:=fullPath) 
     Dim Md5 As New MD5CryptoServiceProvider() 
     Dim byteHash() As Byte = Md5.ComputeHash(fileBytes) 
     Return Convert.ToBase64String(byteHash) 

Answer 3

एक पुराना सवाल है कि एक बेहतर जवाब इस्तेमाल कर सकते हैं। ये फ़ंक्शन विशेष रूप से हैशिंग फ़ाइलों के लिए हैं, हैशिंग पासवर्ड के लिए नहीं। बोनस के रूप में, मैं SHA1 के लिए एक फ़ंक्शन समेत हूं। यदि आप प्रकार की घोषणाओं से छुटकारा पा लेते हैं तो ये कार्य VBScript में भी काम करते हैं, सिवाय इसके कि GetSileBytes फ़ंक्शन को FileSystemObject (या संभवतः एडीओ स्ट्रीम) का उपयोग करने के लिए बदला जाना आवश्यक है क्योंकि नि: शुल्क फ़ाइल VBScript में मौजूद नहीं है।

Private Sub TestMD5() 
    Debug.Print FileToMD5Hex("C:\test.txt") 
    Debug.Print FileToSHA1Hex("C:\test.txt") 
End Sub 

Public Function FileToMD5Hex(sFileName As String) As String 
    Dim enc 
    Dim bytes 
    Dim outstr As String 
    Dim pos As Integer 
    Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider") 
    'Convert the string to a byte array and hash it 
    bytes = GetFileBytes(sFileName) 
    bytes = enc.ComputeHash_2((bytes)) 
    'Convert the byte array to a hex string 
    For pos = 1 To LenB(bytes) 
     outstr = outstr & LCase(Right("0" & Hex(AscB(MidB(bytes, pos, 1))), 2)) 
    Next 
    FileToMD5Hex = outstr 
    Set enc = Nothing 
End Function 

Public Function FileToSHA1Hex(sFileName As String) As String 
    Dim enc 
    Dim bytes 
    Dim outstr As String 
    Dim pos As Integer 
    Set enc = CreateObject("System.Security.Cryptography.SHA1CryptoServiceProvider") 
    'Convert the string to a byte array and hash it 
    bytes = GetFileBytes(sFileName) 
    bytes = enc.ComputeHash_2((bytes)) 
    'Convert the byte array to a hex string 
    For pos = 1 To LenB(bytes) 
     outstr = outstr & LCase(Right("0" & Hex(AscB(MidB(bytes, pos, 1))), 2)) 
    Next 
    FileToSHA1Hex = outstr 'Returns a 40 byte/character hex string 
    Set enc = Nothing 
End Function 

Private Function GetFileBytes(ByVal path As String) As Byte() 
    Dim lngFileNum As Long 
    Dim bytRtnVal() As Byte 
    lngFileNum = FreeFile 
    If LenB(Dir(path)) Then ''// Does file exist? 
     Open path For Binary Access Read As lngFileNum 
     ReDim bytRtnVal(LOF(lngFileNum) - 1&) As Byte 
     Get lngFileNum, , bytRtnVal 
     Close lngFileNum 
    Else 
     Err.Raise 53 
    End If 
    GetFileBytes = bytRtnVal 
    Erase bytRtnVal 
End Function