[Expectperl-discuss] keyboard input

[<a-i...@no...>]

I have a small problem with expect.pm. I am using expect module to create pgp 
keys with my pgp program. The problem is since expect just enters the data with 
constant time, pgp cannot doesn't collect enough random data and that's why 
cannot create the keys instantly and requires user to enter some random data 
from the keyboard. I tried to print some long random text but pgp doesn't get 
any of it. I think it requires the random data to be inputted from the 
keyboard. Is there any way to do that? Any help would be appreciated. Thanks in 
advance. 

note to the admin: you can discard my previous email from 
ai...@lu.... Thank you. 

here is my code: 

#!/usr/bin/perl 
# deneme.pl -- my first perl script! 



use Expect; 

#optional debugging 
$Expect::Debug=1; 
$Expect::Exp_Internal=1; 
$Expect::Log_Stdout=0; #on by default 


$keytype = 2; 
$keysize = 1; 
$expire = 0; 
$name = 'aziz'; 
$email = 'chi...@ho...'; 
$passphrase = 'vasdfasdfi;iejfaekajsdcm,.xzmnaijd;fkdfadjf;kfjajf'; 
$defaultsignkey = 'n '; 
$randomtext = 
';asf;j9u9243rk;nfmnamsfdoiajh;dfadjfkadj;fiwu4riow34234lkjaljdfkajdf;23j;rkjakjfkadj;flajj;akdjf;ei'; 

($pgp = Expect->spawn("pgp -kg")) || die "Couldn't spawn pgp, $!"; 

unless ($pgp->expect(10,"Choose 1 or 2: ")) { 
    die "never got algorithm prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$keytype\r"; 

unless ($pgp->expect(10,"Choose 1, 2, or enter desired number of bits: ")) { 
    die "never got keysize prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$keysize\r"; 

unless ($pgp->expect(10,"Enter a user ID for your public key: ")) { 
    die "never got user ID prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$name <$email>\r"; 

unless ($pgp->expect(2," (the default is 0): ")) { 
    die "never got validity period prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$expire\r"; 

unless ($pgp->expect(2,"Enter pass phrase: ")) { 
    die "never got pass phrase prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$passphrase\r"; 

unless ($pgp->expect(2," pass phrase again:")) { 
    die "never got second  pass phrase prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$passphrase\r"; 

if ($pgp->expect(10," required data ")) { 
    print $pgp "$randomtext"; 
    print $pgp "$randomtext"; 
} 


unless ($pgp->expect(2," (Y/n) ")) { 
    die "never got the default signing key prompt".$pgp->exp_error()."\n"; 
} 

print $pgp "$defaultsignkey\r";