Главная » Макросы для Excel » Декодирование адреса почты при Cloudflare Email Protection

Декодирование адреса почты при 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

  • 1402 просмотра

Комментарии

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

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

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

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