خوارزمية تشفير وفك تشفير بسيطة

تم تحميل الصفحة في 0,8511380 ثانية
خوارزمية تشفير وفك تشفير بسيطة

الممَلكة

مُراقب اقسام البرمجة
rankrankrankrankrankrank
طاقم الإدارة
إنضم
30 أغسطس 2010
المشاركات
4,259
الإعجابات
6,518
النقاط
100
الإقامة
المملكة العربية السعودية
السلام عليكم ورحمة الله وبركاته

اسعد الله صباحكم اعضاء وزوار نقطة التطوير الكرام .
اقدم لكم اليوم فنكشن تشفير وفك تشفير ( من قبلي ) بسيط في عملة وأردت ان اشاركة معكم :15: .

C#:
    Function De(input As String) ' decrypt
        Try
            Dim key As Integer = Regex.Match(input, "(.*?):" & input.Length & ":(.*?)").Groups.Item(1).Value
            input = Split(input, input.Length & ":")(1)
            Dim s1 As New StringBuilder()
            Dim index As Integer = 0
            For i As Integer = 0 To input.Length - 1
                If index > key - 1 Then index = 0
                s1.Append(Chr(Asc(input(i)) - index))
                index += 1
            Next
            Return s1.ToString
        Catch : Return "error" : End Try
    End Function
    Function En(input As String, key As String) ' encrypt
        Try
            Dim s1 As New StringBuilder()
            Dim index As Integer = 0
            For i As Integer = 0 To input.Length - 1
                If index > key.Length - 1 Then index = 0
                s1.Append(Chr(Asc(input(i)) + index))
                index += 1
            Next
            Dim old As New StringBuilder()
            old.Append(key.Length & ":" & input.Length & ":" & s1.ToString)
            Return key.Length & ":" & old.ToString.Length & ":" & s1.ToString
        Catch : Return "error" : End Try
    End Function
التشفير يتطلب وضع باسورد ، بينما فك التشفير لا يحتاج إلى باس فهو يتعرف عليه تلقائياً .
طريقة العمل :

C#:
        Dim Encrypt As String = En("النص الأصلي", "مفتاح التشفير") ' النص المشفر
        Dim decrypt As String = De("النص المشفر") ' النص مفكوك التشفير
اعلم بانه شيء بسيط ولكن لا أعلم شعرت بأنه يجب ان اشاركة معكم :15: .
محبكم دوما : المملكة .
 
التعديل الأخير:

SyRiAn KaSp3r

مُراقب أقسام حماية الأجهزة
طاقم الإدارة
إنضم
26 أكتوبر 2012
المشاركات
12,511
الإعجابات
16,334
النقاط
215
الإقامة
In YouR MinD
المبدع المملكة في ربوعنا اهلاً اهلاً :15:

فنكشن جميل رغم بساطته استاذنا المملكة يعطيك الف عافية يا رب ,,
 

silenced

Beginner Developer
rank
إنضم
4 نوفمبر 2017
المشاركات
67
الإعجابات
53
النقاط
18
العمر
27
سلمت اناملك هل هذا خاص بنصوص لو ممكن يساعدنا بتشفير كلاينت ؟
 

الممَلكة

مُراقب اقسام البرمجة
rankrankrankrankrankrank
طاقم الإدارة
إنضم
30 أغسطس 2010
المشاركات
4,259
الإعجابات
6,518
النقاط
100
الإقامة
المملكة العربية السعودية
سلمت اناملك هل هذا خاص بنصوص لو ممكن يساعدنا بتشفير كلاينت ؟
تستطيع تشفير به ما شئت بإستخدام Encoding.Default.GetBytes .

المبدع المملكة في ربوعنا اهلاً اهلاً :15:

فنكشن جميل رغم بساطته استاذنا المملكة يعطيك الف عافية يا رب ,,
مهما سويت ما اقدر اخذ الساحة منك يا مبدع ، مِنك نتعلم استاذ قتيبة :15: .
 
التعديل الأخير:

Bashar Bachir

ديـف بـويـنـتـي
طاقم الإدارة
إنضم
16 مارس 2011
المشاركات
7,442
الإعجابات
8,345
النقاط
173
الإقامة
Germany
ماشاء الله عليك اخي الحبيب الاريب ..
ثبتت الموضوع قبل ماارد ..ونسيت ارد ههه
كل مرة تذكرنا بشيء من ابداعاتك وان شاء الله رح استخدم الفانكشنين بشروحاتي
مبدع ومتألق دوما واحرضك على المشاركة هنا فهنا كانت ولازالت ساحتك
ولكنك بتغيير معرفك غيرتها ماادري لماذا ."قسم البرمجة مابيأكل عيش" :257:
الله يحفظكم ويزيدكم من علمه اخي الحبيب
 

الممَلكة

