From b8ef05a6134fabbcde27419cac6b1923e901c405 Mon Sep 17 00:00:00 2001
From: paravis <vova184@mail.ru>
Date: Tue, 14 Jun 2022 16:26:38 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A1=D0=BE=D0=B7=D0=B4=D0=B0=D0=BB(=D0=B0)=20?=
 =?UTF-8?q?'Kaspersky=5FUpdater.au3'?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Kaspersky_Updater.au3 | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 Kaspersky_Updater.au3

diff --git a/Kaspersky_Updater.au3 b/Kaspersky_Updater.au3
new file mode 100644
index 0000000..a64d832
--- /dev/null
+++ b/Kaspersky_Updater.au3
@@ -0,0 +1,21 @@
+#Include <WindowsConstants.au3>
+#include <WinAPIFiles.au3>
+#include <file.au3>
+#NoTrayIcon
+
+Global $szDrive, $szDir, $szFName, $szExt
+$Disk = _PathSplit(@ScriptFullPath, $szDrive, $szDir, $szFName, $szExt)
+$Path = ($Disk[1] & "\efi\Paravis\KRD\data")
+
+GUICreate('KRD updater', 200, 46, -1, -1, $WS_CAPTION + $WS_SYSMENU, -1)
+GUICtrlCreateLabel("I update the database. Please, wait.", 15, 15, 300, 94)
+GUISetState(@SW_SHOW)
+InetGet("https://click.kaspersky.com/?hl=en&version=18.0&pid=krd&link=krdbases", $Path & "\005-bases.srm", 1, 0)
+GUIDelete()
+
+GUICreate('KRD updater', 200, 46, -1, -1, $WS_CAPTION + $WS_SYSMENU, -1)
+GUICtrlCreateLabel("I update the checksums. Please, wait.", 10, 15, 300, 94)
+GUISetState(@SW_SHOW)
+InetGet("https://click.kaspersky.com/?hl=en&version=18.0&pid=krd&link=krdhashes", $Path & "\005-bases.srm.sha512", 1, 0)
+Sleep(5000)
+Exit
\ No newline at end of file