Veri tabanını şifreleme

04/01/2011, 13:23

by body 1

Arkadaşlar merhaba,
Herkese öncelikle hayırlı seneler diliyorum.Aslında site içinde araştırdım fakat benim yapmak istediğim,yaptığım programın tablolarının ve formlarının başka bir veri tabanına ( tablo al ) yöntemiyle kopyalanmaması.Yaptığım programı çalıştığım şirkette ortak klasöre koyarak kullanıma açtım.Fakat dediğim gibi başka bir veritabanı yardımıyla tablolarıma ve formlarıma erişimi engellemek için nasıl bir uygulama yapmam gerekli yada accesste böyle bir uygulama yapılabiliyormu.Tşkr.
04/01/2011, 16:42

mehmetdemiral

Bunun için verilerinizi şifreleyerek yazdırabilirsiniz tabloya. Böylece tabloyu alan kişi başka hiçbir yerde kullanamaz. Aşağıdaki konu size yardımcı olacaktır.

https://accesstr.net/konu-access-tablola...leyin.html
04/01/2011, 17:43

by body 1

Hocam ,
Ekteki form üzerinden yardımcı olabilirmisiniz.Kusura bakmayın anlayamadım.Birde bu işlemi kaydet demeden yapamayızmı.Tşkr.
04/01/2011, 18:01

mehmetdemiral

Burada olay tamamen iki fonksiyonla yapılıyor. Bunları aşağıya ayrıca veriyorum.

Kod:
Private Function EncryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then
strPwd = UCase$(strPwd)
#End If
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function

Kod:
Private Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
#If Not CASE_SENSITIVE_PASSWORD Then
strPwd = UCase$(strPwd)
#End If
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function

Daha sonra da kaydet butonu aracılığı ile şu kodlar kullanılarak yazdığınız herşey password cümlesine göre değiştiriliyor:

Kod:
adiniz = EncryptText((txttext), txtpassword)
soyadiniz = EncryptText((txttext1), txtpassword)
adres = EncryptText((txttext2), txtpassword)

Sitemizde öğretmek amaçlı yardımlarda bulunuyoruz. Bu nedenle "şunu yapın" demeden önce nasıl yapıldığını öğrenmeye çalışın. Birşeyler karalayın, sonra biz hatanızı düzeltiriz. Kolay gelsin.
04/01/2011, 18:13

by body 1

sn.mehmetdemiral hocam ,Yardımlarınızdan ve katkılarınızdan dolayı teşekkürler.