المشاركات : 4
المواضيع 2
الإنتساب : May 2015
السمعة :
0
الشكر: 1
تم شكره 2 مرات في 2 مشاركات
المشاركات : 71
المواضيع 0
الإنتساب : Jan 2015
السمعة :
21
الشكر: 2566
تم شكره 1060 مرات في 55 مشاركات
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
المشاركات : 4
المواضيع 2
الإنتساب : May 2015
السمعة :
0
الشكر: 1
تم شكره 2 مرات في 2 مشاركات
(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
ولو تعطيني صورة للبرنامج اللي راح احط عليه الكود او الادوات اللي راح اضيفها
|