ta certo, esse caracteres q voltou os valores de cada Ascii se tu depurar e ver o conteúdo da tua variavel, tu vai ver q são uns valores #$12#$12.... por ai vai...
o showmessage não vai adiantar pra ver, tem q ser na depuração Vinicius Santos - MSI escreveu: > > 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://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: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://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: Alan Vieceli > > To: delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.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://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: Davi Eduardo Borges Wall > > > To: delphi-br@yahoogrupos.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: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%40yahoogrupos.com.br> > > > [mailto:delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.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> > > <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://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>>> > > > <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> > > > <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] > >
