Acceste tablo sorgulardan bundan böyle verileriniz okunamayacak
.. sadece sizin istediğiniz formdan verileriniz okunabilecek.. inşallah işinize yarar.. öncelikle verilerin şifreleneceği formun option compare database nin altına ;
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
kopyalıyoruz.
ve ilişikte gönderdiğim veritabanı üzerinden sonrası takip edilir.
-------
verilerin çözüleceği formunda yine aynı yerine;
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
kopyalıyoruz.
bunlar yapıldıktan sonra yani şöyle oluyor; biz hangi alan için şifreleyeceksek EncryptText kullanacaz , hangi alan için şifreyi çözeceksek DecryptText kullanacaz.
örnek; EncryptText((adiniz), txtpassword) burda txtpassword alanı şu alana göre şifrele anlamını taşıyor.. yani adiniz alanındaki veriyi, txtpassword alanındaki parolayla şifrele..
örnek; DecryptText(([adiniz]), [txtpassword]) burda da txtpassword alanı şu alana göre şifreyi çöz anlamını taşıyor.. ayni adiniz alanındaki veriyi, txtpassword alanındaki paraloyla şifreyi çözüyor txtpassword alanında doğru parola girildiyse tabiki.. yoksa hiç kimse çözemez!!
iyi çalışmalar..
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
kopyalıyoruz.
ve ilişikte gönderdiğim veritabanı üzerinden sonrası takip edilir.
-------
verilerin çözüleceği formunda yine aynı yerine;
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
kopyalıyoruz.
bunlar yapıldıktan sonra yani şöyle oluyor; biz hangi alan için şifreleyeceksek EncryptText kullanacaz , hangi alan için şifreyi çözeceksek DecryptText kullanacaz.
örnek; EncryptText((adiniz), txtpassword) burda txtpassword alanı şu alana göre şifrele anlamını taşıyor.. yani adiniz alanındaki veriyi, txtpassword alanındaki parolayla şifrele..
örnek; DecryptText(([adiniz]), [txtpassword]) burda da txtpassword alanı şu alana göre şifreyi çöz anlamını taşıyor.. ayni adiniz alanındaki veriyi, txtpassword alanındaki paraloyla şifreyi çözüyor txtpassword alanında doğru parola girildiyse tabiki.. yoksa hiç kimse çözemez!!
iyi çalışmalar..