F
🚨 Ещё можно успеть на курс «OSINT: технология боевой разведки» от Академии Кодебай
🔍 Изучите методы разведки с использованием открытых источников (OSINT) для проведения успешных атак.
🛠️ Освойте ключевые инструменты, такие как Maltego, TheHarvester и другие.
🧪 Пройдите практические лабораторные работы, имитирующие реальную разведку.
🧠 Развивайте навыки, которые помогут вам стать экспертом в области информационной безопасности.Запись открыта до 23 мая Подробнее о курсе ...
наверно как-то так(не проверял - возможно где то опечатался)
опишите задание нормально
Public Function Cvt16to4(src As String)
Dim n As Long, i As Long, s As String, flg As Long
i = Val("&H" & src & "&")
s = "(4)"
n = (i And &H7FFFFFFF) ' Давим старший бит
flg = (i = n) ' True, если бита не было
For i = 1 To 15
s = CStr(n And 3) & s
n = n \ 4
Next
If Not flg Then n = (n Or 2)
s = CStr(n And 3) & s
Cvt16to4 = s
End Function
Обучение наступательной кибербезопасности в игровой форме. Начать игру!