E se vc tentasse usar outra rotina de Criptografia ?? Enfim, a questão é delicada mesmo...Eu tentaria trilhar outro caminho mais prático. Mas é isso ae, se conseguir outra coisa, compartilhe conosco. :)
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 3:28 PM Subject: Re: [delphi-br] Converter Ascii para String pois é..eu tinha pensando nisso...mas é q seguinte... o BD ta pronto..meu chefe vai encher meu ouvidos c eu falar pra ele trocar o tipo do campo... por isso queria tentar converter esses Ascii pra string..mas eu ja consegui um solução quebra galho eu tava tendo probleam quando vinha #0 dai eu só retiro esse caracter #0 da string q dai rola...até eu descobrir como, se é q tem como, converter os ascii pra string eu vo usando assim.. valeu pela ajuda cara, grade abraço. Vinicius Santos - MSI escreveu: > > Certo, eu vi os caracteres ASCII, mesmo...vc grava esses valores em > BD, certo ??? Eu tenho uma situação parecida e gravo tais valores em > campos BLOB, eu uso PostgreSQL, pq vc não tenta usar BLOB no seu BD, > já tentou ?? > > 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:59 PM > Subject: Re: [delphi-br] Converter Ascii para String > > 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://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: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://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> > > > 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://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: 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> > > > <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%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> > > > > <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> > > > <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://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>>>> > > > > <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> > > > > <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] > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas]
