; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:         A.N.Other <myemail@nowhere.com>
;
; Script Function:
;	Template AutoIt script.
;
; ----------------------------------------------------------------------------

; Script Start - Add your code below here
#include <file.au3>
#include <Array.au3>
#include "_Base64.au3"
#include <Constants.au3>

opt("OnExitFunc", "endscript")
opt("SendKeyDelay", 0)
Opt("TrayIconDebug", 1)

;kill previous run
While ProcessExists("openssl.exe")
	ProcessClose("cmd.exe")
	ProcessClose("openssl.exe")
WEnd

;###FILL IN THIS INFO###
$User = InputBox("Gmail", "Enter Username", "")
$Pass = InputBox("Gmail", "Enter Password", "", "*")

;set server info
$SSL_Exe_loc = "C:\OpenSSL\bin\openssl.exe"
$SMTP_Server = "pop.gmail.com"
$SMTP_Port = "995"

;###START_COMMANDS### 
Local $as_Send[1] ;command sent to smtp sever
Local $as_ReplyCode[1] ;Return code from SMTP server indicating success 250 334 ect...

_ArrayAdd ( $as_ReplyCode, "+OK")

_ArrayAdd ( $as_Send, "USER " & $User )
_ArrayAdd ( $as_ReplyCode, "+OK")

_ArrayAdd ( $as_Send, "PASS " & $Pass & @CRLF)
_ArrayAdd ( $as_ReplyCode, "+OK")

_ArrayAdd ( $as_Send, "STAT" & @CRLF)
_ArrayAdd ( $as_ReplyCode, "+OK")

_ArrayAdd ( $as_Send, "LIST" & @CRLF)
_ArrayAdd ( $as_ReplyCode, ".")

_ArrayAdd ( $as_Send, "RETR 1" & @CRLF)
_ArrayAdd ( $as_ReplyCode, ".")

_ArrayAdd ( $as_Send, "QUIT" & @CRLF)
;###END_COMMANDS### 

GUICreate("Command Trace", 660, 400)
$mylist = GUICtrlCreateEdit("", -1, -1, 660, 400)

$RunPID = Run(@ComSpec & " /c " & $SSL_Exe_loc & " s_client -crlf -ign_eof -connect " & $SMTP_Server & ":" & $SMTP_Port, "", @SW_HIDE, $STDOUT_CHILD + $STDIN_CHILD)
WinWait(@SystemDir & "\cmd.exe")
WinMove(@SystemDir & "\cmd.exe", "", @DesktopWidth, @DesktopHeight)
WinSetState(@SystemDir & "\cmd.exe", "", @SW_HIDE)
GUISetState()
;set var's to 0
$State_R = 1
$FileLineStart = 0
$new = 0
$LastLoop = 0

;The Brains
While 1
	$InBufferSize = StringLen(StdoutRead($RunPID, True))
	If $InBufferSize <> $LastLoop Then
		$LastLoop = $InBufferSize
		$Counter = 0
		While 1
			$temp = StdoutRead($RunPID)
			If $Counter > 50 Then ;its been 5 seconds, no reply display error
				MsgBox(0, "ERROR!", "Got This:" & $temp & @CRLF & "Was Looking For This:" & $as_ReplyCode[$State_R] & @CRLF & @CRLF & "State:" & $State_R)
				$Counter = 0
			EndIf
			If $State_R = 1 Then ;Bug fix, it wont take the first command. it needs it from the keyboard.
				$Read = $temp ;StdoutRead($RunPID) ;flush buffer
				_TraceRun("<RECV> " & $Read )
				StdinWrite($RunPID, $as_Send[$State_R] & @CRLF)
				_TraceRun("<SEND> " & $as_Send[$State_R] & @CRLF)
				$State_R = $State_R + 1
				WinSetState(@SystemDir & "\cmd.exe", "", @SW_SHOW)
				BlockInput(1)
				WinActivate(@SystemDir & "\cmd.exe")
				WinWaitActive(@SystemDir & "\cmd.exe")
				;Sleep(250)
				Send($as_Send[$State_R] & "{ENTER}")
				BlockInput(0)
				WinSetState(@SystemDir & "\cmd.exe", "", @SW_HIDE)
				ExitLoop
			ElseIf StringInStr($temp, $as_ReplyCode[$State_R]) Then
				$Read = $temp; StdoutRead($RunPID) ;flush buffer
				_TraceRun("<RECV> " & $Read )
				StdinWrite($RunPID, $as_Send[$State_R])
				_TraceRun("<SEND> " & $as_Send[$State_R])
				$State_R = $State_R + 1
				ExitLoop
			Else
				;StdinWrite($RunPID, @LF & "ehlo" & @LF)
				;_TraceRun("<SEND> " & "ehlo" & @CRLF)
				Sleep(100)
			EndIf
			$Counter = $Counter + 1
		WEnd
	EndIf
	
	If $State_R = UBound($as_ReplyCode) Then
		ExitLoop
	EndIf
	Sleep(50)
WEnd

Func _TraceRun($s_DisplayString)
	GUICtrlSetData($mylist, $s_DisplayString, 1)
EndFunc   ;==>_SmtpTrace

MsgBox(0, "", "DONE!" & @CRLF & "Program Closing")

Func endscript()
	If ProcessExists("openssl.exe") Then
		$s = MsgBox(4, "Kill Child Processes?", "Do you want to kill the command prompt and openssl?")
		If $s = 6 Then
			ProcessClose("cmd.exe")
			ProcessExists("openssl.exe")
			While ProcessExists("openssl.exe")
				ProcessClose("cmd.exe")
				ProcessClose("openssl.exe")
			WEnd
		EndIf
	EndIf
EndFunc   ;==>endscript