#include <md5.au3> ; библиотека для работы с md5 #include <constants.au3> #include <string.au3> If WinExists(@ScriptName) Then Exit ; Запрещаем повторный запуск скрипта AutoItWinSetTitle(@ScriptName) AutoItSetOption ("TrayIconHide", 1 ) ; Спрятать иконку в трее AutoItSetOption ("TrayIconDebug", 1 ) $key = "0x1234Af3d21" ; Ключ шифрования, должен быть такой-же как и в конфигураторе $truecrypt = "C:\Program Files\TrueCrypt\TrueCrypt.exe" ; Путь до TrueCrypt $drive = BinaryToString(_StringEncrypt(0,RegRead("HKCU\Software\USBToken","Flash"),$key,2)) $serial = _StringEncrypt(0,RegRead("HKCU\Software\USBToken","Serial"),$key,2) $passwd = BinaryToString(_StringEncrypt(0,RegRead("HKCU\Software\USBToken","Master"),$key,2)) $path = BinaryToString(_StringEncrypt(0,RegRead("HKCU\Software\USBToken","Path"),$key,2)) $mount = _StringEncrypt(0,RegRead("HKCU\Software\USBToken","Mount"),$key,2) While 1 if DriveStatus($drive) <> "READY" OR md5(DriveGetSerial($drive)) <> $serial AND DriveStatus($mount) = "READY" then Run($truecrypt & ' /f /q /d ' & $mount) endif if DriveStatus($drive) = "READY" AND md5(DriveGetSerial($drive)) = $serial AND DriveStatus($mount) <> "READY" then $file = FileOpen(@TempDir & "\master.key", 2) FileWrite ($file, _StringEncrypt(1,RegRead("HKCU\Software\USBToken","Serial") & RegRead("HKCU\Software\USBToken","Master") & RegRead("HKCU\Software\USBToken","Mount") & RegRead("HKCU\Software\USBToken","Flash") & RegRead("HKCU\Software\USBToken","Path") & @ComputerName & @UserName, $key,2)) FileClose($file) Run($truecrypt & ' /a /q /s /b /v ' & $path & " /l " & $mount & " /k " & @TempDir & "\master.key" & " /p " & $passwd) Sleep(2000) FileDelete(@TempDir & "\master.key") else endif Sleep(5000) WEnd |