[ابو روضة]

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