thedmarlook

انطلاق الموقع الالكتروني الاول والعالمي لتشفير وفك تشفير الرسائل الالكترونية مجانا من الاردن

23 ردود في هذا الموضوع

لواء القصر – الكرك - الاردن

احمد عادل موسى المجالي – قام السيد احمد بأطلاق الموقع الالكتروني العالمي باللغة العربية والإنجليزية لتشفير وفك تشفير الرسائل الإلكترونية مجانا لأكثر من 250 لغة عالمية حيث قام بتطوير خوارزمية تصل طولها الى 10 الاف سطر لتعطي مستخدم الموقع مفتاح عام للرسالة يصل طوله الى 90 خانة وبصمة رقمية لكل رسالة.

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

استغرقت بناء الخوارزميات عامين وهي تخت التطوير لتتمكن من فهم اللغات المعقدة مثل الصينية واليابانية الى ان اصبحت الآن قادرة على تشفير اكثر من 250 لغة عالمي.

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

هذا وبالله التوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

هي ليست عدم ثقه ..لكن ممكن اعرف الضمان ؟؟

يعني مالذي يضمن سلامة الرسالة الاصلية المكتوبة على الموقع من الموقع نفسه ... ؟؟

تحياتي العطرة ..

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

تحياتي لك يا سنان واشكرك على سؤالك القيم واسمح لي للأجابة

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

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

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

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

وما يجعل الموقع الخاص مميز هو انه

1- موقع عربي

2- لا يوجد موقع يشفر الرسائل العربية

3- خوارزمية استطاعت فهم وتشفير 250 لغة عالمية من بينها اللغات الصعبة مثل الصينية

4- ترليونات من الاحتمالات لفك شيفرة الرسالة

5- كل مرة تحصل على بصمة رقمية ومفتاح عام

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

وفي النهاية اقدم شكري لهذا المنتدى والذي افتخر به واشكر كل القائمين عليه ويجب علينا كشباب العرب دعم مثل هاؤلاء الشباب ك نشر ابداعاتهم واجو من اخوتي ومشرفين المنتدى الأعزاء تثبيت مثل هذا الموضوع ونشر الموقع ونشر الأبداع وجزاكم الله الف خير

www.newatsys.com

اخوكم احمد ابو ركبه

تم تعديل بواسطه ahmad_ahmad
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

جزاك الله خيراً أخي العزيز وكثر الله من أمثال الأخ أحمد

ووفقنا جميعا إلى ما فيه خيراً لأمتنا

0

شارك هذا الرد


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

اخي الفاضل لدي سؤال

ماذا تقصد بالتحكم بها عن بعد ؟؟ بأيقافها او تشغيلها

ان انه ليس لك اى حق فى عمل ذلك

0

شارك هذا الرد


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

تبين لي .....؟؟

طيب معليش بس هذا المنتدى علمي و ليس منتدى "النجم الصاعق لبيع الكلام في الهواء", يرجى التكلم بنبرة علمية و الابتعاد عن العبارات العنترية من هذا النوع.

التشفير ليس علم اخترعه السيد احمد صاحب الموقع ...

هناك العديد من الادوات و البرامج المجانية و الحرة للتشفير, و خوارزميات التشفير معروفة و منشروة و موثقة .. و ليست سرا ابتكره احمد عادل موسى

http://www.google.com/search?q=encryption+algorithms

اظن من اشهر ادوات التشهير المعروفة و المجانية (و الحرة) اداة Gnu Privacy Guard

http://www.gnupg.org/

هناك ايضا اداة رائعة لتشفير الملفات اسمها TrueCrypt

http://www.truecrypt.org/

ملاحظة اخيرة:

لا اقصد التقليل من قيمة اي عمل و لكني ضد العبارات العنترية اللتي لا تحمل اي معنى مثل "الاول عالميا" "تحدى الشركات الكبرى" .. الخ

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

تم تعديل بواسطه hasan_aljudy
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

تحياتي لكل المهتمين

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

فجميع الموقع العربية هي سكربتات جاهزة فقط معربة وليس جميعها بل 99 % ونفتخر بالمبدعين والغريب اكثر لاحظ ان مبرمج الموقع تخصصه تربية خاصة وليس حاسوب. فعلا ابداع

وتفضل:

0

شارك هذا الرد


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

؟؟؟؟

هذا طبيعي و بديهي ... مالجديد؟؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من المستحيل على أي أحد أن يأتمن هذا الموقع أو خورازمية تشفيره لسبب بسيط هو أننا لا تعرف هذه الخوارزمية (أستغرب أنك لا تسميها تشفيراً، رغم أن هذا بالفعل هو ما تفعله). قد يبدو هذا الكلام غربياً للبعض و لكنها الحقيقة. أقوى خوارزميات التشفير مفتوحة و معروفة و تعتمد على قوة دوالها الرياضية و إخفاء مفتاح التشفير السري. عدم معرفة الخوارزمية يؤدي إلى عدم الوثوق فيها للأسباب التالية:

1. عدم الوثوق في مالك الخوارزمية، بالذات أن معالجتها تتم على أجهزته.

2. عدم معرفة القوة الحقيقية لهذه الخوارزمية.

3. عدم قدرتي على ربطها بتطبيقات خارجية.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

