اى طريقة للتشفير ولا داعي لطريقة الخوارزمية

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

يمكنك استعمال خوارزمية من خوارزميات التشفير المعروفة مثل الMD5 لعمل تشفير البيانات مثل كلمة السر

/index.php?showtopic=104530

كنت قد ارسلت من قبل موضوع حول تشفير البيانات ولم يساعدني احد لماذا ؟ تسليمي بعد ايام ما الممطلوب مني ؟ ارسل الي اخ كريم موضوع خوارزمية md5 ولكنها لا يوجد فك شفير بها وهذة مصيبة في حد ذاتها فانا ادخلت البيانات والبيانات تم حفظها في القاعدة مشفرة ... ولكني لا استطيع قراأتها من داخل الفيجوال بيسك 6 وهذا ليس مطلوب ممطلوب انن يتم تخزين البيانات بطريقة مشفرة تمام التمام .... ولكن عند تصفح البياننات من داخل الفيجوال بيسك تكون البيانات عادية جدا فكيف يتم ذلك ..... بالله عليكم ههذا علم ومن كتم علما الجمة الله بلجام من نار يوم القيامية .... هذة ثاني رسالة لي في هذا اليوم ومنتظرة الرد .

دا ايميلي لو هناك مثال فية المطلوب hawsalleck@yahoo.com ان شاء الله الاقي حل في اقرب وقت بإن الله تعالي

اختكم .

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

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

يا جماعه دي ثالث رسالة ارسلها اليوم وانا لسه مسجلة في المنتدي اليوم وهذا ليس معقول ما في احد يرد عليا وهذا نص اخر رسالة

كنت قد ارسلت من قبل موضوع حول تشفير البيانات ولم يساعدني احد لماذا ؟ تسليمي بعد ايام ما الممطلوب مني ؟ ارسل الي اخ كريم موضوع خوارزمية md5 ولكنها لا يوجد فك شفير بها وهذة مصيبة في حد ذاتها فانا ادخلت البيانات والبيانات تم حفظها في القاعدة مشفرة ... ولكني لا استطيع قراأتها من داخل الفيجوال بيسك 6 وهذا ليس مطلوب ممطلوب انن يتم تخزين البيانات بطريقة مشفرة تمام التمام .... ولكن عند تصفح البياننات من داخل الفيجوال بيسك تكون البيانات عادية جدا فكيف يتم ذلك ..... بالله عليكم ههذا علم ومن كتم علما الجمة الله بلجام من نار يوم القيامية .... هذة ثاني رسالة لي في هذا اليوم ومنتظرة الرد .

دا ايميلي لو هناك مثال فية المطلوب hawsalleck@yahoo.com ان شاء الله الاقي حل في اقرب وقت بإن الله تعالي

اختكم .

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

علشان خاطر ربنا اننا مش هنام الليل غير ما حد يجاوب علي سؤالي .

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

ه>ة رابع رسالة موجهة الي المنتدي وما زال ما فهمني احد اشرح من الاول وامري الي الله

نحن في الجامعة اخبرنا الدكتور بأننا نشفر اي كومبو بوكس مث الجنسية مثلا ومثل الجنس وامكانية اضافة جنسيات جديدة اثناء تنفيذ البرنامج والمطلوب كما شرحت سالفا اننا نريد تخزين البيانات في قاعدة البيانات بأى طريقة كانت وانا لا اعرف ولا طريقة من طرق التشفير انا مجرد طالبة في الجامعة المهم ان البيانات تذهب للقاعدة مشفرة لكن عندما اسجل شخص ما مثلا اضغط علي الكومبو فأجد القائمة بها جنسيات طبيعية جدا مثل تونسي - عراقي - فلسطيني . لكن هذة الدول مخزنة علي هيئة بيانات مشفرة في قاعدة البيانات وانا سألت من قبل ودلنى احدكم علي طريقة الخوارزمية ولكنها تشفر البيانات ولا تأتي ببيانات غير مشفرة وهذا لا يصح فإذا اراد المستخدم ان يختار اى جنسية ماذا يصنع ؟ هل يجد ارقام ورحوف امامة فقط . لا بالطبع يجب ان يجد الاسم عادى جدا وعند الاختيار او اضافة اسم جديد للكومبو يكون الاسم يذهب لقاعدة البياتنات مشفر . هذا ك المطلوب . هل استوعب احد هذة الفكرة . رابع رسالة وان مسجلة في المنتدي اليوم فقط وانا لا اعرف لماذا التأخير مع انى اعلم انه اضخم منتدي عربي للبرمجة ودلني علية احد اصدقائي من جامعة القاهرة . وانا في الاصل تونسية ادرس في القاهرة . ان شاء الله الاقي حل واذا كان هناك اي مثال خاص بذلك يرجي ارسالة علي الميل الخاص لي

