vou ver se implemento um modulo chamado "Portugues" que ira apontador erros crassos na lingua materna, como por exemplo "desemcripta". Como diria a tia da 1a. série: "m só antes de p ou b"<br>
<br><div class="gmail_quote">2010/7/13 Giuliani Sanches <span dir="ltr"><<a href="mailto:giulianisanches@gmail.com">giulianisanches@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Flávio,<br>
<br>
troca o seu $diretorios por:<br>
<br>
@diretorios = ('meu_diretorio/')<br>
<br>
Dentro da sua sub busca, você não precisa fazer um foreach pois a<br>
função find automaticamente percorre o array passado e<br>
disponibilizando o path dentro do callback que você passou, na<br>
variável $_.<br>
<br>
[]'s<br>
<br>
2010/7/13 "Flávio R. Lopes" <<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>>:<br>
<div><div></div><div class="h5">> Olá Alexei!<br>
> Ok, vou dar uma lida novamente!<br>
><br>
> De qualquer forma, abaixo segue o erro:<br>
><br>
> #############<br>
> Use of uninitialized value $cmd in pattern match (m//) at<br>
> /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 736, <GEN0> line 1.<br>
> Use of uninitialized value $cmd in concatenation (.) or string at<br>
> /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 736, <GEN0> line 1.<br>
> protocol error: expected ENC_TO got :<br>
> at /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 154<br>
> GnuPG::abort_gnupg('GnuPG=HASH(0x176b220)', 'protocol error: expected<br>
> ENC_TO got : \x{a}') called at<br>
> /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 736<br>
> GnuPG::decrypt_postwrite('GnuPG=HASH(0x176b220)', 'ciphertext', ' . ',<br>
> 'output', ' . ', 'recipient', '0D59E2D1', 'passphrase',<br>
> '123-minha-senha-321', ...) called at<br>
> /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 725<br>
> GnuPG::decrypt('GnuPG=HASH(0x176b220)', 'ciphertext', ' . ', 'output', '<br>
> . ', 'recipient', '0D59E2D1', 'passphrase', '123-minha-senha-321', ...)<br>
> called at /home/flavio/workspace/Ferramentas/Desemcripta.pl line 23<br>
> main::busca() called at /usr/local/lib/perl5/5.12.1/File/Find.pm line<br>
> 854<br>
> File::Find::_find_dir('HASH(0x1781b90)', '/home/flavio/teste_cripto', 5)<br>
> called at /usr/local/lib/perl5/5.12.1/File/Find.pm line 722<br>
> File::Find::_find_opt('HASH(0x1781b90)', '/home/flavio/teste_cripto')<br>
> called at /usr/local/lib/perl5/5.12.1/File/Find.pm line 1297<br>
> #############<br>
><br>
> Abraço!<br>
><br>
> Em 13-07-2010 13:44, Alexei Znamensky escreveu:<br>
><br>
> Se você não mostra a mensagem de erro, fica bem difícil de alguém te ajudar.<br>
> De cara, apesar de não causar (à primeira vista) um problema na execução,<br>
> você ter um laço do tipo foreach($_) { .. } dentro das suas subs é algo<br>
> desnecessário e indicativo de que você não entende direito o que está<br>
> fazendo.<br>
> Sugiro ler novamente, com mais cudado desta vez, a documentação do<br>
> File::Find.<br>
><br>
> []s,<br>
> Russian<br>
> 2010/7/13 "Flávio R. Lopes" <<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>><br>
>><br>
>> Pessoal, ainda não consegui fazer funcionar o programa para<br>
>> 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:<br>
>>><br>
>>> Boa noite pessoal!<br>
>>><br>
>>> Fiz um programa (Encripta.pl) para encryptar recursivamente os arquivos<br>
>>> que ficam debaixo de uma árvore de um determinado diretório.<br>
>>> E o outro programa para desencriptar (Desencripta.pl) os arquivos que<br>
>>> 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<br>
>>> 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<br>
>>> 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<br>
>>> (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">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>
>><br>
>> _______________________________________________<br>
>> SaoPaulo-pm mailing list<br>
>> <a href="mailto:SaoPaulo-pm@pm.org">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>
><br>
><br>
> --<br>
> Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com" target="_blank">russoz.wordpress.com</a>]<br>
> [<a href="http://www.flickr.com/photos/alexeiz" target="_blank">www.flickr.com/photos/alexeiz</a>]<br>
> "Though we live in trying times, we're the ones who have to try"<br>
><br>
> _______________________________________________<br>
> SaoPaulo-pm mailing list<br>
> <a href="mailto:SaoPaulo-pm@pm.org">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>
> _______________________________________________<br>
> SaoPaulo-pm mailing list<br>
> <a href="mailto:SaoPaulo-pm@pm.org">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>
<br>
<br>
<br>
</div></div><font color="#888888">--<br>
Giuliani Sanches<br>
<a href="http://twitter.com/giulianisanches" target="_blank">twitter.com/giulianisanches</a><br>
<a href="http://giulianisanches.blogspot.com" target="_blank">giulianisanches.blogspot.com</a><br>
<br>
Como elaborar uma pergunta:<br>
<a href="http://www.istf.com.br/perguntas/" target="_blank">http://www.istf.com.br/perguntas/</a><br>
</font><div><div></div><div class="h5">_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">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></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>