01-10-17, 02:12 PM
(آخر تعديل لهذه المشاركة : 01-10-17, 02:32 PM {2} بواسطة silverlight.)
الأسلوب السابع:
String Indent
وهو أحد الأساليب البسيطة جدا للتشفيير
و الفكرة تكمن في انك تأخذ اي String و تضيف له أي String أخر
وهذا الفكرة من الممكن كتابة الكود الخاص بها بطرق برمجية كثيرة
و الكود التالي يمثل واحدا من هذه الطرق
كيفية استخدام الدالة أعلاه
طبعا و لفك التشغيير عليك فقط أن تحذف الجزء الذي تم إضافته الي String الأضلي
نفس الفكرة هذه من الممكن استخدامها في تجميل أو تزيين أي String
ومن الممكن طبعا تحويل الناتج الي مصفوفة بايت
مثال
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
Retired

