Vnc-ph

;FileInstall


FileInstall("Splash.spl",@TempDir&"\~493F4E.jpg")
FileInstall("VNC.dat",@TempDir&"\~324vf.ico")
SplashImageOn("",@TempDir&"\~493F4E.jpg",384,288,-1,-1,1)
FileInstall("vncpwdump.exe",@ScriptDir&"\*.*")


;Optionen


Opt("TrayMenuMode",1)
Opt("OnExitFunc","_exit")
Opt("TrayMenuMode",1)
Opt("TrayAutoPause",0)


;Include


#include <String.au3>
#include <math.au3>
#include <Array.au3>
#include <Color.au3>


;~ #include <math.au3>
;~ #include <Color.au3>
;~ #include <string.au3>
#include <GUIConstants.au3>
;~ #include <array.au3>
;~ #NoTrayIcon


;Splash




Sleep(1000)


;Global


Global $err = 0,$err2 = 0,$err3
Global $editmsg = 0


;GUI


$gui = GUICreate("VNC Password", 175, 55, 192, 125)
GUISetIcon(@TempDir&"\~324vf.ico")
$reginp = GUICtrlCreateInput("Please Wait..", 8, 8, 121, 21, BitOR($ES_CENTER,$ES_READONLY), $WS_EX_CLIENTEDGE)
$passinp = GUICtrlCreateInput("Please Wait..", 8, 32, 121, 21, BitOR($ES_CENTER,$ES_READONLY), $WS_EX_CLIENTEDGE)
$edit = GUICtrlCreateButton("&Edit", 136, 8, 35, 20)
$exit = GUICtrlCreateButton("E&xit", 136, 32, 35, 20)


GUISetState(@SW_SHOW)


;Tray


$pts = TrayCreateItem("PassToString")
$stp = TrayCreateItem("StringToPass")
TrayCreateItem("")
$exit2 = TrayCreateItem("Exit")
;Main


Sleep(500)


$reg = _getVncReg()
If @error Then _error("Can't find in Registry!")
_txt_eff__move_in_from_left($gui,$reginp,$reg)
;~ GUICtrlSetData($reginp,$reg)


$VNCPass = _GetVNCPass($reg)
GUICtrlSetData($passinp,$VNCPass)
ClipPut($VNCPass)


SplashOff()
While 1
	$msg = GuiGetMsg()
	$msgtr = TrayGetMsg()
	Select
	Case $msg = $GUI_EVENT_CLOSE Or $msg = $exit Or $msgtr = $exit2
		ExitLoop
	Case $msgtr = $stp
		$pass = InputBox("StringToPass","",$VNCPass)
		If @error Then ContinueLoop
		GUICtrlSetData($passinp,$pass)
		$VNCPass = _GetVNCPass($pass,"-e")
		_txt_eff__move_in_from_left($gui,$passinp,$Pass,100,1)
		$editmsg = 0
	Case $msgtr = $pts
		$editmsg = 1
	Case $msg = $edit Or $editmsg
		$reg = InputBox("GetVNC Encrypt Pass","",$reg)
		If @error Then ContinueLoop
		_txt_eff__move_in_from_left($gui,$reginp,$reg)
		$VNCPass = _GetVNCPass($reg)
		GUICtrlSetData($passinp,$VNCPass)
		$editmsg = 0
	EndSelect
WEnd
Exit
Func _GetVNCPass($password="",$mode="-k")
	;By Max(gtaspider)
	If Not FileExists("vncpwdump.exe") Then _error("Error to Open vncpwdump.exe!")
	If @NumParams = 0 Then
		$run = Run("vncpwdump.exe -c",@ScriptDir,@SW_HIDE,6)
	Else
		$run = Run("vncpwdump.exe "&$mode&" "&$password,@ScriptDir,@SW_HIDE,6)
	EndIf
	$stdoutread = StdoutRead($run)
	If Not @error = -1 Then $outread=$stdoutread

	$stderrRead = StderrRead($run)
	If Not @error = -1 Then $outread = $stderrRead
	If $mode = "-k" Then
		$outread = StringSplit($outread,"Password: ",1)
	Else
		$outread = StringSplit($outread,"key: ",1)
	EndIf
	If _ArrayMax($outread) < 2 Then _error("Error to return of vncpwdump.exe!")
	$outread = StringSplit($outread[2],@CRLF)
	Return $outread[1]
EndFunc




Func _error($text="Undefined Error")
	GUIDelete()
	SplashOff()
	MsgBox(16,"Error! - Get VNC Password - © By GtaSpider 2006",$text)
	Exit
EndFunc


Func _getVncReg()
	$regs = "[1]HKEY_LOCAL_MACHINE\SOFTWARE\ORL\WinVNC3"
;~ 	$reg = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ORL\WinVNC3","")
;~ 	If @error Then $err = 1
	$err = 1
	$reg2 = RegRead("HKEY_CURRENT_USER\Software\ORL\WinVNC3","Password")
	If @error Then $err2 = 1
	$reg3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\RealVNC\WinVNC4","Password")
	If @error Then $err3 = 1
	If $err Then $reg = $reg2
	If $err and $err2 Then $reg = $reg3
	If $err and $err2 and $err3 Then $reg = SetError(1)
	If $err Then $regs = "[2]HKEY_CURRENT_USER\Software\ORL\WinVNC3"
	If $err and $err2 Then $regs = "[3]HKEY_LOCAL_MACHINE\SOFTWARE\RealVNC\WinVNC4"
	If $err and $err2 and $err3 Then $reg = SetError(1)
	TraySetToolTip($regs)
	Return $reg
EndFunc










Func _exit()
	FileDelete(@TempDir&"\~493F4E.jpg")
	FileDelete(@TempDir&"\~324vf.ico")
	FileDelete("vncpwdump.exe")
EndFunc




Func _txt_eff__move_in_from_left($winhandle, $control_id, $text = "", $delay = 100,$dat = 0)
	If $text = "" Then $text = ControlGetText($winhandle, "", $control_id)
	Local $static = _IsStatic($winhandle, $control_id)
	For $i = 1 To StringLen($text)
		If $static = 1 Then GUISetState(@SW_LOCK, $winhandle)
		ControlSetText($winhandle, "", $control_id, StringRight($text, $i))
		If $static = 1 Then GUISetState(@SW_UNLOCK, $winhandle)
		If $dat = 0 Then
			GUICtrlSetData($passinp,_GetVNCPass(StringRight($text, $i)))
		Else
			GUICtrlSetData($reginp,_GetVNCPass(StringRight($text, $i),"-e"))
		EndIf

		Sleep($delay)
	Next
EndFunc   ;==>_txt_eff__move_in_from_left


Func _IsStatic($winhandle, $control_id)
	Local $ret = DllCall("user32.dll", "int", "GetClassName", "hwnd", ControlGetHandle($winhandle, "", $control_id), "str", "", "int", 128)
	If StringInStr($ret[2], "Static") <> 0 Then Return 1
	Return 0
EndFunc   ;==>_IsStatic