Birazdan yeni web sitemize yönlendirileceksiniz...!!
 ----
Eğer yönlendirilmezseniz "Yeni web sitemize gitmek için buraya tıklayın..."


Visual Basic Dersleri

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






Bu sayfa hakkında yorum ekle:
İsminiz:
E-mail adresiniz:
Siteniz:
Mesajın:

Bugün 25 ziyaretçikişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=