Функция Хэш__SHA_256( Файл )
     ScrCtrl = СоздатьОбъект( "MSScriptControl.ScriptControl" );
     ScrCtrl.Language = "vbscript";
     ScrCtrl.AddCode("
     |Function Hash()
     |Dim crypt: Set crypt = CreateObject(""CAPICOM.HashedData"")
     |crypt.Algorithm = CAPICOM_HASH_ALGORITHM_SHA_256
     |Dim stream: Set stream = CreateObject(""ADODB.Stream"")
     |stream.Type = 1 ' adTypeBinary
     |stream.Open
     |stream.LoadFromFile("""+файл+""")
     |Do Until stream.EOS : crypt.Hash stream.Read() : Loop
     |Hash = crypt.Value
     |End Function
     |");
     Рез = ScrCtrl.Run( "Hash" );
     Возврат Рез;
 КонецФункции