<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
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
/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
/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 ENC_TO got : \x{a}') called at
/usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 736<br>
GnuPG::decrypt_postwrite('GnuPG=HASH(0x176b220)', 'ciphertext', ' .
', 'output', ' . ', 'recipient', '0D59E2D1', 'passphrase',
'123-minha-senha-321', ...) called at
/usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 725<br>
GnuPG::decrypt('GnuPG=HASH(0x176b220)', 'ciphertext', ' . ',
'output', ' . ', 'recipient', '0D59E2D1', 'passphrase',
'123-minha-senha-321', ...) 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 854<br>
File::Find::_find_dir('HASH(0x1781b90)',
'/home/flavio/teste_cripto', 5) 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') 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:
<blockquote
cite="mid:AANLkTinbQM8BX4a_qSf1jHkUOFOBdYe9rBPTdUHMbLJ3@mail.gmail.com"
type="cite">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
moz-do-not-send="true" href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</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;">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 class="h5"><br>
<blockquote class="gmail_quote"
style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; 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 moz-do-not-send="true" href="mailto:SaoPaulo-pm@pm.org"
target="_blank">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>
</blockquote>
<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a moz-do-not-send="true" href="mailto:SaoPaulo-pm@pm.org"
target="_blank">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>
</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>
</div>
<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>