SQL İçin Karakter Güvenlik Fonksiyonu
| Function guvenlik_ad(ByVal data As String) As String standart = "ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZXWQabcçdefgğhıijklmnoöprsştuüvyzxwq0123456789_ ." 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 |
Bu fonksiyon bize data değişkeninin güvenli halini döndürür. Yani "Arkeolog NET @ 1" yazdığımız zaman bu fonksiyon "ArkeologNET1" değeri döndürür.
Bir alandaki yazının doğru yazılıp yazılmadığını kontrol etmek istersek :
| degisken = TextBox1.Text ' olsun If degisken = guvenlik(degisken) Then MsgBox("Güvenlik doğrulandı") Else MsgBox("Güvenlik doğrulanamadı") End If |
