Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Asp - Php - Cgi - Perl 
Script Lisanslama İle İlgili Phpden Aspye Çevrilcek Bir Kod ( Yardım İsteği ) Script Lisanslama İle İlgili Phpden Aspye Çevrilcek Bir Kod ( Yardım İsteği )
-
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("file")) { die("<strong><a href='http://www.php.net/file'>file</a></strong> fonksiyonu sunucuda yüklü olmalıdır<br /> fonction <strong><a href='http://www.php.net/file'>file</a></strong> must be installed on the server"); }
function lisanskontrol() {
if (substr($_SERVER['HTTP_HOST'], 0, 4) == "www.") {
$domainadi = substr($_SERVER['HTTP_HOST'], 4);
} else {
$domainadi = $_SERVER['HTTP_HOST'];
}
return $domainadi;
}
$alanadi=lisanskontrol();
$lisanstext=file($cekilecek_text,FILE_IGNORE_NEW_LINES);
$lisans=array();
foreach($lisanstext as $sayi => $cekveri) {
$lisans[$sayi]=rtrim($cekveri,"\r\n");
}
if (!in_array($alanadi,$lisans)) {
die("Lisanssiz Kullanim: ".$alanadi."<br /> Unlicensed Usage ".$alanadi); exit;
}
?> -
ö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 yönlendir
-
iki dakika oluşturabilirmisin hocam.
-
<%
'[1]-------------------------------------------
Private Function BinaryToString(Binary)
Dim cl1, cl2, cl3, pl1, pl2, pl3
Dim L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)
Do While cl1<=L
pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
If cl3>300 Then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
If cl2>200 Then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End If
End If
Loop
BinaryToString = pl1 & pl2 & pl3
End Function
'[2]-------------------------------------------
cekilecek_text="http://localhost/dene.txt"
'[3]-------------------------------------------
domain=Request.Servervariables("HTTP_HOST")
domain=Replace(domain, "www." , "",1,-1,1)
domain=Replace(domain, "http://" , "",1,-1,1)
'[4]-------------------------------------------
Set lisanskontrol=Server.CreateObject("Msxml2.XMLHTTP")
lisanskontrol.open "GET",cekilecek_text, false
lisanskontrol.send
If lisanskontrol.Status>= 400 And lisanskontrol.Status <= 599 Then
lisans="Lisans kontrol edilemedi, bir hata meydana geldi."
VeriDurum=False
Else
lisans=BinaryToString(lisanskontrol.responsebody)
VeriDurum=True
End If
'[5]-------------------------------------------
If VeriDurum=True Then
If not instr(lisans,domain)>0 then
response.Write "Lisanssız Kullanım: "&domain&"<br/>Unlicensed Usage: "&domain&""
End If
Else
response.write lisans
End If
'-------------------------------------------
%>
1 - veri çekilirken binary olarak çekildiğinden dolayı stringe çevirmek için kullanılan fonksiyon
2 - domain listesinin bulunduğu txt dosyası (url şeklinde).. domainler txt dosyasına http:// eksiz yazılacak
3 - mevcut domainin ismi çekiliyor http:// ve www budanıyor sağlıklı kontrol edilmesi için.
4 - xmlhttp bileşeniyle (serverde bu bileşen yoksa çalışmayacaktır) 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 belirleniyor
5 - ö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 (Cuma) 00:41, En Son 182gün,0 Saat Önce Giriş Yapmışsınız.
Özlemişim :D
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla