Vê se assim não dá certo:
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := QuotedStr(OutValue);
end;
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alan Vieceli
Enviada em: sexta-feira, 23 de maio de 2008 14:41
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Converter Ascii para String
Criptografar('ALESANDRA',59)
por exemplo...
Vinicius Santos - MSI escreveu:
>
> Como, vc está fazendo a chamada da Função ?
>
> Vinicius dos Santos
> Blog: http://tuplas. <http://tuplas.blogspot.com> blogspot.com
<http://tuplas. <http://tuplas.blogspot.com> blogspot.com>
> http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br
<http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>
>
> ----- Original Message -----
> From: Alan Vieceli
> To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
<mailto:delphi-br%40yahoogrupos.com.br>
> Sent: Friday, May 23, 2008 2:35 PM
> Subject: Re: [delphi-br] Converter Ascii para String
>
> Ai vai a bendita....
>
> function Criptografar(const S: string; Key: Word): string;
> var
> I: Integer;
> OutValue : String;
> begin
> OutValue := '';
> for I := 1 to Length(S) do
> OutValue := OutValue + char(Not(ord(S[I])-Key));
> Result := OutValue;
> end;
>
> Vinicius Santos - MSI escreveu:
> >
> > Eu ACHO que entendi...
> > A sua rotina de criptografia está retornando valores como '#10#15',
> > etc...certo ?
> > Se for isso, poste a sua rotina, talvez podemos ajudar, mas tente ser
> > mais claro ! Como diz o outro: "Uma pergunta bem feita, vale mais da
> > metade da resposta."
> >
> > Vinicius dos Santos
> > Blog: http://tuplas. <http://tuplas.blogspot.com> blogspot.com
<http://tuplas. <http://tuplas.blogspot.com> blogspot.com>
> <http://tuplas. <http://tuplas.blogspot.com> blogspot.com <http://tuplas.
<http://tuplas.blogspot.com> blogspot.com>>
> > http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br
<http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>
> <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br
<http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>>
> >
> > ----- Original Message -----
> > From: Davi Eduardo Borges Wall
> > To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>
> <mailto:delphi-br%40yahoogrupos.com.br>
> > Sent: Friday, May 23, 2008 2:25 PM
> > Subject: RES: [delphi-br] Converter Ascii para String
> >
> > Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não
> > vai entender Tb.
> >
> > De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br>
> > [mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br>] Em nome de Alan Vieceli
> > Enviada em: sexta-feira, 23 de maio de 2008 14:22
> > Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>
> <mailto:delphi-br%40yahoogrupos.com.br>
> > Assunto: Re: [delphi-br] Converter Ascii para String
> >
> > até seria..só que seguinte...
> >
> > tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de
> > caracteres...tipo...
> >
> > #$4#45#$54f5'b'...
> >
> > dai se grava esse falar no banco de dados..só que...isso não são
> > strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um
> > monte de problema..dai queria conversar isso tudo pra string q resolvia
> > meu problema
> >
> > Vinicius Santos - MSI escreveu:
> > >
> > > Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer:
> > >
> > > wVar = 'teste#13+#0';
> > >
> > > Direto ??
> > >
> > > Vinicius dos Santos
> > > Blog: http://tuplas. <http://tuplas.blogspot.com> blogspot.com
<http://tuplas. <http://tuplas.blogspot.com> blogspot.com>
> <http://tuplas. <http://tuplas.blogspot.com> blogspot.com <http://tuplas.
<http://tuplas.blogspot.com> blogspot.com>>
> > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com
<http://tuplas. <http://tuplas.blogspot.com> blogspot.com>
> <http://tuplas. <http://tuplas.blogspot.com> blogspot.com <http://tuplas.
<http://tuplas.blogspot.com> blogspot.com>>>
> > > http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br
<http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>
> <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br
<http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>>
> > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br
<http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>
> <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br
<http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>>>
> > >
> > > ----- Original Message -----
> > > From: Alan Vieceli
> > > To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br>
> > > Sent: Friday, May 23, 2008 2:07 PM
> > > Subject: [delphi-br] Converter Ascii para String
> > >
> > > Alguem sabe como eu faço pra converter uns caracteres Ascii para
> string?
> > >
> > > tipo:
> > >
> > > wVar := 'teste'+#13+#0
> > >
> > > dai o conteudo dessa variavel ser:
> > >
> > > wVar = 'teste#13+#0';
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
[As partes desta mensagem que não continham texto foram removidas]
