Skip to content

Сравнение файлов через SHA1 #18

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 5 commits into
base: develop
Choose a base branch
from
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 2 additions & 1 deletion packagedef
Original file line number Diff line number Diff line change
Expand Up @@ -3,4 +3,5 @@
.Версия("1.0.0")
.ВключитьФайл("Модули")
.ВключитьФайл("LICENSE")
.ВключитьФайл("README.md");
.ВключитьФайл("README.md")
.ЗависитОт("1commands", "1.5.0");
Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

ФС - это "базовая" либа. Её стоит держать без зависимостей чтобы избежать неразрешимых циклов. Например, 1скоммандс больше не сможет использовать ФС, так как ФС будет зависеть от него

Copy link
Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

это придется тащить методы из 1commands по работе с процессами( а там много чего и будут дубли кода. Вот думаю как обойти. на ум приходит только сделать отдельную библиотеку по работе с хеш-суммами.

Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Методы 1коммандс не нужны, в оскрипте есть встроенные средства получения SHA1

1 change: 1 addition & 0 deletions tests/resources/NoValidSum.txt
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
1234567890_
1 change: 1 addition & 0 deletions tests/resources/ValidSum.txt
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
1234567890
1 change: 1 addition & 0 deletions tests/resources/ValidSum2.txt
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
1234567890
45 changes: 45 additions & 0 deletions tests/СравнениеФайлов.os
Original file line number Diff line number Diff line change
@@ -0,0 +1,45 @@
#Использовать asserts
#Использовать tempfiles

#Использовать ".."

Перем мМенеджерВременныхФайлов;

Функция ПолучитьСписокТестов(Знач ЮнитТестирование) Экспорт

МассивТестов = Новый Массив;
МассивТестов.Добавить("Тест_ПроверитьХешСумму");
МассивТестов.Добавить("Тест_ФайлыРавны");
МассивТестов.Добавить("Тест_ФайлыНеРавны");

Возврат МассивТестов;

КонецФункции

Процедура ПередЗапускомТеста() Экспорт
КонецПроцедуры

Процедура ПослеЗапускаТеста() Экспорт
КонецПроцедуры


Процедура Тест_ПроверитьХешСумму() Экспорт

ХешьСуммаSHA1 = "01b307acba4f54f55aafc33bb06bbbf6ca803e9a";

ПутьКФайлу = ОбъединитьПути(ТекущийКаталог(), "tests", "resources", "ValidSum.txt");
Ожидаем.Что(ФС.ПолучитьСуммуФайлаSHA1(ПутьКФайлу)).Равно(ХешьСуммаSHA1);

КонецПроцедуры

Процедура Тест_ФайлыРавны() Экспорт
ПервыйФайл = ОбъединитьПути(ТекущийКаталог(), "tests", "resources", "ValidSum.txt");
ВторойФайл = ОбъединитьПути(ТекущийКаталог(), "tests", "resources", "ValidSum2.txt");
Ожидаем.Что(ФС.СравнитьФайлы(ПервыйФайл, ВторойФайл)).Равно(Истина);
КонецПроцедуры

Процедура Тест_ФайлыНеРавны() Экспорт
ПервыйФайл = ОбъединитьПути(ТекущийКаталог(), "tests", "resources", "ValidSum.txt");
ВторойФайл = ОбъединитьПути(ТекущийКаталог(), "tests", "resources", "NoValidSum.txt");
Ожидаем.Что(ФС.СравнитьФайлы(ПервыйФайл, ВторойФайл)).Равно(Ложь);
КонецПроцедуры
49 changes: 49 additions & 0 deletions Модули/ФС.os
Original file line number Diff line number Diff line change
Expand Up @@ -6,6 +6,7 @@
//
/////////////////////////////////////////////////////////////////////

#Использовать 1commands

// Проверяет существование файла или каталога
//
Expand Down Expand Up @@ -218,3 +219,51 @@
Возврат Шаблон;

КонецФункции


// Вычиcлсяет значение хеш-суммы (контрольной суммы) для указанного файлов по алгоритму SHA-1.
//
// Параметры:
// <ПутьКФайлу> - Строка - Путь к файлу, сумму котрого необходимо вычислить
//
// Возвращаемое значение:
// Строка - Контрольная сумма файла
//
Функция ПолучитьСуммуФайлаSHA1(ПутьКФайлу) Экспорт

Если НЕ ФайлСуществует(ПутьКФайлу) Тогда
Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

съехало форматирование

Copy link
Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

пустая строка мешает? Просто по файлу везде так сделано. Повторял увиденное, что было однообразно)

Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

В односкрипте есть встроенные функции хеширования. https://oscript.io/syntax/page/%D0%A5%D0%B5%D1%88%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D0%B5%D0%94%D0%B0%D0%BD%D0%BD%D1%8B%D1%85

Будет кроссплатформенно и на маке должно работать

ВызватьИсключение "Выбран каталог или файла не существует";
КонецЕсли;

Команда = Новый Команда;
СистемнаяИнформация = Новый СистемнаяИнформация;
ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0;
Если ЭтоWindows Тогда
Команда.УстановитьКоманду("certutil");
Команда.ДобавитьПараметр("-hashfile");
Команда.ДобавитьПараметр(ПутьКФайлу);
Команда.Исполнить();
Ответ = Команда.ПолучитьВывод();
Возврат СокрЛП(СтрПолучитьСтроку(СтрЗаменить(Ответ, " ", ""), 2));
Иначе
Команда.УстановитьКоманду("sha1sum");
Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

А на macOs так же?

Copy link
Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

У меня нету мака. Не могу проверить(

Команда.ДобавитьПараметр(ПутьКФайлу);
Команда.Исполнить();
Возврат СтрРазделить(Команда.ПолучитьВывод(), " ")[0];
КонецЕсли;

КонецФункции

// Сравнивает хеш-суммы 2-х переданных файлов
//
// Параметры:
// <ПервыйФайл> - Строка - Путь к первому файлу.
//
// <ПервыйФайл> - Строка - Путь ко второму файлу.
//
// Возвращаемое значение:
// Булево - Результат сравнения
//
Функция СравнитьФайлы(ПервыйФайл , ВторойФайл) Экспорт
Возврат ПолучитьСуммуФайлаSHA1(ПервыйФайл) = ПолучитьСуммуФайлаSHA1(ВторойФайл);
КонецФункции