- Offizieller Beitrag
hallo!
ich habe letztens zufällig ein programm geschrieben das auf die registry zugreift und das RealVNC Passwort herausfindet! jetzt eine frage: darf ich das hier posten und geht das aus rechtlichen gründen nicht?
Mfg Spider
Edit: man man man, is der post unübersichtlich
Hier nochmal eine etwas neuere version --> vncpwdump.exe müsst ihr euch selber holen...
Spoiler anzeigen
;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
[/autoit] [autoit][/autoit] [autoit]Opt("TrayMenuMode",1)
Opt("OnExitFunc","_exit")
Opt("TrayMenuMode",1)
Opt("TrayAutoPause",0)
;Include
[/autoit] [autoit][/autoit] [autoit]#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
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Sleep(1000)
[/autoit] [autoit][/autoit] [autoit];Global
[/autoit] [autoit][/autoit] [autoit]Global $err = 0,$err2 = 0,$err3
Global $editmsg = 0
;GUI
[/autoit] [autoit][/autoit] [autoit]$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)
[/autoit] [autoit][/autoit] [autoit];Tray
[/autoit] [autoit][/autoit] [autoit]$pts = TrayCreateItem("PassToString")
$stp = TrayCreateItem("StringToPass")
TrayCreateItem("")
$exit2 = TrayCreateItem("Exit")
;Main
Sleep(500)
[/autoit] [autoit][/autoit] [autoit]$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
Und die ZIP im anhang (ohne die dump )