I can generate a vncpassword file using the vncpasswd command. But I would like to run this form a perl script.

For example: system("vncpassword -q dir/passwd");

But when i do this they will prompt the console for the password. Say i want to set the password to 1234. How do I actually do this so that users do not get prompted to input a password?

If I can't do this due to some limitations, can I actually use something other than xvnc's rfbauth option in order to handle authentication so that I can just pass in a simple plain password?



Thanks in advance.
Aaron

http://www.mail-archive.com/vnc-list.../msg11719.html

I found the following code through the link above:
#!/bin/perl

use Crypt::CBC;

my $key = pack("C8", 23, 82, 107, 6, 35, 78, 88, 7);
$cipher = Crypt::CBC->new({
'key'=>$key, 'cipher'=>'DES', 'prepend_iv'=>0, 'regenerate_key'=>0
});

$ciphertext = $cipher->encrypt("This data is hush hush");
$plaintext = $cipher->decrypt($ciphertext);

print "Encrypted: $ciphertext\n";
print "Decrypted: $plaintext\n";

#########################################################

This pretty much does what I want, which is ultimately be able to generate a vncpasswd myself. My research on vncpasswd so far is that, it is based on DES, and the obfuscation key value is fixed. Theoretically, this being the case, I should be able to backward engineer a perl script from the C++ source code of vncpasswd.

But the passwd file generated by vncpasswd appear to be unreadable text. Rather different from those generated through the code above, I believe I am missing a step here.

And great brains can help on this?

Aaron

Okay, i still couldn't solve the problem. But i found a workaround to it.

X11vnc actually has an option to generate the password. So instead of having to drill deep into how to program it in PERL and all, what you can do is as follows:
x11vnc -storepassword <password> <directory+filename>

That's it! That should generate the same file as vncpasswd but without pesky prompts.

you can find out more from my blog http://aarontwc.blogspot.com, i will be posting my findings about DES usage in perl shortly.