Mozda ovo pomogne
http://www.granite.ab.ca/access/demo.htm

Možda i ovo pomogne

http://www.praktikum.co.yu/office/access/acc_081.htm

Hvala Kiro, to sam i trazio !

POZDRAV

Ne bi bilo loše da zakacis neki jednostavan primjer ako uspijes sa ovim da vidimo kako izgleda.

Ipak nisam uspeo.
Ako podesim da se kod izvrsi u okviru
"On Open" dogadjaja prijavi mi gresku.
A ako pozovem modul iz forme opet ista stvar.
Nasao sam mnogo drugih resenja ali su prekomplikovana.
Ovo bi bilo idealno da radi.
Neznam da li je iko proverio ovaj kod i ako ima primer
neka ga posalje.

@tifoza

vidi pod top teme:
http://www.elitesecurity.org/tema/96303/1
imas primjer "zasticene" baze. mozda ti pomogne.

Naterao sam program da radi tj. (slusace on mene a ne ja njega)
Hvala Kiri za pomoc iako na sajtu http://www.praktikum.co.yu/office/access/acc_081.htm
nije objasnjeno do kraja procedura tako da sam malo trazio
druge primere po netu netu i sada imam program koji radi.
Poslacu primer samo do jos malo uredim program i kod.

Pozdrav

Hvala Kiri za pomoc iako na sajtu http://www.praktikum.co.yu/office/access/acc_081.htm
nije objasnjeno do kraja procedura tako da sam malo trazio
druge primere po netu netu i sada imam program koji radi.
Poslacu primer samo do jos malo uredim program i kod.
---------

Ja sam autor tog članka (i većine ostalih). Šta nije objašnjeno do kraja? Ako sam nešto zaboravio da dodam. Mislim da je jednostavno - uradite prema uputstvu i obavezno uključite Microsoft DAO 3.6 jer bez toga neće raditi.

Banem, stvar radi super i vidi se da su Master Guru za Access.
Problem mi je bio u pozivanju procedure u okviru nekog dogadjaja
na formi. Pa sam na dogadaj "On Load" stavio :

Private Sub Form_Load()
Me.text0 = HDDBroj(drvpath)
End Sub

Gdje mi u formi u polje text0 upisuje broj hard diska.

Nisam expert za Access tako da sam gresio u
pozivanju procedure iz modula.

Pozdrav i jos jednom zahvaljujem za pomoc.

udruzivanjem srodnih tema:
ove, zatim: http://www.elitesecurity.org/tema/52046/1
i: http://www.praktikum.co.yu/office/access/acc_081.htm
pokusavam da zastitim bazu.

@banem
"Ja sam autor tog članka (i većine ostalih). Šta nije objašnjeno do kraja? Ako sam nešto zaboravio da dodam. Mislim da je jednostavno - uradite prema uputstvu i obavezno uključite Microsoft DAO 3.6 jer bez toga neće raditi."

vezano za ovo uputstvo na praktikumu. ne mogu nikako da dobijem tabelu u kojoj bi bio prikazan broj hdd i meni ovo i nije bas jednostavno. ako moze malo detaljnije i neki primjer. kako ukljuciti tj iskljuciti DAO 3.6?

@DarkMan
detaljno sam pratio tvoje uputstvo ali mi se javlja greska kada unesem sifru u codu na Call RegisterProgram. sta u stvari ja tu pozivam, i da slucajno sta ne fali u tvome primjeru? posto si ocigledno ti ovo jako dobro savladao i detaljno objasnio da ipak neka sitnica nije promakla ili ja negdje grijesim.
otvorim novu bazu, importujem oba modula, napravim formu u kojoj uz pomoc Private Sub Form_Open(Cancel As Integer)
Me.Text0 = HDDBroj(drvpath)
End Sub
dobijem svoju sifru. tu sifru upisem u polje "vasa sifra" u kodu a unesem u formi u text box editsifra.
If EditSifra.Value = "vaša šifra" Then
i na klik komande mi izbaci gore navedenu gresku.