مُراقب اقسام البرمجة
rankrankrankrankrankrank
طاقم الإدارة
إنضم
30 أغسطس 2010
المشاركات
4,259
الإعجابات
6,518
النقاط
100
الإقامة
المملكة العربية السعودية
ماشاء الله عليك اخي الحبيب الاريب ..
ثبتت الموضوع قبل ماارد ..ونسيت ارد ههه
كل مرة تذكرنا بشيء من ابداعاتك وان شاء الله رح استخدم الفانكشنين بشروحاتي
مبدع ومتألق دوما واحرضك على المشاركة هنا فهنا كانت ولازالت ساحتك
ولكنك بتغيير معرفك غيرتها ماادري لماذا ."قسم البرمجة مابيأكل عيش" :257:
الله يحفظكم ويزيدكم من علمه اخي الحبيب
شاكر لك استاذ بشار على كلامك الراقي ، بس بصراحة قسم البرمجة ميولي له أكثر من اقسام الحماية.
هناك اقدر ابدع بدون منافس مثلك ومثل قتيبة :15: ، حتى لو كان أكل العيش مُر :15:

نورت صديقي
 

Bashar Bachir

ديـف بـويـنـتـي
طاقم الإدارة
إنضم
16 مارس 2011
المشاركات
7,442
الإعجابات
8,345
النقاط
173
الإقامة
Germany
شاكر لك استاذ بشار على كلامك الراقي ، بس بصراحة قسم البرمجة ميولي له أكثر من اقسام الحماية.
هناك اقدر ابدع بدون منافس مثلك ومثل قتيبة :15: ، حتى لو كان أكل العيش مُر :15:

نورت صديقي
الله يسامحك بس ههه ..
انت وقت كنت تنزل اداوات وطرق اختراق انا كنت لسا مبعرف شو يعني اختراق هههه
بتذكر مرة لموضوع من مواضيعك كنت انت منزل اداة وانا عملت شرح لها هههه
ف الله يوفقك لاعاد تحكي هالكلام هه ..منك تعلمنا ومنك نتعلم اخي الحبيب
الله يحفظكم ويزيدك من علمه اخي
 
إنضم
21 أبريل 2017
المشاركات
123
الإعجابات
85
النقاط
28
العمر
24
مبدع احمد
دومك تظهر ابداعات وتغيب
فنكشن جميل
سؤال
هل يمكن تشفير السيرفرات به ؟
او فقط النصوص وشكرا
 

Ahmed Al'jabari

مُشرف أقسام البرمجة
rankrankrank
إنضم
24 يونيو 2017
المشاركات
684
الإعجابات
432
النقاط
73
الإقامة
Turkey
خوارزميه جميله
طريقة استعمال التشفير للماعرف يستعملها
كود:
msgbox(En("AhmedAljabari" , "Key")
 

Ahmed Al'jabari

مُشرف أقسام البرمجة
rankrankrank
إنضم
24 يونيو 2017
المشاركات
684
الإعجابات
432
النقاط
73
الإقامة
Turkey
الحاب يشفر سيرفراته بيها يحول سيرفره لخوارزميه وبعدها يقدر يشفره بيها
 
إنضم
29 أغسطس 2010
المشاركات
443
الإعجابات
349
النقاط
63
يعطيك العافيه ينفع في كثير من امور راح احتاج لانو new
 
إنضم
15 نوفمبر 2017
المشاركات
174
الإعجابات
230
النقاط
53
السلام عليكم ورحمة الله وبركاته

اسعد الله صباحكم اعضاء وزوار نقطة التطوير الكرام .
اقدم لكم اليوم فنكشن تشفير وفك تشفير ( من قبلي ) بسيط في عملة وأردت ان اشاركة معكم :15: .

C#:
    Function De(input As String) ' decrypt
        Try
            Dim key As Integer = Regex.Match(input, "(.*?):" & input.Length & ":(.*?)").Groups.Item(1).Value
            input = Split(input, input.Length & ":")(1)
            Dim s1 As New StringBuilder()
            Dim index As Integer = 0
            For i As Integer = 0 To input.Length - 1
                If index > key - 1 Then index = 0
                s1.Append(Chr(Asc(input(i)) - index))
                index += 1
            Next
            Return s1.ToString
        Catch : Return "error" : End Try
    End Function
    Function En(input As String, key As String) ' encrypt
        Try
            Dim s1 As New StringBuilder()
            Dim index As Integer = 0
            For i As Integer = 0 To input.Length - 1
                If index > key.Length - 1 Then index = 0
                s1.Append(Chr(Asc(input(i)) + index))
                index += 1
            Next
            Dim old As New StringBuilder()
            old.Append(key.Length & ":" & input.Length & ":" & s1.ToString)
            Return key.Length & ":" & old.ToString.Length & ":" & s1.ToString
        Catch : Return "error" : End Try
    End Function
التشفير يتطلب وضع باسورد ، بينما فك التشفير لا يحتاج إلى باس فهو يتعرف عليه تلقائياً .
طريقة العمل :

C#:
        Dim Encrypt As String = En("النص الأصلي", "مفتاح التشفير") ' النص المشفر
        Dim decrypt As String = De("النص المشفر") ' النص مفكوك التشفير
اعلم بانه شيء بسيط ولكن لا أعلم شعرت بأنه يجب ان اشاركة معكم :15: .
محبكم دوما : المملكة .
ما شالله عليك أخي أبداع بكل معنى الكلمة خوارزمية بسيطة وجميلة (تعجبني طريقتك في أستغلال الدوال بشكل مختلف وجديد يا مبدع) :50:
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 1 ضيف)

خيارات الاستايل

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

إرجاع خيارات الإستايل