Force 8 chars long passwords for VNC

ipasserelle-gp.spec

@@ -1,5 +1,5 @@
 %define version 0.0.1
-%define release 1.beta16
+%define release 1.beta17
 %define name ipasserelle-gp
 
 

root/etc/e-smith/templates/home/e-smith/files/shares/wpkg/files/settings/tightvnc/tightvnc_x64.reg/10All

@@ -3,11 +3,12 @@ Windows Registry Editor Version 5.00
 {
 
 use Crypt::DES;
-my $clear = $wpkg{'VNCPassword'} || 'secret';
+my $clear = $wpkg{'VNCPassword'} || 'secretpassword';
+$clear = substr $clear, 0, 8;
 my $key = pack ('H16', "E84AD660C4721AE0");
 my $des = Crypt::DES->new($key);
 my $crypt = $des->encrypt($clear);
-my $pass = join(',', map {unpack('H2', $_)} split //, $cryptpass);
+my $pass = join(',', map {unpack('H2', $_)} split //, $crypt);
 
 my $out =<<"EOF";
 

root/etc/e-smith/templates/home/e-smith/files/shares/wpkg/files/settings/tightvnc/tightvnc_x86.reg/10All

@@ -3,11 +3,12 @@ Windows Registry Editor Version 5.00
 {
 
 use Crypt::DES;
-my $clear = $wpkg{'VNCPassword'} || 'secret';
+my $clear = $wpkg{'VNCPassword'} || 'secretpassword';
+$clear = substr $clear, 0, 8;
 my $key = pack ('H16', "E84AD660C4721AE0");
 my $des = Crypt::DES->new($key);
 my $crypt = $des->encrypt($clear);
-my $pass = join(',', map {unpack('H2', $_)} split //, $cryptpass);
+my $pass = join(',', map {unpack('H2', $_)} split //, $crypt);
 
 my $out =<<"EOF";