CMD/BAT - [решено] Можно ли с помощю (.bat) кода узнать MD5 файла?

Iska · Отправлено: **19:32, 09-07-2015** | #2

Вроде как кто-то делал, но сие очень накладно. Используйте стороннюю утилиту, WSH или PowerShell.

gora · Конфигурация компьютера

C помощью сторонней утилиты

Код:

@Echo Off
Set file=c:\Windows\Regedit.exe
For /F %%i In ('md5sum.exe "%file%"') Do Set md5=%%i
Echo %md5%
Pause

Утилита должна лежать рядом со скриптом

Georgio · Отправлено: **20:21, 09-07-2015** | #4

Код:

@CertUtil -hashfile "%windir%\regedit.exe" MD5| findstr/v :& pause>nul

greg zakharov · Отправлено: **23:07, 09-07-2015** | #5

Цитата turbolover:

Можно ли с помощю (.bat) кода узнать MD5 файла?

Без стронних утилит (сохранить как батник):

Код:

<!-- ::
  @mshta "%~f0"&exit /b
-->

<html>
  <head>
    <title>Hasher</title>
    <meta name="author" content="greg zakharov" />
    <hta:application id="iHasher"
         applicationname="Hasher"
         border="thin"
         contextmenu="no"
         maximizebutton="no"
         minimizebutton="no"
         scroll="no"
         singleinstance="yes"
         sysmenu="yes"
         version="1.0" />
    <style type="text/css">
      html, body {
        background: #eee;
        font-size: 90%;
        margin: 3px 3px;
        padding: 0;
      }
      p {
        font-weight: bold;
        margin: 1px 1px;
        padding: 0;
      }
      #filename {
        width: 100%;
      }
    </style>
    <script language="VBScript">
      Sub Resize()
        window.resizeTo 430, 130
      End Sub
      
      Sub GetHash()
        Dim objFile, objSize, objBuff, objType, objHash, objDone
        Dim objNS
        
        document.getElementById("result").value = ""
        
        objFile = document.getElementById("filename").value
        If objFile = "" Then
          alert("Nothing choosed.")
          Exit Sub
        End If
        
        With CreateObject("Scripting.FileSystemObject")
          objSize = .GetFile(objFile).Size
        End With
        
        If objSize = 0 Then
          alert("Specified file has null length.")
          Exit Sub
        End If
        
        With CreateObject("SAPI.SpFileStream")
          .Open objFile, 0
          .Read objBuff, objSize
          .Close
        End With
        
        For Each h In hash
          If h.checked Then
            objType = LCase(h.value)
            Exit For
          End If
        Next
        
        objNS = "System.Security.Cryptography."
        Select Case objType
          Case "md5"       Set objHash = CreateObject(objNS & "MD5CryptoServiceProvider")
          Case "sha1"      Set objHash = CreateObject(objNS & "SHA1Managed")
          Case "sha256"    Set objHash = CreateObject(objNS & "SHA256Managed")
          Case "sha384"    Set objHash = CreateObject(objNS & "SHA384Managed")
          Case "sha512"    Set objHash = CreateObject(objNS & "SHA512Managed")
          Case "ripemd160" Set objHash = CreateObject(objNS & "RIPEMD160Managed")
        End Select
        
        objType = objHash.ComputeHash_2((objBuff))
        For i = 1 To LenB(objType)
          objDone = objDone & Right("0" & Hex(AscB(MidB(objType, i, 1))), 2)
        Next
        
        document.getElementById("result").value = LCase(objDone)
      End Sub
    </script>
  </head>
  <body onload="Resize()">
    <p><input type="file" id="filename" onchange="GetHash()" /></p>
    <p>
      <input type="radio" name="hash" value="MD5"       onclick="GetHash()" />MD5
      <input type="radio" name="hash" value="SHA1"      onclick="GetHash()" />SHA1
      <input type="radio" name="hash" value="SHA256"    checked="true" onclick="GetHash()" />SHA256
      <input type="radio" name="hash" value="SHA384"    onclick="GetHash()" />SHA384
      <input type="radio" name="hash" value="SHA512"    onclick="GetHash()" />SHA512
      <input type="radio" name="hash" value="RIPEMD160" onclick="GetHash()" />RIPEMD160
    </p>
    <textarea cols="49" id="result"></textarea>
  </body>
</html>

Nordek · Конфигурация компьютера

Цитата Georgio:

@CertUtil »

Не для Windows XP.

В XP придётся применять:
Windows Server 2003 Administration Tools Pack или Windows Server 2003 Service Pack 1 Administration Tools Pack

sov44 · Конфигурация компьютера

Как узнать контрольную сумму MD5-Digest, SHA1-Digest файла с помощью командной строки?

mwz · Отправлено: **17:11, 28-01-2016** | #8

sov44, сообщение с простынёй, за одно до вашего, не помогло? ("Без стронних утилит (сохранить как батник)")

gora · Конфигурация компьютера

Цитата mwz:

сообщение с простынёй, за одно до вашего, не помогло? »

Я пробовал его использовать. Вынул vbs скрипт, его и использовал. При расчете кеша больших файлов (порядка гигабайта и более) система очень сильно грузилась и компьютер фактически повисал. Процесс подсчета сильно затягивался. Пришлось отказаться в пользу сторонних утилит (7z.exe).

mwz · Отправлено: **17:47, 28-01-2016** | #10

gora, я-то пользую Total Commander — но вопрос был о командной строке, поэтому не упоминал.
А тут спрашивал про использование не про vbs, как у вас, а про cmd (bat).