Как давить spambot'ы?

3

PaulAria

21 мая 2002, 13:15

#11

Для различных гостевых книг, и прочих сервисов с e-mail где надо показывать e-mail, но не хочеться их подставлять можно предложить следующую конструкцию. Она состоит из трех страниц:

1-ая спрашивает e-mail и проверяет на корректность

2-ая вносит в базу (попутно разбивая на конструкции)

3-ая выводит результат

Если Грею будет интерестно, то могу это оформить в виде статьи и закомментировать код

Каждое слудующее сообщение - код одного из файлов. Удачи :-)))

Скрипт написан на ASP язык - JavaScript, но его можно достаточно лугко перенести под PHP и еще легче под JSP

С уважением Галушко Павел

eTarget 2011:Панельная дискуссия «Стратегия eTarget 2011: Круглый стол Могут ли «плохие» входящие

PA

3

PaulAria

21 мая 2002, 13:17

#12

<%@ Language=JScript %>

<html>

<head>

<title>Боремся с почтовыми спамерами</title>

function sumb()

{

isemail = false;

em = document.all("email");

stem = new String(em.value)

if (stem == "")

{

alert("Вы не ввели E-mail");

}

else

{

if (stem.indexOf("@",1) != -1)

{

dog = stem.indexOf("@",1);

str1 = stem.substring(0,dog);

dog1 = dog+2;

if (stem.indexOf(".",dog1) != -1)

{

dot = stem.indexOf(".",dog1);

str2 = stem.substring(dog1-1,dot)

end = stem.length;

str3 = new String(stem.substring(dot+1,end));

if (str3.length > 0)

{

isemail = true;

}

if (isemail != true)

{

alert("Это не E-mail адрес")

}

else

{

document.frm.submit();

doSubmit = true;

}

</script>

</head>

<body>

</form>

</body>

</html>

Роман Мандрик Вирусный маркетинг: ТИЦ: интересные изменения 13-01-07 Настройка событий Google Analytics

PA

3

PaulAria

21 мая 2002, 13:18

#13

<%@ Language=JScript %>

<%

LastRec = Server.CreateObject("ADODB.Recordset");

SQL = "SELECT * FROM test";

LastRec.Open(SQL,Conn,adOpenStatic,adLockReadOnly,adCmdText);

if (LastRec.BOF != true)

{

LastRec.MoveLast;

Last = LastRec("id").Value;

Last = Last +1;

}

else

{

Last = 1;

}

Session("Last") = Last;

stem = new String(Request.Form("email"))

dog = stem.indexOf("@",1);

str1 = stem.substring(0,dog);

dog1 = dog+2;

dot = stem.indexOf(".",dog1);

str2 = stem.substring(dog1-1,dot);

end = stem.length;

str3 = stem.substring(dot+1,end);

SQL = "INSERT INTO test (str1,str2,str3,id) VALUES ('"+str1+"','"+str2+"','"+str3+"',"+Last+")";

Conn.Execute(SQL);

LastRec.Close;

%>

<html>

<head>

<title>АнтиСПАМ!!!!!!!</title>

</head>

<body>

Внесли в базу, на следующей странице посмотрим результаты :-)))

<br><a href = anty3.asp>Результаты :-)))</a>

</script>

</body>

</html>

Роман Мандрик Вирусный маркетинг: Поисковые системы в сети ТИЦ: интересные изменения 13-01-07

PA

3

PaulAria

21 мая 2002, 13:19

#14

<%@ Language=JScript %>

<%

MailRec = Server.CreateObject("ADODB.Recordset");

SQL = "SELECT * FROM test WHERE id ="+Session("Last");

MailRec.Open(SQL,Conn,adOpenStatic,adLockReadOnly,adCmdText);

%>

<html>

<head>

<title>Анти спам финал</title>

</head>

<body>

str1 = "<%

st = new String(MailRec("str1"));

str = st.split(" ");

stnew = "";

for (y=0; y < str.length; y++)

{

if (str[y] != "")

{

stnew = stnew+str[y]+" ";

}

str1 = new String(stnew);

str1 = str1.substring(0,str1.length-1);

Response.Write(str1)

%>";

str2 = "<%

st = new String(MailRec("str2"));

str = st.split(" ");

stnew = "";

for (y=0; y < str.length; y++)

{

if (str[y] != "")

{

stnew = stnew+str[y]+" ";

}

str1 = new String(stnew);

str1 = str1.substring(0,str1.length-1);

Response.Write(str1)

%>";

str3 = "<%

st = new String(MailRec("str3"));

str = st.split(" ");

stnew = "";

for (y=0; y < str.length; y++)

{

if (str[y] != "")

{

stnew = stnew+str[y]+" ";

}

str1 = new String(stnew);

str1 = str1.substring(0,str1.length-1);

Response.Write(str1)

%>";

dog = "@";

st = str1+dog+str2+"."+str3;

document.write("<a href=mailto:"+st+">"+st+"</a>")

</script>

</body>

</html>

Роман Мандрик Вирусный маркетинг: ТИЦ: интересные изменения 13-01-07 Кэширование в браузерах и

YZ

119

Yura_Z

27 мая 2002, 12:42

#15

Да помоему бесполезно что то против них делать, я сам пишу такие проги, вернее писал, так любой символ вытяну с html страницы. Лучшее решение это типа такой страницы http://www.kirov.ru/~yura/spam.htm , но сделать её так кб в 900-2500!!! У меня места мало, а то бы сделал. Пускай захлёбываются :) там же где то и прога лежит, для изготовления этого добра.

Поделиться изображением Яндекс кобласит Как менять url без

SS

14

Sad Spirit

27 мая 2002, 14:23

#16

Первоначальное сообщение от Yura_Z
Да помоему бесполезно что то против них делать, я сам пишу такие проги, вернее писал, так любой символ вытяну с html страницы.

Очевидно, что если речь о специализированной программе, "заточенной" под конкретный сайт, то против неё мало что сделаешь. Но большая часть спаммеров --- люди со способностями к производительному труду (в частности написанию программ)... эээ... ниже средних. И, следовательно, пользуются они готовыми решениями, которые "задавить" как раз можно.

А страница такая тоже покатит. :) В качестве дополнительной меры. :)

158

vmegap

28 мая 2002, 00:56

#17

Первоначальное сообщение от PaulAria

Если Грею будет интерестно, то могу это оформить в виде статьи и закомментировать код

Срасибо за скрипты. Статью тоже было бы интересно почитать.

С уважением,

Виктор

PA

3

PaulAria

28 мая 2002, 08:09

#18

Пожалуйста :-)))

Как только разберусь с работой обязательно пришлю статью :-)))

YZ

119

Yura_Z

29 мая 2002, 07:27

#19

>Есть два способа продвинуть сайт на первое место в Yandex за один

>день... Только их никто не знает :-)))

За один день не знаю, а страницу с титлом "апоарн лпрьпрьб прльр" например, на первое место вывести очень легко. Вот только будет ли ее кто искать...

eTarget 2011:Панельная дискуссия «Стратегия eTarget 2011: Круглый стол Могут ли «плохие» входящие

Как снизить ДРР до 4,38% и повысить продажи с помощью VK Рекламы

Open AI тестирует память для ChatGPT