- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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
Kod:
Veritaban Adı : Data.mdbTablo Adı : LisansAlanlar : 1- Key 2- Kim olmak üzere iki alan hazırlayıp veritabanını Lisans klasörüne kaydedelim
3- Asp Sayfası : Programın lisan kontrölü yapmak için lazım aşağıdaki kodları kontrol.asp adına bi sayfaya kaydedelim
Kod:
<%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=" & StrDbNameObjConn.Open StrConnsql = "select * from uyeler where key='"&key& "' and kim='" &kim& "'"set rs = Server.CreateObject("adodb.recordset")rs.open sql,ObjConn,3,2while not rs.eofResponse.Write("#" & rs("key")&"£")response.Write("Program lisanlı") rs.movenextwend%>
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
Kod:
Dim a, b, c, girisOn Error GoTo hataText3 = 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 = cForm2.ShowUnload MeExit Subhata:MsgBox ("Program Lisansız Olarak kullanılıyor")
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
Kod:
Veritaban Adı : Data.mdbTablo Adı : LisansAlanlar : 1- Key 2- Kim olmak üzere iki alan hazırlayıp veritabanını Lisans klasörüne kaydedelim
3- Asp Sayfası : Programın lisan kontrölü yapmak için lazım aşağıdaki kodları kontrol.asp adına bi sayfaya kaydedelim
Kod:
<%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=" & StrDbNameObjConn.Open StrConnsql = "select * from uyeler where key='"&key& "' and kim='" &kim& "'"set rs = Server.CreateObject("adodb.recordset")rs.open sql,ObjConn,3,2while not rs.eofResponse.Write("#" & rs("key")&"£")response.Write("Program lisanlı") rs.movenextwend%>
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
Kod:
Dim a, b, c, girisOn Error GoTo hataText3 = 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 = cForm2.ShowUnload MeExit Subhata:MsgBox ("Program Lisansız Olarak kullanılıyor")