hawsalleck@yahoo.com

بارك الله فيكم

ما شاء الله عليك أختي الكريمة

أربع مواضيع مكـــــــــــررة في يوم واحد

أولاً : كان يكفي انك تدخلي الموضوع الذي قمت بكتابته وتقومي بعمليع رفع له بكتابة رد فيه

ثانياً : حبذا لو تراجعي قوانين المنتدى

ثالثأ: هذا مثال بسيط للتشفير وفك التشفير

Private Sub Command1_Click()
Dim encrypt
encrypt = ""
ch = Len(Text1)
For i = 1 To ch
letter = Mid(Text1, i, 1)
encrypt = encrypt & Chr(Asc(letter) + 2)
Next
Text2.Text = encrypt
End Sub
Private Sub Command2_Click()
Dim encrypt
encrypt = ""
ch = Len(Text2)
For i = 1 To ch
letter = Mid(Text2, i, 1)
encrypt = encrypt & Chr(Asc(letter) - 2)
Next
Text1.Text = encrypt
End Sub

ضعي النص المراد تشفيره في صندوق النص الاول

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

واحفظي النص مشفر في القاعدة

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

أتمنى ان تفيدك الفكرة

وأرجو مراجعة قوانيين المنتدى

و السلام عليكم

أخي أتفهم موقفك

و أرجو أن أساعدك قدر المستطاع

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

و بعد عند إستعادتها تكون سليمة كما أدخلت

حسنا :

هذه طريقة لتشفير و لكنها ليست معقدة مثل MD5 :blink: و لكن لتأخذ فكرة ;) و تزيد علها تغييرات و تزيد تعقدها أكثر :P

قمل بعمل مشروع قياسي و أضف عليه Text1 Text2 Command1 Command2

ثم إنتقل إلى محرر الكود و اكتب هذا الكود في Command1 : الخاص بالتشفير

Dim A, B, C As String
B = ""
C = Text1
For i = 1 To 4
Do While Text1 <> ""

If i Mod 2 <> 0 Then A = Left$(Text1, 1) Else A = Right$(Text1, 1)

If A = "0" Then B = "Z" & B & "I"
If A = "1" Then B = "O" & B & "N"
If A = "2" Then B = "T" & B & "W"
If A = "3" Then B = "T" & B & "H"
If A = "4" Then B = "F" & B & "O"
If A = "5" Then B = "F" & B & "E"
If A = "6" Then B = "S" & B & "I"
If A = "7" Then B = "S" & B & "E"
If A = "8" Then B = "E" & B & "I"
If A = "9" Then B = "N" & B & "I"

If A = "a" Or A = "A" Then B = "0" & B & "1"
If A = "b" Or A = "B" Then B = "1" & B & "4"
If A = "c" Or A = "C" Then B = "0" & B & "2"
If A = "d" Or A = "D" Then B = "1" & B & "5"
If A = "e" Or A = "E" Then B = "0" & B & "3"
If A = "f" Or A = "F" Then B = "1" & B & "6"
If A = "g" Or A = "G" Then B = "0" & B & "4"
If A = "h" Or A = "H" Then B = "1" & B & "7"
If A = "i" Or A = "I" Then B = "0" & B & "5"
If A = "j" Or A = "J" Then B = "1" & B & "8"
If A = "k" Or A = "K" Then B = "0" & B & "6"
If A = "l" Or A = "L" Then B = "1" & B & "9"
If A = "m" Or A = "M" Then B = "0" & B & "7"
If A = "n" Or A = "N" Then B = "2" & B & "0"
If A = "o" Or A = "O" Then B = "0" & B & "8"
If A = "p" Or A = "P" Then B = "2" & B & "1"
If A = "q" Or A = "Q" Then B = "0" & B & "9"
If A = "r" Or A = "R" Then B = "2" & B & "2"
If A = "s" Or A = "S" Then B = "1" & B & "0"
If A = "t" Or A = "T" Then B = "2" & B & "3"
If A = "u" Or A = "U" Then B = "1" & B & "1"
If A = "v" Or A = "V" Then B = "2" & B & "4"
If A = "w" Or A = "W" Then B = "1" & B & "2"
If A = "x" Or A = "X" Then B = "2" & B & "5"
If A = "y" Or A = "Y" Then B = "1" & B & "3"
If A = "z" Or A = "Z" Then B = "2" & B & "6"

