Imprimir Página - Ayuda [Problema al convertir HEX a String]

Título: Ayuda [Problema al convertir HEX a String]
Publicado por: The Swash en 1 Febrero 2010, 16:21 pm

Hola muchachones xP, vengo en solicitud de una ayudita, sucede que estoy conviertiendo la cadena (5300680065006C006C002E004100700070006C00690063006100740069006F006E) A String, pero al convertir se desborda debido a los 00

Código:

Public Function HS2(xString As String) As String
For I = 1 To Len(xString) Step 2
HS2 = HS2 & Chr$(Val("&H" & Mid(xString, I, 2)))
Next I
End Function

usando este codigo de la siguiente manera

Código:

Private Sub Command2_Click()
Text2.Text = HS2(5300680065006C006C002E004100700070006C00690063006100740069006F006E)
End Sub

Solo muetsra la primera S, ya que despues de esta viene 00 y de ahi no continua.
mi necesidad exacta es tener la string de esto pero ningun convertidor reconoce los 000 les agradezco..

Título: Re: Ayuda [Problema al convertir HEX a String]
Publicado por: Novlucker en 1 Febrero 2010, 16:25 pm

Los 00 son caracteres nulos, así que simplemente no los leas, evalua antes el Mid(xString, I, 2), y si es igual a "00" entonces no hagas nada

Saludos

Título: Re: Ayuda [Problema al convertir HEX a String]
Publicado por: The Swash en 1 Febrero 2010, 16:44 pm

Gracias por tu respuesta, pero mi objecto es detectar esa cadena en un archivo y si la coloco asi nada mas sin contar los 00 no la encuentra, uso Instr y mi objetivo es encontrar esa string en un programa, para eso se obtiene la info como strng y demas..

Título: Re: Ayuda [Problema al convertir HEX a String]
Publicado por: The Swash en 1 Febrero 2010, 17:01 pm

Bueno la respuesta en simple, para buscar esa frase simplemente representamos los 00 como vbNullchar o Chr(0) y lo encuentra sin problemas, mil gracias por su ayuda!

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: The Swash en 1 Febrero 2010, 16:21 pm