Cara, eu usei a tua função e fiz uma chamada assim: var wVar: string; begin wVar := 'Alan Vieceli'; wVar := Criptografar(wVar, 59); ShowMessage(wVar); end; Obtive os seguintes caracteres: "ùÎÙÌäÑÕ×ÕÎÑ"
Existe mais alguma particularidade ? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br ----- Original Message ----- From: Alan Vieceli To: delphi-br@yahoogrupos.com.br Sent: Friday, May 23, 2008 2:40 PM Subject: 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.blogspot.com <http://tuplas.blogspot.com> > http://www.msisolucoes.com.br <http://www.msisolucoes.com.br> > > ----- Original Message ----- > From: Alan Vieceli > To: delphi-br@yahoogrupos.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.blogspot.com <http://tuplas.blogspot.com> > <http://tuplas.blogspot.com <http://tuplas.blogspot.com>> > > http://www.msisolucoes.com.br <http://www.msisolucoes.com.br> > <http://www.msisolucoes.com.br <http://www.msisolucoes.com.br>> > > > > ----- Original Message ----- > > From: Davi Eduardo Borges Wall > > To: delphi-br@yahoogrupos.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: delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > > <mailto:delphi-br%40yahoogrupos.com.br> > > [mailto:delphi-br@yahoogrupos.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: delphi-br@yahoogrupos.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.blogspot.com <http://tuplas.blogspot.com> > <http://tuplas.blogspot.com <http://tuplas.blogspot.com>> > > <http://tuplas.blogspot.com <http://tuplas.blogspot.com> > <http://tuplas.blogspot.com <http://tuplas.blogspot.com>>> > > > http://www.msisolucoes.com.br <http://www.msisolucoes.com.br> > <http://www.msisolucoes.com.br <http://www.msisolucoes.com.br>> > > <http://www.msisolucoes.com.br <http://www.msisolucoes.com.br> > <http://www.msisolucoes.com.br <http://www.msisolucoes.com.br>>> > > > > > > ----- Original Message ----- > > > From: Alan Vieceli > > > To: delphi-br@yahoogrupos.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]
