Advertisement
cigcag

ktr2021v21.1

Nov 14th, 2020
3,599
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 3.28 KB | None | 0 0
  1. #TrayIcon
  2. #RequireAdmin
  3.  
  4. $avp = "AVP21.1"
  5.  
  6. If @OSArch = "x64" Then
  7.     $hklm = "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node"
  8. Else
  9.     $hklm = "HKEY_LOCAL_MACHINE\SOFTWARE"
  10. EndIf
  11. RegRead($hklm & "\KasperskyLab", "")
  12. If @error = 1 Then
  13.     MsgBox(262160, "Kaspersky KAV/KIS/KTS 2021 Trial Reset v21.1", "Can't find the Kaspersky application on this system!")
  14.     Exit
  15. EndIf
  16. RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\" & $avp, "")
  17. If @error = 1 Then
  18.     MsgBox(262160, "Kaspersky KAV/KIS/KTS 2021 Trial Reset v21.1", "Unsupported version of Kaspersky!")
  19.     Exit
  20. EndIf
  21. $productname = RegRead($hklm & "\KasperskyLab\" & $avp & "\Data\WSC", "LocalizedProductName")
  22. If $productname = "Kaspersky Anti-Virus" Then
  23.     $error = 0
  24. ElseIf $productname = "Kaspersky Internet Security" Then
  25.     $error = 0
  26. ElseIf $productname = "Kaspersky Total Security" Then
  27.     $error = 0
  28. Else
  29.     MsgBox(262160, "Kaspersky KAV/KIS/KTS 2021 Trial Reset v21.1", "Unsupported version of Kaspersky!")
  30.     Exit
  31. EndIf
  32. $selfdefense = RegRead($hklm & "\KasperskyLab\" & $avp & "\settings", "EnableSelfProtection")
  33. If $selfdefense = 1 OR ProcessExists("AVP.exe") Then
  34.     MsgBox(262208, "Kaspersky KAV/KIS/KTS 2021 Trial Reset v21.1", "Trial reset procedure:" & @CRLF & "1. Disable Kaspersky Self-Defense." & @CRLF & "2. Close Kaspersky (from the tray)." & @CRLF & "3. Run Kaspersky Trial Reset again." & @CRLF & @CRLF & "Attention! After completing all the necessary steps, the computer will restart automatically!")
  35.     $selfdefense = RegRead($hklm & "\KasperskyLab\" & $avp & "\settings", "EnableSelfProtection")
  36.     If $selfdefense = 1 OR ProcessExists("AVP.exe") Then Exit
  37. EndIf
  38. RegDelete($hklm & "\KasperskyLab\LicStrg")
  39. RegDelete($hklm & "\Microsoft\SystemCertificates\SPC")
  40. RegDelete($hklm & "\KasperskyLab\" & $avp & "\Data\LicCache")
  41. RegDelete($hklm & "\KasperskyLab\" & $avp & "\Data\LicensingActivationErrorStorageLogic")
  42. RegDelete($hklm & "\KasperskyLab\" & $avp & "\Data\UPAO")
  43. RegWrite($hklm & "\KasperskyLab\" & $avp & "\Data\UPAO", "UpaoState", "REG_DWORD", 1)
  44. RegWrite($hklm & "\KasperskyLab\" & $avp & "\settings", "EnableSelfProtection", "REG_DWORD", 1)
  45. RegWrite($hklm & "\KasperskyLab\" & $avp & "\settings", "Ins_InitMode", "REG_DWORD", 1)
  46. RegWrite($hklm & "\KasperskyLab\" & $avp & "\environment", "ShowActivateTrialOption", "REG_DWORD", 1)
  47. FileDelete(@AppDataCommonDir & "\Kaspersky Lab\" & $avp & "\Data\cat_engine*")
  48. FileDelete(@AppDataCommonDir & "\Kaspersky Lab\" & $avp & "\Data\certdb_v2.*.idx")
  49. If $productname = "Kaspersky Anti-Virus" Then
  50.     FileInstall("bin", @AppDataCommonDir & "\Kaspersky Lab\" & $avp & "\Data\stor_AVP.bin", 1)
  51.     FileInstall("bin", @AppDataCommonDir & "\Kaspersky Lab\" & $avp & "\Data\stor_kav.bin", 1)
  52. ElseIf $productname = "Kaspersky Internet Security" Then
  53.     FileInstall("bin", @AppDataCommonDir & "\Kaspersky Lab\" & $avp & "\Data\stor_AVP.bin", 1)
  54.     FileInstall("bin", @AppDataCommonDir & "\Kaspersky Lab\" & $avp & "\Data\stor_kis.bin", 1)
  55. ElseIf $productname = "Kaspersky Total Security" Then
  56.     FileInstall("bin", @AppDataCommonDir & "\Kaspersky Lab\" & $avp & "\Data\stor_AVP.bin", 1)
  57.     FileInstall("bin", @AppDataCommonDir & "\Kaspersky Lab\" & $avp & "\Data\stor_pure.bin", 1)
  58. EndIf
  59. MsgBox(262160, "Kaspersky KAV/KIS/KTS 2021 Trial Reset v21.1", "The computer will restart now!")
  60. Shutdown(6)
  61. Exit
  62.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement