On 2011-03-17 15:17:20 +0200, Petru Ratiu wrote:
> 2011/3/17 Adrian Popa <adrian.popa...@gmail.com>:
> > Atunci ori expect, ori încearcă cu here documents:
> > scp bla bla bla <<EOF
> > passphrase
> > EOF
>
> Nu merge asa, passphrase-ul cheii nu e cerut de la stdin. Se pot face
> niste scheme cu ssh-agent si/sau keychain, da' in cazul asta concret
> sunt irelevante si mai mult imbacsesc problema. E mai sigura o cheie
> fara passphrase decat una cu passphrase-ul notat intr-un script sau cu
> agent persistent (si daca cineva nu e de acord, as zice ca e un
> subiect interesant pt. flama de vineri).
Merge, doar că păcălit cu un shell peste; ce să zic, de doi lei mega
securitatea
asta in openssh să _nu te lase_ omfg omfg, vai ce insecure e schema lu pește...
=)
#! /usr/bin/env perl
$|=1;
use IPC::Run 'start';
my ( $in, $out );
my $h = start(['bash'], '<pty<', \$in, '>pty>', \$out);
my $io = [
[ qr/\$\s*/, 'sftp user@machine' ],
[ qr/passphrase.*\:\s*/, 'my-very-secure-passphrase' ],
[ qr/\>\s*/, 'ls /tmp/security' ],
[ qr/\>\s*/, 'bye' ],
[ qr/\$\s*/, 'exit' ]
];
for ( @$io ) {
my ( $p, $c ) = @$_;
$h->pump until $out =~ /$p$/;
print "> ", $out, "\n";
$out = '';
$in .= $c . "\n";
print "< $in"
}
$h->finish;
--
perl -MLWP::Simple -e'print$_[rand(split(q.%%\n.,
get(q{http://cpan.org/misc/japh})))]'
_______________________________________________
RLUG mailing list
RLUG@lists.lug.ro
http://lists.lug.ro/mailman/listinfo/rlug