مدري انتا بتسوي دعايه ولا ايش... رديت عليك في موضوع اللي في قسم الامن والحماية وماجاوبت ولا على سؤال واحد حتى ... وهذا كان ردي للمره الثانيه:

شي جميل الصىراحه اللي سواه لكن عندي بعض الملاحظات:

1- ياريت تعطينا المواقع الاجنبيه اللي تكلمت وماقدرت تفك الشفره عشان نستزيد من اللي قالوه..

2- قلت انه مايعتمد على اي اساس في علم الكمبيوتر، اتوقع قصدك كان في علم التشفير، لكن ماتوقع هذا صحيح: فهو يستخدم البصمه Hash وحتى لو مااعتمد على MD5 فهذا لا يعني انو ماعتمد على نفس فكرة الـHashing.

3- كنت اتمنى ان يتم نشر الخوارزمية اللي سواها عشان نقدر نحللها Cryptanalysis ونشوف المشاكل اللي فيها عشان يكون التشفير قوي. فاغلاق الخوارزمية وعدم مشاركتها مااعتقد انو الحل الصحيح، شوف عندك مثلا AES وغيرهم كلهم مفتوحين المصدر وتكمن القوه في انك حتى لو عرفت كيف يكون التشفير ماراح تقدر تفك رساله مشفره بدون علمك بالكلمه السرية وهم دائما في تطور بسبب انهم مفتوحين المصدر.

4- اعتقد حسب المعلومات اللي متوفره في موقعه اللي بيسويه اللي هو Confusion & Diffusion وهوه باختصار استبدال حروف باشياْ اخرى وتغير اماكنها فيكون صعب معرفة الرساله الاصلية ولكن مو مستحيل. فتفشير DES كان يعتمد على نفس الطريقة وتم كسره من زمان.

5- اخيرا،، للعلم تشفير MD5 لمن يتم كسره الى الان،، اللي موجود الان هو شي شبيه بالـBrute Force و Dictionary attack

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

تحياتي

وموضوعك كان هنا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

