[silverlight]

الأسلوب السابع:
String Indent
وهو أحد الأساليب البسيطة جدا للتشفيير
و الفكرة تكمن في انك تأخذ اي String و تضيف له أي String أخر

وهذا الفكرة من الممكن كتابة الكود الخاص بها بطرق برمجية كثيرة
و الكود التالي يمثل واحدا من هذه الطرق

PHP كود :

   Private Function TryIndent(ByRef source As String, func As Func(Of String, String)) As Boolean
        While func IsNot Nothing
            Dim src As String = source
            Dim dest As String = func(src)
            If src = dest Then
                Exit While
            End If
            If src <> dest Then
                Return True
            End If
        End While
        Return False
    End Function

    Private Function TryIndent(func As Func(Of String, String)) As Boolean
        Dim source As String = Nothing
        Return TryIndent(source, func)
    End Function 


كيفية استخدام الدالة أعلاه

PHP كود :

       Dim indent As String = "1234"
        Dim func As Func(Of String, String) = Function(s) indent + s
        Dim toIndnet As String = "56789"
        Dim indented As String = String.Empty
        If TryIndent(func) Then
            indented += func(toIndnet)
        End If

        Me.Text = indented 


طبعا و لفك التشغيير عليك فقط أن تحذف الجزء الذي تم إضافته الي String الأضلي


نفس الفكرة هذه من الممكن استخدامها في تجميل أو تزيين أي  String
ومن الممكن طبعا تحويل الناتج الي مصفوفة بايت
مثال

PHP كود :

       Dim indent As String = "♥´¯`*•.¸¸♥"
        Dim func As Func(Of String, String) = Function(s) indent + s + indent
        Dim toIndnet As String = "visual basci"
        Dim indented As String = String.Empty
        If TryIndent(func) Then
            indented += func(toIndnet)
        End If

        Me.Text = indented