Karakter Güvenlik Fonksiyonu SQL

Bugün SQL Fonksiyonlarından injectionu öğreneceğiz.  Genel olarak yazılımcılar injection  fonksiyonunu farklı metodlar  ( ',",% ) kullanarak kaldırma işlemi ile gerçekleştiriyorlar.  Biz ise farklı bir yöntemle  SQL güvenlik fonksiyonunu ( A-Z, 0-9 ) metodu ile    daha güvenli biçimde  halledeceğiz. 

Function guvenlik_ad(ByVal data As String) As String
 standart = "oksdalscvbç.-qgwex,.mnbvcopğzxvv_ ."
 son = ""
 If Len(data) = 0 Then
  guvenlik = ""
 Else
  For i = 0 to Len(data)
   For f = 1 To Len(standart)
    karakter = Mid(data,i+1,1)
    If karakter = Mid(standart,f, 1) Then son = son & karakter : Exit For
   Next
  Next
 End If
 data = son
 guvenlik_ad = data
End Function

Data deişkeninin güvenli halini döndürür bu fonksiyon. Örnek olarak "İbrahimFirat Net @ 1" yazdığımızı varsayalım fonksiyon bunu "ibrahimfiratnet1" olarak  döndürür. 

degisken = TextBox1.Text ' olsun
If degisken = guvenlik(degisken) Then
      MsgBox("Güvenlik doğrulandı")
Else
     MsgBox("Güvenlik doğrulanamadı")
End If