هذا كله كلام فارغ, و تضييع وقت, خوارزميات التشفير ليست لعبة و هناك مؤسسات كاملة و على رأسها مؤسسة (NSA (National Security Agency و هي المؤسسة المسئولة عن تطوير و اختبار نظم التشفير و التي تستخدمها المؤسسات العسكرية و العلمية و مؤخراً التجارية و قامت هذه المؤسسة في عام 2005 باصدار القائمة Suite B و التي تضم الخوارزميات و البروتوكولات و معايير تطوير و اختبار هذه الخوارزميات

كما أنه من مبادئ الأمن و خاصةً في التشفير تُعتبر القاعدة رقم واحد هي ( لا تُحاول كتابة خوارزمية تشفير إلا إذا كنت مؤهل لهذا) و ضع تحت كلمة مؤهل ألف خط, فمن يندرج تحت هذه الفئة يُعدون على أصابع اليدين, كما أنهم ممن قضوا عمرهم في أبحاث الرياضيات و علوم الحاسب.

في النهاية, كلما أرى مثل هذه المواضيع و التي تكتب دائماً بالخط العريض, أتألم من الكذب و الجهل الذي أصابنا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

تفضل وحللها؟

ها هي

حصريا على هذا المنتدى الرائع ولكل الاعضاء الرائعون

هذه الخوارزمية للبرنامج بنية على الفيجول بيسك 6

اما بالنسبة الى سؤالك انه لا تضمن الموقع ؟ فكيف نظمن المواقع الاجنبية علما بأن موقع السيد احمد لا يحتوي على اي قاعدة بيانات

وارجو منكم الاتصال به من نفس الموقع حتى تتمكنوا من اسئلته وهو يقبل النقد ويقبل النقاش على كل حال تفضلوا يا اعزاء ها هي؟

الحقوق محفوظة لدى العنوان الي بأخر موقع السيد احمد ههههههه

Dim RanNo() As Long

Private Sub RandomizeNumbers(ByVal iFrom As Integer, ByVal iTo As Integer)

ReDim RanNo(iFrom To iTo)

For i = iFrom To iTo

RanNo(i) = i

Next i

Randomize (Timer)

For i = iFrom To iTo

j = CInt((iTo - iFrom) * Rnd + iFrom)

tmp = RanNo(i)

RanNo(i) = RanNo(j)

RanNo(j) = tmp

Next i

End Sub

Function sys(SourceString As String, ReplaceThis As String, WithThis As String)

Dim Temp As Variant

Temp = Split(bydf, ReplaceThis)

sys = Join(Temp, WithThis)

End Function

Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox "ÇÏÎá ÇáÑÓÇáÉ", 32, ""

Exit Sub

Else

Frame7.Visible = False

Frame8.Visible = False

Frame3.Visible = True

Command1.Enabled = False

fg_Click

Dim drd As Integer

drd = Val(Text4.Text)

Timer1.Interval = drd

ddr.Text = "9"

Timer1.Enabled = True

Command1.Visible = False

End If

End Sub

Private Sub Command10_Click()

Text1.Alignment = 2

End Sub

Private Sub Command11_Click()

Dim drd As Integer

drd = Val(Text4.Text)

Timer1s.Interval = drd

ddr2.Text = "9"

Timer1s.Enabled = True

End Sub

Private Sub Command12_Click()

Form2.Show

Unload Me

End Sub

Private Sub Command13_Click()

Clipboard.Clear

Clipboard.SetText Text1.SelText

Text1.SelText = vbNullString

End Sub

Private Sub Command14_Click()

Printer.Print

Printer.CurrentX = 1440

Printer.CurrentY = 1440

a$ = Text1.Text

Printer.Font = "arial"

Printer.FontSize = 12

Printer.Print a$

Printer.EndDoc

End Sub

Private Sub Command15_Click()

Text1.SelText = Clipboard.GetText

Text1.SetFocus

End Sub

Private Sub Command2_Click()

If Text1.Text = "" Then

MsgBox "ÅÏÎá ÇáÔíÝÑÉ", 32, ""

Else

MsgBox "ÅÏÎá ÇáãÝÊÇÍ ÇáÚÇã", 32, ""

Frame6.Visible = True

Text6.SetFocus

Command6.Visible = True

Command2.Visible = False

End If

End Sub

Private Sub Command3_Click()

Clipboard.Clear

Dim Edafah As String

If Text6 = Empty Then MsgBox "áÇ íæÌÏ ãÝÊÇÍ", , "": Text6.SetFocus: Exit Sub

Edafah = Text6.Text

Clipboard.SetText Edafah

MsgBox "Êã äÓÎ ÇáãÝÊÇÍ Çáì ÇáÍÇÝÙÉ", vbInformation, ""

End Sub

Private Sub Command4_Click()

Clipboard.Clear

Dim Edafah As String

If Text1 = Empty Then MsgBox "áÇ íæÌÏ ÑÓÇáÉ", , "": Text1.SetFocus: Exit Sub

Edafah = Text1.Text

Clipboard.SetText Edafah

MsgBox "Êã äÓÎ ÇáÑÓÇáÉ Çáì ÇáÍÇÝÙÉ", vbInformation, ""

End Sub

Private Sub Command5_Click()

Clipboard.Clear

Clipboard.SetText Text1.SelText

Text1.SetFocus

End Sub

Private Sub Command6_Click()

If Text6.Text = "" Then

MsgBox "ÅÏÎá ÇáãÝÇÊÍ ÇáÚÇã", 32, ""

Else

MsgBox "ÅÏÎá ÈÕãÉ ÇáÔíÝÑÉ", 32, ""

Frame7.Visible = True

Text7.SetFocus

Command6.Visible = False

sdss.Visible = True

End If

End Sub

Private Sub Command7_Click()

Clipboard.Clear

Dim Edafah As String

If Text7 = Empty Then MsgBox "áÇ íæÌÏ ÈÕãÉ", , "": Text7.SetFocus: Exit Sub

Edafah = Text7.Text

Clipboard.SetText Edafah

MsgBox "Êã äÓÎ ÇáÈÕãÉ Çáì ÇáÍÇÝÙÉ", vbInformation, ""

End Sub

Private Sub Command8_Click()

Text1.Alignment = 1

End Sub

Private Sub Command9_Click()

Text1.Alignment = 0

End Sub

Private Sub ddr_Change()

dt = Val(ddr.Text)

Text22.Text = Atsysahmad.List(dt)

pol = Val(ddr.Text)

Select Case pol

Case 10

xx.Text = Val(x1.Text)

Case 11

xx.Text = Val(x2.Text)

Case 12

xx.Text = Val(x3.Text)

Case 13

xx.Text = Val(x4.Text)

Case 14

xx.Text = Val(x5.Text)

Case 15

xx.Text = Val(x6.Text)

Case 16

xx.Text = Val(x7.Text)

Case 17

xx.Text = Val(x8.Text)

Case 18

xx.Text = Val(x9.Text)

Case 19

xx.Text = Val(x10.Text)

Case 20

xx.Text = Val(x11.Text)

Case 21

xx.Text = Val(x12.Text)

Case 22

xx.Text = Val(x13.Text)

Case 23

xx.Text = Val(x14.Text)

Case 24

xx.Text = Val(x15.Text)

Case 25

xx.Text = Val(x16.Text)

Case 26

xx.Text = Val(x17.Text)

Case 27

xx.Text = Val(x18.Text)

Case 28

xx.Text = Val(x19.Text)

Case 29

xx.Text = Val(x20.Text)

Case 30

xx.Text = Val(x21.Text)

Case 31

xx.Text = Val(x22.Text)

Case 32

xx.Text = Val(x23.Text)

Case 33

xx.Text = Val(x24.Text)

Case 34

xx.Text = Val(x25.Text)

Case 35

xx.Text = Val(x26.Text)

Case 36

xx.Text = Val(x27.Text)

Case 37

xx.Text = Val(x28.Text)

Case 38

xx.Text = Val(x29.Text)

Case 39

xx.Text = Val(x30.Text)

Case 40

xx.Text = Val(x31.Text)

Case 41

xx.Text = Val(x32.Text)

Case 42

xx.Text = Val(x33.Text)

Case 43

xx.Text = Val(x34.Text)

Case 44

xx.Text = Val(x35.Text)

Case 45

xx.Text = Val(x36.Text)

Case 46

xx.Text = Val(x37.Text)

Case 47

xx.Text = Val(x38.Text)

Case 48

xx.Text = Val(x39.Text)

Case 49

xx.Text = Val(x40.Text)

Case 50

xx.Text = Val(x41.Text)

Case 51

xx.Text = Val(x42.Text)

Case 52

xx.Text = Val(x43.Text)

Case 53

xx.Text = Val(x44.Text)

Case 54

xx.Text = Val(x45.Text)

End Select

End Sub

Private Sub ddr2_Change()

dt = Val(ddr2.Text)

Text2.Text = Atsysahmad.List(dt)

pol = Val(ddr2.Text)

Select Case pol

Case 10

xs.Text = Val(x1.Text)

Case 11

xs.Text = Val(x2.Text)

Case 12

xs.Text = Val(x3.Text)

Case 13

xs.Text = Val(x4.Text)

Case 14

xs.Text = Val(x5.Text)

Case 15

xs.Text = Val(x6.Text)

Case 16

xs.Text = Val(x7.Text)

Case 17

xs.Text = Val(x8.Text)

Case 18

xs.Text = Val(x9.Text)

Case 19

xs.Text = Val(x10.Text)

Case 20

xs.Text = Val(x11.Text)

Case 21

xs.Text = Val(x12.Text)

Case 22

xs.Text = Val(x13.Text)

Case 23

xs.Text = Val(x14.Text)

Case 24

xs.Text = Val(x15.Text)

Case 25

xs.Text = Val(x16.Text)

Case 26

xs.Text = Val(x17.Text)

Case 27

xs.Text = Val(x18.Text)

Case 28

xs.Text = Val(x19.Text)

Case 29

xs.Text = Val(x20.Text)

Case 30

xs.Text = Val(x21.Text)

Case 31

xs.Text = Val(x22.Text)

Case 32

xs.Text = Val(x23.Text)

Case 33

xs.Text = Val(x24.Text)

Case 34

xs.Text = Val(x25.Text)

Case 35

xs.Text = Val(x26.Text)

Case 36

xs.Text = Val(x27.Text)

Case 37

xs.Text = Val(x28.Text)

Case 38

xs.Text = Val(x29.Text)

Case 39

xs.Text = Val(x30.Text)

Case 40

xs.Text = Val(x31.Text)

Case 41

xs.Text = Val(x32.Text)

Case 42

xs.Text = Val(x33.Text)

Case 43

xs.Text = Val(x34.Text)

Case 44

xs.Text = Val(x35.Text)

Case 45

xs.Text = Val(x36.Text)

Case 46

xs.Text = Val(x37.Text)

Case 47

xs.Text = Val(x38.Text)

Case 48

xs.Text = Val(x39.Text)

Case 49

xs.Text = Val(x40.Text)

Case 50

xs.Text = Val(x41.Text)

Case 51

xs.Text = Val(x42.Text)

Case 52

xs.Text = Val(x43.Text)

Case 53

xs.Text = Val(x44.Text)

Case 54

xs.Text = Val(x45.Text)

End Select

End Sub

Private Sub dsds_Click()

MsgBox "íãßäß ÇáÊÍÏíË áäÓÎÉ ÇÝÖá ÈÔßá íÏæí ãä ÎáÇá ÇáÐåÇÈ Çáì ÇáãæÞÚ ãÈÇÔÑÉ ", 23, ""

End Sub

Private Sub fg_Click()

List1.Clear

txtco.Text = ""

RandomizeNumbers 10, 54

For i = 10 To 54

List1.AddItem RanNo(i)

txtco.Text = txtco.Text & RanNo(i)

Next i

'''''''''''''''''''''''''''''''''''''''

Dim a As String

a = txtco.Text

x1.Text = Mid(a, 1, 2)

x2.Text = Mid(a, 3, 2)

x3.Text = Mid(a, 5, 2)

x4.Text = Mid(a, 7, 2)

x5.Text = Mid(a, 9, 2)

x6.Text = Mid(a, 11, 2)

x7.Text = Mid(a, 13, 2)

x8.Text = Mid(a, 15, 2)

x9.Text = Mid(a, 17, 2)

x10.Text = Mid(a, 19, 2)

x11.Text = Mid(a, 21, 2)

x12.Text = Mid(a, 23, 2)

x13.Text = Mid(a, 25, 2)

x14.Text = Mid(a, 27, 2)

x15.Text = Mid(a, 29, 2)

x16.Text = Mid(a, 31, 2)

x17.Text = Mid(a, 33, 2)

x18.Text = Mid(a, 35, 2)

x19.Text = Mid(a, 37, 2)

x20.Text = Mid(a, 39, 2)

x21.Text = Mid(a, 41, 2)

x22.Text = Mid(a, 43, 2)

x23.Text = Mid(a, 45, 2)

x24.Text = Mid(a, 47, 2)

x25.Text = Mid(a, 49, 2)

x26.Text = Mid(a, 51, 2)

x27.Text = Mid(a, 53, 2)

x28.Text = Mid(a, 55, 2)

x29.Text = Mid(a, 57, 2)

x30.Text = Mid(a, 59, 2)

x31.Text = Mid(a, 61, 2)

x32.Text = Mid(a, 63, 2)

x33.Text = Mid(a, 65, 2)

x34.Text = Mid(a, 67, 2)

x35.Text = Mid(a, 69, 2)

x36.Text = Mid(a, 71, 2)

x37.Text = Mid(a, 73, 2)

x38.Text = Mid(a, 75, 2)

x39.Text = Mid(a, 77, 2)

x40.Text = Mid(a, 79, 2)

x41.Text = Mid(a, 81, 2)

x42.Text = Mid(a, 83, 2)

x43.Text = Mid(a, 85, 2)

x44.Text = Mid(a, 87, 2)

x45.Text = Mid(a, 89, 2)

''''''''''''''''

End Sub

Private Sub fgn_Click()

Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler http://www.newatsys.com/", vbNormalFocus

End Sub

Private Sub Form_Load()

Atsysahmad.AddItem ""

Atsysahmad.AddItem ""

Atsysahmad.AddItem ""

Atsysahmad.AddItem ""

Atsysahmad.AddItem ""

Atsysahmad.AddItem ""

Atsysahmad.AddItem ""

Atsysahmad.AddItem ""

Atsysahmad.AddItem ""

Atsysahmad.AddItem ""

Atsysahmad.AddItem "0"

Atsysahmad.AddItem "9"

Atsysahmad.AddItem "8"

Atsysahmad.AddItem "7"

Atsysahmad.AddItem "6"

Atsysahmad.AddItem "5"

Atsysahmad.AddItem "4"

Atsysahmad.AddItem "3"

Atsysahmad.AddItem "2"

Atsysahmad.AddItem "1"

Atsysahmad.AddItem "Ð"

Atsysahmad.AddItem "Ï"

Atsysahmad.AddItem "Ì"

Atsysahmad.AddItem "Í"

Atsysahmad.AddItem "Î"

Atsysahmad.AddItem "å"

Atsysahmad.AddItem "Ú"

Atsysahmad.AddItem "Û"

Atsysahmad.AddItem "Ý"

Atsysahmad.AddItem "Þ"

Atsysahmad.AddItem "Ë"

Atsysahmad.AddItem "Õ"

Atsysahmad.AddItem "Ö"

Atsysahmad.AddItem "Ô"

Atsysahmad.AddItem "Ó"

Atsysahmad.AddItem "í"

Atsysahmad.AddItem "È"

Atsysahmad.AddItem "á"

Atsysahmad.AddItem "Ç"

Atsysahmad.AddItem "Ê"

Atsysahmad.AddItem "ä"

Atsysahmad.AddItem "ã"

Atsysahmad.AddItem "ß"

Atsysahmad.AddItem "Ø"

Atsysahmad.AddItem "Ù"

Atsysahmad.AddItem "Ò"

Atsysahmad.AddItem "æ"

Atsysahmad.AddItem "É"

Atsysahmad.AddItem "ì"

Atsysahmad.AddItem "Ñ"

Atsysahmad.AddItem "Ä"

Atsysahmad.AddItem "Á"

Atsysahmad.AddItem "Æ"

Atsysahmad.AddItem "Ã"

Atsysahmad.AddItem "Å"

''''''''''''''''''''''''''''''''''

List3.AddItem ""

List3.AddItem ""

List3.AddItem ""

List3.AddItem ""

List3.AddItem ""

List3.AddItem ""

List3.AddItem ""

List3.AddItem ""

List3.AddItem ""

List3.AddItem ""

List3.AddItem "<~(("

List3.AddItem "x#~)"

List3.AddItem "c(#~"

List3.AddItem "v#f~"

List3.AddItem "b~m"

List3.AddItem "n!<#"

List3.AddItem "m<#~"

List3.AddItem "q~w<"

List3.AddItem "w<~t"

List3.AddItem "ex<#"

List3.AddItem "r>b#"

List3.AddItem "t!<#>"

List3.AddItem "y>x>"

List3.AddItem "u#>e"

List3.AddItem "i<(#<"

List3.AddItem "o~>k~"

List3.AddItem "p(>#"

List3.AddItem "a)<c<"

List3.AddItem "s(d#"

List3.AddItem "d~<o<"

List3.AddItem "f>s>"

List3.AddItem "g#<##"

List3.AddItem "h#>"

List3.AddItem "j~#~"

List3.AddItem "k(#b>"

List3.AddItem "l)#<w<"

List3.AddItem "f#~x"

List3.AddItem "(e~("

List3.AddItem ">x#(e"

List3.AddItem "~~##"

List3.AddItem "z~#"

List3.AddItem ")><#"

List3.AddItem "b#e#"

List3.AddItem "%g<)"

List3.AddItem "u<#>"

List3.AddItem "[[!"

List3.AddItem "![["

List3.AddItem "]!]"

List3.AddItem "#!!"

List3.AddItem "-[["

List3.AddItem "=]]"

List3.AddItem "+!"

List3.AddItem "*]"

List3.AddItem "^["

List3.AddItem "$["

End Sub

Private Sub Label4_Click()

MsgBox "ÈÕãÉ ÑÞãíÉ áÊËÈÉ ÕÍÉ ÇáÑÓÇáÉ ÇáãÔÝÑÉ æÇáÍÝÇÙ Úáì ÓáÇãÊåÇ ãä ÇáÚÈË ÈÑãæÒåÇ", 32, ""

End Sub

Private Sub Label5_Click()

MsgBox "ÇáÏáíá ÇáÚÇã ááÑãæÒ ÇÐÇ áã íÊã Ýß ÊÔÝíÑ ÇáÑÓÇáÉ ÈÔßá ÕÍíÍ Ýí ÈÚÖ ÇáÍÑæÝ ÝÃä ÇáãÝÊÇÍ ÇáÚÇã ÇáÐí ÇÏÎáÊå ãÎÇáÝ", 32, ""

End Sub

Private Sub sdf_Click()

Form1.Show 1

End Sub

Private Sub Text1_Change()

dfee = Len(Text1.Text)

Text5.Text = dfee

End Sub

Private Sub Text3_Change()

gtc.Text1.Text = sys(gtc.Text1.Text, Text3, Text2)

End Sub

Private Sub Text33_Change()

gtc.Text1.Text = sys(gtc.Text1.Text, Text22, Text33)

End Sub

Private Sub Timer1_Timer()

Timer1.Interval = Val(Text4.Text)

If ddr.Text = "54" Then

Timer1.Enabled = False

Command12.Visible = True

Frame6.Visible = True

Frame7.Visible = True

Frame8.Visible = False

Command1.Enabled = True

Command4.Enabled = True

sdss.Enabled = True

Text6.Text = txtco.Text

Dim ffe

Dim ffe1

Dim ffe2

Dim ffe3

Dim ffe4

Dim ffe5

ffe = Len(Text1.Text)

ffe1 = Val(x2.Text)

ffe2 = Val(x9.Text)

ffe3 = Val(x21.Text)

ffe5 = Val(x40.Text)

ffe4 = 99

'''''''''''''

Dim fg1

Dim fg2

Dim fg3

fg1 = ffe + ffe1

fg2 = ffe2 + ffe3

fg3 = ffe4 + ffe5

Text7.Text = fg1 & fg2 & fg3

Else

Command1.Enabled = False

Command4.Enabled = False

sdss.Enabled = False

Frame6.Visible = False

Frame7.Visible = False

Frame8.Visible = True

ddr.Text = Val(ddr.Text) + 1

Label2.Caption = Val(Label2.Caption) - 1

End If

End Sub

Private Sub sdss_Click()

Dim a As String

a = Text6.Text

x1.Text = Mid(a, 1, 2)

x2.Text = Mid(a, 3, 2)

x3.Text = Mid(a, 5, 2)

x4.Text = Mid(a, 7, 2)

x5.Text = Mid(a, 9, 2)

x6.Text = Mid(a, 11, 2)

x7.Text = Mid(a, 13, 2)

x8.Text = Mid(a, 15, 2)

x9.Text = Mid(a, 17, 2)

x10.Text = Mid(a, 19, 2)

x11.Text = Mid(a, 21, 2)

x12.Text = Mid(a, 23, 2)

x13.Text = Mid(a, 25, 2)

x14.Text = Mid(a, 27, 2)

x15.Text = Mid(a, 29, 2)

x16.Text = Mid(a, 31, 2)

x17.Text = Mid(a, 33, 2)

x18.Text = Mid(a, 35, 2)

x19.Text = Mid(a, 37, 2)

x20.Text = Mid(a, 39, 2)

x21.Text = Mid(a, 41, 2)

x22.Text = Mid(a, 43, 2)

x23.Text = Mid(a, 45, 2)

x24.Text = Mid(a, 47, 2)

x25.Text = Mid(a, 49, 2)

x26.Text = Mid(a, 51, 2)

x27.Text = Mid(a, 53, 2)

x28.Text = Mid(a, 55, 2)

x29.Text = Mid(a, 57, 2)

x30.Text = Mid(a, 59, 2)

x31.Text = Mid(a, 61, 2)

x32.Text = Mid(a, 63, 2)

x33.Text = Mid(a, 65, 2)

x34.Text = Mid(a, 67, 2)

x35.Text = Mid(a, 69, 2)

x36.Text = Mid(a, 71, 2)

x37.Text = Mid(a, 73, 2)

x38.Text = Mid(a, 75, 2)

x39.Text = Mid(a, 77, 2)

x40.Text = Mid(a, 79, 2)

x41.Text = Mid(a, 81, 2)

x42.Text = Mid(a, 83, 2)

x43.Text = Mid(a, 85, 2)

x44.Text = Mid(a, 87, 2)

x45.Text = Mid(a, 89, 2)

Dim ffe

Dim ffe1

Dim ffe2

Dim ffe3

Dim ffe4

Dim ffe5

ffe = Len(Text1.Text)

ffe1 = Val(x2.Text)

ffe2 = Val(x9.Text)

ffe3 = Val(x21.Text)

ffe5 = Val(x40.Text)

ffe4 = 99

'''''''''''''

Dim fg1

Dim fg2

Dim fg3

fg1 = ffe + ffe1

fg2 = ffe2 + ffe3

fg3 = ffe4 + ffe5

Text8.Text = fg1 & fg2 & fg3

If Text7.Text = Text8.Text Then

Command11_Click

sdss.Enabled = False

Frame8.Visible = True

Frame7.Enabled = False

Frame6.Enabled = False

Frame3.Enabled = False

Else

MsgBox "ÎØÇÁ Ýí ÈÕãÉ ÇáÔíÝÑÉ Çæ ÇáãÝÇÊÍ ÇáÚÇã Çæ ÔíÝÑÉ ÇáÑÓÇáÉ", 16, ""

End If

End Sub

Private Sub Timer1s_Timer()

Timer1s.Interval = Val(Text4.Text)

If ddr2.Text = "54" Then

Timer1s.Enabled = False

Frame8.Visible = False

Frame6.Enabled = True

Frame7.Enabled = True

Frame3.Enabled = True

MsgBox "Êã Ýß ÔíÝÑÉ ÇáÑÓÇáÉ", 32, ""

Command12.Visible = True

sdss.Visible = False

Else

ddr2.Text = Val(ddr2.Text) + 1

Label2.Caption = Val(Label2.Caption) - 1

End If

End Sub

Private Sub xs_Change()

ed = Val(xs.Text)

Text3.Text = List3.List(ed)

End Sub

Private Sub xx_Change()

ed = Val(xx.Text)

Text33.Text = List3.List(ed)

End Sub

Private Sub Form_Load()

On Error Resume Next

Kill ("C:\1.txt")

txtFrom.Text = "http://www.newatsys.com/1.txt"

txtTo.Text = "c:\1.txt"

Dim obj As clsDownload

Set obj = New clsDownload

Dim bRet As Boolean

Screen.MousePointer = vbHourglass

bRet = obj.Get_File(Trim(Me.txtFrom.Text), Trim(Me.txtTo.Text))

If bRet = False Then Me.txtTo.Text = "Error downloading!"

Screen.MousePointer = vbDefault

Set obj = Nothing

Unload Form3

Load Form4

On Error GoTo rtt

Open "C:\1.txt" For Input As #1

Dim M As String

1

If EOF(1) Then Close: Exit Sub

Input #1, M

Text1 = M

GoTo 1

Close

rtt:

MsgBox "ÎØÇÁ Ýí ÇáÅÊÕÇá", 32, ""

End

End Sub

Private Sub Text1_Change()

If Text1.Text = "1" Then

Form2.Show

Unload Me

ElseIf Text1.Text = "2" Then

MsgBox "Êã ÇíÞÇÝ ÇáÈÑäÇãÌ ãä ÅÏÇÑÉ ÇáãæÞÚ", 32, ""

End

Else

MsgBox "íæÌÏ Îáá Ýí ÇáäÙÇã", 32, ""

End

End If

End Sub

Private Sub Command1_Click()

gtc.Frame6.Visible = False

gtc.Frame8.Visible = False

gtc.Frame3.Visible = True

gtc.Command1.Visible = True

gtc.sdss.Visible = False

gtc.Show

Unload Me

End Sub

Private Sub Command2_Click()

gtc.Command1.Visible = False

gtc.sdss.Visible = False

gtc.Frame7.Visible = False

gtc.Frame8.Visible = False

gtc.Frame3.Visible = True

gtc.Command2.Visible = True

gtc.Show

Unload Me

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Form_Load()

Label2.Caption = "ÈÑãÌÉ æÊÕãíã ÇÍãÏ ÚÇÏá ÇáãÌÇáí"

End Sub

Private Sub Label2_Click()

End Sub

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer

Const INTERNET_OPEN_TYPE_PRECONFIG = 0

Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000

Const INTERNET_OPEN_TYPE_DIRECT = 1

Const INTERNET_OPEN_TYPE_PROXY = 3

Const INTERNET_FLAG_RELOAD = &H80000000

Public Function Get_File(sURLFileName As String, sSaveFileName As String) As Boolean

Dim lRet As Long

On Error GoTo err_Fix

lRet = InternetOpen("", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)

lRet = URLDownloadToFile(0, sURLFileName, sSaveFileName, 0, 0)

Get_File = True

Exit Function

err_Fix:

Debug.Print Err.LastDllError, lRet

Err.Clear

Get_File = False

End Function

في اشاء مثل الفريييم والكيلاس بصراحة انا ما بعرفها واذا حبيتو خوارزمية الموقع اطلبوها منه

انا اسف اذا ثقلت عليكم اعتبروني اخوكم الزغير باي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من جدك انت؟!!!!

يااخي حط الكود في التاق حق الكود عشان نعرف نقرأ،، غير كدا ايش نبغى بالكود وكيف جبته؟ هل انتا اللي مسوي الموقع؟

بعدين معليش لكن تعرف ايش يعني علم التشفير؟ اعطيك مثال على الخوارزمية على واحد من انواع التشفير AES وبعدين قولي الموقع اللي قاعد تقول عليه يقدم تشفير ولا بس استبدال وتغير:

AES

شوف طريقة عمله وشوف الماث اللي موجود في الخطوه MixColumns

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

هل من الممكن إرفاق الكود كملف؟ الطريقة التي أدرجتها به تسببت في لخبطة الكود.

اما بالنسبة الى سؤالك انه لا تضمن الموقع ؟ فكيف نظمن المواقع الاجنبية علما بأن موقع السيد احمد لا يحتوي على اي قاعدة بيانات
وارجو منكم الاتصال به من نفس الموقع حتى تتمكنوا من اسئلته وهو يقبل النقد ويقبل النقاش على كل حال تفضلوا يا اعزاء ها هي؟

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

تم تعديل بواسطه System Down
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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

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

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

الكود في على الرابط التالي لأنه حجمه كبير وهو ملف ورد ----------- واذا ازعجكم الموضوع سأنسحب بكل اعتذار منكم

للتحميل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

كود في ملف وورد؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ (مليون علامة استفهام)

تعديل:

You can get the program to work without the Internet for your business more complex algorithm

INQUIRIES Enter the following linker

الاخ بده "يبيع" البرنامج؟ ليش؟ من قلة انظمة التشفير المفتوحة و الموثوقة؟

تم تعديل بواسطه hasan_aljudy
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

:blink:

تم تعديل بواسطه robot2030
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

أخ Robot،

إذا كان لديك شكوى مع الأخ حسن فمن غير اللائق استخدام موضوع آخر لهذا. فهذا ظلم لصاحب الموضوع بأن تقوم بتحوير مجراه. راسله على الخاص إذا أردت التحدث معه.

0

شارك هذا الرد


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

انجاز كهذا لو كان فعلا بالوصف اللي حضرتك توصفه ..

بانه حاز على مراتب عالميه و .. و ..

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

بما انه ما قصر معك باي شئ اعتقد انه لن يردك ..

هذا فيما اذا لم يكن انت .. لانني بدون زعل شاك بالموضوع ,.

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

والصدفه ان اسمه احمد واسمك احمد ..

---------------------

هل توافقوني الراي يا اخوان .؟ . ؟

تحياتي العطرة ..

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

http://vb4arab.com/vb/showthread.php?t=42639

وكما وعدت صاحب الموضوع وطلبت منه أيضاً التركيز في موضوع واحد بدل نشر موضوعه في عدة منتديات ، أود أن أناقش صاحب الموضوع في عدة نقاط :

1- هل هذا هو الكود فعلاً ، وإن كان فأين التشفير ، اعذرلي قلة خبرتي ولكن أخبرني .

2- لتتناقش في منتدى برمجي لا بد أن تكون مؤهلاً ، وإذا ذكرت فقط بأنك صديقه ولا تفهم الكود ، فكيف تتوقع منا عندما نخبرك بخطأ ما ، او الفارق بين تقنيتن أن تفهم ما نقصد ، من المفضل دعوة صاحب الخوارزمية نفسه للنقاش ليفيد ويستفيد .

3- مرة أخرى ، هل لنا بمعرفة القائمة .

4- مرة ثالثة ، 250 لغة ، هل هناك 250 لغة فعلاً ، وقام صاحب الخوارزمية بعمل نظام مختلف لكل منها ، ولا الموضوع مجرد نظام ترميز ، وفي هذه الحالة من غير اللائق ان تقول ان نظامك يدعم 250 لغة فهي صيغة اعلانية قد تطرح في منتديات تجارية لا منتديات برمجية . لذا أفدنا أيضاً في هذه النقطة .

5- مرة رابعة ، عندما يسألك الأخوة ما الضامن أن صاحب التشفير نفسه لن يكون قادراً على سرقة المعلومات ، فليس هذا تشكيك في أمانة الرجل وصدقه لكن هذه نقطة هامة ، حتى لو كانت الخوارزمية تحتاج لمفتاح صعب التوقع ، فمن يضمن لنا اصلاً انه من خلال الموقع لا يقوم بداية بنسخ الرسالة لسجلاته الخاصة قبل التشفير ، او نسخ المفتاح بعد الانتهاء من التشفير ، عبارات من نوع ( لا يعتمد على قاعدة بيانات ) ليس لها مصداقية هنا ، فما الذي يضمن لنا أصلاً عدم وجودها ، ولو سلمنا فرضاً بصحة ذلك ، فهل الطريقة الوحيدة التي يمكنه من خلالها كسر الخصوصية ، هنا منتدى مبرمجين رجاء :)

لكي لا أظلم نفسي أو أظلم صاحب الموضوع ، هناك نقطتين سأحاول السير فيهما ، نقطة علي ونقطة عليك :)

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

2- النقطة التي عليك ، كونك لست صاحب الشيفرة يضغك تحت ضغط غير مبرر تماماً ولن تفهم ما نقصد ولن نفهم ما تقصد ، لذا قم بالطلب منه أن يأتي هنا فهذا افضل للجميع .

وفقط .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

انا شايفكو زعلتو من الموضوع وانا بعتذر

انا ندمت على نقل الموضوع من المنتديات الاخرى الى هذا المنتدى وانا اسف وكل الاسئلة وجهوها اله مش الى

راسلوه من موقعه اطلبوا من المشرفين لهذا المنتدى استدعائه وانا طلبت الكثيره منه وحاس حالي ثقلت عليه

انا غلطاااااااااااااااااان اسف وانتو بتناقشوني بأستفزاز مش عارف ليش؟

ويا ريت المشرف يحذف هالموضوع احسن

تم تعديل بواسطه ahmad_ahmad
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .