تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تشفير كود داخل الفورم
#11
إقتباس :معك اكثر من طريقه ممكن تدمج اكثر من طريقه مع بعض والوصول الي اكبر طريقه للتشفير وتطلق عليه تشفير (ABr) اختصار الي ابو روضه 

Smile تسلملى حبيبى الله يعز أصلك الطيب
الرد }}}
تم الشكر بواسطة: asemshahen5 , princelovelorn
#12
لاداعي للأعتذار اخي الغالي شكرآ على كلامك الجميل وانا الذي اعتذر لاني لم اشرحها بالتفصيل

الفئة 

كود :
Public Class ddstjgjhgftrdr

خاصة بالتشفير وانا غيرتها لأسم عشوائي يمكن مبالغة شويا ههههه
بها دالتين واحدة للتشفير وسميتها Cod والثانية لفك التشفير Uncod
الكود الذي استخدمته


كود :
ddstjgjhgftrdr.uncod("sEZSSVjIJwMcDOEu15my3Q==", ddstjgjhgftrdr.cod("AhX260Oh", "XHJDH"))
دمجت مابين دالة التشفير وفك التشفير وهي بالاصل ممكن تكون بهذا الشكل

كود :
Dim t As String = ""
       t = ddstjgjhgftrdr.cod("vb4arb.com", "1234") 'الكلمة ومفتاح التشفير
       MsgBox(ddstjgjhgftrdr.uncod(t, "1234")) 'الكلمة المشفرة ومفتاح فك الشفرة


اعمل معي هذا المثال وستفهم قصدي ان شاء الله


اولا ضع 2 زر بوتون و 3 تكست بوكس
الزر الاول لتشفير التكست الموجود في تكست بوكس 1 واظهار النتيجة في تكست بوكس 2
والزر الثالث لفتح تشفير الكلمة الموجودة في تكست بوكس 2 واظهارها في تكست بوكس 3

وهذا الكود كامل


كود :
Imports System.Security.Cryptography

Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox2.Text = ddstjgjhgftrdr.cod(TextBox1.Text, ddstjgjhgftrdr.cod("AhX260Oh", "XHJDH"))
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       TextBox3.Text = ddstjgjhgftrdr.uncod(TextBox2.Text, ddstjgjhgftrdr.cod("AhX260Oh", "XHJDH"))
   End Sub
End Class
Public Class ddstjgjhgftrdr
   Public Shared trip As New TripleDESCryptoServiceProvider
   Public Shared md5 As New MD5CryptoServiceProvider
   Public Shared Function utf(ByVal value As String) As Byte()
       Return md5.ComputeHash(System.Text.ASCIIEncoding.UTF8.GetBytes(value))
   End Function
   Public Shared Function cod(ByVal str As String, ByVal key As String)
       On Error Resume Next
       trip.Key = ddstjgjhgftrdr.utf(key)
       trip.Mode = CipherMode.ECB
       Dim Buffer As Byte() = System.Text.ASCIIEncoding.UTF8.GetBytes(str)
       Return Convert.ToBase64String(trip.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
   End Function
   Public Shared Function uncod(ByVal str As String, ByVal key As String) As String
       On Error Resume Next
       trip.Key = utf(key)
       trip.Mode = CipherMode.ECB
       Dim byt() As Byte = Convert.FromBase64String(str)
       Return System.Text.ASCIIEncoding.UTF8.GetString(trip.CreateDecryptor().TransformFinalBlock(byt, 0, byt.Length))
   End Function
End Class
الرد }}}
تم الشكر بواسطة: asemshahen5 , princelovelorn
#13
(14-11-19, 11:07 PM)smalw كتب : [quote pid='151890' dateline='1573758058']
هذا نفع فعلا أخى لكن كيف شفرت الرابط فأصبح هكذا aHR0cHM6Ly93d3cuZ29vZ2xlLmNvbS5lZy8=  ؟
شفرتها هكذا
PHP كود :
Dim x As String Convert.ToBase64String(Encoding.UTF8.GetBytes("https://www.google.com.eg/")) 

[/quote]

لكن هذا الرابط غير مشفر أخى https://www.google.com.eg/
أنا أقصد حضرتك شفرته هكذا ازاى  aHR0cHM6Ly93d3cuZ29vZ2xlLmNvbS5lZy8=
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5 , princelovelorn
#14
(14-11-19, 11:17 PM)smalw كتب : مهو تشفر بياناتك في برنامج اخر وتنسخ الناتج المشفر وتضعه في برنامج الاخير

مومعقول تضع الكودين في نفس البرنامج

انا لم أضع كودين أخى بنفس البرنامج انا فقط بستفسر من حضرتك ازاى شفرت هذا الرابط
https://www.google.com.eg/
لآن التشفير هذه الوحيدة التى فتحت معى بالفعل الرابط دون أخطاء
كما أنها بسيطة

(14-11-19, 11:15 PM)3booody كتب : لاداعي للأعتذار اخي الغالي شكرآ على كلامك الجميل وانا الذي اعتذر لاني لم اشرحها بالتفصيل

الفئة 

كود :
Public Class ddstjgjhgftrdr

خاصة بالتشفير وانا غيرتها لأسم عشوائي يمكن مبالغة شويا ههههه
بها دالتين واحدة للتشفير وسميتها Cod والثانية لفك التشفير Uncod
الكود الذي استخدمته


كود :
ddstjgjhgftrdr.uncod("sEZSSVjIJwMcDOEu15my3Q==", ddstjgjhgftrdr.cod("AhX260Oh", "XHJDH"))
دمجت مابين دالة التشفير وفك التشفير وهي بالاصل ممكن تكون بهذا الشكل