If A = "+" Then B = "X" & B & "X"
If A = "-" Then B = "Z" & B & "Z"

If i Mod 2 <> 0 Then Text1 = Right$(Text1, Len(Text1) - 1) Else Text1 = Left$(Text1, Len(Text1) - 1)

Loop
Text1 = B
Next i

Text1 = C
Text2 = B

و أضف هذا الكود في Command2 : الخاص بفك التشفير

Dim A, B, C As String
B = ""
C = Text2

For i = 1 To 4
Do While Text2 <> ""

If i Mod 2 <> 0 Then
A = Left$(Text2, 1) & Right$(Text2, 1)

If A = "ZI" Then B = "0" & B
If A = "ON" Then B = "1" & B
If A = "TW" Then B = "2" & B
If A = "TH" Then B = "3" & B
If A = "FO" Then B = "4" & B
If A = "FE" Then B = "5" & B
If A = "SI" Then B = "6" & B
If A = "SE" Then B = "7" & B
If A = "EI" Then B = "8" & B
If A = "NI" Then B = "9" & B
If A = "XX" Then B = "+" & B
If A = "ZZ" Then B = "-" & B

If A = "01" Then B = "A" & B
If A = "14" Then B = "B" & B
If A = "02" Then B = "C" & B
If A = "15" Then B = "D" & B
If A = "03" Then B = "E" & B
If A = "16" Then B = "F" & B
If A = "04" Then B = "G" & B
If A = "17" Then B = "H" & B
If A = "05" Then B = "I" & B
If A = "18" Then B = "J" & B
If A = "06" Then B = "K" & B
If A = "19" Then B = "L" & B
If A = "07" Then B = "M" & B
If A = "20" Then B = "N" & B
If A = "08" Then B = "O" & B
If A = "21" Then B = "P" & B
If A = "09" Then B = "Q" & B
If A = "22" Then B = "R" & B
If A = "10" Then B = "S" & B
If A = "23" Then B = "T" & B
If A = "11" Then B = "U" & B
If A = "24" Then B = "V" & B
If A = "12" Then B = "W" & B
If A = "25" Then B = "X" & B
If A = "13" Then B = "Y" & B
If A = "26" Then B = "Z" & B
Text2 = Mid$(Text2, 2, Len(Text2) - 2)

Else

A = Left$(Text2, 1) & Right$(Text2, 1)

If A = "ZI" Then B = B & "0"
If A = "ON" Then B = B & "1"
If A = "TW" Then B = B & "2"
If A = "TH" Then B = B & "3"
If A = "FO" Then B = B & "4"
If A = "FE" Then B = B & "5"
If A = "SI" Then B = B & "6"
If A = "SE" Then B = B & "7"
If A = "EI" Then B = B & "8"
If A = "NI" Then B = B & "9"
If A = "XX" Then B = B & "+"
If A = "ZZ" Then B = B & "-"

If A = "01" Then B = B & "A"
If A = "14" Then B = B & "B"
If A = "02" Then B = B & "C"
If A = "15" Then B = B & "D"
If A = "03" Then B = B & "E"
If A = "16" Then B = B & "F"
If A = "04" Then B = B & "G"
If A = "17" Then B = B & "H"
If A = "05" Then B = B & "I"
If A = "18" Then B = B & "J"
If A = "06" Then B = B & "K"
If A = "19" Then B = B & "L"
If A = "07" Then B = B & "M"
If A = "20" Then B = B & "N"
If A = "08" Then B = B & "O"
If A = "21" Then B = B & "P"
If A = "09" Then B = B & "Q"
If A = "22" Then B = B & "R"
If A = "10" Then B = B & "S"
If A = "23" Then B = B & "T"
If A = "11" Then B = B & "U"
If A = "24" Then B = B & "V"
If A = "12" Then B = B & "W"
If A = "25" Then B = B & "X"
If A = "13" Then B = B & "Y"
If A = "26" Then B = B & "Z"
Text2 = Mid$(Text2, 2, Len(Text2) - 2)
End If

Loop
Next i
Text1 = B
Text1 = Left$(Text1, Len(Text1) / 27)
Text2 = C

إلى هنا إن كان هناك أي إستفسار فأنا في الخدمة

فب إنتظار الرد

.

مشكوووووووووووووووووور

السلام عليكم

اول مشاركة فى المنتدى الرائع

دى dll بيشفر النصوص

بيعمل encrypt - decrypt

CryptoGraphME.rar

CryptoGraphME2.rar

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

دا برنامج تطبيق على المكتبة

والمكتبة اللى مرفقة مع الملف شغالة

sam.rar