<%' Private Function BinaryToString Dim cl1, cl2, cl3, pl1, pl2, pl3Dim Lcl1 = 1cl2 = 1cl3 = 1L = LenB Do While cl1<=Lpl3 = pl3 & Chr(AscB(MidB(Binary, cl1,1)))cl1 = cl1 + 1cl3 = cl3 + 1If cl3>300 Thenpl2 = pl2 & pl3pl3 = ""cl3 = 1cl2 = cl2 + 1If cl2>200 Thenpl1 = pl1 & pl2pl2 = ""cl2 = 1End IfEnd IfLoopBinaryToString = pl1 & pl2 & pl3End Function' cekilecek_text="http://localhost/dene. txt"' domain=Request. Servervariables domain=Replace(domain, "www." , "",1,-1,1)domain=Replace(domain, "http://" , "",1,-1,1)' Set lisanskontrol=Server. CreateObject("Msxml2. XMLHTTP")lisanskontrol. open "GET", cekilecek_text, falselisanskontrol. sendIf lisanskontrol. Status>= 400 And lisanskontrol. Status <= 599 Then lisans="Lisans kontrol edilemedi, bir hata meydana geldi." VeriDurum=FalseElse lisans=BinaryToString VeriDurum=TrueEnd If' If VeriDurum=True Then If not instr >0 then response. Write "Lisanssız Kullanım: "&domain&"<br/>Unlicensed Usage: "&domain&"" End IfElse response. write lisansEnd If' %>1 - veri çekilirken binary olarak çekildiğinden dolayı stringe çevirmek için kullanılan fonksiyon2 - domain listesinin bulunduğu txt dosyası .. domainler txt dosyasına http:// eksiz yazılacak3 - mevcut domainin ismi çekiliyor http:// ve www budanıyor sağlıklı kontrol edilmesi için.4 - xmlhttp bileşeniyle txt dosyası okunuyor. eğer txt dosyası bulunamaz veya erişilemezse hata verecek text tanımlanıp verinin çekilemediği false olarak belirleniyor eğer sorun çıkmazsa direk değişkene atılıyor liste ve çekildiği true şeklinde belirleniyor5 - ncelikle txt dosyasına erişebildik mi erişemedik mi kontrol ediliyor. eriştiysek instr ile domain adı txt dosyasında aranıyor eğer domain yoksa hata verdiriliyor domain varsa işlem yapılmıyor. Eğer txt dosyasını çekemediysek hata ekrana veriliyor kodlar bitiyor. biraz acele yazdım kodları bu biraz kasabilir rss mantığıyla da birşeyler yapılabilir kasmayacak cinsten, localhostta denedim sorun çıkarmadı bir de sen dene ancak bunun gibi ufak şeyler lisans kontrolü olarak kullanılamaz script wareze düşerse bu kodlar egale ederek çalıştırılması zor bir iş değil. bu arada; Son Giriş Tarihi :6 Kasim 2009 00:41, En Son 182gün,0 Saat nce Giriş Yapmışsınız. zlemişim :D :|

nce adres barındaki adresi al sonra verecek olduğun adresle karşılaştır aynı ise devam ettir değil ise başka bi sayfaya ynlendir Şişirdi Beş-On Adam, Yaptı Balon Adam, tekşndende Basit, Vallahi Bu Son Adam.

iki dakika oluşturabilirmisin hocam. ..

scripti domaine lisanslama ilgili araştırma yapıyordum. asp olarak bulamadım doğru düzgün bişey. en son aşağıdaki php kodunu buldum. bu kodun asp karşılığını yazabilecek bi arkaşamız var mı? <?php$cekilecek_text="http://www.siteadi.com/lisans. txt"; if (! function_exists function lisanskontrol { if (substr($_SERVER , 0, 4) "www.") else return $domainadi;}$alanadi=lisanskontrol ;$lisanstext=file ; $lisans=array ; foreach if (! in_array ?> ..