Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];

Вниз

Верификация мыла   Найти похожие ветки 

 
Fast   (2001-10-18 00:29) [0]

Например клиент заполняет форму с указанием мыла.
Так вот как определить существует ли данное мыло в природе.
Тоесть мне не надо проверять правильность написания самой строки, а надо выяснить, а не нае... ли он меня.


 
Sergii   (2001-10-18 01:00) [1]

Отправить письмо на этот ящик - если придет ответ от почтового сервера, что письмо доставить невозможно, то такого адреса нет.


 
Fast   (2001-10-18 05:17) [2]

Нет это не оперативно, надо ждать пока почтовый сервис ответит это конечно не часы но минуты точно, да и темболее зачем спам на чужих ящиках разводить?


 
Dima-k17   (2001-10-18 09:46) [3]

function IsValidEmail(const Value: string): boolean;
function CheckAllowed(const s: string): boolean;
var
i: integer;
begin
Result:= false;
for i:= 1 to Length(s) do
begin
{ недопустимый символ в s - значит недопустимый адрес }
if not (s[i] in ["a".."z", "A".."Z", "0".."9", "_", "-", "."]) then
Exit;
end;
Result:= true;
end;
var
i: integer;
namePart, serverPart: string;
begin // начало выполнения IsValidEmail
Result:= false;
i:= Pos("@", Value);
if i = 0 then
Exit;
namePart:= Copy(Value, 1, i - 1);
serverPart:= Copy(Value, i + 1, Length(Value));
// @ не указано имя имя или сервер не указаны; минимально для сервера. "a.com"
if (Length(namePart) = 0) or ((Length(serverPart) < 5)) then
Exit;
i:= Pos(".", serverPart);
// должно иметь точку и как минимум три знака от конца
if (i = 0) or (i > (Length(serverPart) - 2)) then
Exit;
Result:= CheckAllowed(namePart) and CheckAllowed(serverPart);
end;



 
Anatoly Podgoretsky   (2001-10-18 14:46) [4]

Цитата!

Тоесть мне не надо проверять правильность написания самой строки, а надо выяснить, а не нае... ли он меня.


 
Sergii   (2001-10-19 23:55) [5]

2 Fast: Спам можно красиво оформить. Например, отправить поздравление с успешной регистрацией. :)



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.019 c
4-42632
AlexKniga
2001-11-15 13:42
2002.01.14
Тип PChar и пустая строка


1-42456
777
2001-12-25 04:10
2002.01.14
Ширина колонок TDBGrid


3-42355
madx
2001-12-08 22:11
2002.01.14
Ребят, подскажите начинающему...


3-42378
well
2001-12-10 15:02
2002.01.14
SQL & paradox


3-42379
Worr
2001-12-12 15:28
2002.01.14
DBGrid с картинками...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский