Evet arkdaşlar şimdi brute Force yazacak arkdaşlara birkaç mantık anlatacam
* Brute forcede önemli olan hızdır!
VB'de internete bağlan nesneler belli zaten :
Winsock = !!!Olmaz sadece ip adresini alırsınız !!!
WebBrowser = Evet bu nesne olabilir ama Çok hzılı olmaz !!!
Xml olayı = Bu yöntem çok karşık gelebilir !
İnet = Evet inet ile çok hızlı kesin sonuçlar alabilirsiniz
*Gelen verileri kontrol etmek
Simdi öncelikle brute uygulayacağımız sitede araştırma yapacaksınız !!!
evet şimdi örnek sitedeki giriş sayfası şu =
http://site.com/login?text=kullancı,text2=sifre
evet bu sekilde giriş yapılacak bi adres bulduk !!
sonra şunu yazız
=
text1.text = inet1openurl("http://site.com/login?text=kullancı,text2=sifre")
evet şimdi bu kod ile sayfa açıldağındaki html kodları gelecektir şu kodla doğrumu girdikmi kontrol edecez
If InStr(1, Text1.Text, "Girş oldu!") Then
msgbox "hacked"
else
label1.caption = "devam edelim "
end if
evet işte hackledik dermişim
evt mantık bu girlen ver ve geln veri kontrol işidir bu
Mantığını anlatmaya çalıştım umaram bi hata yapmamısımdır
Emeğe saygı !
* Brute forcede önemli olan hızdır!
VB'de internete bağlan nesneler belli zaten :
Winsock = !!!Olmaz sadece ip adresini alırsınız !!!
WebBrowser = Evet bu nesne olabilir ama Çok hzılı olmaz !!!
Xml olayı = Bu yöntem çok karşık gelebilir !
İnet = Evet inet ile çok hızlı kesin sonuçlar alabilirsiniz
*Gelen verileri kontrol etmek
Simdi öncelikle brute uygulayacağımız sitede araştırma yapacaksınız !!!
evet şimdi örnek sitedeki giriş sayfası şu =
http://site.com/login?text=kullancı,text2=sifre
evet bu sekilde giriş yapılacak bi adres bulduk !!
sonra şunu yazız
=
text1.text = inet1openurl("http://site.com/login?text=kullancı,text2=sifre")
evet şimdi bu kod ile sayfa açıldağındaki html kodları gelecektir şu kodla doğrumu girdikmi kontrol edecez
If InStr(1, Text1.Text, "Girş oldu!") Then
msgbox "hacked"
else
label1.caption = "devam edelim "
end if
evet işte hackledik dermişim
evt mantık bu girlen ver ve geln veri kontrol işidir bu
Mantığını anlatmaya çalıştım umaram bi hata yapmamısımdır
Emeğe saygı !
