JS: Сравнение бинарных файлов

with (new ActiveXObject('ADODB.Stream')) {
  Type = 1;
  Open();
  LoadFromFile(FileName);
  var File = Read();
  Close();
}

Option Explicit

' Enum FsiFileSystems
'Const FsiFileSystemNone    = 0
Const FsiFileSystemISO9660 = 1
Const FsiFileSystemJoliet  = 2
'Const FsiFileSystemUDF     = 4
'Const FsiFileSystemUnknown = 1073741824

'Enum IMAPI_MEDIA_PHYSICAL_TYPE
'Const IMAPI_MEDIA_TYPE_UNKNOWN             =  0
'Const IMAPI_MEDIA_TYPE_CDROM               =  1
'Const IMAPI_MEDIA_TYPE_CDR                 =  2
'Const IMAPI_MEDIA_TYPE_CDRW                =  3
'Const IMAPI_MEDIA_TYPE_DVDROM              =  4
'Const IMAPI_MEDIA_TYPE_DVDRAM              =  5
'Const IMAPI_MEDIA_TYPE_DVDPLUSR            =  6
'Const IMAPI_MEDIA_TYPE_DVDPLUSRW           =  7
'Const IMAPI_MEDIA_TYPE_DVDPLUSR_DUALLAYER  =  8
'Const IMAPI_MEDIA_TYPE_DVDDASHR            =  9
'Const IMAPI_MEDIA_TYPE_DVDDASHRW           = 10
'Const IMAPI_MEDIA_TYPE_DVDDASHR_DUALLAYER  = 11
Const IMAPI_MEDIA_TYPE_DISK                = 12
'Const IMAPI_MEDIA_TYPE_DVDPLUSRW_DUALLAYER = 13
'Const IMAPI_MEDIA_TYPE_HDDVDROM            = 14
'Const IMAPI_MEDIA_TYPE_HDDVDR              = 15
'Const IMAPI_MEDIA_TYPE_HDDVDRAM            = 16
'Const IMAPI_MEDIA_TYPE_BDROM               = 17
'Const IMAPI_MEDIA_TYPE_BDR                 = 18
'Const IMAPI_MEDIA_TYPE_BDRE                = 19
'Const IMAPI_MEDIA_TYPE_MAX                 = 19


Dim objFileSystemImage
Dim objSFStream
Dim strSourceFolder
Dim strISOVolumeName
Dim strISOImageName
Dim objFileSystemImageResult
Dim lngImageSize
Dim lngWrittenBytes

strSourceFolder  = "C:\10"
strISOVolumeName = "My ISO"
strISOImageName  = "c:\11\MyImage.iso"

' Create a new file system image and retrieve root directory       
With WScript.CreateObject("IMAPI2FS.MsftFileSystemImage")
    .ChooseImageDefaultsForMediaType IMAPI_MEDIA_TYPE_DISK
    .FileSystemsToCreate = FsiFileSystemISO9660 + FsiFileSystemJoliet
    .VolumeName = strISOVolumeName
    .Root.AddTree strSourceFolder, False
    
    ' Create the Image and pass the IMAPI.IStream to an object that supports IStream
    Set objSFStream = WScript.CreateObject("newObjects.utilctls.SFStream")
    objSFStream.SetStream .CreateResultImage().ImageStream
End With

' Create the output file and write the stream
With WScript.CreateObject("newObjects.utilctls.SFMain").CreateFile(strISOImageName)
    lngImageSize    = objSFStream.Size
    lngWrittenBytes = .WriteBin(objSFStream.ReadBin(lngImageSize))
    
    .Close
End With

WScript.Echo "ISO Image Size:", lngImageSize
WScript.Echo "Written Bytes: ", lngWrittenBytes

If a = 1 Then b = 2 Else b = 3

If a = 1 Then
    b = 2
Else
    b = 3
End If

Option Explicit
Dim Title
Title = "Сравнение MP3 файлов v.0.3a"

Const Capicom_Hash_Algorithm_SHA1    = 0
Const Capicom_Hash_Algorithm_MD2     = 1
Const Capicom_Hash_Algorithm_MD4     = 2
Const Capicom_Hash_Algorithm_MD5     = 3
Const Capicom_Hash_Algorithm_SHA_256 = 4
Const Capicom_Hash_Algorithm_SHA_384 = 5
Const Capicom_Hash_Algorithm_SHA_512 = 6

Dim objArgs, objWSHShell
Set objArgs = WScript.Arguments
Set objWSHShell = WScript.CreateObject("WScript.Shell")

If objArgs.Count=0 Then
  objWSHShell.Popup "Сравнение MP3 файлов." +vbCrLf+ "При сравнении учитывается только сам MPEG поток." +vbCrLf+ "Тэги ID3v1 и ID3v2 игнорируются." +vbCrLf+vbCrLf+ "Использование:" +vbCrLf+ WScript.ScriptName & " Каталог | Файл1 Файл2", 0, Title, 64
  WScript.Quit(1)
End If