ima li ko ideju u cemu je problem?

@tifoza

mozes li taj primjer okaciti ovdje da probam otkriti gdje grijesim.

Ne vredi, dižem ruke. :)

Uradiću čim stignem primer, pa ću ga poslati ovamo. A to će biti sutra ili prekosutra.

u iscekivanju tvog primjera skonto sam jedan dio (a upalis motorku). nije bas kao u tvom clanku sa praktikuma ali to je to. problem mi je u tome sto ne mogu da dodijelim vrijednosti kroz sql na open forme u tabelu tj. ja to pogresno radim. tacnije ne znam kako da polju Diskvol dodjelim broj HDDBroj, ali radi i bez toga ali bi mi bilo draze da znam i ovaj dio.
e sad mi je ostao ovaj dio u kojem ce po otvaranju baze da oduzme od neke zadane vrijednosti 1 ako nije registrovana.
kako u sql od postojeceg broja u tabeli oduzeti jedan i polju dodijeliti tu vrijednost?

saljem primjer koji sam do sada uspio iskombinovati.

unaprijed hvala na odgovorima.

Ups zez.

Poslao sam fajl sa svog e-mail-a.
Evo direktan link za download

home.rstel.net/~zstevica/reg.zip

---- by Zidar:
Ovo je bilo u originalnoj poruci koja je obrisana posto je ceo ZIP dumpovan u poruku:

Izvinjavam se zato sto kasnim sa slanjem primjera ali ovih dana
sam bio prezauzet.
Uglavnom evo primera kako sam ja to uradio pa nadam se
da ce Vam pomoci.

U formi frmVlasnikIzmena se klikom na dugme registruj dobija
Reg broj.

Pozdrav



_{[Ovu poruku je menjao Zidar dana 08.04.2005. u 14:17 GMT+1]}

Da, u iscekivanju Banema i njegove zastite i ja sam se igrao, pa napravio ono sto meni treba. Fajl je okacen, i u njemu SVE RADI.

