Difference between revisions of "Talk:UltraVNC"

@echo off
REM see http://forum.ultravnc.info/viewtopic.php?p=68270&sid=49c5068501a9793b765e5f37a46d6f51#p68270

REM install certificate for driver
set PATH=%~dp0
REM how to get the certificate see http://forum.ultravnc.info/viewtopic.php?t=17562&sid=f9495a85e2a7e1f7d3af1d18f1fbc709
start /w "install certificate" %PATH%\certmgr.exe -add %PATH%\uvnc.cer -c -s -r localMachine TrustedPublisher

REM install driver
robocopy /Z /S /NP /NDL /NFL /NJH /NJS \\ptw.local\ptw\SWVerteil\WPKG\packages\ultravnc\driver "c:\Program Files (x86)\UltraVNC\driver\driver"
cd "c:\Program Files (x86)\UltraVNC\driver\driver\"
start /w "install mirror driver" devcon.exe install mv2.inf mv_hook_display_driver2

<?xml version='1.0' encoding='utf-8'?>
<packages>
  <package
      id='ultravnc'
      name='UltraVNC'
      revision='102'
      reboot='false'
      priority='500'>

    <check type='uninstall' condition='exists' path='UltraVNC v1.0.2'/>

    <install cmd='%SOFTWARE%\vnc\ultravnc-102-setup.exe /verysilent /loadinf="%SOFTWARE%\vnc\ultravnc.inf"'/>

    <!-- Setup the password and the option -->
    <install cmd='regedit /s %SOFTWARE%\vnc\ultravnc.reg'/>

    <!-- Add the service helper manually -->
    <install cmd='reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v WinVNC /d "\"%ProgramFiles%\UltraVNC\winvnc.exe\" -servicehelper"'/>

    <!-- Create the "VNC server" service manually, add Tcpip dependency not used by auto-installation -->
    <install cmd='sc create WinVNC binPath= "\"%ProgramFiles%\UltraVNC\winvnc.exe\" -service" type= own type= interact start= auto error= severe depend= Tcpip DisplayName= "VNC Server"'/>

    <!-- enable winvnc.exe for the firewall -->
    <install cmd='netsh firewall add allowedprogram "%ProgramFiles%\UltraVNC\winvnc.exe" "WinVNC server" enable all'/>
    <install cmd='net stop WinVNC'>
      <exit code='0'/>
      <exit code='2'/>
    </install>
    <install cmd='net start WinVNC'/>

    <upgrade cmd='net stop WinVNC'>
      <exit code='0'/>
      <exit code='2'/>
    </upgrade>
    <upgrade cmd='%SOFTWARE%\vnc\ultravnc-102-setup.exe /verysilent /loadinf="%SOFTWARE%\vnc\ultravnc.inf"'/>
    <upgrade cmd='regedit /s %SOFTWARE%\vnc\ultravnc.reg'/>
    <upgrade cmd='net start WinVNC'/>

    <remove cmd='net stop WinVNC'>
      <exit code='0'/>
      <exit code='2'/>
    </remove>
    <remove cmd='sc delete WinVNC'/>
    <remove cmd='netsh firewall del allowedprogram "%ProgramFiles%\UltraVNC\winvnc.exe"'/>
    <remove cmd='"%ProgramFiles%\UltraVNC\unins000.exe" /VERYSILENT /SUPPRESSMSGBOXES'/>

    <!-- The remove seems to not remove generated files -->
    <remove cmd='%ComSpec% /c rd /S /Q "%ProgramFiles%\UltraVNC"'/>

    <!-- remove unused registery keys -->
    <remove cmd='reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v WinVNC /f'/>
    <remove cmd='reg delete HKLM\Software\ORL /f'/>
    <remove cmd='reg delete HKU\.DEFAULT\Software\ORL /f'/>

  </package>
</packages>

[Setup]
Lang=fr
Dir=C:\Program Files\UltraVNC
Group=UltraVNC
NoIcons=0
Components=server,server\driver,dsm
Tasks=cleanreg,properties
PropertiesFile=\\myserver\wpkg\software\vnc\ultravnc.reg

#!/usr/bin/perl -w

use strict;
use warnings;

use Getopt::Long;
Getopt::Long::Configure('gnu_getopt');

use Pod::Usage;

use Crypt::DES;

my ($password, $ini, $help, $man);

GetOptions('help|h' => \$help, 'man' => \$man, 'password|p=s' => \$password,
           'ini' => \$ini) or pod2usage(2);
pod2usage(1) if $help;
pod2usage(-exitstatus => 0, -verbose =>2) if $man;

pod2usage (1) if !$password;

my $realkey = pack ('H16', "E84AD660C4721AE0");

my $cipher = Crypt::DES->new($realkey);

my $cryptpass = $cipher->encrypt($password);

# If ini file join with '', reg use ','
$ini = $ini ? '' : ',';
print uc join($ini, map {unpack('H2', $_)} split //, $cryptpass), "\n";

__END__

=head1 vncpass.pl

Generate a VNC hex for registry

=head1 SYNOPSIS

vncpass.pl [options]

Options:
	--help	   this help
	--password the password you want to crypt
        --ini      use ini style crypted password

=head1 OPTIONS

=over 8

=item B<--help>

Print this help

=item B<--password>

Password to encrypt.

=item B<--ini>

Specify to use new ini style format.
The registry format use ',' separator.

=back

=head1 DESCRIPTION

B<vncpass.pl> generate a VNC hex registry entry password and print it
to its standard output.

=cut