Dim objFSO
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objArgs.Count=1 Then
  Dim FolderName
  FolderName = objFSO.GetAbsolutePathName(objArgs(0))
  If Not objFSO.FolderExists(FolderName) Then
    objWSHShell.Popup "Каталог """ + FolderName + """ не найден.", 0, Title, 48
    WScript.Quit(1)
  End If

  Dim objInitialFolder, LogFile
  Set objInitialFolder = objFSO.GetFolder(FolderName)
  LogFile = objFSO.BuildPath(FolderName, objFSO.GetBaseName(FolderName)) + ".md5"

  Call GetListFiles(objInitialFolder)
  Call BrowseFolders(objInitialFolder)

  Set objInitialFolder = Nothing
  objWSHShell.Popup "Создан файл контрольных сумм MD5:" +vbCrLf+ LogFile, 0, Title
  WScript.Quit(0)
End If

Dim FileName(1), i
For i=0 To 1
  FileName(i) = objFSO.GetAbsolutePathName(objArgs(i))
  If Not objFSO.FileExists(FileName(i)) Then
    objWSHShell.Popup "Файл """ + FileName(i) + """ не найден.", 0, Title, 48
    WScript.Quit(1)
  End If
Next

Set objArgs = Nothing
Set objFSO = Nothing

'If GetHash(ReadMPEG(FileName(0))) = GetHash(ReadMPEG(FileName(1))) Then
If ReadMPEG(FileName(0)) = ReadMPEG(FileName(1)) Then
  objWSHShell.Popup "Эти файлы одинаковы:" +vbCrLf+ FileName(0) +vbCrLf+ FileName(1), 0, Title, 64
Else
  objWSHShell.Popup "Эти файлы РАЗЛИЧАЮТСЯ:" +vbCrLf+ FileName(0) +vbCrLf+ FileName(1), 0, Title, 48
End If

Set objWSHShell = Nothing
WScript.Quit(0)
'------------------------------------------------------------------------------

Sub BrowseFolders(Folder)
  Dim objFolder
  For Each objFolder In Folder.SubFolders
    Call GetListFiles(objFolder)
    Call BrowseFolders(objFolder)
  Next
  Set objFolder = Nothing
End Sub

Sub GetListFiles(Folder)
  Dim objFile, FileName
  For Each objFile in Folder.Files
    FileName = objFile.Path
    If LCase(objFSO.GetExtensionName(FileName)) = "mp3" Then
      With objFSO.OpenTextFile(LogFile, 8, true)
    .WriteLine(GetHash(ReadMPEG(FileName)) + " *" + FileName)
    .Close
      End With
    End If
  Next
  Set objFile = Nothing
End Sub

Function ReadMPEG(FileName)
  Dim size, f
  With WScript.CreateObject("ADODB.Stream")
    .Type = 1
    .Open
    .LoadFromFile(FileName)
    size = .Size
    f = .Read
    .Close
  End With

  Dim ID3, TAG
  If size>10 And AscB(MidB(f,1,1))=73 And AscB(MidB(f,2,1))=68 And AscB(MidB(f,3,1))=51 Then
    ID3 = AscB(MidB(f,7,1))*2^21 + AscB(MidB(f,8,1))*2^14 + AscB(MidB(f,9,1))*2^7 + AscB(MidB(f,10,1)) + 10
  Else
    ID3 = 0
  End If
  If size>355 And AscB(MidB(f,size-354,1))=84 And AscB(MidB(f,size-353,1))=65 And AscB(MidB(f,size-352,1))=71 And AscB(MidB(f,size-351,1))=43 Then
      TAG = 355
  ElseIf size>128 And AscB(MidB(f,size-127,1))=84 And AscB(MidB(f,size-126,1))=65 And AscB(MidB(f,size-125,1))=71 Then
      TAG = 128
  Else
      TAG = 0
  End If
  ReadMPEG = MidB(f,ID3+1,size-ID3-TAG)
End Function

Function GetHash(arrBytes)
  With WScript.CreateObject("CAPICOM.HashedData")
    .Algorithm = Capicom_Hash_Algorithm_MD5
    .Hash arrBytes
    GetHash = .Value
  End With
End Function

WScript.Echo WScript.FullName

cscript.exe //H:CScript

wscript.exe //H:CScript

// Если это не CSCRIPT.EXE - завершить
if ( ! WScript.FullName.match(/cscript/i) ) {
    WScript.Quit();
}

Function ReadMPEG(FileName)
  Dim size, f
  With WScript.CreateObject("ADODB.Stream")
    .Type = 1
    .Open
    On Error Resume Next
      .LoadFromFile(FileName)
    If Err.Number = 0 Then
      On Error Goto 0
    Else
      Err.Clear
      On Error Goto 0
      Wscript.Echo("Не удается открыть файл " + FileName + ".")
      Exit Function
    End If
    size = .Size
    f = .Read
    .Close
  End With
...

With WScript.CreateObject("ADODB.Stream")
  .Type = 2
  .Charset = "UTF-8"
...
  .Close
End With