Bazu prvo treba, pomocu forme startup, proglasiti REGISTROVANOM. Onda moze da se posalje kupcu. Kada je pokrene odredjeni broj puta, postace neregistrovana, i izbacice mu poruku da je DEMO verzija istekla, i dace mu broj (broj diska i jos jedan broj, ne znam koji, ali isto ima veze sa diskom). Taj broj onda posalje meni, pa mu ja "odredim" (uradim neku racunsku operaciju, deljenje, mnozenje, u stvari svejedno, moze i nista), pa mu u "startup_1" formu, na "OnClick" dugmeta za proveru sifre, ukucam taj broj koji mi je poslao, i vratim mu bazu nazad, ovaj put bez "security Table" formom kao prvom koja se pokrece, da ne bi opet "brojao" unazad, vec mu stavim kao prvu, formu "startup_1", gde ce ga pitati za sifru, i kada ukuca onu koju sam mu poslao, program ce raditi. PRETHODNO, znaci pre slanja programa nazad, kupcu, treba ga proglasiti (pomocu forme startup" NEREGISTROVANIM. Posto je neregistrovan, prijavice "nisi registrovao" pa ce korisnik u formi "starup_1", moci da ukuca broj koji je dobio, potvrdi ga dugmetom, i program ce "postati" registrovan i radice dalje bez problema, dok...

se ne "preseli" na drugi racunar, gde broj diska vise nece biti taj, pa ce opet postati "NEREGISTROVAN".

Ovo moze sve jos da se doradi i nasminka, ali meni je problem za prvu ruku resen.

pozdrav svima.

@bobiris
svaka cast, ovaj dio koda za "demo" verziju mi je falio. sada sam zavrsio ovo sto sam planirao.
hvala i banemu za mozgalicu koju nam je postavio, ovako se najbolje i uci naravno uz pomoc clanova foruma.

pade mi na pamet. ovakva vrsta zastite radi ako mi licno korisniku sa svoje diskete ili ... instaliramo (snimimo) aplikaciju, ali ako je posaljes mailom ili na postom na cd-u ? ovo ponovo otvara novi problem. kontam da mozda vezem za datum nesto kao da ocita now ili date a u vb da se zada ako je je now > od "zeljeni datum" da je testni period istekao. odoh ja da probam ovo ali sam siguran da cu imati problema sa formatom datuma na razlicitim kompjuterima.
sta vi mislite o ovome?

probao, radi. nesto kao:

Private Sub Form_Open(Cancel As Integer)
date = Format(Now, "dd.mm.yyyy")
If date > "01.09.2005" Then
MsgBox "date je veci"
Else
MsgBox "date je manji"
End If
End Sub

pa sad varijacije na temu ali mislim da je ovo bolje za slanje postom zajedno sa prethodnim.
opet sta vi mislite?

grrrrrr! uvijek moze promijeniti datum u date i time properties!

Ja bih hteo da dodam nesto, to oko zastite programa serijskim brojem hdd.
Posto nisam probao da krekujem tudje programe, ali svoje jesam???
Prvo prilikom svakog formatiranja da li se menja SB HDD, ja mislim da da.
Drugo Kako imam gomilu masina potpuno istih sa skoro istim podesavanjima, Koristim Northon Gost, jednu masinu uradim a zatim napravim sliku tog HDD, onda tu sliku prelepim na HDD druge masine. Ako nisu isti HDD posao doradim sa Partition Magicom.

Moje je pitanje da li moze da na primer gde je vec istaliran Access napravim sliku i prelepim je na drugu masinu. Zatim doradim podesavanja i to je to!!!!

Prvo prilikom svakog formatiranja da li se menja SB HDD, ja mislim da da.
---------

Malo teže ćeš promeniti fabrički broj diska. Ono što se menja je oznaka particije, ali funkcija ne čita to nego fabrički (serijski) broj diska.

>
>
>
Iz svog iskustava znam da se prilikom svakog formatiranja mijenja Ser.
Broj HDD !

poruka za adenisa!

pogledaj malo ovaj primjer možda ti pomogne

hvala vileko pogledat cu. ja sam kao zavrsio taj dio oko zastite i krenuo da ga isprobam na razlicitim kompjuterima i os. zavrsni dio sam u radio u access 2002 i radi tako dobro da nema sanse da se ikako otvori u access 2000. izbaci gresku i zatvori access skroz. na access 2003 javi da je aplikacija nesigurna za komp itd. uglavnom nisam zadovoljan. fail je uz poruku pa bih volio da ga isprobate i date svoje misljenje zasto se javljaju ove greske a svakako cu i ja ovo dodatno pregledati. u kodu je upisan demo do 10.5.2005 pa kada istekne mozete ga povecati. a instalacioni broj je ujedno i registracioni. a number u tabeli je broj demo pokusaja. ma snaci ce te se sigurno. uglavnom i shift je enable.

gdje nabaviti access development (ako sam dobro napisao) ? ako imate javite mi se na pp.

Evo u namjeri da ti bar malo pomognem oko testiranja, slijedi moj komentar:

Imam Access 2003 i otvarao sam tvoju aplikaciju i registrovanu i neregistovanu i broj pokušaja sam stavio u – (minus) broj i mijenjao sam datum na svom računaru, tj. kasnije od tvog demo datuma 10.5.2005 i niti jedan put mi se aplikacija nije zatvorila niti Access, niti sam dobio bilo kakvu grešku.

ovo sa demo datumom ti ne radi kod mene, jer kad promijenim datum na računaru ništa se ne dešava ali baš ništa. Ako već hoćeš da to imaš i da razvijaš, mislim da bi bilo bolje da negdje upišeš datum instalacije ili prvog pokretanja pa da onda demo ističe nakon, lupam, 60 dana. Sa druge strane mislim da ti je to nepotrebno ako imaš broj pokretanja.

Ovdje bi brate po mom skromnom mišljenju trebao imati neku računsku operaciju nad brojem diska koji bi proglasio registratracionim. Mislim da je to najvažniji dio zaštite. Znači tu ti fali jedna funkcija.

U svakom slučaju svaka čast na aplikaciji i
Sretan rad

pa danas je na masini sa 2003 izbacio poruku da je aplikacija nesigurna ali nakon tvog posta vise nisam siguran da li je to accessova poruka, morat cu to provjeriti. sad su mi javili sa jos jedne masine sa 2000 da ne radi nikako. mora da je nesto do koda koji radi u accessu 2002 ali ne i u 2000.

ako si gledao kod vidio si da u tabelu upisuje datum samo ako je broj demo pokusaja veci od 10. smanji broj pokusaja na 12 pa pokusajima registracije ili demoa na 6, tada ce ti danasnji datum ostati u tabeli registerpro, e onda ce kada budes mijenjao datum imati efekta. znaci dok god je broj pokusaja veci od 10 uvijek zapamti danasnji datum. to je iz razloga sto planiram slati aplikaciju postom sa 11 pocetnih pokusaja.

pa naravno da ce da bude razlicit ali zasto bih sada nekoga mucio da dijeli nesto sa necim ili mnozi ili ...

datum treba zbog slanja aplikacije postom, kao sto sam vec naveo. jer kada neko ima na disketi bazu sa 10 pokusaja, uvijek ce je imati sa 10 pokusaja.

hvala na cestitkama i zeljama.

ovaj promjer 30danademo je super, ali ne radi nikako kada izvrsim import u blank database. problem je u kodu:
Dim db As Database
Dim rs As DAO.Recordset
kada pokusam da prekucam isti kod u ovoj bazi koju mozete skinuti pojave mi se opcije odabira ovih kodova iz padajuceg menija dok kada pokusam da otkucam ovaj kod (as database) u opste mi se i ne pojavljuje kao opcija da njega mogu odabrati iz padajuceg menija.
vjerovatno je nesto do licnog podesavanja accessa a to prilikom slanja aplikacija na razne adrese i nije bas dobro. zasto se ovo desava?

Sto se tice poruke accessa 2003, kod mene tu poruku izbacuje SVAKI PUTA kada otvaram bilo koju bazu. To verovatno ima veze sa "security level" - high, medium. low... Mrzi me da cackam oko toga da bih izbegao tu poruku, ali to je sigurno to, nema veze sa bazom pojedinacno.

Ako ne radi na toj masini 2000 za koju su ti javili, neka provere da li je instalisan DAO 3.6. Nisam siguran, ali mislim da je potrebno da bude aktiviran na racunaru na kom se pokrece baza.

sta je dao 3.6? taj pojam susrecem vec par puta ali ne znam sta je. u tome i jeste problem ako posaljes nekom aplikaciju a kod njega nema sve instalirano onda nastaju problemi. zato sam i pitao za ovaj access development kit ili office devlopment (ako sam opet dobro napisao ali znate na sta mislim), ako neko ima neka mi se javi ili neki link.

DAO 3.6 je tzv "Object Library" koji VB koristi. Odes u VB, pa "Tools", pa "References" pa pogledas (kod tebe na masini), trebalo bi da je 4-ti po redu. Ako ti stoji 3.5, onda je mozda u tome problem.

Uzgred,



je vrlo dobra za DEMO verziju. U tom slucaju ti ne treba zastita na kojoj smo radili. Mozes eventualno da kombinujes ovu gornju "datumsku" zastitu i broj pokretanja, a u tom slucaju ti ceo onaj kod (dva modula) nisu potrebni.

Kada budes hteo da saljes program, ako je kupljen, onda ti treba i to, a kako vec ide, znas, s tim sto ukidas celu pricu oko broja pokretanja, znaci samo izvedes neku racunsku operaciju (pomocu broja diska koji si dobio od kupca) i uneses to u formu, kako je opisano.

Da se i ja prikljucim ovoj veoma zanimljivoj temi.
Pogledajte ovaj add-in.
Mislim da je fantastican.
Nemogu nikako da nadjem mjesto gdje se mjenjaju parametri npr. "broj + broj / broj" da bi se dobio reg. broj.
Ako neko moze da nam to malo razjasni ....

gledao sam ja to ranije i ne radi, izbacuje mi neku gresku u kodu. zasto ne znam a nije me bas zainteresovalo da trazim gresku. dodatak je dobar tj odlican da radi.
prvo pokrenes add-in i izaberes prvu opciju i ubacis formu i modul u bazu. zatim pokrenes formu i procitas svoj pc code. onda pokrenes opciju 2 calculate reg code i dobijes ga.

Kod mene radi .... i znam kako se koristi .... ali treba naci u kodu gdje se mjenjaju postavke koje generisu reg. kod???

Vec neko vreme pratim ovaj forum i sve to u vezi zastite pomocu broja HDD je O.K., ali ja sam pre nekoliko godina imao primer zastite baze pomocu upisivanja neke vrednosti u REGISTRY i to je radili super. Medjutim ja sam na to zaboravio i sad nemam pojma kako se to radi a i nemam vremena da to trazim ponovo. Princip je slican kao i u vasim primerima, dakle:

- Prilikom prvog pokretanja program zakuca neku vrednost u REGISTRY koja je osnov za proveru prava pristupa bazi,

- Ostalo je sve stvar maste.

lj.

Mnogo si nam pomogao!
Vazna je ideja, ostalo je lako...

"Sto se mrcis kad kovati neces,
sto zbor skupis kad zboriti ne smijes..."

Za većinu nas je stvar mašte da si ti pre nekoliko godina imao program koji je to radio.

Sta vam je ljudi, nemojte se ljutiti !

Zaista mi nije namera sada da se izvinjavam ni da vas uveravam da stvarno nemam vremena zasad, ali ...

O.K. Obecavam da cu za vikend da se pozabavim po ovom pitanju i da cu vec u ponedeljak da vam ponudim kompletno resenje.

Ako tema ima >750 pregleda u nekoliko nedelja, onda zasluzuje da bude Top :-)

