مساعدة في انشاء برنامج التشفير

السلام عليكم ورحمة الله وبركاته ،،
اخواني اريد صنع برنامج يشفر الارقام السري مثل من اسم ورقم الى utf-5 التشفير المشهور واريد العكس ايضا يفك التشفير من utf-5 الى النص مع الارقام ..

هل يوجد مثال ،،،

لاني اريد البرنامج مثل في عملية تقوية حماية الدخول للبرنامج بحيث يشفر الرقم للدخول ،، وبهذا المشروع المهم ممكن نستخدمة بكثييير من فكرات ،،، وراح اسوي مشاريع بهذه الفكره واطرحها بالمنتدى ،،

اتمني تساعدوني في المثال .

كود :

Public Function Encrypt(ByVal text As String, ByVal key As String) As String        Try

            Dim crp As New TripleDESCryptoServiceProvider

            Dim uEncode As New UnicodeEncoding

            Dim bytPlainText() As Byte = uEncode.GetBytes(text)

            Dim stmCipherText As New MemoryStream

            Dim slt() As Byte = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}

            Dim pdb As New Rfc2898DeriveBytes(key, slt)

            Dim bytDerivedKey() As Byte = pdb.GetBytes(24)





            crp.Key = bytDerivedKey

            crp.IV = pdb.GetBytes(8)





            Dim csEncrypted As New CryptoStream(stmCipherText, crp.CreateEncryptor(), CryptoStreamMode.Write)





            csEncrypted.Write(bytPlainText, 0, bytPlainText.Length)

            csEncrypted.FlushFinalBlock()

            Return Convert.ToBase64String(stmCipherText.ToArray())

        Catch ex As Exception

            Throw

        End Try

    End Function

    Function Decrypt(ByVal text As String, ByVal key As String) As String





        Dim crp As TripleDESCryptoServiceProvider

        Try

            crp = New TripleDESCryptoServiceProvider

            Dim uEncode As New UnicodeEncoding

            Dim bytCipherText() As Byte = Convert.FromBase64String(text)

            Dim stmPlainText As New MemoryStream

            Dim stmCipherText As New MemoryStream(bytCipherText)

            Dim slt() As Byte = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}

            Dim pdb As New Rfc2898DeriveBytes(key, slt)

            Dim bytDerivedKey() As Byte = pdb.GetBytes(24)

            crp.Key = bytDerivedKey

            crp.IV = pdb.GetBytes(8)





            Dim csDecrypted As New CryptoStream(stmCipherText, crp.CreateDecryptor(), CryptoStreamMode.Read)

            Dim sw As New StreamWriter(stmPlainText)

            Dim sr As New StreamReader(csDecrypted)

            sw.Write(sr.ReadToEnd)

            sw.Flush()

            csDecrypted.Clear()

            crp.Clear()

            Return uEncode.GetString(stmPlainText.ToArray())

        Catch ex As Exception

            Throw

        End Try





    End Function