ياخبرا الفيجوال اشرحو الكود التالي

شكراً على ردودكم يالفريق العربي

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

Dim login, pass1 As String

معناه انه يوجد متغيرين سوف يتم ادخال فيهم نصوص

Dim passch(8) As String

معناه انه يوجد ثمان متغيرات من نفس الاسم (مصفوفة بعد واحد) نوعهم نص

Dim passNew As String

نفس النوع الاول

On Error Resume Next

كود لتفادي الاخطاء

Dim passtemp As String

متغير نوعة نص

passNew = ""

افرغ محتويات المتغير

pass1 = Len(Trim(pass.Text))

معناها ان المتغير Pass1 يحتوي قيمة text1.text بعد حذف المسافات

وارجوا المعذرة على التاخر عليك انت لازم تصبر انا ساعات بموت عشان يجيلي رد

أما بقية الكود انا سوف اشرح بعضه لان فيه اشياء لم أفهمها

MsgBox "Your password after encryption is" & passNew

اظهار رسالة بتخبر المستخدم بكلمة جديدة على ما أظن كلمة المرور

والله الموفق

dim login,pass1 As String
dim passch(8) As string
Dim ctr []
Dim passNew As string

private Function Encryptpass() As string
On Error Resume Next
Dim passtemp As string
passNew=""
pass1=Len(trim(pass.text))
ctr=1
do while ctr <= pass1
passNew=CStr(passNew) & Chr((Asr(Mid(Trim(pass),ctr,1))+17))
ctr=ctr+1
loop
Msgbox "Your password after encryption is" & PassNew
End function

مشكور اخي ميدو على ردك وان شاء الله تفهم باقي الكود وتوضح لي

بسم الله الرحمن الرحيم السلام عليكم

آمل أن تسمح لي أخي الكريم medo_Programming بأن أكمل شرحك القيم

أخي forever_2008_9

أنظر في هذا السطر أعتقد أن هناك خطأ فيه

passNew=CStr(passNew) & Chr((Asr(Mid(Trim(pass),ctr,1))+17))

وهنا بالظبط Chr((Asr(Mid

أعتقد أنه يجب أن يكون هكذا Chr(Asc(Mid

المهم بعد هذ الاصلاح الصغير إلا إذا متأكدا من أنها Asr

لعد ما قاله الاخ medo_Programming

يأتي السطر

ctr = 1

وهو فقط لجعل المتغير يبدأ ب 1 يعني نقطة البدء(initialization with 1)

ليس شيءا كبيرا

السطر التالي

Do While ctr <= pass1

الان سيدخل البرنامج في حلقة تكرارية لا أعرف كيف أقولها يعني طولها هو طول الكلمة المدخلة في Pass.text

يعني لو كانت الكلمة pass فيعيد تكرار الحلقة 4 مرات وسيأتي لنعرف ماذا يفعل داخل الحلقة

السطر التالي

passNew = CStr(passNew) & Chr((Asc(Mid(Trim(pass), ctr, 1)) + 17))

هذا هو الكلام الصح في الكود كاملا ولا يفزعنك طوله فهذا الكود قضى على دوال vb فقط لا غير

كل ما تحتاجه قليل من التركيز والنظر عن قرب

أنظر إلى الصورة

هذا يعني بساطة أن هذ الكود يأخذ حرفا حرفا من Pass.text بواسطة MID

وبعد ان يأخذ الحرف يعيده إلى ascii بواسطة ASC وبعد ذلك يضيف عليه 17 ثم يعيد الرقم المعاد إلى حرف بواسطة CHR

ctr = ctr + 1

هنا يضيف واحد إلى القيمة التي وصل إليها العدد في الحلقة التكرارية

Loop

يخرج من الحلقة

MsgBox "Your password after encryption is" & passNew

هنا ما توصل إليه بتعامله مع جميع دوال VB

أخي الكريم آمل أن تكون قد فهمت قليلا

لا حظ معي أكتب في pass.text

pass.text="a"

ستحصل بالدالة التي كتبتها على

r

الذي ستحصل عليه بهذا السطر

MsgBox Chr(Asc("a") + 17)