Evo i jedan primitivan trik koji znacajno redukuje zelju da se aplikacija instalira kod neovlascenog korisnika - na vaznije forme i reporte se ubaci logo konkretnog korisnika. Ako na fakturama pise "United Process Management" onda je malo verovatno da ce neka "Djokina Knjizara" da upotrebi isti program. I naravno, uvek se salje MDE, nikad MDB. :-)

>
>
>
Jednostavna rijesenja su uvijek najbolja.
Ali npr. u mojem programu za ispis virmana ne mogu da zelepim logo
jer zamisli logo na virmanu.
Vidim da vecina nas ima slican problem ali ipak
najveci problem jos uvjek ostaje naplata, jer kada se kreira
neki program tesko je naplatiti njegovu pravu vrednost.
Bilo bi dobro kad nasi ljudi videli koliko je potrebno truda i rada
da bi se napravila neka aplikacija.

Bas sam iz tog razloga "batalio" MS ACCESS!
Moram potraziti nesto pametnije, a da ne moram da ucim od nule!

Poz
Yolja

Evo jedan primjer koji sam nasao na nekom forumu, neće biti od velike koristi obzirom da je MDE, ali izvrstan je pa nije loše pogledati ga.

Pogledajte ovu sliku tako izgleda aplikacija radjena u Access-u za imenik. Kada sam ga prvi put pokrenuo izbacio mi je dialog box gde je pisala neka sifra 1321313213 morao sam da ih zovem i da im procitam tu sifru da bi mi dozvolili ulazak u program. Svako sledece pokretanje (kada izbrisem program) izbacuje nov broj i mora se ponovo registrovati.