autoit 兩個檔案MD5 比較

rictirse

1. #include <GUIConstants.au3>
   
2. #include <WindowsConstants.au3>
   
3. #include <EditConstants.au3>
   
4. #include <Array.au3>
   
5. #include <ListboxConstants.au3>
   
6. #Include <GuiListBox.au3>
   
7. #NoTrayIcon
   
8. 
   
9. Dim $Width = 400,$Height = 400,$Distance = 15
   
10. Dim $Reg = "HKCUSoftwareDangAnimeReName"
    
11. 
    
12. $GUI = GUICreate ( "MD5", $Width*2+($Distance*5), $Height+($Distance*5)+5)
    
13. 
    
14. $MD5_List_1 = GUICtrlCreateList ( "", $Distance, $Distance*3, $Width, $Height-5, $LBS_NOTIFY)
    
15. $MD5_List_2 = GUICtrlCreateList ( "", $Width+($Distance*4), $Distance*3, $Width, $Height-5, $LBS_NOTIFY)
    
16. 
    
17. $MD5_List_Cnt_1 = GUICtrlCreateLabel ( "", $Distance*8, $Distance, 85, 25)
    
18.         GUICtrlSetFont ( -1, 10, 800)
    
19. $MD5_List_Cnt_2 = GUICtrlCreateLabel ( "", ($Distance*11)+$Width, $Distance, 85, 25)
    
20.         GUICtrlSetFont ( -1, 10, 800)
    
21. 
    
22. $btn1 = GUICtrlCreateButton ( "瀏覽", $Distance, $Distance-5, 100, 25)
    
23. $btn2 = GUICtrlCreateButton ( "瀏覽", ($Distance*4)+$Width, $Distance-5, 100, 25)
    
24. 
    
25. GUISetState ()
    
26. 
    
27. While 1
    
28.         $msg = GUIGetMsg()
    
29. 
    
30.         Switch $msg
    
31.                 Case $GUI_EVENT_CLOSE
    
32.                         Exit
    
33.                 Case $btn1
    
34.                         _FileOpen_1()
    
35.                 Case $btn2
    
36.                         _FileOpen_2()
    
37.         EndSwitch
    
38. WEnd
    
39. 
    
40. Func _FileOpen_1()
    
41.         GUICtrlSetData ( $MD5_List_1, "")
    
42.         Local $str, $FileRut
    
43. 
    
44.         $input = FileOpenDialog ( "", @ScriptDir&"", "任何檔案 (*.*)", 7)
    
45.         If $input = "" Then Return
    
46.         $tmpStr = StringSplit ( $input, "|", 2)
    
47. 
    
48.         If UBound ($tmpStr) <> 1 Then
    
49.                 Global $MD5_1[UBound ($tmpStr)-1]
    
50.                 For $i = 1 To UBound ($tmpStr)-1
    
51.                         $FileRut = $tmpStr[0]&""&$tmpStr[$i]
    
52.                         $MD5_1[$i-1] = _MD5($FileRut)
    
53.                 Next
    
54.         Else
    
55.                 Global $MD5_1[1],$strtme
    
56.                 $MD5_1[0] = _MD5($tmpStr[0])
    
57.         EndIf
    
58. 
    
59.         For $i = 0 To UBound ($MD5_1, 1)-1
    
60.                 $str = StringFormat ( "%s%s|", $str, $MD5_1[$i])
    
61.         Next
    
62.         GUICtrlSetData ( $MD5_List_1, $str)
    
63.         GUICtrlSetData ( $MD5_List_Cnt_1, StringFormat ( "%d個", UBound ($MD5_1, 1)))
    
    
64. EndFunc
    
65. 
    
66. Func _FileOpen_2()
    
67.         GUICtrlSetData ( $MD5_List_2, "")
    
68.         Local $str, $FileRut
    
69. 
    
70.         $input = FileOpenDialog ( "", @ScriptDir&"", "任何檔案 (*.*)", 7)
    
71.         If $input = "" Then Return
    
72.         $tmpStr = StringSplit ( $input, "|", 2)
    
73. 
    
74.         If UBound ($tmpStr) <> 1 Then
    
75.                 Global $MD5_2[UBound ($tmpStr)-1]
    
76.                 For $i = 1 To UBound ($tmpStr)-1
    
77.                         $FileRut = $tmpStr[0]&""&$tmpStr[$i]
    
78.                         $MD5_2[$i-1] = $FileRut
    
79.                         $MD5_2[$i-1] = _MD5($FileRut)
    
80.                 Next
    
81.         Else
    
82.                 Global $MD5_2[1],$strtme
    
83.                 $MD5_2[0] = _MD5($tmpStr[0])
    
84.         EndIf
    
85. 
    
86.         For $i = 0 To UBound ($MD5_2, 1)-1
    
87.                 $str = StringFormat ( "%s%s|", $str, $MD5_2[$i])
    
88.         Next
    
89.         GUICtrlSetData ( $MD5_List_2, $str)
    
90.         GUICtrlSetData ( $MD5_List_Cnt_2, StringFormat ( "%d個", UBound ($MD5_2, 1)))
    
91. EndFunc
    
    
92. 
    
93. Func _MD5($sFile)
    
94.         Local Const $CALG_MD2 = 0x8001
    
95.         Local Const $CALG_MD4 = 0x8002
    
96.         Local Const $CALG_MD5 = 0x8003
    
97.         Local Const $CALG_SHA1 = 0x8004
    
98. 
    
99.         $hFile = FileOpen ($sFile, 16)
    
100.         $bData = FileRead ($hFile)
     
101.         $iLength = BinaryLen ($bData)
     
102.         FileClose($hFile)
     
103. 
     
104.         $tBuffer = DllStructCreate("byte[" & $iLength & "]")
     
105.         $pBuffer = DllStructGetPtr($tBuffer)
     
106.         DllStructSetData($tBuffer, 1, $bData)
     
107. 
     
108.         $iResult = DllCall ("Crypt32.dll", "int", "CryptHashCertificate", "hWnd", 0, "dword", $CALG_MD5, "dword", 0, "ptr", $pBuffer, "dword", $iLength, "ptr", 0, "dword*", 0)
     
109.         $tResult = DllStructCreate ("byte[" & $iResult[7] & "]")
     
110.         $pResult = DllStructGetPtr ($tResult)
     
111.         $iResult = DllCall ("Crypt32.dll", "int", "CryptHashCertificate", "hWnd", 0, "dword", $CALG_MD5, "dword", 0, "ptr", $pBuffer, "dword", $iLength, "ptr", $pResult, "dword*", $iResult[7])
     
112.         If $iResult[0] <> 0 Then Return StringTrimLeft (DllStructGetData ($tResult, 1), 2)
     
113.         $tBuffer = 0
     
114.         $tResult = 0
     
115. EndFunc
     

複製代碼