Se você não mostra a mensagem de erro, fica bem difícil de alguém te ajudar.<div><br></div><div>De cara, apesar de não causar (à primeira vista) um problema na execução, você ter um laço do tipo foreach($_) { .. } dentro das suas subs é algo desnecessário e indicativo de que você não entende direito o que está fazendo. </div>
<div><br></div><div>Sugiro ler novamente, com mais cudado desta vez, a documentação do File::Find.<br><br></div><div>[]s,</div><div>Russian</div><div><br><div class="gmail_quote">2010/7/13 "Flávio R. Lopes" <span dir="ltr"><<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Pessoal, ainda não consegui fazer funcionar o programa para descriptografar os arquivos!<br>
Alguém poderia me dar uma ajudar?<br>
<br>
Abraço,<br>
Flávio<br>
<br>
Em 12-07-2010 20:40, "Flávio R. Lopes" escreveu:<div><div></div><div class="h5"><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Boa noite pessoal!<br>
<br>
Fiz um programa (Encripta.pl) para encryptar recursivamente os arquivos que ficam debaixo de uma árvore de um determinado diretório.<br>
E o outro programa para desencriptar (Desencripta.pl) os arquivos que foram encriptados pelo programa anterior.<br>
<br>
O programa para encriptar está funcionando:<br>
<br>
Encripta.pl:<br>
<br>
#!/usr/bin/perl<br>
<br>
use strict;<br>
use warnings;<br>
use 5.012;<br>
<br>
use File::Find;<br>
use GnuPG qw( :algo );<br>
<br>
my $gpg = new GnuPG();<br>
<br>
my $diretorios = "/home/flavio/teste_cripto"; ## Aqui ainda pretendo criar um array para "armazenar" uma lista com mais diretórios<br>
<br>
<br>
<br>
my $secret = "123-minha-senha-321"; ## Senha utilizada para criação da Chave<br>
my $arquivos;<br>
<br>
find( \&busca, $diretorios );<br>
<br>
sub busca {<br>
<br>
foreach ($_) {<br>
<br>
$gpg->encrypt(<br>
plaintext => "$_",<br>
output => "$_.gpg",<br>
armor => 1,<br>
sign => 1,<br>
recipient => "0D59E2D1", ## Minha Chave<br>
passphrase => $secret<br>
);<br>
<br>
# say $_;<br>
<br>
}<br>
<br>
# unlink $_ if /\.gpg$/;<br>
<br>
# print "$arquivos\n" if -f $arquivos;<br>
<br>
}<br>
<br>
<br>
O meu problema é para desencriptar os dados. Eu rodo o programa abaixo (Desencripta.pl) e dá um erro que não estou conseguindo entender:<br>
<br>
Desencripta.pl:<br>
<br>
#!/usr/bin/perl<br>
<br>
use strict;<br>
use warnings;<br>
use 5.012;<br>
<br>
use File::Find;<br>
use GnuPG qw( :algo );<br>
<br>
my $gpg = new GnuPG();<br>
<br>
my $diretorios = "/home/flavio/teste_cripto";<br>
<br>
my $secret = "123-minha-senha-321";<br>
my $arquivos;<br>
<br>
find( \&busca, $diretorios );<br>
<br>
sub busca {<br>
<br>
foreach ($_) {<br>
$gpg->decrypt(<br>
ciphertext => " $_ ",<br>
output => " $_ ",<br>
recipient => "0D59E2D1",<br>
passphrase => $secret<br>
);<br>
<br>
## say $_; --> Aqui eu dei um "say" nesta variável para verificar se<br>
realmente estava trazendo os nomes dos arquivos e o<br>
gozado é que é que ela lista todos os arquivos que foram<br>
encriptados, mas mesmo assim dá um erro quando rodo o<br>
programa<br>
<br>
<br>
<br>
}<br>
}<br>
<br>
O que está errado no meu programa?<br>
<br>
Abraço,<br>
Flávio<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
<br>
</blockquote>
<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz">www.flickr.com/photos/alexeiz</a>]<br>
"Though we live in trying times, we're the ones who have to try"<br>
</div>