[سعود]

كود بسيط باستخدام الـ regex
اولا استدعاء

PHP كود :

Imports System.Text.RegularExpressions 


ضع مربع نص وزر امر وبحدث النقر لزر الامر اكتب:

PHP كود :

Dim str As String = "^(makkah-madina-2014-1435)$"
        Dim reg As New Regex(str)
        Dim ma As Match = reg.Match(TextBox1.Text)
        If ma.Success Then
            MsgBox("أهلا وسهلا بك", MsgBoxStyle.Information, "")
        Else
            MsgBox("خطا في بيانات الدخول", MsgBoxStyle.Critical, "")

        End If 


او ممكن تستخدم دوال التشفير الجاهزة
ارجو ان اكون قدمت ما تريد