منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

إقتباس :معك اكثر من طريقه ممكن تدمج اكثر من طريقه مع بعض والوصول الي اكبر طريقه للتشفير وتطلق عليه تشفير (ABr) اختصار الي ابو روضه 

لاداعي للأعتذار اخي الغالي شكرآ على كلامك الجميل وانا الذي اعتذر لاني لم اشرحها بالتفصيل

الفئة 


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


دمجت مابين دالة التشفير وفك التشفير وهي بالاصل ممكن تكون بهذا الشكل



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


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

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

(14-11-19, 11:07 PM)smalw كتب : [ -> ][quote pid='151890' dateline='1573758058']

هذا نفع فعلا أخى لكن كيف شفرت الرابط فأصبح هكذا aHR0cHM6Ly93d3cuZ29vZ2xlLmNvbS5lZy8=  ؟

شفرتها هكذا

[/quote]

لكن هذا الرابط غير مشفر أخى https://www.google.com.eg/
أنا أقصد حضرتك شفرته هكذا ازاى  aHR0cHM6Ly93d3cuZ29vZ2xlLmNvbS5lZy8=

(14-11-19, 11:17 PM)smalw كتب : [ -> ]مهو تشفر بياناتك في برنامج اخر وتنسخ الناتج المشفر وتضعه في برنامج الاخير

---

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

---

(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)

أعتقد انك تريد فعل هذا




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

البرنامج الذي عملته قبل شويا اكتب http://www.google.com بداخل تكست 1 وانسخ ناتج تكست 2 وضعه كما في الكود الاعلى
أي بمعنى ان يكون لديك برنامج تشفير مستقل عن برنامج تقوم بتشفير الكلمات الخاصة مع كلمة سر مشفرة وعند الاستدعاء للكلمة افتحها بنفس مفتاح التشفير

(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)

---