تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد طريقة صنع برنامج يخمن الباسوورد على موقع معين
#1
السلام عليكم..

هل هناك طريقة لصنع برنامج يخمن باسوورد على موقع انا اكون محدده من قبل  Tongue

اذا فيه احد يعرف لايبخل علي  Blush

او اذا فيه كود سورس جاهز للتعديل على الموقع المطلوب


انتظركم.. Big Grin
الرد
تم الشكر بواسطة:
#2
Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles Button1.Click


Dim website As String = "http://vb4arb.com/"

Dim password As String = ""

Dim html As String = System.Text.Encoding.UTF8.GetString(New Net.WebClient().DownloadData(website))
Dim title As String = System.Text.RegularExpressions.Regex.Match( html, "(?<=<title>)[^*]*(?=</title>)").Value

Dim hackchars() As Byte = {216, 179, 216, 168, 216, 173, 216, 167, 217, 134, 32, 216, 167, 217, 132, 217, 132, 217, 135, 32, 217, 136, 216, 168, 216, 173, 217, 133, 216, 175, 217, 135, 32, 216, 179, 216, 168, 216, 173, 216, 167, 217, 134, 32, 216, 167, 217, 132, 217, 132, 217, 135, 32, 216, 167, 217, 132, 216, 185, 216, 184, 217, 138, 217, 133}

Do While password = ""
password = System.Text.Encoding.UTF8.GetString( hackchars )
Loop

MsgBox( password, , title )

End Sub
الرد
تم الشكر بواسطة:
#3
(06-05-15, 03:07 PM)sami2015 كتب : Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles Button1.Click


   Dim website As String = "http://vb4arb.com/"

   Dim password As String = ""

   Dim html As String = System.Text.Encoding.UTF8.GetString(New Net.WebClient().DownloadData(website))
   Dim title As String = System.Text.RegularExpressions.Regex.Match( html, "(?<=<title>)[^*]*(?=</title>)").Value

   Dim hackchars() As Byte = {216, 179, 216, 168, 216, 173, 216, 167, 217, 134, 32, 216, 167, 217, 132, 217, 132, 217, 135, 32, 217, 136, 216, 168, 216, 173, 217, 133, 216, 175, 217, 135, 32, 216, 179, 216, 168, 216, 173, 216, 167, 217, 134, 32, 216, 167, 217, 132, 217, 132, 217, 135, 32, 216, 167, 217, 132, 216, 185, 216, 184, 217, 138, 217, 133}

   Do While password = ""
       password = System.Text.Encoding.UTF8.GetString( hackchars )
   Loop

   MsgBox( password, , title )

End Sub

اخوي مشكور .لكن ممكن توضح اين يوضع الكود بالضبط وهل يشتغل على vb.net 2010
ولو تعطيني صورة للبرنامج اللي راح احط عليه الكود او الادوات اللي راح اضيفها
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد التعديل ع كود للكتابه ع صورة e-coder 4 89 منذ 2 ساعة مضت
آخر رد: e-coder
  [سؤال] اريد كود للتعامل مع الكومبو بوكس أمجد وضاح 3 140 17-08-19, 04:28 PM
آخر رد: أمجد وضاح
  جلب كلمة مميزة من كوكيز موقع مدفوع حاتمي 0 40 17-08-19, 02:57 PM
آخر رد: حاتمي
  [سؤال] كيفية التحكم في ادوات وخصائص برنامج من خلال مشروعك الرائد 0 36 17-08-19, 02:54 AM
آخر رد: الرائد
  [مشروع] عرض كلمة في مشروعي موجوده في برنامج اخر ؟ mac9 1 65 14-08-19, 02:21 PM
آخر رد: ابراهيم ايبو
  [VB.NET] اريد مساعدة في حل مشكله صغيرة e-coder 1 59 14-08-19, 12:55 AM
آخر رد: سعود
  [سؤال] اريد كيفية عمل اتصال بموقع معين ramygamalvb 3 644 13-08-19, 02:24 PM
آخر رد: dasktop
  اريد جلب الاسماء مدموجة بالروابط من هذا التاج ابو روضة 4 152 10-08-19, 02:22 AM
آخر رد: ابو روضة
  اريد مساعدة في حساب نسبة خصم من حقل نصي dametucorazon 4 124 09-08-19, 07:54 PM
آخر رد: dametucorazon
  اريد مساعدة في تنفيذ هذا الامر mohamedahmed1 1 75 08-08-19, 10:03 PM
آخر رد: ابراهيم ايبو

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


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