تقييم الموضوع :
  • 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 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة:
#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
الفكرة اهم من تشغيل البرنامج
المثال يحتاج تنقيح وتعديل منك حتى يعمل معك.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في امتحاني Zahora 0 113 14-03-21, 08:06 PM
آخر رد: Zahora
Rainbow مساعدة في كود حذف الحروف المكررة العبادي 2 10 601 07-03-21, 05:27 AM
آخر رد: اسلام الكبابى
  [vb6.0] مساعدة فى انشاء تقريرباستخدام active report aboezzat84 0 174 10-01-21, 10:53 PM
آخر رد: aboezzat84
  [سؤال] كيفيه البحث باستخدام الكود aboezzat84 1 161 28-12-20, 05:59 PM
آخر رد: sendbad100
  مساعدة في عدم تكرار سجلات الزواج مصمم هاوي 4 493 20-11-20, 06:18 AM
آخر رد: sendbad100
  سوال اخوانى الاحباب ارجو المساعدة فى هذا الكود كي بورد ارقام mhareek 0 263 22-09-20, 09:04 PM
آخر رد: mhareek
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 474 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 708 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
Lightbulb [كود] كود لتأجيل تنفيذ الكود بدون Timer! Omar 6.0 1 1,160 19-08-20, 09:39 PM
آخر رد: Gfftfdeuoig c
  'طلب مساعدة في حل مشكلة اثناء اجراء تثبيت setup gonm64 4 641 19-08-20, 09:01 PM
آخر رد: gonm64

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


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