Декодирование адреса почты при Cloudflare Email Protection

Данная функция позволяет декодировать email с веб-страницы, когда на сервере используется Cloudflare Email Protection

Function CloudfareEmailDecode(ByVal txt$) As String ' функция декодирования
    On Error Resume Next
    If InStr(1, txt, "protection#", vbTextCompare) > 0 Then txt = Split(txt, "protection#")(1)
    If InStr(1, txt, """", vbTextCompare) > 0 Then txt = Split(txt, """")(0)
    If InStr(1, txt, "'", vbTextCompare) > 0 Then txt = Split(txt, "'")(0)
    Dim k As Integer, i As Long, l As Integer
    k = Val("&h" & Mid(txt, 1, 2))
    For i = 1 To Len(txt) / 2 - 1
        l = Val("&h" & Mid(txt, i * 2 + 1, 2))
        CloudfareEmailDecode = CloudfareEmailDecode & Chr(l Xor k)
    Next
End Function
 
Sub test_CloudfareEmailDecode() ' пример использования
    Debug.Print CloudfareEmailDecode("c9a6afafa0aaace7a4b9b389a4bdbce4a7acbde7bbbc")
    Debug.Print CloudfareEmailDecode("543931142127353935313e352e7a373b39")
    Debug.Print CloudfareEmailDecode("dfafadb6bdb0ad9fbcb6aba6b3b6b1baf1adaa")
End Sub

Комментарии

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
             ____            ___       _      _____ 
__ __ | _ \ __ __ / _ \ / \ |___ /
\ \ /\ / / | |_) | \ \/ / | | | | / _ \ |_ \
\ V V / | _ < > < | |_| | / ___ \ ___) |
\_/\_/ |_| \_\ /_/\_\ \__\_\ /_/ \_\ |____/
Введите код, изображенный в стиле ASCII-арт.

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.