Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (11):1,2,3,4,5 ... 10,11
 Prikazi prvu neprocitanu poruku

#21 04.03.2017 20:41
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet:Re: Zaštita access baze od kopiranja
Evo urađeno, šta dalje...
Pozdrav!
↑  ↓

#22 04.03.2017 21:12
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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 kd (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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#23 04.03.2017 21:24
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet:Re: Zaštita access baze od kopiranja
Uradio,inače ovaj modul Reg je i bio prazan.
Pozdrav!
↑  ↓

#24 04.03.2017 21:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#25 04.03.2017 21:33
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


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
Pozdrav!
Ovaj post je ureden 1 puta. Posljednja izmjena 04.03.2017 21:34 od strane Dado. ↑  ↓

#26 04.03.2017 21:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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 kd (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 kd (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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 04.03.2017 22:55 od strane zxz. ↑  ↓

#27 04.03.2017 21:59
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


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
Pozdrav!
↑  ↓

#28 04.03.2017 22:01
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


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"
Pozdrav!
↑  ↓

#29 04.03.2017 22:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Zaštita access baze od kopiranja
Napravio sam tu niz grtesaka opa sam kod ponovo stavio.
Molio bih te da i ti prekopiras kod ponovo.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#30 04.03.2017 22:56
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet:Re: Zaštita access baze od kopiranja
Isto ovo imamo i na on load forme
Pozdrav!
↑  ↓

Stranice (11):1,2,3,4,5 ... 10,11

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 12: 36 am.