VBS 오른쪽 키 컴 퓨 팅 파일 MD5 구현 코드 추가

최근 에 관련 백업 이 비교적 빈번 합 니 다.파일 의 완전 성 을 검증 하기 위해 항상 어떤 파일 의 HASH 검사 도 구 를 열 어야 하기 때문에 귀 찮 습 니 다.그래서 이 동 을 썼 습 니 다.파일 이 클 때 계산 이 느 리 고 파일 의 MD5 값 은 클립보드 에 저 장 됩 니 다!효 과 는 그림 과 같다
사용 방법:
1.오른쪽 키 메뉴 를 추가 하기 위해 GetMD5.reg 파일 을 레 지 스 트 에 가 져 옵 니 다.GetMD5.reg 코드 는 다음 과 같 습 니 다.

Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\*\shell\HASH(&G)\command]
@="WScript.exe //nologo c:\\windows\\system32\\GetMD5.vbs \"%1\""

2.GetMD5.vbs 를 c:\windows\system 32\로 복사 하면 모든 작업 이 완 료 됩 니 다.GetMD5.vbs 코드 는 다음 과 같 습 니 다.

Public MD5Value
MD5Sum(WScript.Arguments(0))
SetClipboardText("MD5: " & MD5Value & ", FilePath: " & WScript.Arguments(0))
Function MD5Sum(filename)
 Dim MyStream, MyHashed, MD5Value
    Set MyStream = CreateObject("ADODB.Stream")
    MyStream.Type = 1
    MyStream.Open()
    MyStream.LoadFromFile(filename)
    Set MyHashed = CreateObject("CAPICOM.HashedData")
    MyHashed.Algorithm = 3
    MyHashed.Hash(MyStream.Read())
    MyStream.Close
    MD5Value = MyHashed.Value
End Function
Sub SetClipboardText(Text)
 Dim Word
 Set Word = CreateObject("Word.Application")
 Word.Documents.Add
 Word.Selection.Text = Text
 Word.Selection.Copy
 Word.Quit False
End Sub

스 크 립 트 가 실행 중 오류 가 발생 하면 다운로드 하고 등록 하 십시오CAPICOM 구성 요소