Indetectables

Hola, al tratar de modear el run pe en visual basic me manda este error al guardar el exe

Error de compilacion :
Procedimiento Sub o Function no definido
Hex2Str


y no me deja generarlo por que pasa esto??

Saludos

Te falta la siguiente función:

Compañeros moderadores , con todo respeto manden esto a "Desarrollo y dudas de programación Vb/net."

Ignaro mayor de BsAS escribió:Compañeros moderadores , con todo respeto manden esto a "Desarrollo y dudas de programación Vb/net."

Sorry que como lei "Plantea tus dudas sobre malware a los compañeros del foro."

crei que aqui se posteaba

Blau escribió:Te falta la siguiente función:

Código: Seleccionar todo

Public Function Hex2Str(ByVal hexStr As String) As String 
    Dim ret$, hex As String * 2, c%, k%, slen As Integer 
    slen = Len(hexStr) 
    If slen Mod 2 = 1 Then _ 
        Err.Raise 13, , "Invalid hex string (string is composed by an odd number of digits)" ' Type mismatch 
     
    For k = 1 To slen Step 2 
        hex = Mid$(hexStr, k, 2) 
        If Not IsNumeric("&h" & hex) Then Err.Raise 13, , "Invalid hex string" ' Type mismatch 
        c = Val("&h" & hex) 
        ret = ret & Chr$(c) 
    Next k 
    Hex2Str = ret 
End Function 

Donde lo pongo?? en el final del modulo del run pe?? saludos

Tranquilo, compañero. El foro por alguna razón está dividido en distintas secciones para su mejor orden y más rápida visualización de los temas.
Ese código lo podés meter en el módulo Sub Main. Fijate que dice "public". "Public Function Hex2Str.."
Pero insisto, si vos no te ofendés, esto debería moverse para que el tema no se pieda. Porque esta sección es muy concurrida, en 1 día ya este tema desaparece por la demanda de preguntas. En cambio en "Desarrollo y dudas de progración/ Vb/net" permanece más tiempo.