تقييم الموضوع :
  • 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
ولو تعطيني صورة للبرنامج اللي راح احط عليه الكود او الادوات اللي راح اضيفها
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عمل برنامج بالفجوال بيسك و تشغيلة على الجوال مهندس_خالد 2 48 منذ 9 ساعة مضت
آخر رد: محمود بكرى
  [سؤال] طريقة أخذ صورة من فيديو thevest_knight 3 55 أمس, 05:58 PM
آخر رد: thevest_knight
  [سؤال] ممكن طريقة عمل برنامج وارسال التحديثات اليه عندما يتوفر تحديث Mina Botros 3 79 أمس, 01:11 AM
آخر رد: سعود الشامان
  [سؤال] كيف اجعل برنامج التحميل يحتفظ بقيمة التحميل لو النور انقطع ابو روضة 2 91 16-09-17, 05:44 AM
آخر رد: ابو روضة
Big Grin [كود] شباب طريقة لإظهار الادوات بشكل شبه مخفى وليس الفورم badr.kamel 3 125 14-09-17, 05:07 AM
آخر رد: Mohamad Anan
  اريد كود لتحقق ان كان الفورم مفتوح ام لا The Light Fire 2 82 11-09-17, 06:57 PM
آخر رد: The Light Fire
  ماهي طريقة الصحيحه لتصفير الرقم طـلال 12 351 10-09-17, 03:37 AM
آخر رد: طـلال
  برنامج وارد ومصروفات abdohassan 0 62 09-09-17, 08:48 PM
آخر رد: abdohassan
  [مشروع] برنامج قران كريم عبدالرحمن المكاوي 7 144 09-09-17, 02:51 PM
آخر رد: عبدالرحمن المكاوي
  المساعدة في عمل برنامج حساب مجموع عدد حدود من السلسلة بإدخالها عن طريق لوحة المفاتيح Amjad 0 42 08-09-17, 04:02 PM
آخر رد: Amjad

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


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