function Criptografar(const S:String; Key:Word; wValor:integer):String;
var
x1:Byte;
begin
Result := '';
for x1 := 1 to length(S) do
begin
Result := Result + IntToHex(byte(char(byte(S[x1]) xor (Key shr
wValor))),2);
key := (byte(char(byte(S[x1]) xor (Key shr wValor))) + key)* C1 + C2;
end;
end;
function Descriptografar(const S:ShortString; Key:Word;
wValor:integer):String;
var
x1 : byte;
wAux : char;
begin
result := '';
x1 := 1;
while (x1 < length(S)) do
begin
wAux := char(StrToInt('$'+Copy(S,x1,2)));
Result := Result + char(byte(wAux) xor (key shr wValor));
key := (byte(wAux) + key) * C1+ C2;
inc(x1,2);
end;
end;
----- Original Message -----
From: "Rodrigo Othavio Farias" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, February 28, 2005 10:10 AM
Subject: Re: [delphi-br] Algoritmo de Criptografia
>
> qual a dificuldade de transformar o codigo gerado em string e com a função
> copy pegar as partes e montar um string com os traços?
>
>
> []´s
> Rodrigo O. Farias
> ----- Original Message -----
> From: Leandro Carbonera
> To: delphi-br@yahoogrupos.com.br
> Sent: Saturday, February 26, 2005 7:22 AM
> Subject: [delphi-br] Algoritmo de Criptografia
>
>
> Alguem conhece algum algoritmo de griptografia que me permita dividir o
> código gerado em grupos, como a chave de instalação do windows.(
> xxxx-xxxx-xxxx-xxxx)
>
> ----------------------------------------------------------------------------
> ----
>
> Leandro Carbonera
> Suporte Técnico - RBR® Informática
> (54) 343-1788 / (54) 8118-4484
> [EMAIL PROTECTED]
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
>
>
>
>
>
>
>
> Links do Yahoo! Grupos
>
> Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
> Yahoo!.
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.300 / Virus Database: 266.5.1 - Release Date: 27/2/2005
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.5.1 - Release Date: 27/2/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
