Türkiye'nin En Eski Webmaster Forumu İyinet'e Hoşgeldiniz!

Asp ile İçerik Hırsızlarına Önlem

disconnect

0
Onaylı Üye
Üye
Katılım
1 Şubat 2005
Mesajlar
3,367
Açılan Konu
221
Tepki puanı
7
Sitemin içeriği sürekli botlar tarafından çalınıyordu. Biraz olsun hız kesebilmek adına İçeriğin içerisine css yardımıyla gizleyerek linkimi koymuştum.
İşte o kodlar.
<%
dim bosluk
bosluk=14
soz=rs("soz")
on error resume next
say=split(soz," ")
if instr(say(bosluk),"<")>0 or instr(say(bosluk),">")>0 then
bosluk=bosluk+1
end if
response.Write(replace(soz,say(bosluk),say(bosluk) &"<div class=""saklan"">http://www.siteadresi.com/</div>"))
%>
css
.saklan {
display: none;
}
Bu tam olarak işe yaramasa da hız kesmişti. Eğer daha da zorlaştırmak isterseniz.
Sayfanızın css kodlarını asp ile tesadüfi rakama atayıp her sayfa yenilenmede farklı isimde kodlar çıkartabilir, botların çektiği içeriği düzeltmeleri için çok zaman harcamalarını sağlayabilirsiniz.
 

bytuncay

0
Onaylı Üye
Üye
Katılım
11 Ekim 2005
Mesajlar
618
Açılan Konu
34
Tepki puanı
0
Konum
istanbul
bunu adamın ayıklaması zor değilki :) asp bilen birisi için çok zor değil yani çözüm değil :D
 

Darkart

0
Onaylı Üye
Üye
Katılım
1 Temmuz 2005
Mesajlar
7,037
Açılan Konu
291
Tepki puanı
53
evet sıkı çözüm değil ama ortalıktaki sitelere bakınca forum bile kurmayı beceremeyen tonla insan varken dediklerinin ne oldugunu bile anlamayacaklardır :D
Yani işe yarayabilir :p
 

disconnect

0
Onaylı Üye
Üye
Katılım
1 Şubat 2005
Mesajlar
3,367
Açılan Konu
221
Tepki puanı
7
Benim siteleri botla sömürenlerin kodlarını inceledim ve kafi geleceğini düşünüyorum. Tabiki işi bilen kişiler için bunları aşmak çok zor olmayacak. :) Ama tedbir tedbirdir.

<%
Dim sayi
Randomize
sayi = int((Rnd * 4 )+1 )
if sayi=1 then
sayi="<div class=""3""><a href=""http://www.sitem.com/"">sitem</a></div>"
elseif sayi=2 then
sayi="<div style=""display:none"">http://sitem.com/</div>"
elseif sayi=3 then
sayi="<div class=""2""><a href=""http://www.sitem.com/"">site</a></div>"
elseif sayi=4 then
sayi="<div class=""1"">http://www.sitem.com/</div>"
end if
%>
<%
dim bosluk
bosluk=14
soz=rs("soz")
on error resume next
say=split(soz," ")
if instr(say(bosluk),"<")>0 or instr(say(bosluk),">")>0 then
bosluk=bosluk+1
end if
response.Write(replace(soz,say(bosluk),say(bosluk) &""&sayi&""))
%>
css içerisine
.1 {
display: none;
}
2-3 eklenir. Bir nebze olsun; sitenizden kopy past yapan, kod bilmeyip, hazır bot alıp kullanmaya çalışan kişilerin hızını kesecektir.
 

bytuncay

0
Onaylı Üye
Üye
Katılım
11 Ekim 2005
Mesajlar
618
Açılan Konu
34
Tepki puanı
0
Konum
istanbul
disconnect bu arada seni takdir ediyorum nerelerden nerelere anladın sen onu :D
 
Üst