السلام عليكم..

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

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

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


انتظركم..

(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