منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

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

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

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

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

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

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

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

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

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

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

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

(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

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

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

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

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

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

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

هذي مشكلة قاعدة البيانات Sad

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

الصفحات : 1 2