如何生成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";