<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Puxa vida!...Que desleixo iMperdoável o meu!!!...acho que fiz a
tiazinha revirar na tuMba!<br>
Por favor me desculpe, oh amado mestre!<br>
<br>
Em 13-07-2010 14:09, Alexei Znamensky escreveu:
<blockquote
cite="mid:AANLkTimTtvvfJ3NIKtkvzQxgPPE5ejO9W4sxLY-ifwNv@mail.gmail.com"
type="cite">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
moz-do-not-send="true" href="mailto:giulianisanches@gmail.com">giulianisanches@gmail.com</a>></span><br>
<blockquote class="gmail_quote"
style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; 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 moz-do-not-send="true"
href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>>:<br>
<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 moz-do-not-send="true"
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 moz-do-not-send="true" href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
>>> <a moz-do-not-send="true"
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 moz-do-not-send="true" href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
>> <a moz-do-not-send="true"
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 moz-do-not-send="true"
href="http://russoz.wordpress.com" target="_blank">russoz.wordpress.com</a>]<br>
> [<a moz-do-not-send="true"
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 moz-do-not-send="true" href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
> <a moz-do-not-send="true"
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 moz-do-not-send="true" href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
> <a moz-do-not-send="true"
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 moz-do-not-send="true" href="http://twitter.com/giulianisanches"
target="_blank">twitter.com/giulianisanches</a><br>
<a moz-do-not-send="true" href="http://giulianisanches.blogspot.com"
target="_blank">giulianisanches.blogspot.com</a><br>
<br>
Como elaborar uma pergunta:<br>
<a moz-do-not-send="true" href="http://www.istf.com.br/perguntas/"
target="_blank">http://www.istf.com.br/perguntas/</a><br>
</font>
<div>
<div class="h5">_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a moz-do-not-send="true" href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a moz-do-not-send="true"
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 moz-do-not-send="true"
href="http://russoz.wordpress.com">russoz.wordpress.com</a>] [<a
moz-do-not-send="true" 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>
<pre wrap="">
<fieldset class="mimeAttachmentHeader"></fieldset>
_______________________________________________
SaoPaulo-pm mailing list
<a class="moz-txt-link-abbreviated" href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a>
<a class="moz-txt-link-freetext" href="http://mail.pm.org/mailman/listinfo/saopaulo-pm">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a></pre>
</blockquote>
<br>
</body>
</html>