İnternet ile Programımızın Lisans Kontrölünü Yapalım

[Black_Paw]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Programımızın lisan Kontrölünü Yapalım
Bu Sayede Programı hacklemeleri daha zor olur

* - Host Adresi
* - Veri tabanı
* - Asp Sayfası
* - Program ve Kodlar

1- Host Adresi : Projemizin lisan kntrölü yapabilmesi için gerekli ve host adresimide lisans adlı bi klasör açıyoruz

2- Veri Tabanı : Lisan bilgilerini kontrol etmek için veritaban Lisan klasörünü içine alınacak

[LEFT]                       Veritaban Adı : Data.mdb
Tablo Adı : Lisans
Alanlar : 1- Key 2- Kim olmak üzere iki alan hazırlayıp veritabanını Lisans  klasörüne kaydedelim  
               [/LEFT]

3- Asp Sayfası : Programın lisan kontrölü yapmak için lazım aşağıdaki kodları kontrol.asp adına bi sayfaya kaydedelim

[LEFT]                       <%

kuladi=Request.QueryString("key")
sifre=Request.QueryString("kim")

Set ObjConn = Server.CreateObject("ADODB.Connection")

StrDbName = Server.Mappath("data.mdb")


StrConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & StrDbName

ObjConn.Open StrConn


sql = "select * from uyeler where key='"&key& "' and kim='" &kim& "'"
set rs = Server.CreateObject("adodb.recordset")


rs.open sql,ObjConn,3,2

while not rs.eof
Response.Write("#" & rs("key")&"£")
response.Write("Program lisanlı") 
rs.movenext
wend
%>  
               [/LEFT]

yukarıdaki kodları kontrol.asp ile kaydetikten sonra bunuda Lisan klasöürne kaydediyoruz

4- Program ve Kodlar : programınız hazırladıktan sonra Prjemize 2 textbox 1 command ve 1 inet (Microsoft İnternet Transfer Kontrol)
ekledikten sonra aşağıdaki kodları yapıştıralım

Dim a, b, c, giris

On Error GoTo hata
Text3 = Inet1.OpenURL("http://www.adresimiz.com/Lisans/kontrol.asp?key=" & Text1  & "&kim=" & Text2)
giris = InStr(1, Text3, "Lisanslı")

a = InStr(1, Text3, "#")
b = InStr(1, Text3, "£")

c = Mid(Text3, a + 1, (b - (a + 1)))
If giris <> 0 Then MsgBox ("Programın Kaydı veritabanında Mevcut")
kullanici = c
Form2.Show
Unload Me
Exit Sub
hata:
MsgBox ("Program Lisansız Olarak kullanılıyor")

 

[UnNaturaL]

Paylaşım için teşekkürler

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .