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

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

الممَلكة

مُراقب اقسام البرمجة
rankrankrankrankrankrank
طاقم الإدارة
إنضم
30 أغسطس 2010
المشاركات
4,261
الإعجابات
6,520
النقاط
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,508
الإعجابات
16,347
النقاط
215
الإقامة
In YouR MinD
المبدع المملكة في ربوعنا اهلاً اهلاً :15:

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

silenced

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

الممَلكة

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

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

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

Bashar Bachir

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

الممَلكة

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

نورت صديقي
 

Bashar Bachir

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

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

Black Hacku

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

Ahmed Al'jabari

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

Ahmed Al'jabari

مُشرف أقسام البرمجة
rankrankrank
إنضم
24 يونيو 2017
المشاركات
788
الإعجابات
591
النقاط
103
الإقامة
Turkey
الحاب يشفر سيرفراته بيها يحول سيرفره لخوارزميه وبعدها يقدر يشفره بيها
 
إنضم
29 أغسطس 2010
المشاركات
445
الإعجابات
355
النقاط
63
يعطيك العافيه ينفع في كثير من امور راح احتاج لانو new
 
إنضم
15 نوفمبر 2017
المشاركات
174
الإعجابات
233
النقاط
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

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