tonycstech
Новичок
- Сообщения
- 94
- Репутация
- 3
код прост. Смотрим в папку и ищем каждый файл и шифруем.
Если в папке находится другая папка, то функция запускается с начала с параметром уже новой папки, так чтобы и там все файлы зашифрвать.
Вопрос, почему файл в под-паки шифруется и стерается после шифровки игнорируя проверку ? If StringInStr ($File,".crypt") = 0 Then
Если файл зашифрован или нет, и стерать только если нет. Но тем не менее, стерает зашифрованый файл НО только в под-папке. Другие файлы на месте.
Если в папке находится другая папка, то функция запускается с начала с параметром уже новой папки, так чтобы и там все файлы зашифрвать.
Вопрос, почему файл в под-паки шифруется и стерается после шифровки игнорируя проверку ? If StringInStr ($File,".crypt") = 0 Then
Если файл зашифрован или нет, и стерать только если нет. Но тем не менее, стерает зашифрованый файл НО только в под-папке. Другие файлы на месте.
Код:
#include <Crypt.au3>
$Pass = "password"
$Alg = $CALG_AES_128
$Root = @DesktopDir & "\Encryption Test"
_FindTarget($Root)
Func _FindTarget($Target)
$Search = FileFindFirstFile ($Target & "\*.*")
While 1
$File = FileFindNextFile ($Search)
If $File = "" Then ExitLoop ;КОНЕЦ ПОИСКА ДОСТИГНУТ. Выходим из цепи.
If @extended = 1 Then _FindTarget($Target & "\" & $File) ;ПЕРЕЗАПУСК ФУНКЦИИ УЖЕ В ПОД-ПАПКЕ КАК ПАРАМЕТР
If StringInStr ($File,".crypt") = 0 Then ;ФАЙЛ НЕ ЗАШИФРОВАН
_Crypt_EncryptFile ($Target & "\" & $File,$Target & "\" & $File & ".crypt",$Pass,$Alg) ;ШИФРОВАТЬ
FileDelete ($Target & "\" & $File) :УДАЛИТЬ ОРИГИНАЛ
EndIf
WEnd
EndFunc ;==>_Encrypt