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

carobnjak	31.07.2011 01:51
Predmet:Re: Zastita aplikacije i radio sam po tom primjeru sad sam uspio kod mene ovaj kod gore sto sam napisao radi

zxz	31.07.2011 01:55
Predmet:Re: Zastita aplikacije Objasnje procedure: Function main()'Ime procedure Dim Db As Database Dim Rs As Recordset Dim Kljuc As String Dim Provjera As Boolean ' Variable koje su dimenzionisane Set Db = CurrentDb 'Setovanje baze (Davanje do znanja sa kojom se bazom operise) Set Rs = Db.OpenRecordset("RegisterProgram") 'Setovanje rekordseta (To su ti kolone i redovi iz tabele koja se zove RegisterProgram. Znaci mora postojati tabela ili Query RegisterProgram Kljuc = Rs!Reg ' U memorijsku kljuc ucitava se vrijednost iz tabele RegisterProgram iz polja Reg. Rs.Close ' Zatvaranje rekordseta(Tabele koja je bila otvorena u memoriji samo se ne vidi) Provjera = ProvjeraKljuca(Kljuc) ' Poziv procedure Provjera sa ulaznim podatkokm Kljuc koji smo prepisali iz tabele RegisterProgram iz polja Reg. If Provjera = True Then ? ako je provjera true odnosno ako je procedura vratila u memorijsku provjera true tada ide ovo ispod. 'Ako je uredu onda podizes startnu formu ovdje 'Ovdje mozes napisati kod da podigne tvoju formu DoCmd.OpenForm "ImeTvojeForme" Else ? ako je false tada radi ovo ispod tj. Podize formu koja se zove RegisterProgram i ovdje se nista ne mijenja DoCmd.OpenForm "RegisterProgram" ovo sam mislio da se mjenja na ime moje forme End If ? kraj uslova End Function 'Kraj procedure.

zxz

31.07.2011 01:55

Predmet:Re: Zastita aplikacije

Objasnje procedure:
Function main()'Ime procedure
Dim Db As Database
Dim Rs As Recordset
Dim Kljuc As String
Dim Provjera As Boolean ' Variable koje su dimenzionisane

Set Db = CurrentDb 'Setovanje baze (Davanje do znanja sa kojom se bazom operise)

Set Rs = Db.OpenRecordset("RegisterProgram") 'Setovanje rekordseta (To su ti kolone i redovi iz tabele koja se zove RegisterProgram. Znaci mora postojati tabela ili Query RegisterProgram
Kljuc = Rs!Reg ' U memorijsku kljuc ucitava se vrijednost iz tabele RegisterProgram iz polja Reg.
Rs.Close ' Zatvaranje rekordseta(Tabele koja je bila otvorena u memoriji samo se ne vidi)
Provjera = ProvjeraKljuca(Kljuc) ' Poziv procedure Provjera sa ulaznim podatkokm Kljuc koji smo prepisali iz tabele RegisterProgram iz polja Reg.

If Provjera = True Then ? ako je provjera true odnosno ako je procedura vratila u memorijsku provjera true tada ide ovo ispod.
'Ako je uredu onda podizes startnu formu ovdje
'Ovdje mozes napisati kod da podigne tvoju formu
DoCmd.OpenForm "ImeTvojeForme"
Else ? ako je false tada radi ovo ispod tj. Podize formu koja se zove RegisterProgram i ovdje se nista ne mijenja
DoCmd.OpenForm "RegisterProgram" ovo sam mislio da se mjenja na ime moje forme
End If ? kraj uslova
End Function 'Kraj procedure.

Amelasar	04.09.2011 12:17
Predmet:Re: Zastita aplikacije Pozdrav svima, ovo je jako dobra i funkcionalna zastita. Medjutim postoji problem: - Ako se vrati datum program se moze otvoriti. - Ako se linkuje tabela RegisterProgram (shift iskljucen) broj demo pokusaja se moze promijeniti i sa ta dva uslova program se neograniceno moze koristiti. Moze li se ovo nekako rijesiti? Moze li se kodirati broj pokusaja sa nekim hijeroglifima, to sam negdje gledala. Hvala.

Amelasar

04.09.2011 12:17

Predmet:Re: Zastita aplikacije

Pozdrav svima,

ovo je jako dobra i funkcionalna zastita. Medjutim postoji problem:

- Ako se vrati datum program se moze otvoriti.
- Ako se linkuje tabela RegisterProgram (shift iskljucen) broj demo pokusaja se moze promijeniti i sa ta
dva uslova program se neograniceno moze koristiti.

Moze li se ovo nekako rijesiti? Moze li se kodirati broj pokusaja sa nekim hijeroglifima, to sam negdje gledala.

Hvala.

zxz	04.09.2011 12:39
Predmet:Re: Zastita aplikacije Naravno da moze. Broj pokusaja mozes sifrovati na nacin kako je opisao za serijski broj a ima i drugih niz nacina. Pomijeranje datuma se isto tako moze rijestiti tako sto se pri svakom ulazu zapisuje datum pa ukoliko je sledeci ulaz datum manji od upisanog da se zakljuca. Uostalom broj pokusaja mozes zapisati bilo gdje na disk ili u registrije a ne u bazu ako zelis tvrdju zastitu. Drugo mozes vezati ne za broj pokusaja nego za broj rekorda u odredjenoj tabeli. Ovo ovisi o kakvoj se aplikaciji radi. Napr. ako je kasa mozes dozvoliti samo 20 racuna odnosno 20 rekorda u tabeli racuni. Ovaj nacin zastite je vise ideja a ostalo se treba sam doraditi i naj sigurnije je ako se ne radi o nekom ustaljenom kalupu.

zxz

04.09.2011 12:39

Predmet:Re: Zastita aplikacije

Naravno da moze.
Broj pokusaja mozes sifrovati na nacin kako je opisao za serijski broj a ima i drugih niz nacina.
Pomijeranje datuma se isto tako moze rijestiti tako sto se pri svakom ulazu zapisuje datum pa ukoliko je sledeci ulaz datum manji od upisanog da se zakljuca.
Uostalom broj pokusaja mozes zapisati bilo gdje na disk ili u registrije a ne u bazu ako zelis tvrdju zastitu.
Drugo mozes vezati ne za broj pokusaja nego za broj rekorda u odredjenoj tabeli.
Ovo ovisi o kakvoj se aplikaciji radi.
Napr. ako je kasa mozes dozvoliti samo 20 racuna odnosno 20 rekorda u tabeli racuni.
Ovaj nacin zastite je vise ideja a ostalo se treba sam doraditi i naj sigurnije je ako se ne radi o nekom ustaljenom kalupu.

Bosanec	04.09.2011 19:58
Predmet:Re: Zastita aplikacije po meni najbolji način da se odradi demo verzija programa je da se na izvještaje prilikom otvaranja iz koda ispisuje preko istih demo, i naravno budućem kupcu pošaljete mde da isproba taj vaš program evo i jedan primjer pozdrav
Prilozi: DEMO VERZIJA.rar (Velicina datoteke:36.26 KB)

Bosanec

04.09.2011 19:58

Predmet:Re: Zastita aplikacije

po meni najbolji način da se odradi demo verzija programa je da se na izvještaje prilikom otvaranja iz koda ispisuje preko istih demo, i naravno budućem kupcu pošaljete mde da isproba taj vaš program
evo i jedan primjer

pozdrav

Prilozi:
DEMO VERZIJA.rar (Velicina datoteke:36.26 KB)