como puedo pasar de hexadecimal a decimal?

[>> s E t H <<]

  :

estaba haciendo un programa para encriptar/desencriptar texto. en una parte pasaba todos los caracteres a  su numero ascii y despues eso lo pasaba a hexa... como puedo hacer para pasarlo a decimal de nuevo?

[Ther0x]

Pásalo de hexa a ascii y después de ascii a deci, no?

[>> s E t H <<]

Pásalo de hexa a ascii y después de ascii a deci, no?

no entendi como... me podrias dejar un code?

[Ther0x]

no entendi como... me podrias dejar un code?

Es que no tengo ni idea , pero supongo que si lo pasas de ascii a hexa habrá una función opuesta que lo pase de hexa a ascii.

[>> s E t H <<]

si, lo mismo pense yo pero no la encontre. se qeu con hex(numerodecimal) pasa a hex pero al revez no se como

[Ther0x]

Se me acaba de ocurrir que podrías hacer algo como un crackeador, convierte de ascii a hex y si coincide pues es ese.

También hay un método para hacerlo bien, pero no lo conozco.

Googlea y si encuentras algún code ponlo plz

[SKL]

aca te dejo algo qeu te puede servir... ya que nadie puso nada...

2 commands, y 2 Textbox

Código:

Private Sub Command1_Click()
Dim s As String
s = UCase(Text1)
Text2 = ""
For i = 1 To Len(s)
Text2 = Text2 & "0" & Asc(Mid(s, i, 1))
Next
End Sub

Private Sub Command2_Click()
Dim s As String
s = Text2
Text2 = ""
For i = 1 To Len(s) Step 3
Text2 = Text2 & Chr(Val(Mid(s, i, 3)))
Next
End Sub

saludos!

[>> s E t H <<]

aca te dejo algo qeu te puede servir... ya que nadie puso nada...

2 commands, y 2 Textbox

Código:

Private Sub Command1_Click()
Dim s As String
s = UCase(Text1)
Text2 = ""
For i = 1 To Len(s)
Text2 = Text2 & "0" & Asc(Mid(s, i, 1))
Next
End Sub

Private Sub Command2_Click()
Dim s As String
s = Text2
Text2 = ""
For i = 1 To Len(s) Step 3
Text2 = Text2 & Chr(Val(Mid(s, i, 3)))
Next
End Sub

saludos!

hoy es navidad asi que tenmgo fiaca jejeje, en serio gracias. lo tengo que probar