Guionardo Furlan escreveu:
> Corrigido
>
> procedure TForm1.btn1Click(Sender: TObject);
> var
> i : integer;
> b : array [1..1024] of byte;
> Handle : Integer;
> Lidos : Integer;
> OFS : _OFSTRUCT;
> begin
> // Abre o arquivo em modo exclusivo
> Handle:=OpenFile('c:\arquivo.dat',OFS,fmOpenReadWrite or fmShareExclusive);
> // Posiciona o ponteiro no início do arquivo
> FileSeek(Handle,0,0);
> // Lê os primeiros 1024 bytes para a variável B
> Lidos:=FileRead(Handle,b,1024);
> // Processa criptografando a variável B
> for i:=1 to 1024 do
> b[i]:=b[i] xor 25; // 25 é a chave, pode ser qualquer outro byte.
> // Reposiciona o ponteiro do arquivo
> FileSeek(Handle,0,0);
> // Escreve os dados no arquivo
> FileWrite(Handle,b,Lidos);
> // Fecha o arquivo
> FileClose(Handle);
> end
Amigo, tu és um gênio. Muito obrigado. Funcionou tudo certinho.
:-D
Um grande abraço!!!
--
+--------------------------------------------------+
Paulo Daniel Dorensbach
http://geocities.yahoo.com.br/dorensbach
Usuario GNU/Linux #363631 - http://counter.li.org/
By Mozilla Thunderbird
www.mozilla.org.br
+--------------------------------------------------+
_______________________________________________________
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
