Centar za edukaciju-BiH



#101 18.03.2017 00:22
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Zaštita access baze od kopiranja
Za @freeman mozes otvoriti i novu temu ako hoces u vezi ovog pitanja nacina zastite.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#102 22.03.2017 18:36
blingaro Van mreze
Clan
Registrovan od:10.07.2015
Postovi:8


Predmet:Re: Zaštita access baze od kopiranja
Moje rešenje je sledeće:
Modul pod nazivom "Provera"

Public Function Ima(Putanja As String) As Boolean
Ima = (Dir$(Putanja, vbDirectory) <> "")
End Function

Na neku formu na događaj OnOpen stavim sledeće

Private Sub Form_Open(Cancel As Integer)

'Proverava da li na zadatoj putanji na HDD-u postoji folder "Pera"
If Not Ima("C:\Users\Pera") Then
MsgBox "Neovlašcena kopija aplikacije! Pozovite autora 011/123-456!", vbCritical, "UPOZORENJE"
DoCmd.Quit
End If

DoCmd.OpenForm "Izbor"

Na kod (VBA) stavim šifu i to je to. Znam da je šifru moguće provaliti, ali i za to treba neko znanje (program). Možda nije najsrećnije rešenje, ali šta je - tu je.
↑  ↓

#103 22.03.2017 18:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Zaštita access baze od kopiranja
hehe rjesenje je rjesenje.
Ja bih rekao ovo je za postene od @blingaro aako neko hoce ukrast djaba ti zastita.
Svaka se moze razbit samo je pitanje koliko ces vremena ostaviti.

Ovo je ovako lijepo i jednostavno rjesenje.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#104 22.03.2017 18:46
blingaro Van mreze
Clan
Registrovan od:10.07.2015
Postovi:8


Predmet:Re: Zaštita access baze od kopiranja
A može i da se napravi tabela Radnici sa spiskom radnika (npr. Igor, Miki, Suki) i onda se unese sledeći kod koji proverava putanju do foldera:
'svaki radnik ima svoj folder na "C:\Users\"
If Not Ima("C:\Users\" & DLookup("Radnici", "Radnici")) Then
    MsgBox "Neovlašcena kopija aplikacije! Pozovite autora 011/123-456!", vbCritical, "UPOZORENJE"
    DoCmd.Quit
     End If

DoCmd.OpenForm "Izbor"

Onda se sve to zapakuje u *.mde.

Nadam se da će nekom koristiti.
↑  ↓

#105 23.03.2017 20:16
freeman Van mreze
Clan
Registrovan od:29.10.2014
Postovi:144


Predmet:Re: Zaštita access baze od kopiranja
Na nekom primjeru bi to bilo jasnije.Naravno ako neko nađe vremena.
↑  ↓

#106 24.03.2017 17:12
blingaro Van mreze
Clan
Registrovan od:10.07.2015
Postovi:8


Predmet:Re: Zaštita access baze od kopiranja
Citiraj freeman:
Na nekom primjeru bi to bilo jasnije.Naravno ako neko nađe vremena.

Zaboravi ha napomenem da i ovd ide modul

Public Function Ima(Putanja As String) As Boolean
Ima = (Dir$(Putanja, vbDirectory) <> "")
End Function
↑  ↓

#107 24.03.2017 17:13
blingaro Van mreze
Clan
Registrovan od:10.07.2015
Postovi:8


Predmet:Re: Zaštita access baze od kopiranja
Citiraj freeman:
Na nekom primjeru bi to bilo jasnije.Naravno ako neko nađe vremena.

Ako stignem preko vikenda okačiću primer. Ako ne, onda od nedelje.
↑  ↓

#108 03.04.2017 18:09
blingaro Van mreze
Clan
Registrovan od:10.07.2015
Postovi:8


Predmet:Re: Zaštita access baze od kopiranja
Citiraj freeman:
Na nekom primjeru bi to bilo jasnije.Naravno ako neko nađe vremena.

Dodao bih svoje rešenje u *.rar formatu, ali mi javlja poruku "Već postoji!". Kako da okačim primer, zna li neko?

Prilozi:
Informacije o tipu datoteke za:rar  wewewe.rar
Preuzimanja:317
Velicina datoteke:188.94 KB

↑  ↓

#109 03.04.2017 18:12
blingaro Van mreze
Clan
Registrovan od:10.07.2015
Postovi:8


Predmet:Re: Zaštita access baze od kopiranja
Uspeo sam da ga okačim u prethodnom postu, ali je malo nelogično da me sajt upozorava da fajl već postoji. U svakom slučaju u nastavku je komentar na prethnodno okačen fajl pod nazivom "wewewe" (kakvog li imena?!)

U prilogu je jednostavna zaštita koja se sastoji iz provere da li na zadatoj putanji “C:\Users\...” postoji zadati folder. Kako se menja radna stanica tako je potrebno promeniti u tabeli radnici naziv krajnjeg foldera na datoj putanji. Nije ovo najsrećnije rešenje. Na VBA staviti password ili zapakovati u *.mdb (*.accde).

A može i da se “veže” za neki fajl na nekoj putanji na disku. Na primer ja sam smislio neki prazan fajl “waccess.dll” (nema veze sa *.dll fajlom, ali lepo zvuči) i skembao ga na datoj putanji. Na Event procedure "On open" neke forme staviti sledeći kod:

Dim Ima As String
Ima = Dir$("D:\Pera\MojiFajlovi\waccess.dll")
If Len(Ima) > 0 Then
Else
MsgBox "Neovlašćena kopija aplikacije ! Pozovite autora 011/123-456-78 !"
DoCmd.Quit
End If
End Sub
↑  ↓

#110 06.04.2017 18:33
freeman Van mreze
Clan
Registrovan od:29.10.2014
Postovi:144


Predmet:Re: Zaštita access baze od kopiranja
Hvala blingaro na tvojem vremenu koje si odvojio za ovo rješenje.Probat ću napraviti neku kombinaciju između tvojeg i Gjoreskog rješenja ako zapnem vaša pomoć će mi dobro doći.Pozdrav
↑  ↓

Stranice (11):1,2 ... 9,10,11,


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 34 am.