TDE
/
libtdevnc
mirror of https://mirror.git.trinitydesktop.org/gitea/TDE/libtdevnc
0
0
Fork 0
Code Issues Releases Wiki Activity

sync etv. profile cleanup

Browse Source
pull/1/head
runge 18 years ago
parent dea53c2210
commit b9688bb38d
2 changed files with 295 additions and 282 deletions
Show Stats Download Patch File Download Diff File

576
x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssl_tightvncviewer.tcl
Unescape View File

@ -122,7 +122,7 @@ proc help {} {
If you want to use a SSL Certificate (PEM) file to authenticate yourself If you want to use a SSL Certificate (PEM) file to authenticate yourself
to the VNC server ("MyCert") or to verify the identity of the VNC Server to the VNC server ("MyCert") or to verify the identity of the VNC Server
("ServerCert" or "CertsDir") import the certificate file by clicking ("ServerCert" or "CertsDir") select the certificate file by clicking
the "Certs ..." button before connecting. the "Certs ..." button before connecting.
Certificate verification is needed to prevent Man In the Middle attacks. Certificate verification is needed to prevent Man In the Middle attacks.
@ -169,7 +169,6 @@ proc help {} {
} }
.h.f.t insert end $msg .h.f.t insert end $msg
#raise .h
} }
proc help_certs {} { proc help_certs {} {
@ -240,7 +239,7 @@ proc help_certs {} {
x11vnc -ssl SAVE ... x11vnc -ssl SAVE ...
and then copy the Server certificate to the local (viewer-side) machine. and then copy the Server certificate to the local (viewer-side) machine.
x11vnc prints out the the screen the Server certificate it generates. x11vnc prints out to the screen the Server certificate it generates.
You can set "ServerCert" to it directly or use the "Import Certificate" You can set "ServerCert" to it directly or use the "Import Certificate"
action to save it to a file. action to save it to a file.
@ -249,7 +248,6 @@ proc help_certs {} {
} }
.ch.f.t insert end $msg .ch.f.t insert end $msg
#raise .ch
} }
proc help_opts {} { proc help_opts {} {
@ -308,8 +306,8 @@ set msg {
Putty PW: On Windows only: use the supplied password for plink SSH logins. Putty PW: On Windows only: use the supplied password for plink SSH logins.
Unlike the other options the value is not saved when 'Save Unlike the other options the value is not saved when 'Save
Profile' is used. This feature useful when options under Profile' is performed. This feature useful when options under
"Advanced" are set that require 2 SSH's: you just have "Advanced" are set that require TWO SSH's: you just have
to type the password once in this entry box. The bundled to type the password once in this entry box. The bundled
pagent.exe and puttygen.exe programs can also be used to avoid pagent.exe and puttygen.exe programs can also be used to avoid
repeatedly entering passwords (note this requires setting up repeatedly entering passwords (note this requires setting up
@ -342,17 +340,29 @@ set msg {
Compress Level/Quality: Set TightVNC encoding parameters. Compress Level/Quality: Set TightVNC encoding parameters.
Save and Load: You can Save the current settings by clicking on Save Save and Load: You can Save the current settings by clicking on Save
Profile (.vnc file) and you can also read in a saved one Profile (.vnc file) and you can also read in a saved one
with Load Profile. with Load Profile. Use the Browse... button to select
the filename via the GUI.
Include: Profile template(s) to load before loading a profile
(see Load Profile above). For example if you Save
a profile called "globals" that has some settings
you use often, then just supply "Include: globals"
to have them applied.
You may supply a comma or space separated list of
templates to include. They can be full path names or
basenames relative to the profiles directory. You do
not need to supply the .vnc suffix. The non-default
settings in them will be applied first, and then any
values then in the loaded Profile will override them.
Clear Options: Set all options to their defaults (i.e. unset). Clear Options: Set all options to their defaults (i.e. unset).
Advanced: Bring up the Advanced options dialog. Advanced: Bring up the Advanced options dialog.
} }
.oh.f.t insert end $msg .oh.f.t insert end $msg
#raise .oh
} }
proc win_nokill_msg {} { proc win_nokill_msg {} {
@ -383,7 +393,6 @@ proc win_nokill_msg {} {
for error messages and other information. for error messages and other information.
} }
.w.t insert end $msg .w.t insert end $msg
#raise .w
} }
proc win_kill_msg {pids} { proc win_kill_msg {pids} {
@ -425,7 +434,6 @@ proc win_kill_msg {pids} {
make the Tray notice STUNNEL is gone... make the Tray notice STUNNEL is gone...
} }
.w.t insert end $msg .w.t insert end $msg
#raise .w
} }
proc win9x_plink_msg {file} { proc win9x_plink_msg {file} {
@ -462,7 +470,7 @@ proc win9x_plink_msg {file} {
type COMMAND in the entry box and hit Return or click OK. type COMMAND in the entry box and hit Return or click OK.
To select the above command, highlight it with the mouse and then press To select the above command, highlight it with the mouse and then press
Ctrl-C. Then go over the the COMMAND.COM window and click on the Ctrl-C. Then go over to the COMMAND.COM window and click on the
Clipboard paste button. Once pasted in, press Return to run the script. Clipboard paste button. Once pasted in, press Return to run the script.
This will start up a PLINK.EXE ssh login to the remote computer, This will start up a PLINK.EXE ssh login to the remote computer,
@ -516,6 +524,8 @@ proc get_ssh_proxy {str} {
} }
proc set_defaults {} { proc set_defaults {} {
global defs
global mycert svcert crtdir global mycert svcert crtdir
global use_alpha use_grab use_ssh use_sshssl use_viewonly use_fullscreen use_bgr233 global use_alpha use_grab use_ssh use_sshssl use_viewonly use_fullscreen use_bgr233
global use_nojpeg use_raise_on_beep use_compresslevel use_quality global use_nojpeg use_raise_on_beep use_compresslevel use_quality
@ -529,59 +539,67 @@ proc set_defaults {} {
global sound_daemon_local_cmd sound_daemon_local_port sound_daemon_local_kill sound_daemon_local_start global sound_daemon_local_cmd sound_daemon_local_port sound_daemon_local_kill sound_daemon_local_start
global smb_su_mode smb_mount_list global smb_su_mode smb_mount_list
global use_port_knocking port_knocking_list global use_port_knocking port_knocking_list
global include_list
set use_ssh 0 set defs(use_ssh) 0
set use_sshssl 0 set defs(use_sshssl) 0
putty_pw_entry check
set use_viewonly 0 set defs(use_viewonly) 0
set use_fullscreen 0 set defs(use_fullscreen) 0
set use_raise_on_beep 0 set defs(use_raise_on_beep) 0
set use_bgr233 0 set defs(use_bgr233) 0
set use_alpha 0 set defs(use_alpha) 0
set use_grab 0 set defs(use_grab) 0
set use_nojpeg 0 set defs(use_nojpeg) 0
set use_compresslevel "default" set defs(use_compresslevel) "default"
set use_quality "default" set defs(use_quality) "default"
set compresslevel_text "Compress Level: $use_compresslevel" set defs(compresslevel_text) "Compress Level: default"
set quality_text "Quality: $use_quality" set defs(quality_text) "Quality: default"
set mycert "" set defs(mycert) ""
set svcert "" set defs(svcert) ""
set crtdir "" set defs(crtdir) ""
set use_cups 0 set defs(use_cups) 0
set use_sound 0 set defs(use_sound) 0
set use_smbmnt 0 set defs(use_smbmnt) 0
set change_vncviewer 0 set defs(change_vncviewer) 0
set change_vncviewer_path "" set defs(change_vncviewer_path) ""
set cups_manage_rcfile 0 set defs(cups_manage_rcfile) 0
set vncviewer_realvnc4 0 set defs(vncviewer_realvnc4) 0
set additional_port_redirs 0 set defs(additional_port_redirs) 0
set additional_port_redirs_list "" set defs(additional_port_redirs_list) ""
set cups_local_server "" set defs(cups_local_server) ""
set cups_remote_port "" set defs(cups_remote_port) ""
set cups_local_smb_server "" set defs(cups_local_smb_server) ""
set cups_remote_smb_port "" set defs(cups_remote_smb_port) ""
set smb_su_mode "su" set defs(smb_su_mode) "su"
set smb_mount_list "" set defs(smb_mount_list) ""
set sound_daemon_remote_cmd "" set defs(sound_daemon_remote_cmd) ""
set sound_daemon_remote_port "" set defs(sound_daemon_remote_port) ""
set sound_daemon_kill 0 set defs(sound_daemon_kill) 0
set sound_daemon_restart 0 set defs(sound_daemon_restart) 0
set sound_daemon_local_cmd "" set defs(sound_daemon_local_cmd) ""
set sound_daemon_local_port "" set defs(sound_daemon_local_port) ""
set sound_daemon_local_start 0 set defs(sound_daemon_local_start) 0
set sound_daemon_local_kill 0 set defs(sound_daemon_local_kill) 0
set use_port_knocking 0 set defs(use_port_knocking) 0
set port_knocking_list "" set defs(port_knocking_list) ""
set defs(include_list) ""
foreach var [array names defs] {
set $var $defs($var)
}
putty_pw_entry check
} }
proc do_viewer_windows {n} { proc do_viewer_windows {n} {
@ -732,7 +750,7 @@ proc guess_nat_ip {} {
} }
proc guess_ip {} { proc guess_ip {} {
global env is_windows global is_windows
if {! $is_windows} { if {! $is_windows} {
set out "" set out ""
set out [get_hostname] set out [get_hostname]
@ -791,7 +809,7 @@ proc windows_start_sound_daemon {file} {
} }
proc windows_stop_sound_daemon {} { proc windows_stop_sound_daemon {} {
global env is_win9x global is_win9x
global use_sound sound_daemon_local_cmd sound_daemon_local_start global use_sound sound_daemon_local_cmd sound_daemon_local_start
set cmd [string trim $sound_daemon_local_cmd] set cmd [string trim $sound_daemon_local_cmd]
@ -859,12 +877,11 @@ proc make_plink {} {
button .plink.ok -text "Success" -command {destroy .plink; set plink_status yes} button .plink.ok -text "Success" -command {destroy .plink; set plink_status yes}
pack .plink.l1 .plink.l2 .plink.l3 .plink.l4 .plink.l5 .plink.l6 .plink.fail .plink.ok -side top -fill x pack .plink.l1 .plink.l2 .plink.l3 .plink.l4 .plink.l5 .plink.l6 .plink.fail .plink.ok -side top -fill x
#wm deiconify .plink
update update
} }
proc launch_windows_ssh {hp file n} { proc launch_windows_ssh {hp file n} {
global is_win9x global is_win9x env
global use_sshssl use_ssh putty_pw global use_sshssl use_ssh putty_pw
global port_knocking_list global port_knocking_list
@ -897,7 +914,6 @@ proc launch_windows_ssh {hp file n} {
set vnc_port $vnc_disp set vnc_port $vnc_disp
} }
set ssh_port 22 set ssh_port 22
set ssh_host $hpnew set ssh_host $hpnew
regsub {:.*$} $ssh_host "" ssh_host regsub {:.*$} $ssh_host "" ssh_host
@ -1117,7 +1133,6 @@ proc launch_windows_ssh {hp file n} {
set win9x_plink_msg_done 0 set win9x_plink_msg_done 0
vwait win9x_plink_msg_done vwait win9x_plink_msg_done
} else { } else {
global env
set com "cmd.exe" set com "cmd.exe"
if [info exists env(COMSPEC)] { if [info exists env(COMSPEC)] {
set com $env(COMSPEC) set com $env(COMSPEC)
@ -1276,13 +1291,7 @@ proc launch_windows_ssh {hp file n} {
} }
proc check_ssh_needed {} { proc check_ssh_needed {} {
global use_cups use_sound use_smbmnt globalize
global sound_daemon_remote_cmd sound_daemon_remote_port sound_daemon_kill sound_daemon_restart
global sound_daemon_local_cmd sound_daemon_local_port sound_daemon_local_kill sound_daemon_local_start
global cups_local_server cups_remote_port cups_manage_rcfile
global cups_local_smb_server cups_remote_smb_port
global smb_su_mode smb_mount_list
global use_ssh use_sshssl
if {$use_ssh || $use_sshssl} { if {$use_ssh || $use_sshssl} {
return return
@ -1445,16 +1454,9 @@ proc do_unix_pre {tag proxy hp pk_hp} {
} }
proc launch_unix {hp} { proc launch_unix {hp} {
global mycert svcert crtdir env global smb_redir_0 smb_mounts env
global use_alpha use_grab use_ssh use_sshssl use_viewonly use_fullscreen use_bgr233
global use_nojpeg use_raise_on_beep use_compresslevel use_quality globalize
global change_vncviewer change_vncviewer_path vncviewer_realvnc4
global additional_port_redirs additional_port_redirs_list
global use_cups use_sound use_smbmnt
global smb_redir_0 smb_mounts
global sound_daemon_remote_cmd sound_daemon_remote_port sound_daemon_kill sound_daemon_restart
global sound_daemon_local_cmd sound_daemon_local_port sound_daemon_local_kill sound_daemon_local_start
global port_knocking_list
set cmd "" set cmd ""
@ -1476,6 +1478,14 @@ proc launch_unix {hp} {
set cmd "ssl_vncviewer -ssh" set cmd "ssl_vncviewer -ssh"
} else { } else {
set cmd "ssl_vncviewer -sshssl" set cmd "ssl_vncviewer -sshssl"
if {$mycert != ""} {
set cmd "$cmd -mycert '$mycert'"
}
if {$svcert != ""} {
set cmd "$cmd -verify '$svcert'"
} elseif {$crtdir != ""} {
set cmd "$cmd -verify '$crtdir'"
}
} }
set hpnew [get_ssh_hp $hp] set hpnew [get_ssh_hp $hp]
set proxy [get_ssh_proxy $hp] set proxy [get_ssh_proxy $hp]
@ -1645,7 +1655,6 @@ proc launch_unix {hp} {
} }
if {$change_vncviewer && $change_vncviewer_path != ""} { if {$change_vncviewer && $change_vncviewer_path != ""} {
global env
set env(VNCVIEWERCMD) $change_vncviewer_path set env(VNCVIEWERCMD) $change_vncviewer_path
} else { } else {
set env(VNCVIEWERCMD) "" set env(VNCVIEWERCMD) ""
@ -1687,7 +1696,8 @@ proc launch_unix {hp} {
} }
exec xterm -geometry $geometry -xrm "$xrm1" -xrm "$xrm2" -xrm "$xrm3" \ exec xterm -geometry $geometry -xrm "$xrm1" -xrm "$xrm2" -xrm "$xrm3" \
-title "SSL VNC Viewer $hp" \ -title "SSL VNC Viewer $hp" \
-e sh -c "set -xv; $cmd; set +xv; echo; echo Done. You Can X-out or Ctrl-C this Terminal whenever you like.; echo; echo sleep 15; echo; sleep 15" -e sh -c "set -xv; $cmd; set +xv; echo; echo Done. You Can X-out or Ctrl-C this Terminal if you like.; echo; echo sleep 15; echo; sleep 15"
set env(SSL_VNCVIEWER_SSH_CMD) "" set env(SSL_VNCVIEWER_SSH_CMD) ""
set env(SSL_VNCVIEWER_USE_C) "" set env(SSL_VNCVIEWER_USE_C) ""
@ -1710,7 +1720,7 @@ proc launch_unix {hp} {
} }
proc kill_stunnel {pids} { proc kill_stunnel {pids} {
global is_win9x env global is_win9x
set count 0 set count 0
foreach pid $pids { foreach pid $pids {
@ -1730,7 +1740,7 @@ proc kill_stunnel {pids} {
} }
proc get_task_list {} { proc get_task_list {} {
global env is_win9x global is_win9x
set output1 "" set output1 ""
set output2 "" set output2 ""
@ -1748,7 +1758,6 @@ proc get_task_list {} {
} }
proc note_stunnel_pids {when} { proc note_stunnel_pids {when} {
global env
global is_win9x pids_before pids_after pids_new global is_win9x pids_before pids_after pids_new
if {$when == "before"} { if {$when == "before"} {
@ -1811,7 +1820,7 @@ proc launch_shell_only {} {
} }
proc launch {{hp ""}} { proc launch {{hp ""}} {
global vncdisplay env tcl_platform is_windows global vncdisplay tcl_platform is_windows
global mycert svcert crtdir global mycert svcert crtdir
global pids_before pids_after pids_new global pids_before pids_after pids_new
global use_ssh use_sshssl global use_ssh use_sshssl
@ -1881,7 +1890,6 @@ proc launch {{hp ""}} {
set suffix "bat" set suffix "bat"
} }
# we avoid parsing netstat output on Windows (but I guess we do now elsewhere):
set file "" set file ""
set n "" set n ""
set file2 "" set file2 ""
@ -2183,10 +2191,12 @@ proc show_cert {crt} {
center_win $w center_win $w
catch {raise $w} catch {raise $w}
} }
proc show_mycert {} { proc show_mycert {} {
global mycert global mycert
show_cert $mycert show_cert $mycert
} }
proc show_svcert {} { proc show_svcert {} {
global svcert global svcert
show_cert $svcert show_cert $svcert
@ -2857,7 +2867,7 @@ proc import_cert {} {
global scroll_text_focus global scroll_text_focus
set scroll_text_focus 0 set scroll_text_focus 0
scroll_text .icrt.f 90 16 scroll_text .icrt.f 90 20
set scroll_text_focus 1 set scroll_text_focus 1
set msg { set msg {
@ -2875,22 +2885,20 @@ proc import_cert {} {
-----BEGIN CERTIFICATE----- -----BEGIN CERTIFICATE-----
MIID2jCCAsKgAwIBAgIJALKypfV8BItCMA0GCSqGSIb3DQEBBAUAMIGgMQswCQYD MIID2jCCAsKgAwIBAgIJALKypfV8BItCMA0GCSqGSIb3DQEBBAUAMIGgMQswCQYD
... (more lines) ...
TCQ+tbQ/DOiTXGKx1nlcKoPdkG+QVQVJthlQcpam TCQ+tbQ/DOiTXGKx1nlcKoPdkG+QVQVJthlQcpam
-----END CERTIFICATE----- -----END CERTIFICATE-----
where "..." means similarly looking lines.
A type 2) by convention ends with file suffix ".pem" and looks like: A type 2) by convention ends with file suffix ".pem" and looks like:
-----BEGIN RSA PRIVATE KEY----- -----BEGIN RSA PRIVATE KEY-----
MIIEpAIBAAKCAQEA4sApd7WaPKQRWnFe9T04D4pglQB0Ti0/dCVHxg8WEVQ8OdcW MIIEpAIBAAKCAQEA4sApd7WaPKQRWnFe9T04D4pglQB0Ti0/dCVHxg8WEVQ8OdcW
... (more lines) ...
9kBmNotUiTpvRM+e7E/zRemhvY9qraFooqMWzi9JrgYfeLfSvvFfGw== 9kBmNotUiTpvRM+e7E/zRemhvY9qraFooqMWzi9JrgYfeLfSvvFfGw==
-----END RSA PRIVATE KEY----- -----END RSA PRIVATE KEY-----
-----BEGIN CERTIFICATE----- -----BEGIN CERTIFICATE-----
MIID2jCCAsKgAwIBAgIJALKypfV8BItCMA0GCSqGSIb3DQEBBAUAMIGgMQswCQYD MIID2jCCAsKgAwIBAgIJALKypfV8BItCMA0GCSqGSIb3DQEBBAUAMIGgMQswCQYD
... (more lines) ...
TCQ+tbQ/DOiTXGKx1nlcKoPdkG+QVQVJthlQcpam TCQ+tbQ/DOiTXGKx1nlcKoPdkG+QVQVJthlQcpam
-----END CERTIFICATE----- -----END CERTIFICATE-----
@ -2934,7 +2942,7 @@ TCQ+tbQ/DOiTXGKx1nlcKoPdkG+QVQVJthlQcpam
$w.e configure -state disabled $w.e configure -state disabled
label .icrt.plab -anchor w -text "Paste Certificate here:" label .icrt.plab -anchor w -text "Paste Certificate here:"
scroll_text .icrt.paste 90 25 scroll_text .icrt.paste 90 22
button .icrt.cancel -text "Cancel" -command {destroy .icrt; catch {raise .c}} button .icrt.cancel -text "Cancel" -command {destroy .icrt; catch {raise .c}}
bind .icrt <Escape> {destroy .icrt; catch {raise .c}} bind .icrt <Escape> {destroy .icrt; catch {raise .c}}
@ -3050,23 +3058,78 @@ proc get_profiles_dir {} {
} }
return $dir return $dir
} }
proc globalize {} {
global defs
foreach var [array names defs] {
uplevel global $var
}
}
proc load_include {include dir} {
global include_vars defs
if [info exists include_vars] {
unset include_vars
}
foreach inc [split $include ", "] {
set f [string trim $inc]
#puts "f=$f";
if {$f == ""} {
continue
}
set try ""
if {[regexp {/} $f] || [regexp {\\} $f]} {
set try $f;
} else {
set try "$dir/$f"
}
if {! [file exists $try]} {
set try "$dir/$f.vnc"
}
#puts "try: $try"
if [file exists $try] {
set fh ""
catch {set fh [open $try "r"]}
if {$fh == ""} {
continue
}
while {[gets $fh line] > -1} {
append inc_str "$line\n"
if [regexp {^([^=]*)=(.*)$} $line m var val] {
if {! [info exists defs($var)]} {
continue
}
if {$var == "include_list"} {
continue
}
set pct 0
if {$var == "smb_mount_list"} {
set pct 1
}
if {$var == "port_knocking_list"} {
set pct 1
}
if {$pct} {
regsub -all {%%%} $val "\n" val
}
if {$val != $defs($var)} {
#puts "include_vars $var $val"
set include_vars($var) $val
}
}
}
catch {close $fh}
}
}
}
proc load_profile {} { proc load_profile {} {
global env
global mycert svcert crtdir vncdisplay
global use_alpha use_grab use_ssh use_sshssl use_viewonly use_fullscreen use_bgr233
global use_nojpeg use_raise_on_beep use_compresslevel use_quality
global compresslevel_text quality_text
global use_smbmnt use_sound
global use_cups cups_local_server cups_remote_port cups_manage_rcfile
global cups_local_smb_server cups_remote_smb_port
global smb_su_mode smb_mount_list
global change_vncviewer change_vncviewer_path vncviewer_realvnc4
global additional_port_redirs additional_port_redirs_list
global sound_daemon_remote_cmd sound_daemon_remote_port sound_daemon_kill sound_daemon_restart
global sound_daemon_local_cmd sound_daemon_local_port sound_daemon_local_kill sound_daemon_local_start
global use_port_knocking port_knocking_list
global profdone global profdone
global vncdisplay
globalize
set dir [get_profiles_dir] set dir [get_profiles_dir]
@ -3081,107 +3144,70 @@ proc load_profile {} {
set profdone 1 set profdone 1
return return
} }
set str ""
set include ""
while {[gets $fh line] > -1} {
append str "$line\n"
if [regexp {^include_list=(.*)$} $line m val] {
set include $val
}
}
close $fh
if {$include != ""} {
load_include $include $dir
}
set_defaults set_defaults
while {[gets $fh line] > -1} { global include_vars
if [regexp {^disp=(.*)$} $line m val] { if [info exists include_vars] {
set vncdisplay $val foreach var [array names include_vars] {
} elseif [regexp {^ssh=(.*)$} $line m val] { set $var $include_vars($var)
set use_ssh $val
} elseif [regexp {^sshssl=(.*)$} $line m val] {
set use_sshssl $val
} elseif [regexp {^viewonly=(.*)$} $line m val] {
set use_viewonly $val
} elseif [regexp {^fullscreen=(.*)$} $line m val] {
set use_fullscreen $val
} elseif [regexp {^belldeiconify=(.*)$} $line m val] {
set use_raise_on_beep $val
} elseif [regexp {^8bit=(.*)$} $line m val] {
set use_bgr233 $val
} elseif [regexp {^alpha=(.*)$} $line m val] {
set use_alpha $val
} elseif [regexp {^grab=(.*)$} $line m val] {
set use_grab $val
} elseif [regexp {^nojpeg=(.*)$} $line m val] {
set use_nojpeg $val
} elseif [regexp {^compresslevel=(.*)$} $line m val] {
set use_compresslevel $val
set compresslevel_text "Compress Level: $val"
} elseif [regexp {^quality=(.*)$} $line m val] {
set use_quality $val
set quality_text "Quality: $val"
} elseif [regexp {^mycert=(.*)$} $line m val] {
set mycert $val
} elseif [regexp {^svcert=(.*)$} $line m val] {
set svcert $val
} elseif [regexp {^crtdir=(.*)$} $line m val] {
set crtdir $val
} elseif [regexp {^use_smbmnt=(.*)$} $line m val] {
set use_smbmnt $val
} elseif [regexp {^use_sound=(.*)$} $line m val] {
set use_sound $val
} elseif [regexp {^use_cups=(.*)$} $line m val] {
set use_cups $val
} elseif [regexp {^cups_local_server=(.*)$} $line m val] {
set cups_local_server $val
} elseif [regexp {^cups_remote_port=(.*)$} $line m val] {
set cups_remote_port $val
} elseif [regexp {^cups_local_smb_server=(.*)$} $line m val] {
set cups_local_smb_server $val
} elseif [regexp {^cups_remote_smb_port=(.*)$} $line m val] {
set cups_remote_smb_port $val
} elseif [regexp {^cups_manage_rcfile=(.*)$} $line m val] {
set cups_manage_rcfile $val
} elseif [regexp {^smb_mount_list=(.*)$} $line m val] {
regsub -all {%%%} $val "\n" val
set smb_mount_list $val
} elseif [regexp {^smb_su_mode=(.*)$} $line m val] {
set smb_su_mode $val
} elseif [regexp {^port_knocking_list=(.*)$} $line m val] {
regsub -all {%%%} $val "\n" val
set port_knocking_list $val
} elseif [regexp {^use_port_knocking=(.*)$} $line m val] {
set use_port_knocking $val
} elseif [regexp {^sound_daemon_remote_cmd=(.*)$} $line m val] {
set sound_daemon_remote_cmd $val
} elseif [regexp {^sound_daemon_remote_port=(.*)$} $line m val] {
set sound_daemon_remote_port $val
} elseif [regexp {^sound_daemon_kill=(.*)$} $line m val] {
set sound_daemon_kill $val
} elseif [regexp {^sound_daemon_restart=(.*)$} $line m val] {
set sound_daemon_restart $val
} elseif [regexp {^sound_daemon_local_cmd=(.*)$} $line m val] {
set sound_daemon_local_cmd $val
} elseif [regexp {^sound_daemon_local_port=(.*)$} $line m val] {
set sound_daemon_local_port $val
} elseif [regexp {^sound_daemon_local_start=(.*)$} $line m val] {
set sound_daemon_local_start $val
} elseif [regexp {^sound_daemon_local_kill=(.*)$} $line m val] {
set sound_daemon_local_kill $val
} elseif [regexp {^change_vncviewer=(.*)$} $line m val] {
set change_vncviewer $val
} elseif [regexp {^change_vncviewer_path=(.*)$} $line m val] {
set change_vncviewer_path $val
} elseif [regexp {^vncviewer_realvnc4=(.*)$} $line m val] {
set vncviewer_realvnc4 $val
} elseif [regexp {^additional_port_redirs=(.*)$} $line m val] {
set additional_port_redirs $val
} elseif [regexp {^additional_port_redirs_list=(.*)$} $line m val] {
set additional_port_redirs_list $val
} }
} }
close $fh
global defs
foreach line [split $str "\n"] {
set line [string trim $line]
if [regexp {^#} $line] {
continue
}
if [regexp {^([^=]*)=(.*)$} $line m var val] {
if {$var == "disp"} {
set vncdisplay $val
continue
}
if [info exists defs($var)] {
set pct 0
if {$var == "smb_mount_list"} {
set pct 1
}
if {$var == "port_knocking_list"} {
set pct 1
}
if {$pct} {
regsub -all {%%%} $val "\n" val
}
set $var $val
}
}
}
set compresslevel_text "Compress Level: $use_compresslevel"
set quality_text "Quality: $use_quality"
set profdone 1 set profdone 1
putty_pw_entry check putty_pw_entry check
} }
proc save_profile {} { proc save_profile {} {
global env is_windows global is_windows
global mycert svcert crtdir vncdisplay global vncdisplay
global use_alpha use_grab use_ssh use_sshssl use_viewonly use_fullscreen use_bgr233
global use_nojpeg use_raise_on_beep use_compresslevel use_quality
global profdone global profdone
global include_vars defs
globalize
set dir [get_profiles_dir] set dir [get_profiles_dir]
@ -3251,64 +3277,38 @@ proc save_profile {} {
puts $fh "proxyport=$proxyport" puts $fh "proxyport=$proxyport"
puts $fh "disp=$vncdisplay" puts $fh "disp=$vncdisplay"
puts $fh "\n\[options\]" puts $fh "\n\[options\]"
puts $fh "ssh=$use_ssh"
puts $fh "sshssl=$use_sshssl"
puts $fh "viewonly=$use_viewonly"
puts $fh "fullscreen=$use_fullscreen"
puts $fh "belldeiconify=$use_raise_on_beep"
puts $fh "8bit=$use_bgr233"
puts $fh "alpha=$use_alpha"
puts $fh "grab=$use_grab"
puts $fh "nojpeg=$use_nojpeg"
puts $fh "compresslevel=$use_compresslevel"
puts $fh "quality=$use_quality"
puts $fh "mycert=$mycert"
puts $fh "svcert=$svcert"
puts $fh "crtdir=$crtdir"
global use_smbmnt use_sound
puts $fh "use_smbmnt=$use_smbmnt"
puts $fh "use_sound=$use_sound"
global use_cups cups_local_server cups_remote_port cups_manage_rcfile
global cups_local_smb_server cups_remote_smb_port
puts $fh "use_cups=$use_cups"
puts $fh "cups_local_server=$cups_local_server"
puts $fh "cups_remote_port=$cups_remote_port"
puts $fh "cups_local_smb_server=$cups_local_smb_server"
puts $fh "cups_remote_smb_port=$cups_remote_smb_port"
puts $fh "cups_manage_rcfile=$cups_manage_rcfile"
global change_vncviewer change_vncviewer_path vncviewer_realvnc4
global additional_port_redirs additional_port_redirs_list
puts $fh "change_vncviewer=$change_vncviewer"
puts $fh "change_vncviewer_path=$change_vncviewer_path"
puts $fh "vncviewer_realvnc4=$vncviewer_realvnc4"
puts $fh "additional_port_redirs=$additional_port_redirs"
puts $fh "additional_port_redirs_list=$additional_port_redirs_list"
global sound_daemon_remote_cmd sound_daemon_remote_port sound_daemon_kill sound_daemon_restart
global sound_daemon_local_cmd sound_daemon_local_port sound_daemon_local_kill sound_daemon_local_start
puts $fh "sound_daemon_remote_cmd=$sound_daemon_remote_cmd"
puts $fh "sound_daemon_remote_port=$sound_daemon_remote_port"
puts $fh "sound_daemon_kill=$sound_daemon_kill"
puts $fh "sound_daemon_restart=$sound_daemon_restart"
puts $fh "sound_daemon_local_cmd=$sound_daemon_local_cmd"
puts $fh "sound_daemon_local_port=$sound_daemon_local_port"
puts $fh "sound_daemon_local_kill=$sound_daemon_local_kill"
puts $fh "sound_daemon_local_start=$sound_daemon_local_start"
global smb_su_mode smb_mount_list if {$include_list != ""} {
set list $smb_mount_list load_include $include_list [get_profiles_dir]
regsub -all "\n" $list "%%%" list }
puts $fh "smb_su_mode=$smb_su_mode"
puts $fh "smb_mount_list=$list"
global use_port_knocking port_knocking_list foreach var [lsort [array names defs]] {
set list $port_knocking_list eval set val \$$var
regsub -all "\n" $list "%%%" list set pre ""
puts $fh "use_port_knocking=$use_port_knocking" if {$val == $defs($var)} {
puts $fh "port_knocking_list=$list" set pre "#"
}
set pct 0
if {$var == "smb_mount_list"} {
set pct 1
}
if {$var == "port_knocking_list"} {
set pct 1
}
if {$include_list != "" && [info exists include_vars($var)]} {
if {$val == $include_vars($var)} {
if {$pct} {
regsub -all "\n" $val "%%%" val
}
puts $fh "#from include: $var=$val"
continue
}
}
if {$pct} {
regsub -all "\n" $val "%%%" val
}
puts $fh "$pre$var=$val"
}
close $fh close $fh
set profdone 1 set profdone 1
@ -3539,6 +3539,9 @@ set cmd(1) {
fi fi
i=`expr $i + 1` i=`expr $i + 1`
done done
echo MY_PID=$$
tty
echo
} }
wait_til_ssh_gone() { wait_til_ssh_gone() {
@ -3821,6 +3824,7 @@ set cmd(6) {
echo echo
echo "--vnc-helper-exiting--" echo "--vnc-helper-exiting--"
echo echo
#cat $0
rm -f $0 rm -f $0
exit 0 exit 0
}; };
@ -4003,6 +4007,11 @@ proc cups_dialog {} {
env IPP_PORT=6631 firefox env IPP_PORT=6631 firefox
If you can only get Method #2 to work, an extreme application would
be to run the whole desktop, e.g. env IPP_PORT=6631 gnome-session, but
then you would need some sort of TCP redirector (ssh -L comes to mind),
to direct it to 631 when not connected remotely.
Windows/SMB Printers: Under "Local SMB Print Server" you can set Windows/SMB Printers: Under "Local SMB Print Server" you can set
a port redirection for a Windows (non-CUPS) SMB printer. E.g. port a port redirection for a Windows (non-CUPS) SMB printer. E.g. port
6632 -> localhost:139. If localhost:139 does not work, try IP:139, 6632 -> localhost:139. If localhost:139 does not work, try IP:139,
@ -4011,12 +4020,13 @@ proc cups_dialog {} {
smbspool smb://localhost:6632/lp job user title 1 "" myfile.ps smbspool smb://localhost:6632/lp job user title 1 "" myfile.ps
You could put this in a script, "myprinter". It appears on the the URI, You could put this in a script, "myprinter". It appears for the URI,
the number of copies ("1" above) and the file itself are important. only the number of copies ("1" above) and the file itself are important.
(XXX this might only work for Samba printers...) (XXX this might only work for Samba printers...)
If you have root permission you can configure CUPS to know about this If you have root or print admin permission you can configure CUPS to
printer via lpadmin(8), etc. You basically give it the smb:// URI. know about this printer via lpadmin(8), etc. You basically give it
the smb://... URI.
For more info see: http://www.karlrunge.com/x11vnc/#faq-cups For more info see: http://www.karlrunge.com/x11vnc/#faq-cups
} }
@ -4606,7 +4616,6 @@ proc make_share_widgets {w} {
} }
if {$i == 0} { if {$i == 0} {
global is_win9x global is_win9x
#.smbwiz.f.t insert end "\nNo SMB Share Hosts were found!\n"
$share_label configure -text {Share Name: No SMB Share Hosts were found!} $share_label configure -text {Share Name: No SMB Share Hosts were found!}
if {$is_win9x} { if {$is_win9x} {
.smbwiz.f.t insert end "\n(this feature does not work on Win9x you have have to enter them manually: //HOST/share /var/tmp/mymnt)\n" .smbwiz.f.t insert end "\n(this feature does not work on Win9x you have have to enter them manually: //HOST/share /var/tmp/mymnt)\n"
@ -4954,10 +4963,7 @@ proc smb_dialog {} {
eval text .smb.mnts -width 80 -height 5 $help_font eval text .smb.mnts -width 80 -height 5 $help_font
.smb.mnts insert end $smb_mount_list .smb.mnts insert end $smb_mount_list
#apply_bg .smb.mnts
button .smb.guess -text "Help me decide ..." -command {destroy .smb; smb_help_me_decide} button .smb.guess -text "Help me decide ..." -command {destroy .smb; smb_help_me_decide}
#.smb.guess configure -state disabled
button .smb.cancel -text "Cancel" -command {set use_smbmnt 0; destroy .smb} button .smb.cancel -text "Cancel" -command {set use_smbmnt 0; destroy .smb}
bind .smb <Escape> {set use_smbmnt 0; destroy .smb} bind .smb <Escape> {set use_smbmnt 0; destroy .smb}
@ -4980,13 +4986,14 @@ proc help_advanced_opts {} {
wm title .ah "Advanced Opts Help" wm title .ah "Advanced Opts Help"
set msg { set msg {
These Advanced settings are experimental options that may require extra These Advanced options that may require extra software installed on
software installed on the VNC server-side (the remote server machine) the VNC server-side (the remote server machine) and/or on the VNC
and/or on the VNC client-side (where this gui is running). client-side (where this gui is running).
The Service redirection options, CUPS, ESD/ARTSD, and SMB will require The Service redirection options, CUPS, ESD/ARTSD, and SMB will require
that you use SSH for tunneling so that the -R port redirection will that you use SSH for tunneling so that they can use the -R port
be enabled for each service. I.e. "Use SSH instead" or "Use SSH and SSL" redirection will be enabled for each service. I.e. "Use SSH instead"
or "Use SSH and SSL" mode.
These options may also require additional configuration to get them These options may also require additional configuration to get them
to work properly. Please submit bug reports if it appears it should to work properly. Please submit bug reports if it appears it should
@ -5013,16 +5020,17 @@ proc help_advanced_opts {} {
Port Knocking: for "closed port" services, first "knock" on the Port Knocking: for "closed port" services, first "knock" on the
firewall ports in a certain way to open the door for SSH or SSL. firewall ports in a certain way to open the door for SSH or SSL.
The port can also be closed when the encrypted VNC connection
finishes.
About the CheckButtons: About the CheckButtons:
Ahem, Well...., a klunky UI: you have to toggle the CheckButton Ahem, Well...., yes quite a klunky UI: you have to toggle the
to pull up the Dialog box a 2nd, etc. time... your settings will CheckButton to pull up the Dialog box a 2nd, etc. time... don't
still be there. worry your settings will still be there!
} }
.ah.f.t insert end $msg .ah.f.t insert end $msg
#raise .ah
} }
proc set_viewer_path {} { proc set_viewer_path {} {
@ -5153,7 +5161,7 @@ proc port_redir_dialog {} {
} }
proc find_netcat {} { proc find_netcat {} {
global env is_windows global is_windows
set nc "" set nc ""
@ -5270,7 +5278,7 @@ proc do_port_knock {hp mode} {
} }
} }
set default_delay 0 set default_delay 150
set host [string trim $hp] set host [string trim $hp]
regsub {^.*@} $host "" host regsub {^.*@} $host "" host
@ -5361,12 +5369,12 @@ proc do_port_knock {hp mode} {
} }
set udp 0 set udp 0
if [regexp -nocase {/udp} $line] { if [regexp -nocase {[/:]udp} $line] {
set udp 1 set udp 1
regsub -all -nocase {/udp} $line " " line regsub -all -nocase {[/:]udp} $line " " line
set line [string trim $line] set line [string trim $line]
} }
regsub -all -nocase {/tcp} $line " " line regsub -all -nocase {[/:]tcp} $line " " line
set line [string trim $line] set line [string trim $line]
set delay 0 set delay 0
@ -5581,9 +5589,10 @@ proc port_knocking_dialog {} {
If you need to send a UDP packet, the netcat (aka "nc") program must be If you need to send a UDP packet, the netcat (aka "nc") program must be
installed on Unix (tcl/tk does not support udp connections). Indicate this installed on Unix (tcl/tk does not support udp connections). Indicate this
with "/udp" following the port number (you can also use "/tcp", but since it with "/udp" following the port number (you can also use "/tcp", but since
is the default it is not necessary). See the example below. For convenience it is the default it is not necessary). (You can also use ":udp" to match
a Windows netcat binary is supplied. the knockd syntax). See the example below. For convenience a Windows netcat
binary is supplied.
The last field, [delay], is an optional number of milliseconds to delay The last field, [delay], is an optional number of milliseconds to delay
before continuing on to the next knock. before continuing on to the next knock.
@ -5668,7 +5677,7 @@ proc port_knocking_dialog {} {
CMD=... items or at the very end of the knocks to wait). CMD=... items or at the very end of the knocks to wait).
If a knock entry matches "delay N" the default delay is set to If a knock entry matches "delay N" the default delay is set to
N milliseconds (it is 0 initially). N milliseconds (it is 150 initially).
One Time Pads: One Time Pads:
@ -5697,7 +5706,6 @@ proc port_knocking_dialog {} {
eval text .pk.rule -width 80 -height 5 $help_font eval text .pk.rule -width 80 -height 5 $help_font
.pk.rule insert end $port_knocking_list .pk.rule insert end $port_knocking_list
#apply_bg .pk.rule
button .pk.cancel -text "Cancel" -command {set use_port_knocking 0; destroy .pk} button .pk.cancel -text "Cancel" -command {set use_port_knocking 0; destroy .pk}
bind .pk <Escape> {set use_port_knocking 0; destroy .pk} bind .pk <Escape> {set use_port_knocking 0; destroy .pk}
@ -5711,7 +5719,6 @@ proc port_knocking_dialog {} {
proc set_advanced_options {} { proc set_advanced_options {} {
global env
global use_cups use_sound use_smbmnt global use_cups use_sound use_smbmnt
global change_vncviewer global change_vncviewer
global use_port_knocking port_knocking_list global use_port_knocking port_knocking_list
@ -5988,12 +5995,20 @@ proc set_options {} {
pack .o.sa -side top -fill x pack .o.sa -side top -fill x
} }
global include_list
frame .o.inc
label .o.inc.l -text "Include:"
entry .o.inc.e -width 10 -textvariable include_list
pack .o.inc.l -side left
pack .o.inc.e -side right -expand 1 -fill x
button .o.s_prof -text "Save Profile ..." -command {save_profile; raise .o} button .o.s_prof -text "Save Profile ..." -command {save_profile; raise .o}
button .o.l_prof -text " Load Profile ..." -command {load_profile; raise .o} button .o.l_prof -text " Load Profile ..." -command {load_profile; raise .o}
button .o.advanced -text "Advanced ..." -command set_advanced_options button .o.advanced -text "Advanced ..." -command set_advanced_options
button .o.clear -text "Clear Options" -command set_defaults button .o.clear -text "Clear Options" -command set_defaults
pack .o.s_prof -side top -fill x pack .o.s_prof -side top -fill x
pack .o.l_prof -side top -fill x pack .o.l_prof -side top -fill x
pack .o.inc -side top -fill x
pack .o.clear -side top -fill x pack .o.clear -side top -fill x
pack .o.advanced -side top -fill x pack .o.advanced -side top -fill x
@ -6011,6 +6026,7 @@ proc set_options {} {
focus .o focus .o
} }
global env
set is_windows 0 set is_windows 0
set help_font "-font fixed" set help_font "-font fixed"
if { [regexp -nocase {Windows} $tcl_platform(os)]} { if { [regexp -nocase {Windows} $tcl_platform(os)]} {
@ -6061,7 +6077,6 @@ if {![info exists env(SSL_VNC_GUI_CHILD)] || $env(SSL_VNC_GUI_CHILD) == ""} {
center_win . center_win .
} }
focus .f.e focus .f.e
#raise .
global system_button_face global system_button_face
set system_button_face "" set system_button_face ""
@ -6069,7 +6084,6 @@ foreach item [.b.help configure -bg] {
set system_button_face $item set system_button_face $item
} }
global env
if {[info exists env(SSL_VNC_GUI_CMD)]} { if {[info exists env(SSL_VNC_GUI_CMD)]} {
set env(SSL_VNC_GUI_CHILD) 1 set env(SSL_VNC_GUI_CHILD) 1
bind . <Control-n> "exec $env(SSL_VNC_GUI_CMD) &" bind . <Control-n> "exec $env(SSL_VNC_GUI_CMD) &"

1
x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssl_vncviewer
Unescape View File

@ -95,7 +95,6 @@ VNCVIEWERCMD=${VNCVIEWERCMD:-vncviewer}
# Same for STUNNEL, e.g. set it to /path/to/stunnel or stunnel4, etc. # Same for STUNNEL, e.g. set it to /path/to/stunnel or stunnel4, etc.
# #
PATH=$PATH:/usr/sbin:/usr/local/sbin:/dist/sbin; export PATH PATH=$PATH:/usr/sbin:/usr/local/sbin:/dist/sbin; export PATH
if [ "X$STUNNEL" = "X" ]; then if [ "X$STUNNEL" = "X" ]; then

Write Preview
Loading…
Cancel
Save