如何生成VNC密码？

Question

嗨需要使用任何脚本生成一个VNC密码（PHP最好，但任何perl会做）。

问题是'vncpasswd'需要交互式用户操作（提示输入密码和密码验证）。

有没有一种方法来生成它没有提示？

Answer 1

从here。

#!/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";