[es] - sprecavanje ulaska preko shifta

niknen

Član broj: 69798
Poruke: 66
195.252.117.*

Profil

^{29.11.2006. u 13:40}

da li postoji mogucnost da se zabrani ulazak u tableu preko shifta? da li postoji mogucnost da kada hocemo da udjemo u bazu preko shifta da tek tada izbaci formu za unos sifre i samo ako pogodite sifru da mozete da udjete u bazu. Ili tako nesto slicno tome ako neko ima ideju neka napise hvala unapred

^{29.11.2006. u 13:40}

djalfirevic
Djuro Alfirevic
Beograd

Član broj: 76932
Poruke: 482
212.62.55.*

Profil

Re: sprecavanje ulaska preko shifta

^{30.11.2006. u 10:41}

Samo postavi sifru na bazu podataka i tako niko nece moci da ti otvori bazu preko shift-a. Naravno ukoliko taj neko sazna tvoju sifru kada je ukuca, on moze da drzi shift i da klicne Enter, i onda ponovo moze da otvori Startup Properties, ali ti nemoj da mu dozvolis da dodje u posed sifri, naravno.

OK?

^{30.11.2006. u 10:41}

gojkto
Wien,NS

Član broj: 29220
Poruke: 33
*.WLAN-BCL81.NSD.panline.net.

Profil

Re: sprecavanje ulaska preko shifta

^{30.11.2006. u 11:33}

Ali posotoje programcici koji ti lako i brzo razvale tvoju sifru na Access-u... Tako da je sve ostalo lako i jednostavno...

^{30.11.2006. u 11:33}

srdjan ub
Srdjan Kostic
UB

Član broj: 25171
Poruke: 84
212.200.178.*

Sajt: www.batamusicki.com

Profil

Re: sprecavanje ulaska preko shifta

^{18.02.2007. u 11:08}

Evo ti koda, ovaj definitivno radi, napravi novi modul i u njega kopiraj ovo:

Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
On Error GoTo Err_SetProperties

'Dim db As Database, prp As Property
Dim db As DAO.Database, prp As DAO.Property

Set db = CurrentDb
db.Properties(strPropName) = varPropValue
SetProperties = True
Set db = Nothing

Exit_SetProperties:
Exit Function

Err_SetProperties:
If Err = 3270 Then 'Property not found
Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
db.Properties.Append prp
Resume Next
Else
SetProperties = False
MsgBox "Runtime Error # " & Err.Number & vbCrLf & vbLf & Err.Description
Resume Exit_SetProperties
End If

End Function

'Postavi sledeće na prop. On Click dugmeta, slike (transparent?) zvanog "bDisableBypassKey".
'Promeni lozinku.

Private Sub bDisableBypassKey_Click()
On Error GoTo Err_bDisableBypassKey_Click

Dim strInput As String
Dim strMsg As String

Beep
strMsg = " Zelite li omoguciti SHIFT key?" & vbCrLf & vbLf & " Molimo Vas upisite sifru za omogucivanje SHIFT key-a."
strInput = InputBox(Prompt:=strMsg, Title:=" Shift key nije omogucen ")

If strInput = "Upisite vasu sifru ovde" Then
SetProperties "AllowBypassKey", dbBoolean, True
Beep
MsgBox " Shift key je ukljucen." & vbCrLf & vbLf & " Slijedeci put kad budete otvarali vasu bazu Shift key ce biti omogucen.", vbInformation, "Set Startup Properties"
Else
Beep
SetProperties "AllowBypassKey", dbBoolean, False
MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & " Shift key je onemogucen." & vbCrLf & vbLf & " Slijedeci put kad budete otvarali bazu Shift key ce biti onemogucen.", vbCritical, " Netacna sifra "
Exit Sub
End If

Exit_bDisableBypassKey_Click:
Exit Sub

Err_bDisableBypassKey_Click:
MsgBox "Runtime Error # " & Err.Number & vbCrLf & vbLf & Err.Description
Resume Exit_bDisableBypassKey_Click

End Sub

………………………………………………………………………………………………
………………………………………………………………………………………………
Kada zelite omoguciti Shift key kliknete na command buton (label) unesete sifru, zatvorite bazu i ponovo je otvorite drzeci Shift.
Kada zelite onemoguciti Shift key takodjer kliknite na command buton (label) unesite netačnu šifru i zatvorite bazu. Shift key će biti onemogućen.
Radi samo na trenutno otvorenoj formi !!!!!!!!!

^{18.02.2007. u 11:08}

Pike79

Član broj: 52785
Poruke: 199
212.200.182.*

Profil

Re: sprecavanje ulaska preko shifta

^{18.02.2007. u 16:26}

Sta dalje kada se otvori novi modul i iskopira se u njega ovaj kod?
Jel treba da se napravi nova forma i neko dugme i kako?
Ako nije problem zakaci primer.

Pozdrav!

Bez muke nema nauke!!!

^{18.02.2007. u 16:26}

srdjan ub
Srdjan Kostic
UB

Član broj: 25171
Poruke: 84
212.200.178.*

