AJUDA COM CODIGO USANDO HEXADECIMAL

USUARIO.EXCLUIDOS 15/01/2005 20:57:29
#61066
Pessoal, preciso fazer a seguinte função. Se alguém souber, por favor, poste.

Quero pegar cada caracter de um nome. Com cada caracter, passar ele a hexadecimal. Somar o caracter em hexadecimal da letra com 26. E pegar o Total da soma, e passar para decimal.
Ex: BrunoMaestro
B = 42 em hexadecimal
pegar o 42 e somar com o 26
Armazenar numa variavel.
Depois pegar o resultado total, após ter feito isso com cada letra
Passar a Decimal.

Galera, preciso disso urgente, se tiver alguém que possa me ajudar. valeu
WEBMASTER 15/01/2005 21:00:31
#61068
Nuss !!!

pra que tudo isso kra ?!?

Bom, to fazendo aki pra vc...
WEBMASTER 15/01/2005 21:03:08
#61072
Vixiii kra...espera um pokin que vo jantar...to faminto...
além do mais, vai dar trabalho...rsrs...vou ter q criar um array e blah blah blah...bom, jah venhu...
USUARIO.EXCLUIDOS 15/01/2005 21:07:37
#61074
Cara do céu, me ajuda ae. Preciso desse código pra gerar um keygen. Programo em asm e to aprendendo VB pra fazer esses keygen.
WEBMASTER 15/01/2005 21:09:37
#61076
hehehe...de boa, faz os keygen em c# q vc ganha mais...
mas vc tem msn ?
USUARIO.EXCLUIDOS 15/01/2005 21:12:10
#61079
tenho, brunomaestro@bol.com.br, adiciona ae.
WEBMASTER 15/01/2005 21:15:08
#61080
tah..vou tentar
USUARIO.EXCLUIDOS 15/01/2005 21:23:07
#61081 Resposta escolhida
Utilize as funções Asc e Chr nessas conversões:
Asc("A") ==> 65
Chr(65) ==> "A"

Exemplo função:
Public Function Conv(Letra As String) As String
Conv = Chr(Asc(Left(Letra, 1)) + 26)
End Function
USUARIO.EXCLUIDOS 15/01/2005 21:33:07
#61086
José, ainda sou leigo em VB, poderia me passar o código por completo? Tipo, Tenho que pegar letra por letra e somar por 26 e no final, pegar o valor total e passar para decimal. Se der obrigado.
USUARIO.EXCLUIDOS 15/01/2005 21:40:27
#61092

Chama a função abaixo (ConvFrase) passando a frase que vc deseja somar 26 a cada letra.

Public Function ConvFrase(Frase As String) As String
   Dim i As Integer
   Dim NovaFrase As String
   
   For i = 1 To Len(Frase)
      NovaFrase = NovaFrase & Chr(Asc(Mid(Frase, i, 1)) + 26)
   Next i
   
   ConvFrase = NovaFrase
End Function
USUARIO.EXCLUIDOS 15/01/2005 21:54:41
#61096
e para passar a decimal?
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar