PHP de Lisanslama Script Yapımı

<?php
//PHP Lisanslama Scripti 1.0
//Kodlama: Arda Kılıçdağı (SoulSmasher)  ©2008
//http://www.soulsmasher.net
/*-----------------------------------------------------------------
| This program is released as free software under the
| Affero GPL license. You can redistribute it and/or
| modify it under the terms of this license which you
| can read by viewing the included agpl.txt or online
| at www.gnu.org/licenses/agpl.html. Removal of this
| copyright header is strictly prohibited without
| written permission from the original author(s).
+----------------------------------------------------------------*/
 
 
//Eğer bu scripti kullandıysanız en azından bana düşüncelerinizi bildirmeniz beni gerçekten memnun edecektir 
 
//AYARLAR KISMI
$cekilecek_text="http://www.yasalhost.com/x.txt"; //bir sunucuya yüklediğiniz lisanslanmasına izin veridğiniz alan adlarının olduğu text dosyası, tavsiyem googlepages.com gibi 24 saat açık olmasına güvenilir bir sunucuya yüklemenizdir
//AYARLAR KISMI BİTTİ
 
//NE YAPTIĞINIZI BİLMİYORSANIZ AŞAĞISINA DOKANMAYIN
if (!function_exists("file")) { die("<strong><a href='http://www.php.net/file'&...;</strong>; fonksiyonu sunucuda yüklü olmalıdır<br /> fonction <strong><a href='http://www.php.net/file'&...;</strong>; must be installed on the server"); } //file fonksiyonu yüklü değilse lisans scripti çalışmaz 
function soullisanskontrol() {
        if (substr($_SERVER['HTTP_HOST'], 0, 4) == "www.") { //alan adı değişkeni bazı sunucularda www ile başlıyor bazılarında www. suz ondan böyle bir değişkene ihtiyac var
        $domainadi = substr($_SERVER['HTTP_HOST'], 4);
        } else {
        $domainadi = $_SERVER['HTTP_HOST'];
        }
return $domainadi;
}
$alanadi=soullisanskontrol();//yormasın her seferinde 1 kez buffera alalım yeter
 
$lisanstext=file($cekilecek_text,FILE_IGNORE_NEW_LINES); //yüklediğiniz text dosyasının adresi
$lisans=array();//boş dizi oluşturduk önce yeni oluşacak kontrol dizisi için
 
 
foreach($lisanstext as $sayi => $cekveri) {
$lisans[$sayi]=rtrim($cekveri,"rn"); //bazen windows tabanlı metin editörlerinde yazılan metinler ve linux üzerindeki editörelerde yazılan metinlerinm sonundaki yeni satıra geçme kodları aynı olamayabiliyor. bu sebeple işi sağlama alıp onların temizlendiği yeni bir dizi oluşturuyoruzs
}
 
if (!in_array($alanadi,$lisans)) { 
die("Lisanssız Kullanım: ".$alanadi."<br /> Unlicensed Usage ".$alanadi); exit; //alan adı bizim dizimizde yoksa die() fonksiyonu ile siteyi kilitliyor, buraya kendi fonksiyonunuzu/nasıl çalışacağını yazabilirsiniz
} 
 
?>