كود :
Dim t As String = ""
       t = ddstjgjhgftrdr.cod("vb4arb.com", "1234") 'الكلمة ومفتاح التشفير
       MsgBox(ddstjgjhgftrdr.uncod(t, "1234")) 'الكلمة المشفرة ومفتاح فك الشفرة


اعمل معي هذا المثال وستفهم قصدي ان شاء الله


اولا ضع 2 زر بوتون و 3 تكست بوكس
الزر الاول لتشفير التكست الموجود في تكست بوكس 1 واظهار النتيجة في تكست بوكس 2
والزر الثالث لفتح تشفير الكلمة الموجودة في تكست بوكس 2 واظهارها في تكست بوكس 3

وهذا الكود كامل


كود :
Imports System.Security.Cryptography

Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox2.Text = ddstjgjhgftrdr.cod(TextBox1.Text, ddstjgjhgftrdr.cod("AhX260Oh", "XHJDH"))
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       TextBox3.Text = ddstjgjhgftrdr.uncod(TextBox2.Text, ddstjgjhgftrdr.cod("AhX260Oh", "XHJDH"))
   End Sub
End Class
Public Class ddstjgjhgftrdr
   Public Shared trip As New TripleDESCryptoServiceProvider
   Public Shared md5 As New MD5CryptoServiceProvider
   Public Shared Function utf(ByVal value As String) As Byte()
       Return md5.ComputeHash(System.Text.ASCIIEncoding.UTF8.GetBytes(value))
   End Function
   Public Shared Function cod(ByVal str As String, ByVal key As String)
       On Error Resume Next
       trip.Key = ddstjgjhgftrdr.utf(key)
       trip.Mode = CipherMode.ECB
       Dim Buffer As Byte() = System.Text.ASCIIEncoding.UTF8.GetBytes(str)
       Return Convert.ToBase64String(trip.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
   End Function
   Public Shared Function uncod(ByVal str As String, ByVal key As String) As String
       On Error Resume Next
       trip.Key = utf(key)
       trip.Mode = CipherMode.ECB
       Dim byt() As Byte = Convert.FromBase64String(str)
       Return System.Text.ASCIIEncoding.UTF8.GetString(trip.CreateDecryptor().TransformFinalBlock(byt, 0, byt.Length))
   End Function
End Class

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

 Dim y As String = ASCIIEncoding.ASCII.GetString(Convert.FromBase64String("3fBnARfsLUvnpsY+ofruIEbipiVJkVVRWDCOwQmCmSk="))

        Process.Start(y)
الرد }}}
تم الشكر بواسطة: asemshahen5 , princelovelorn , princelovelorn
#15
أعتقد انك تريد فعل هذا


كود :
Process.Start(ddstjgjhgftrdr.uncod("56bGPqH67iDp/pQVm1jZ4g==", ddstjgjhgftrdr.cod("AhX260Oh", "XHJDH")))


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

البرنامج الذي عملته قبل شويا اكتب http://www.google.com بداخل تكست 1 وانسخ ناتج تكست 2 وضعه كما في الكود الاعلى
أي بمعنى ان يكون لديك برنامج تشفير مستقل عن برنامج تقوم بتشفير الكلمات الخاصة مع كلمة سر مشفرة وعند الاستدعاء للكلمة افتحها بنفس مفتاح التشفير
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة , asemshahen5 , princelovelorn
#16
(14-11-19, 11:31 PM)smalw كتب : لا تغضب ساوضح اكثر مع اني توقعت انك ستعرف من نفسك لانك لست مبتدا

التشفير يكون في المتغير x السابق والذي سيكون في برنامج خاص بك لتشفير اي بيانات مثل

كود :
Dim x As String = Convert.ToBase64String(Encoding.UTF8.GetBytes(TextBox1.Text))
TextBox2.Text=x
او تضعه للنسخ التلقائي لتقوم باللصق في اي كود اخر مثل
كود :
Dim x As String = Convert.ToBase64String(Encoding.UTF8.GetBytes(TextBox1.Text))
Clipboard.SetText(x)

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

أخى الكريم smalw لماذا حذفت ردودك كلها وكأنى ضربتك طلقة برصاص ؟
أنا لم أقل لك شيئ به إهانة بل بالعكس شكرتك .....
هو ليه أغلب الناس بتعمل الخير وتندم عليه وكأنها فعلت مُنكر ؟ سبحان الله.
أنت قولت لا تغضب فرديت عليك بالعكس أنا أسعد بتعاونكم..
فهل هذه الكلمة إهانة لك أو عدم تقدير ؟
الله يجزيك كل الخير أخى لا تتعجل فيما بعد فقد تفعل شيئاً لغيرك
يظل متذكرك به طوال حياته..
 وقد لا استفيد أنا من كودك لكن بكل
تأكيد هناك من سيحتاجه يوماً ما.
الرد }}}
تم الشكر بواسطة: 3booody , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] مشكلة في شكل الفورم abuyazan 5 288 27-02-24, 09:38 PM
آخر رد: aljzazy
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 103 22-02-24, 12:09 PM
آخر رد: AHMED213
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 209 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 303 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 188 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 254 29-12-23, 10:44 PM
آخر رد: Kamil
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 451 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 471 17-10-23, 06:51 PM
آخر رد: new_programer
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 508 11-10-23, 07:17 PM
آخر رد: bidaya
  [VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير visualist2015 6 6,354 29-09-23, 03:09 AM
آخر رد: Taha Okla

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم