تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مساعدة في عمل هذا الكود
#1
السلام عليكم ورحمه الله وبركاته
ارغب في كود يخلط الحروف او الارقام كما يلي
ياخذ الحرف الاخير ويجعله الاول
ياخذ الحرف الاول ويجعله الثاني
ياخذ الحرف قبل الاخير ويجعله الثالث
ياخذ الحرف الثالث ويجعله الرابع
وهكذا
ويستمر عمل الكود حتى نحصل علي الكلمة الاصلية أو الرقم الاصلي

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

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

شكرا اخي سعود على الاهتمام
ولكن
ليس لدى مصفوقة 
كل ما فى الامر هو تغيير مواقع الحروف بنمط معين
الحرف الاخير يصير اولا
الحرف الاول يصير ثانيا
الحرف قبل الاخير يصير ثالثا
الحرف الثاني يصير رابعا
وهكذا الى الى نعود الى الكلمة الاصلية
 ارجو المساعدة من خلال وضعه فى مشروع
الرد }}}
تم الشكر بواسطة:
#4
(29-01-21, 06:53 PM)العبادي 2 كتب :
(29-01-21, 05:22 PM)سعود كتب : و عليكم السلام ورحمة الله و بركاته
حول النص الى مصفوفة ثم استخدم الدالة.

شكرا اخي سعود على الاهتمام
ولكن
ليس لدى مصفوقة 
كل ما فى الامر هو تغيير مواقع الحروف بنمط معين
الحرف الاخير يصير اولا
الحرف الاول يصير ثانيا
الحرف قبل الاخير يصير ثالثا
الحرف الثاني يصير رابعا
وهكذا الى الى نعود الى الكلمة الاصلية
 ارجو المساعدة من خلال وضعه فى مشروع
لدي مثالين بنفس الفكرة  حقيبة المشفر بالدوت نت و الفيجوال بيسك 6.0 
المصفوفة انت تنشئها من حرفين فاكثر.
احاول اجهز مثال بسيط وارجو ان يعجبك.
الرد }}}
تم الشكر بواسطة:
#5
فى الانتظار عزيزي
الرد }}}
تم الشكر بواسطة: سعود
#6
PHP كود :
Private Function RandomizeArray(ByRef arr() As String) As String()
 
       Dim iAs Integer
        Dim temp 
As String
        Randomize
        For i 
0 To UBound(arr)
 
           j Int(((UBound(arr)) - 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
0
For 1 To Len(txt)
Dim v As String
Mid(txti1)
ReDim Preserve arr(p)
arr(p) = v
1
Next
MakeArrFromText 
arr
End 
Function
Private 
Sub Command1_Click()
Dim a As String
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


الملفات المرفقة
.rar   foral3abady.rar (الحجم : 1.64 ك ب / التحميلات : 9)
الرد }}}
تم الشكر بواسطة:
#7
(29-01-21, 08:02 PM)سعود كتب :
PHP كود :
Private Function RandomizeArray(ByRef arr() As String) As String()
 
       Dim iAs Integer
        Dim temp 
As String
        Randomize
        For i 
0 To UBound(arr)
 
           j Int(((UBound(arr)) - 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
0
For 1 To Len(txt)
Dim v As String
Mid(txti1)
ReDim Preserve arr(p)
arr(p) = v
1
Next
MakeArrFromText 
arr
End 
Function
Private 
Sub Command1_Click()
Dim a As String
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
جميل جدا اخي سعود

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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#8

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



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


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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#10
هذي مشكلة قاعدة البيانات Sad
الفكرة اهم من تشغيل البرنامج
المثال يحتاج تنقيح وتعديل منك حتى يعمل معك.
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اختصار الكود حسب المثال المرفق abde6726 2 282 29-10-23, 11:00 AM
آخر رد: abde6726
  اختصار الكود حسب المثال المرفق abde6726 0 220 28-10-23, 05:01 PM
آخر رد: abde6726
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
  [vb6.0] مساعدة بتعديل كود الضغط على مفتاح F1 في الكيبورد جلال اليمني 0 173 13-10-23, 08:04 PM
آخر رد: جلال اليمني
Question [سؤال] مساعدة فى الحدث KeyDown و KeyCode soom3aa 0 433 13-11-22, 09:06 AM
آخر رد: soom3aa
  [vb6.0] طلب مساعدة samer_g_m 1 541 07-11-22, 01:20 AM
آخر رد: Taha Okla
  طلب مساعدة في تحديد الترقيم مصمم هاوي 0 553 05-08-22, 04:43 PM
آخر رد: مصمم هاوي
Question كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟ Microformt 1 913 22-11-21, 07:51 PM
آخر رد: اسلام الكبابى
Question [vb6.0] هل يمكن تغير نوع خط Label من خلال الكود وكيف ذلك ؟؟ Microformt 2 1,051 10-10-21, 08:58 AM
آخر رد: Microformt
Question [vb6.0] نامل المساعدة في هذا الكود المرفق إن امكن ذلك ؟؟ Microformt 3 1,262 23-05-21, 08:50 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم