Prikazi cijelu temu 04.03.2017 20:12
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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