Prikazi cijelu temu 05.03.2017 10:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Zaštita access baze od kopiranja
Sada u modul Mkljuc kopirati ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Function Kljuc(KorisnickiBroj As String)
  4. Dim I As Integer
  5. Dim KodS As Integer
  6. Dim DuzinaB As Integer
  7. Dim Str As String
  8.  
  9. DuzinaB = Len(KorisnickiBroj)
  10.     For I = 1 To DuzinaB
  11.     Str = Mid(KorisnickiBroj, I, 1)
  12.     KodS = Asc(Str) + I
  13.         If KodS > Len(K) Then KodS = KodS - Len(K)
  14.         Kljuc = Kljuc & Mid(K, KodS, 1)
  15.     Next I
  16. End Function

Eto ostaje nam jos da napravimo tabelu u koju cemo upisati nas azutorki kod.
Naravno moze se to napraviti da se zapisuje i u registrije ali nevolim petljati po regitrijima pa cemo za tu svrhu napraviti tabelu.
Neka se tabela zove opcije.
U njoj pored ovoga broja mogu biti i druge opcije koje se ticu app.
Tabela neka ima tri polja:
Id autonumver
Opcije text(5)
Vrijednost text(50)
Dodamu u nju jedan zapis i to samo u polje opcija upisemo kljuc.

Eto ostalo nam je samo da isprobamo sve ovo i da napravimo start formu u kojoj provjeravamo dali je program registrovan.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.