[العبادي 2]

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

مثال 
في الحروف
ا س ع د
د ا ع س
س د ع ا
ا س ع د
مثال في الارقام
4321
2314
1342
4321

هذه الطريقه يمكن ان تستخدم في التشفير او كباسورد

[سعود]

و عليكم السلام ورحمة الله و بركاته
حول النص الى مصفوفة ثم استخدم الدالة.

[العبادي 2]

(29-01-21, 05:22 PM)سعود كتب : و عليكم السلام ورحمة الله و بركاته
حول النص الى مصفوفة ثم استخدم الدالة.

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

[سعود]

(29-01-21, 06:53 PM)العبادي 2 كتب :

(29-01-21, 05:22 PM)سعود كتب : و عليكم السلام ورحمة الله و بركاته
حول النص الى مصفوفة ثم استخدم الدالة.

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

لدي مثالين بنفس الفكرة  حقيبة المشفر بالدوت نت و الفيجوال بيسك 6.0 
المصفوفة انت تنشئها من حرفين فاكثر.
احاول اجهز مثال بسيط وارجو ان يعجبك.

[العبادي 2]

فى الانتظار عزيزي

[سعود]

PHP كود :

Private Function RandomizeArray(ByRef arr() As String) As String()
        Dim i, j As Integer
        Dim temp As String
        Randomize
        For i = 0 To UBound(arr)
            j = Int(((UBound(arr)) - i + 1) * Rnd() + i)
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
        Next
        RandomizeArray = arr
    End Function
Private Function MakeArrFromText(ByVal txt As String) As String()
Dim arr() As String
Dim p As Integer
p = 0
For i = 1 To Len(txt)
Dim v As String
v = Mid(txt, i, 1)
ReDim Preserve arr(p)
arr(p) = v
p = p + 1
Next
MakeArrFromText = arr
End Function
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Text1.Text = ""
Dim myarr() As String
myarr = MakeArrFromText(a)
myarr = RandomizeArray(myarr)
For Each h In myarr
Text1.Text = Text1.Text & h
Next
End Sub 


ولو تحب المرفق فكلمة فك الضغط

vb4arb

[العبادي 2]

(29-01-21, 08:02 PM)سعود كتب :

PHP كود :

Private Function RandomizeArray(ByRef arr() As String) As String()
        Dim i, j As Integer
        Dim temp As String
        Randomize
        For i = 0 To UBound(arr)
            j = Int(((UBound(arr)) - i + 1) * Rnd() + i)
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
        Next
        RandomizeArray = arr
    End Function
Private Function MakeArrFromText(ByVal txt As String) As String()
Dim arr() As String
Dim p As Integer
p = 0
For i = 1 To Len(txt)
Dim v As String
v = Mid(txt, i, 1)
ReDim Preserve arr(p)
arr(p) = v
p = p + 1
Next
MakeArrFromText = arr
End Function
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Text1.Text = ""
Dim myarr() As String
myarr = MakeArrFromText(a)
myarr = RandomizeArray(myarr)
For Each h In myarr
Text1.Text = Text1.Text & h
Next
End Sub 


ولو تحب المرفق فكلمة فك الضغط

vb4arb

جميل جدا اخي سعود

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

[سعود]

هذي بطريقة اخرى وهي مثل ماقلت لك عملتها شوف الرابط

---

تقصد مثل الفكرة هذي؟

[العبادي 2]

(29-01-21, 08:44 PM)سعود كتب :
هذي بطريقة اخرى وهي مثل ماقلت لك عملتها شوف الرابط

عند تشغيل البرنامج ظهرت رسالة خطأ كما فى المرفقات

[سعود]

هذي مشكلة قاعدة البيانات
الفكرة اهم من تشغيل البرنامج
المثال يحتاج تنقيح وتعديل منك حتى يعمل معك.