Sajt: www.batamusicki.com

Profil

Re: sprecavanje ulaska preko shifta

^{19.02.2007. u 00:14}

Pike79, piše ti gore da gornji deo koda (vidiš valjda da ih ima 2) kopiraš u modul i sačuvaš ga, a potom kreiraš dugme ili sliku (poželjno je da bude transparent da ne bih bilo ocigledno, ali ne mora) i nazoveš ga "bDisableBypassKey" kao što piše i onda sledeći deo kopiras u OnClick osobinu tog dugmeta ili slike i promeniš u tvoju lozinku.
Pročitaj dobro pre nego nego što pitaš, vidiš valjda gde počinje kod, a gde se završava.
Pozdrav!

^{19.02.2007. u 00:14}

Pike79

Član broj: 52785
Poruke: 199
212.200.185.*

Profil

Re: sprecavanje ulaska preko shifta

^{19.02.2007. u 15:35}

upravu si nisam dobro gledao.
Sad razumem!
Hvala ti!
Pozdrav!

Bez muke nema nauke!!!

^{19.02.2007. u 15:35}

Pike79

Član broj: 52785
Poruke: 199
*.beobug.com.

Profil

Re: sprecavanje ulaska preko shifta

^{19.02.2007. u 23:26}

Srdjane ovo resenje ti je super!
Da li je ovako postavljenu lozinku lako provaliti u praksi?

Pozzdrav!

Bez muke nema nauke!!!

^{19.02.2007. u 23:26}

srdjan ub
Srdjan Kostic
UB

Član broj: 25171
Poruke: 84
212.200.178.*

Sajt: www.batamusicki.com

Profil

Re: sprecavanje ulaska preko shifta

^{20.02.2007. u 00:17}

Kao što znaš .mdb file može da se provali ali čini mi se da to nije baš lako sa ovim slučajem (bar ja to ne znam), ali zato i postoji i konverzija u .mde, gde nemože doći u kod modula. Ovo je ipak druga stvar u odnosu na glupu access-ovu šifru gde sa običnim programčićom može svako da je provali. Mislim da je ovo u kombinaciji sa zaštitom za kopiranje i konvertovanjem u .mde file solidna zaštita. Pozdrav !

_{[Ovu poruku je menjao srdjan ub dana 21.02.2007. u 02:08 GMT+1]}

^{20.02.2007. u 00:17}

Pike79

Član broj: 52785
Poruke: 199
*.beobug.com.

Profil

Re: sprecavanje ulaska preko shifta

^{20.02.2007. u 23:34}

Nasao sam nedostatak ovog nacina zastite.
A to je, da mozes da iz druge novoformirane baze da importujes tabele i sve ostale objekte i da ih modifikujes ako je mdb fajl ta baza koja je navodno zasticena.
Sto znaci da ovaj vid zastite i nije tako sjajan.
Taman sam se ponadao to ono sto nam je svima trebalo da zastitimo ono sto smo gradili :-(
Pozdrav!

Bez muke nema nauke!!!

^{20.02.2007. u 23:34}

srdjan ub
Srdjan Kostic
UB

Član broj: 25171
Poruke: 84
212.200.178.*

Sajt: www.batamusicki.com

Profil

Re: sprecavanje ulaska preko shifta

^{21.02.2007. u 00:53}

Zato ti i kažem da ovo ide u kombinaciji sa zastitom za kopiranje i konvertovanjem u .mde jer neće moći da otvori modul iz .mde!
Ali pak sada postoje neki programčići gde možes otvoriti forme iz .mde, a sifra se nalazi na formi????
ne znam da li bi kod mogao da bude u modulu a da se inicira samo iz forme, onda bi bilo dosta bolje???

_{[Ovu poruku je menjao srdjan ub dana 21.02.2007. u 02:07 GMT+1]}

^{21.02.2007. u 00:53}

in4mer
Nenad Pavić
Beograd

Član broj: 176161
Poruke: 1
212.62.55.*

Sajt: www.nenad.iz.rs

Profil

Re: sprecavanje ulaska preko shifta

^{18.03.2008. u 20:17}

Da se nadovežem na postavljeno pitanje:

Meni treba samo kod koji će zabraniti pristup tabelama i dizajn pogledu pomoću Shift-a ( i njegova primjena ), a ne i onaj koji će to ponovo omogućiti. Ponovno omogućavanje Shift-a ću riješiti na drugi način, pomoću tajnih vrata koja vode direktno na Startup. Radi se o .adp aplikaciji koja je nadovezana na MS SQL bazu. Znam da postoji modul za to, ali ne mogu da ga pronađem. Možda je to moguće i pomoću ovog modula, ali, i ako jeste, ne znam kako da ga aktiviram.

Našao sam nešto na: http://www.mvps.org/access/general/gen0040.htm ali ne snalazim sa baš dobro sa engleskim.

_{[Ovu poruku je menjao in4mer dana 19.03.2008. u 11:05 GMT+1]}

Nenad

^{18.03.2008. u 20:17}