13-02-21, 05:34 PM
(24-12-20, 12:50 AM)سعود كتب :ممكن برنامج بالفيجول بيسك ٢٠١٠ فيه مثال يوضح الكودبسم الله الرحمن الرحيمالسلام عليكم و ر حمة الله و بركاتهالعديد من الشراح باليوتيوب تطرقوا لموضوع التشفير التقليدي وركزو ا على موضوع المفتاح المسؤول عن الازاحة ولم اتمكن من الحصول على شرح طريقة في بالي لا اعرف كيف اشرحها اصلا.الى ان وجدت بالانترنت دالة تعمل على تغيير بنية المصفوفة اي تجعل لكل حرف مكان عشوائي مما يجعلك تضطر ان تحفظ كل ترتيب عشوائي جديدوهو ما قمت بعمله في مشروعي الاخيرهذه الدالة اشكر من ابتكرها فرغم بساطتها لم و لن اتمكن من الوصول اليها بشكلها النهائي، فمهما حاولت الاستغناء عن اي خطوة فيها لا ينجح العمل.المهم اطلت عليكم ولست بخيركمالكود:PHP كود :
Private Sub RandomizeArray(ByRef arr() As String)
Dim i, j As Integer
Dim temp As String
Randomize()
For i = 0 To UBound(arr) - 1
j = Int(((UBound(arr) - 1) - i + 1) * Rnd() + i)
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
Next
End Subو الآن أسأل الله لي و لكم التوفيق والسداد والستر في الدنيا وفي الأخرة
