The below Excerpt is from lines 8099-8118 of his code. This is where he does the FTP Connection to check for the version.
Code:
If ($disableupdatecheck = False) Then
Local $open = _ftp_open("UntzBot FTP Control")
Local $connect = _ftp_connect($open, "noobzone.us.to", "untzbot", "12345678910")
If $connect <> 0 Then
_ftp_fileget($connect, "\Version\version.txt", "localversion.txt")
Local $exists = FileExists("localversion.txt")
Local $versionfile = FileOpen("localversion.txt", 0)
Local $newversion = FileReadLine($versionfile, 1)
FileClose($versionfile)
FileDelete("localversion.txt")
If ($newversion <> $version) Then
$msg = "The version you are using is not the latest one. Please update."
$msg = $msg & @LF & "You can still use this version if you want to."
$msg = $msg & @LF & "Current Version: " & $version
$msg = $msg & @LF & "Recommended Version: " & $newversion
$msg = $msg & @LF
MsgBox(0, "UntzBot", $msg)
EndIf
EndIf
EndIf
Lines 8119 - 8152 contain the login attempt for untz.
Code:
While 1
Local $nmsg = GUIGetMsg()
Switch $nmsg
Case $gui_event_close
Exit
Case $lsblogin
GUICtrlSetData($lsstatus, "Logging in ...")
Local $curtime = 1
Local $settingemail = GUICtrlRead($lsfemail)
Local $settingpass = GUICtrlRead($lsfpass)
Local $ohttp = ObjCreate("winhttp.winhttprequest.5.1")
Local $url = "http://untzzz.integriti.net/rogin/trylogin.php"
$ohttp.open("GET", $url & "?e=" & $settingemail & "&p=" & $settingpass & "&t=" & $curtime & "&v=" & $version)
$ohttp.send()
$ohttp.waitforresponse
$source = $ohttp.responsetext
Local $answer = md5($settingemail & $settingpass & $curtime)
$source = StringLeft($source, StringLen($answer))
If ($source == $answer) Then
GUICtrlSetData($lsstatus, "Works!")
$beta = 0
ExitLoop
Else
GUICtrlSetData($lsstatus, "Failed to log in!")
$beta = 0
EndIf
Case $lsbregister
ShellExecute("http://untz.comuf.com/paypal.php")
Exit
Case $lsbfree
$beta = 0
ExitLoop
EndSwitch
WEnd