مساعدة في التشفير

السلام عليكم ورحمة الله وبركاته

هذه الوظيفة تقوم بتشفير النص الذى تمرره لها واذا مررت لها النص مرة اخرى تعيده الى النص الاصلى اتمنى ان تفيدك

Public Function EncryptText(strText As String) As String
Dim iCounter As Long, encStr1 As String, encStr2 As String _
, encStr As String, encChr As String
iCounter = 1
Do While iCounter <= Len(strText)
    DoEvents
    encStr1 = Mid(strText, iCounter, 1)
    encStr2 = Asc(encStr1)
    encChr = Chr(255 - encStr2)
    encStr = encStr + encChr
    iCounter = iCounter + 1
Loop
EncryptText = encStr
End Function

شكرا على اهتمامك ويا ريت لو عندك أكواد تاني لنفس الغرض تحطها

وشكرا مرة تانية

سلام

ليس عندي إضافة ولكن هذا إختصار للدالة التي وضعها أخونا المهدي

Public Function EncryptText(St1 As String)
For i = 1 To Len(St1)
EncryptText = EncryptText + Chr(255 - (Asc(Mid(St1, i, 1))))
Next
End Function

سلاااااااااااااااااااام

:D

شكرا يا أخ بلال وعلى فكرة الكود انا اختصرته كده برضه واشتغل معايا تمام

بس في مشكلة ...

وهي ان كده اي حد هيجيب النص ده هيقدر يفك تشفيره بسهولة جدا

انما في طريقة تانية كمان سمعت عنها وهي انك بتعمل الحكاية دي وانت اللي بتحط قواعد التشفير بنفسك

يعني تعمل جمع وطرح واعادة ترتيب وحاجات زي كده في النص المدخل من قبل المستخدم

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

ياريت اللي عنده فكرة عن الموضوع ده يفيدنا

=======

سلام

كله شغل خوارزميات

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

ممكن تقوللى ازاى المستخدم هايقدر يفك تشفير النص المشفر بالدالة السابقة ؟ :unsure:

بسيطة إنتظرني إن شاء الله سأضع دالة تعتمد على رقم من 1 إلى 255 ويجب عل كل من يريد فك التشفير معرفة هذا الرقم يعني حاجة مثل كلمة السر لكن برقم

سلااام

اخى بلال انا اتحدث عن المستخدم العادى وليس المبرمج :rolleyes:

اقتباس

اخى بلال انا اتحدث عن المستخدم العادى وليس المبرمج

أنا أفهم ذلك جيدا ولكن الكود الذي في المرفقات الأن شبيه بما قبله

الدالة

Public Function Encrypt(St As String, Nm As Long, Decrypt As Boolean)
If Nm <= 255 And Nm > 0 Then
If Decrypt = True Then
Nm = -1 * Nm
End If
For i = 1 To Len(St)
Ascode = Asc(Mid(St, i, 1)) - Nm
If Ascode < 0 Then
Ascode = Ascode + 255
ElseIf Ascode > 255 Then
Ascode = Ascode - 255
End If
Encrypt = Encrypt + Chr(Ascode)
Next
End If
End Function

ومرفق مثال على إستخدامها

Shaf.zip

السلام عليكم و رحمة الله

ماشاء الله علي الأخوة ما قصروا

تم تعديل العنوان هذه المره :)

مثال اخر للتشفير

Encrypt.zip

السلام عليكم

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

انا مهتمة بهذا الموضوع كثيرا فأرجوا الإفادة