Dado 04.03.2017 17:17
Predmet:Re: Zaštita access baze od kopiranja

Možemo li nastaviti ili preko vikenda odmor a u ponedjeljak nastavljamo Smiling

zxz 04.03.2017 20:24
Predmet:Re: Zaštita access baze od kopiranja

Hehe sinoc sam imao koncert pa nisam stigao.
Evo idemo dalje.
Sada napravimo formu sa dva text polja i jednim komandnim tasterom.
Jedno polje neka ima naziv KorisnickiBroj a drugo AutorskiBroj a na komandnom tasteru registracija.

Dado 04.03.2017 20:41
Predmet:Re: Zaštita access baze od kopiranja

Evo urađeno, Å¡ta dalje...

zxz 04.03.2017 21:12
Predmet:Re: Zaštita access baze od kopiranja

U modul reg sad postavi ovaj cio kod.
Ono sto je bilo ima ponovo ovdje pa mozes pobrisati da bude prazan pa onda prekopiraj ovaj kod u njega.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Global Const K = "1V2A78UZ90A78BCSD3EF4G8HCS344HJKLM5657NB3456VLC90112TGM7LKB6HJFZGH3234"
  4. Function BrojDiska() As String
  5. BrojDiska = HRD.GetSerialNumber
  6. End Function
  7. Function Korisnicki_Broj(BrojDiska As String)
  8. Dim I As Integer
  9. Dim KodS As Integer
  10. Dim DuzinaB As Integer
  11. Dim Str As String
  12.  
  13. DuzinaB = Len(BrojDiska)
  14.  
  15.     For I = 1 To DuzinaB
  16.     Str = Mid(BrojDiska, I, 1)
  17.     KodS = Asc(Str) + I
  18.         If KodS > Len(K) Then KodS = KodS - Len(K)
  19.         Korisnicki_Broj = Korisnicki_Broj & Mid(K, KodS, 1)
  20.     Next I
  21. End Function
  22. Function Strtanje()
  23. Dim Serb As String
  24. Dim b As String
  25. Serb = BrojDiska
  26. b = Korisnicki_Broj(Serb)
  27. Dim a
  28. a = Kljuc(b)
  29. End Function
  30. Function Provjera(AutorskiBroj As String)
  31. Dim I As Integer
  32. Dim KodS As Integer
  33. Dim DuzinaB As Integer
  34. Dim Str As String
  35.  
  36. DuzinaB = Len(AutorskiBroj)
  37.     For I = 1 To DuzinaB
  38.     Str = Mid(AutorskiBroj, I, 1)
  39.     KodS = Asc(Str) + I
  40.         If KodS > Len(K) Then KodS = KodS - Len(K)
  41.         Provjera = Provjera & Mid(K, KodS, 1)
  42.     Next I
  43. End Function


Mozemo poslije prodiskutovati kod u koliko nesto nije jesno pa cemo onda ici dalje.

Dado 04.03.2017 21:24
Predmet:Re: Zaštita access baze od kopiranja

Uradio,inače ovaj modul Reg je i bio prazan.

zxz 04.03.2017 21:32
Predmet:Re: Zaštita access baze od kopiranja

aha pa nemogu se sjetiti cini mi se kada smo provjeravali onaj dll da smo stavili neku proceduru za provjeru.

Dobro ako nemas pitanja onda mozemo dalje.

Dado 04.03.2017 21:33
Predmet:Re: Zaštita access baze od kopiranja

Da stavili smo u drugi modul ovu proceduru

Function BrojDiska()
BrojDiska = HRD.GetSerialNumber
End Function

može dalje

zxz 04.03.2017 21:50
Predmet:Re: Zaštita access baze od kopiranja

Taj drugi modul prepravi odnosno daj mu ime MKljuc radi lakse komunikacije i pobrisi sve iz njega.
Neka ostane prazan za sada.
Idemo sad na formu.
Njoj daj ime RegForma isto radi lakse komunikacije.
Provjere radi navest cu i imena polje.
Znaci prov txtpolje sa imenom KoprisnickiBroj i u labeli neka pise korisnicki broj.
Ovo polje neka bude zakljucano.
Drugo polje sa imenom AutorskiKod i u labeli neka pise autorski kod.
Komandni taster neka se zove registracija i u kaption neka pise regisracija

Na on load ove forme stavi sledeci kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Load()
  2. Me.KorisnickiBroj = Korisnicki_Broj(BrojDiska())
  3. End Sub

Na on klik tastera registracija ide sledeci kod:

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Registracija_Click()
  2. Dim Akod
  3. Dim Kbroj As String, KKod As String
  4.  
  5. Akod = Me.AutorskiKod
  6. Kbroj = Me.KorisnickiBroj
  7. If Format$(Akod) <> "" Then
  8. KKod = Provjera(Kbroj)
  9.     If KKod = Akod Then
  10.     Dim db As Database
  11.     Dim rs As Recordset
  12.    
  13.     Set db = CurrentDb
  14.     Set rs = db.OpenRecordset("SELECT * FROM Opcije WHERE ID=1")
  15.     rs.Edit
  16.     rs.Fields(2) = Akod
  17.     rs.Update
  18.     MsgBox "Program je registrovan"
  19.     Else
  20.     MsgBox "Registracija nije uspjela"
  21.     End If
  22. End If
  23. End Sub

Dado 04.03.2017 21:59
Predmet:Re: Zaštita access baze od kopiranja

Uradio,samo mala napomena u vezi komandnog tastera, zove se Registracija pošto sam vidio da je i u kodu sa velikim R

Može dalje

Dado 04.03.2017 22:01
Predmet:Re: Zaštita access baze od kopiranja

Jeli u kodu i treba da stoji "KBroj = Me.KoprisnickiBroj" ili treba da bude "KBroj = Me.KorisnickiBroj" bez "p"