Автокликер Clickermann :: Форум
Основной раздел => Общие вопросы => Topic started by: Vint on August 15, 2014, 02:10:32 PM
-
Вот спрашивали ВК. Поиск адреса e-mail в буфере обмена. Попробовал сделать.
Пока ограничился вариантом если вокруг почты пробелы или край строки.
#name "Поиск в строке почтового адреса"
// Author: Vint
// Version: 1.1 (15.08.2014)
LOGCLEAR
$str = FROMCLIP()
//LOGWRITE ("$str = ", $str)
$at = STRPOS ($str, "@")
IF($at = 0)
LOGWRITE ("Почтового адреса нет")
$mail = ""
ELSE
$str_end = STRCUT2 ($str, $at, STRLEN($str))
// обрезаем зад
$end = STRPOS ($str_end, " ")
IF($end = 0)
$end = $at + STRLEN($str_end)-1
ELSE
$end = $at + $end-2
END_IF
$str = STRCUT2 ($str, 1, $end)
// обрезаем перёд
$find = 0
WHILE($find = 0)
$space = STRPOS ($str, " ")
IF($space = 0)
$mail = $str
$find = 1
ELSE
$str = STRCUT2 ($str, $space+1, STRLEN($str))
END_IF
END_CYC
LOGWRITE ("Email: ", $mail)
END_IF
HALT
В однострочном варианте всё правильно. В многострочном, если почта в начале строки не могу выпилить перевод строки, адрес так и остаётся с ним. Не хватает команды. Пробовал найти как обычно "\n" не прокатило.
Нужно бы ввести поиск перевода строки. Ну и заодно ввести экранирование, заодно решится в строках символы $ " ( )
...............
Посидел, подумал и удалось отфильтровать. Теперь ограничений нет кроме того, что адрес берётся только первый если их несколько
#name "Поиск в строке почтового адреса"
// Author: Vint
// Version: 1.2 (15.08.2014)
LOGCLEAR
$str = FROMCLIP()
//LOGWRITE ("$str = ", $str)
$at = STRPOS ($str, "@")
IF($at = 0)
LOGWRITE ("Почтового адреса нет")
$mail = ""
ELSE
$str_end = STRCUT2 ($str, $at, STRLEN($str))
// обрезаем зад
$end = STRPOS ($str_end, " ")
IF($end = 0)
$end = $at + STRLEN($str_end)-1
ELSE
$end = $at + $end-2
END_IF
$str = STRCUT2 ($str, 1, $end)
// обрезаем перёд
$find = 0
WHILE($find = 0)
$space = STRPOS ($str, " ")
IF($space = 0)
$mail = $str
$find = 1
ELSE
$str = STRCUT2 ($str, $space+1, STRLEN($str))
END_IF
END_CYC
// удаление обрамления
$good = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-.@_"
$len = STRLEN($mail)
$at = STRPOS ($mail, "@")
$start = 1
$end = $len
FOR($i=1, $i < $len+1)
$lit = STRCUT($mail, $i, 1)
IF(STRPOS($good, STRCUT($mail, $i, 1)) = 0)
IF($i < $at)
$start = $i+1
ELSE
$end = $i-1
$i = $len+10
END_IF
END_IF
END_CYC
$mail = STRCUT2 ($mail, $start, $end)
LOGWRITE ("Email: ", $mail)
END_IF
HALT
-
Всё. Поборол несколько адресов. Теперь выводит все адреса в буфере обмена
#name "Поиск в строке почтового адреса"
// Author: Vint
// Version: 1.3 (15.08.2014)
LOGCLEAR
$strglob = FROMCLIP()
//LOGWRITE ("$strglob = ", $str)
UNDEFINE($arr_mail)
WHILE(STRLEN($strglob) > 0)
$str = $strglob
$at = STRPOS ($str, "@")
IF($at = 0)
//LOGWRITE ("Почтового адреса нет")
$strglob = ""
ELSE
$str_end = STRCUT2 ($str, $at, STRLEN($str))
// обрезаем зад
$end = STRPOS ($str_end, " ")
IF($end = 0)
$end = $at + STRLEN($str_end)-1
ELSE
$end = $at + $end-2
END_IF
$str = STRCUT2 ($str, 1, $end)
IF(STRCUT($str, STRLEN($str), 1) = ".")
$str = STRCUT2($str, 1, STRLEN($str)-1)
END_IF
// обрезаем перёд
$find = 0
WHILE($find = 0)
$space = STRPOS ($str, " ")
IF($space = 0)
$mail = $str
$find = 1
ELSE
$str = STRCUT2 ($str, $space+1, STRLEN($str))
END_IF
END_CYC
// удаление обрамления
$good = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-.@_"
$len = STRLEN($mail)
$at = STRPOS ($mail, "@")
$start = 1
$end = $len
FOR($i=1, $i < $len+1)
$lit = STRCUT($mail, $i, 1)
IF(STRPOS($good, STRCUT($mail, $i, 1)) = 0)
IF($i < $at)
$start = $i+1
ELSE
$end = $i-1
$i = $len+10
END_IF
END_IF
END_CYC
$mail = STRCUT2 ($mail, $start, $end)
//LOGWRITE ("Email: ", $mail)
ARRPUSH($arr_mail, $mail)
$strglob = STRCUT($strglob, STRPOS($strglob, $mail)+STRLEN($mail), STRLEN($strglob))
END_IF
END_CYC
IF(ARRSIZE($arr_mail) > 0)
LOGWRITE ("Найдено адресов e-mail: ", ARRSIZE($arr_mail))
FOR($i=0, $i<ARRSIZE($arr_mail))
LOGWRITE ("e-mail №", $i+1, " ", $arr_mail[$i])
END_CYC
ELSE
LOGWRITE ("Почтовых адресов нет")
END_IF
HALT
Пример:
нет почты
а здесь mail@mail.ru есть
пгннп
а здесь oo(mail2@mail.ru)tt есть
oo(mail3@mail.ru)tt лорл
Лог:
16:12:45 Найдено адресов e-mail: 3
16:12:45 e-mail №1 mail@mail.ru
16:12:45 e-mail №2 mail2@mail.ru
16:12:45 e-mail №3 mail3@mail.ru
Рай для спамера. Копируешь всю страницу или код HTML. Прогоняешь, на выходе массыв e-mail - ов
-
Современный вариант v4.14 x32, но еще можно допилить всякие штуки в виде проверок длины логина и домена, фильтр имени домена и т.д.
#DEFINE #DOG: 64
#DEFINE #DOT: 46
#DEFINE #UNDERSCORE: 95
#DEFINE #A_LOW: 97
#DEFINE #A_UP: 65
#DEFINE #Z_LOW: 122
#DEFINE #Z_UP: 90
// STATE_LOGIN <-- [@] STATE_DOMAIN_TWO <-- [.] STATE_DOMAIN_ONE <-- [a-Z] STATE_START
#DEFINE STATE_START: 0
#DEFINE STATE_LOGIN: 3
#DEFINE STATE_DOMAIN_TWO: 2
#DEFINE STATE_DOMAIN_ONE: 1
ARRPUSH($array_code, CODE("$"))
FREADDATA ("source_text.txt", $array_temp, 3, FSIZE("source_text.txt"))
ARRCONCAT($array_code, $array_temp)
$state = STATE_START
$length = ARRSIZE($array_code)
WHILE($length)
$code = ARRPOP($array_code)
$length = $length - 1
PRINT("STATE = ", $state, " CODE = ", $code, STRCUT(" ", 1, 4 - STRLEN($code)) , " STRING = ", $temp_string)
SWITCH($state)
CASE(STATE_START)
IF( (($code >= #A_LOW) and ($code <= #Z_LOW)) or (($code >= #A_UP) and ($code <= #Z_UP)) )
$temp_string = CHAR($code)
$state = STATE_DOMAIN_ONE
END_IF
CASE(STATE_LOGIN)
IF( (($code >= #A_LOW) and ($code <= #Z_LOW)) or (($code >= #A_UP) and ($code <= #Z_UP)) or ($code = #UNDERSCORE) or (($code >= #0) and ($code <= #9)) )
$temp_string = STRCONCAT(CHAR($code), $temp_string)
ELSE
PRINTC(STRCONCAT("WEB-MAIL: ", $temp_string), 204)
$state = STATE_START
END_IF
CASE(STATE_DOMAIN_TWO)
SWITCH(POW(2, ((($code >= #A_LOW) and ($code <= #Z_LOW)) or (($code >= #A_UP) and ($code <= #Z_UP))) ) * POW(3, $code = #DOG) - 1)
CASE(1)
$temp_string = STRCONCAT(CHAR($code), $temp_string)
CASE(2)
$temp_string = STRCONCAT(CHAR($code), $temp_string)
$state = STATE_LOGIN
DEFAULT
$state = STATE_START
END_SWITCH
CASE(STATE_DOMAIN_ONE)
SWITCH(POW(2, ((($code >= #A_LOW) and ($code <= #Z_LOW)) or (($code >= #A_UP) and ($code <= #Z_UP))) ) * POW(3, $code = #DOT) - 1)
CASE(1)
$temp_string = STRCONCAT(CHAR($code), $temp_string)
CASE(2)
$temp_string = STRCONCAT(CHAR($code), $temp_string)
$state = STATE_DOMAIN_TWO
DEFAULT
$state = STATE_START
END_SWITCH
END_SWITCH
END_CYC
HALT
03:08:35 STATE = 0 CODE = 187 STRING = 0
03:08:35 STATE = 0 CODE = 208 STRING = 0
03:08:35 STATE = 0 CODE = 128 STRING = 0
03:08:35 STATE = 0 CODE = 209 STRING = 0
03:08:35 STATE = 0 CODE = 190 STRING = 0
03:08:35 STATE = 0 CODE = 208 STRING = 0
03:08:35 STATE = 0 CODE = 187 STRING = 0
03:08:35 STATE = 0 CODE = 208 STRING = 0
03:08:35 STATE = 0 CODE = 32 STRING = 0
03:08:35 STATE = 0 CODE = 116 STRING = 0
03:08:35 STATE = 1 CODE = 116 STRING = t
03:08:36 STATE = 1 CODE = 41 STRING = tt
03:08:36 STATE = 0 CODE = 117 STRING = tt
03:08:36 STATE = 1 CODE = 114 STRING = u
03:08:36 STATE = 1 CODE = 46 STRING = ru
03:08:36 STATE = 2 CODE = 108 STRING = .ru
03:08:36 STATE = 2 CODE = 105 STRING = l.ru
03:08:36 STATE = 2 CODE = 97 STRING = il.ru
03:08:36 STATE = 2 CODE = 109 STRING = ail.ru
03:08:36 STATE = 2 CODE = 64 STRING = mail.ru
03:08:36 STATE = 3 CODE = 51 STRING = @mail.ru
03:08:36 STATE = 3 CODE = 108 STRING = 3@mail.ru
03:08:36 STATE = 3 CODE = 105 STRING = l3@mail.ru
03:08:36 STATE = 3 CODE = 97 STRING = il3@mail.ru
03:08:36 STATE = 3 CODE = 109 STRING = ail3@mail.ru
03:08:36 STATE = 3 CODE = 40 STRING = mail3@mail.ru
03:08:36 WEB-MAIL: mail3@mail.ru
03:08:36 STATE = 0 CODE = 111 STRING = mail3@mail.ru
03:08:36 STATE = 1 CODE = 111 STRING = o
03:08:36 STATE = 1 CODE = 10 STRING = oo
03:08:36 STATE = 0 CODE = 13 STRING = oo
03:08:36 STATE = 0 CODE = 140 STRING = oo
03:08:36 STATE = 0 CODE = 209 STRING = oo
03:08:36 STATE = 0 CODE = 130 STRING = oo
03:08:36 STATE = 0 CODE = 209 STRING = oo
03:08:37 STATE = 0 CODE = 129 STRING = oo
03:08:37 STATE = 0 CODE = 209 STRING = oo
03:08:37 STATE = 0 CODE = 181 STRING = oo
03:08:37 STATE = 0 CODE = 208 STRING = oo
03:08:37 STATE = 0 CODE = 32 STRING = oo
03:08:37 STATE = 0 CODE = 116 STRING = oo
03:08:37 STATE = 1 CODE = 116 STRING = t
03:08:37 STATE = 1 CODE = 41 STRING = tt
03:08:37 STATE = 0 CODE = 117 STRING = tt
03:08:37 STATE = 1 CODE = 114 STRING = u
03:08:37 STATE = 1 CODE = 46 STRING = ru
03:08:37 STATE = 2 CODE = 108 STRING = .ru
03:08:37 STATE = 2 CODE = 105 STRING = l.ru
03:08:37 STATE = 2 CODE = 97 STRING = il.ru
03:08:37 STATE = 2 CODE = 109 STRING = ail.ru
03:08:37 STATE = 2 CODE = 64 STRING = mail.ru
03:08:37 STATE = 3 CODE = 50 STRING = @mail.ru
03:08:37 STATE = 3 CODE = 108 STRING = 2@mail.ru
03:08:38 STATE = 3 CODE = 105 STRING = l2@mail.ru
03:08:38 STATE = 3 CODE = 97 STRING = il2@mail.ru
03:08:38 STATE = 3 CODE = 109 STRING = ail2@mail.ru
03:08:38 STATE = 3 CODE = 40 STRING = mail2@mail.ru
03:08:38 WEB-MAIL: mail2@mail.ru
03:08:38 STATE = 0 CODE = 111 STRING = mail2@mail.ru
03:08:38 STATE = 1 CODE = 111 STRING = o
03:08:38 STATE = 1 CODE = 32 STRING = oo
03:08:38 STATE = 0 CODE = 140 STRING = oo
03:08:38 STATE = 0 CODE = 209 STRING = oo
03:08:38 STATE = 0 CODE = 129 STRING = oo
03:08:38 STATE = 0 CODE = 209 STRING = oo
03:08:38 STATE = 0 CODE = 181 STRING = oo
03:08:38 STATE = 0 CODE = 208 STRING = oo
03:08:38 STATE = 0 CODE = 180 STRING = oo
03:08:38 STATE = 0 CODE = 208 STRING = oo
03:08:38 STATE = 0 CODE = 183 STRING = oo
03:08:38 STATE = 0 CODE = 208 STRING = oo
03:08:39 STATE = 0 CODE = 32 STRING = oo
03:08:39 STATE = 0 CODE = 176 STRING = oo
03:08:39 STATE = 0 CODE = 208 STRING = oo
03:08:39 STATE = 0 CODE = 10 STRING = oo
03:08:39 STATE = 0 CODE = 13 STRING = oo
03:08:39 STATE = 0 CODE = 191 STRING = oo
03:08:39 STATE = 0 CODE = 208 STRING = oo
03:08:39 STATE = 0 CODE = 189 STRING = oo
03:08:39 STATE = 0 CODE = 208 STRING = oo
03:08:39 STATE = 0 CODE = 189 STRING = oo
03:08:39 STATE = 0 CODE = 208 STRING = oo
03:08:39 STATE = 0 CODE = 179 STRING = oo
03:08:39 STATE = 0 CODE = 208 STRING = oo
03:08:39 STATE = 0 CODE = 191 STRING = oo
03:08:39 STATE = 0 CODE = 208 STRING = oo
03:08:39 STATE = 0 CODE = 10 STRING = oo
03:08:39 STATE = 0 CODE = 13 STRING = oo
03:08:40 STATE = 0 CODE = 140 STRING = oo
03:08:40 STATE = 0 CODE = 209 STRING = oo
03:08:40 STATE = 0 CODE = 130 STRING = oo
03:08:40 STATE = 0 CODE = 209 STRING = oo
03:08:40 STATE = 0 CODE = 129 STRING = oo
03:08:40 STATE = 0 CODE = 209 STRING = oo
03:08:40 STATE = 0 CODE = 181 STRING = oo
03:08:40 STATE = 0 CODE = 208 STRING = oo
03:08:40 STATE = 0 CODE = 32 STRING = oo
03:08:40 STATE = 0 CODE = 117 STRING = oo
03:08:40 STATE = 1 CODE = 114 STRING = u
03:08:40 STATE = 1 CODE = 46 STRING = ru
03:08:40 STATE = 2 CODE = 108 STRING = .ru
03:08:40 STATE = 2 CODE = 105 STRING = l.ru
03:08:40 STATE = 2 CODE = 97 STRING = il.ru
03:08:40 STATE = 2 CODE = 109 STRING = ail.ru
03:08:40 STATE = 2 CODE = 64 STRING = mail.ru
03:08:40 STATE = 3 CODE = 108 STRING = @mail.ru
03:08:41 STATE = 3 CODE = 105 STRING = l@mail.ru
03:08:41 STATE = 3 CODE = 97 STRING = il@mail.ru
03:08:41 STATE = 3 CODE = 109 STRING = ail@mail.ru
03:08:41 STATE = 3 CODE = 32 STRING = mail@mail.ru
03:08:41 WEB-MAIL: mail@mail.ru
03:08:41 STATE = 0 CODE = 140 STRING = mail@mail.ru
03:08:41 STATE = 0 CODE = 209 STRING = mail@mail.ru
03:08:41 STATE = 0 CODE = 129 STRING = mail@mail.ru
03:08:41 STATE = 0 CODE = 209 STRING = mail@mail.ru
03:08:41 STATE = 0 CODE = 181 STRING = mail@mail.ru
03:08:41 STATE = 0 CODE = 208 STRING = mail@mail.ru
03:08:41 STATE = 0 CODE = 180 STRING = mail@mail.ru
03:08:41 STATE = 0 CODE = 208 STRING = mail@mail.ru
03:08:41 STATE = 0 CODE = 183 STRING = mail@mail.ru
03:08:41 STATE = 0 CODE = 208 STRING = mail@mail.ru
03:08:41 STATE = 0 CODE = 32 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 176 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 208 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 10 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 13 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 139 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 209 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 130 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 209 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 135 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 209 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 190 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 208 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 191 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 208 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 32 STRING = mail@mail.ru
03:08:42 STATE = 0 CODE = 130 STRING = mail@mail.ru
03:08:43 STATE = 0 CODE = 209 STRING = mail@mail.ru
03:08:43 STATE = 0 CODE = 181 STRING = mail@mail.ru
03:08:43 STATE = 0 CODE = 208 STRING = mail@mail.ru
03:08:43 STATE = 0 CODE = 189 STRING = mail@mail.ru
03:08:43 STATE = 0 CODE = 208 STRING = mail@mail.ru
03:08:43 STATE = 0 CODE = 36 STRING = mail@mail.ru
-
Find_e-mail_04 - чуть улучшил и оформил в виде подпрограмм. Можно подключать и использовать как библиотеку.
// ищем один, первый e-mail. Результат в переменной $eo_mail
email_one($str)
// ищем все e-mail. Результат в массиве $arr_mail
email_several($str)
#name "Поиск в строке почтового адреса"
// Author: Vint
// Version: 1.4 (16.07.2020)
// Скрипт для Clickermann v4.14.003
//=== email_one поиск первого втретившегося e-mail ==========================
SUB(email_one, $eo_str)
// Пример вызова:
// email_one("str")
// результат в переменной $eo_mail
$eo_mail = ""
$eo_at = STRPOS($eo_str, "@")
IF($eo_at = 0)
//LOGWRITE("Почтового адреса нет")
ELSE
$eo_str_end = STRCUT2($eo_str, $eo_at, STRLEN($eo_str))
// обрезаем зад
$eo_end = STRPOS($eo_str_end, " ")
IF($eo_end = 0)
$eo_end = $eo_at + STRLEN($eo_str_end)-1
ELSE
$eo_end = $eo_at + $eo_end-2
END_IF
$eo_str = STRCUT2($eo_str, 1, $eo_end)
IF(STRCUT($eo_str, STRLEN($eo_str), 1) = ".")
$eo_str = STRCUT2($eo_str, 1, STRLEN($eo_str)-1)
END_IF
// обрезаем перёд
$eo_find = 0
$offset = 1
WHILE($eo_find = 0)
$space = STRPOS($eo_str, " ", $offset)
IF($space = 0)
$eo_find = 1
ELSE
$offset = $space + 1
END_IF
END_CYC
$eo_mail = STRCUT2($eo_str, $offset, STRLEN($eo_str))
// удаление обрамления
$eo_good = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-+'.@_"
$eo_len = STRLEN($eo_mail)
$eo_at = STRPOS($eo_mail, "@")
$start = 1
$eo_end = $eo_len
FOR($eo_i=1, $eo_i < $eo_len+1)
$lit = STRCUT($eo_mail, $eo_i, 1)
IF(STRPOS($eo_good, STRCUT($eo_mail, $eo_i, 1)) = 0)
IF($eo_i < $eo_at)
$start = $eo_i+1
ELSE
$eo_end = $eo_i-1
$eo_i = $eo_len+10
END_IF
END_IF
END_CYC
$eo_mail = STRCUT2($eo_mail, $start, $eo_end)
//LOGWRITE("Email: ", $eo_mail)
END_IF
END_SUB
//=== email_several поиск всех e-mail =======================================
SUB(email_several, $es_strglob)
// Пример вызова:
// email_several("str")
// результат в массиве $arr_mail
UNDEFINE($arr_mail)
WHILE(STRLEN($es_strglob) > 0)
$es_str = $es_strglob
IF(STRPOS($es_str, "@") = 0)
//LOGWRITE("Почтового адреса нет")
$es_strglob = ""
ELSE
email_one($es_str)
ARRPUSH($arr_mail, $eo_mail)
$es_strglob = STRCUT($es_strglob, STRPOS($es_strglob, $eo_mail)+STRLEN($eo_mail), STRLEN($es_strglob))
END_IF
END_CYC
END_SUB
//==============================================================================
LOGCLEAR
//$str = "Здесь нет e-mail адресов!"
//$str = FROMCLIP() # входные данные в буфере обмена
$str = " эту почту masha_grudast@ya.ru. нужно вытащить. Ещё один pupkin.vasya@mail.ru**"
// ищем один, первый e-mail. Результат в переменной $eo_mail
email_one($str)
LOGWRITE("e-mail: ", $eo_mail)
// ищем все e-mail. Результат в массиве $arr_mail
email_several($str)
LOGWRITE()
IF(ARRSIZE($arr_mail) > 0)
LOGWRITE("Найдено адресов e-mail: ", ARRSIZE($arr_mail))
FOR($i=0, $i<ARRSIZE($arr_mail))
LOGWRITE("e-mail №", $i+1, " ", $arr_mail[$i])
END_CYC
ELSE
LOGWRITE("Почтовых адресов нет")
END_IF
HALT
-
А если так?
$str = "ftp://press:parapress@ftp.paradoxplaza.com/"
-
Вот вроде подходящий онлайн-сервис, для проверки существования Email - http://ru.smart-ip.net/check-email/. Если конечно пользоваться осторожно. На валидность адреса он не проверяет, зато бесплатный, относительно быстрый и без шифрования (http).
Несуществующие Email, при поиске все равно нужно отсеивать, они же просто бесполезный набор символов. Или устраивать им дополнительные проверки, так как 100 процентную точность проверки существования адреса электронной почты не даст ни один сервис.
$url = "parapress@ftp.paradoxplaza.com" // проверяемый Email
$html = HTTPGET(STRCONCAT("http://ru.smart-ip.net/check-email/", $url))
STRSEPARATE($html, "Электронный адрес ", $arr)
STRSEPARATE($arr[1], "<", $arr2)
LOGWRITE ($arr2[0]) // "parapress@ftp.paradoxplaza.com" не существует
HALT
-
А если так?
$str = "ftp://press:parapress@ftp.paradoxplaza.com/"
Всё нормально
parapress@ftp.paradoxplaza.com
Только это же не e-mail, это логин:пароль от ftp
ftp://логин:пароль@IP-адрес сервера
В адресе почты не может быть двоеточия, точнее может, только в кавычках. Да нафиг такие адреса, какому нормальному человеку взбредёт в голову писать в почте спецсимволы в кавычках. А если кому и нужно, пусть на другом языке обрабатывает :D