İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

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

disconnect

0
İyinet Üyesi
Onaylı Üye
Katılım
1 Şubat 2005
Mesajlar
3,367
Reaction score
5
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
İyinet Üyesi
Katılım
11 Ekim 2005
Mesajlar
618
Reaction score
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
İyinet Üyesi
Katılım
1 Temmuz 2005
Mesajlar
7,037
Reaction score
56
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
İyinet Üyesi
Onaylı Üye
Katılım
1 Şubat 2005
Mesajlar
3,367
Reaction score
5
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.
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Üst