Página 1 de 1

Drag & Drop Crypter Crear Crypted.exe

Publicado: 05 Jul 2012, 19:07
por Janpr99
Hola a todos
Al final me he decidido a empezar a hacer un crypter Drag & Drop, sin embargo, estoy aqui parao xD
He conseguido lo de arrastrar y soltar dentro del crypter luego en un text1, sale la ruta del archivo y todo bien.

Ahora lo que quiero hacer es que al darle al boton encryptar SIN QUE ABRA COMMONDIALOGS NI NADA GRAFICO, Que cree el archivo encriptado con el nombre de "crypted.exe" en la misma carpeta del server sin encryptar. ( el original )

Pero no se como hacerlo ya que funciona diferente :S
Espero que me entiendan :)
Gracias a todos de antemano.

PD: para el drag & drop en un imagen he usado este code:

Código: Seleccionar todo

Private Sub image1_OLEDragDrop(Data As DataObject, Effect As Long, Button _
As Integer, Shift As Integer, x As Single, Y As Single)
Text10.Text = Data.Files(1)

Re: Drag & Drop Crypter Crear Crypted.exe

Publicado: 05 Jul 2012, 19:40
por eDuArDo__xD
Esto va en el boton encriptar! solo cambialo por tus datos.

Un saludo

Código: Seleccionar todo

Private Sub Encriptar_Click()

Dim Stub As String

Gratis = FreeFile

Open App.Path & "\Stub.exe" For Binary As Gratis
Stub = Space(LOF(1))
Get Gratis, , Stub
Close Gratis

Dim File As String

Open Text1.Text For Binary As Gratis
File = Space(LOF(1))
Get Gratis, , File
Close Gratis

File = TUFUNCIONDEENCRIPTACION(File, "TUCONTRASEÑADEENCRIPTACION")

Open App.Path & "\crypted.exe" For Binary As Gratis
Put Gratis, , Stub & "TUDELIMITADOR" & File
Close Gratis

MsgBox "LISTO", vbInformation

End Sub

Re: Drag & Drop Crypter Crear Crypted.exe

Publicado: 05 Jul 2012, 20:58
por Janpr99
Muchas Gracias Eduardo!
Lo he probado sin Rc4 y sin stub y funciona!, es decir crea el crypted.exe y el stub (porque no existe en el directorio) aunk pesa 0 kb ya que se crea de nuevo.
Luego he visto que me da un error en lo del freefile que dice que no he especificado la variable, que seria? una string o ... nose :S y tambien me da error en el RC4 (cuando lo he puesto) en la linea de + temp:

Aqui algunas fotos:
Imagen




Imagen


Si quieres te paso el Proyecto y lo miras bien ya que asi no se si es comodo de ver o pensar que puede ser.
Por si acaso te lo dejo aqui: [Enlace externo eliminado para invitados]

PASS: Pizza

Si quieres probar la funcionalidad, el cliente tiene un login: User: Indetectables Pass: Pirulo

xD nose espero no molestarte pero esk aun estoy aprendiendo desde source y bueno me cuesta
Gracias
A por cierto si te miras el proyecto, no te desesperes porfavor (esta lleno de timers a petar) por esto aveces se bugea el cliente pero weno xD nose

Re: Drag & Drop Crypter Crear Crypted.exe

Publicado: 06 Jul 2012, 00:48
por eDuArDo__xD
Tu no te preocupes hermano estamos aqui para ayudar mira me mandaste el Source pero no tiene el del el cliente xD me mandaste solo el code del stub pero bueno mira lo del error de freefile es porque tienes que declararlo por ejemplo yo alli te puse:

Código: Seleccionar todo

Gratis = Freefile
bueno entonces declara "Gratis" como string:

Código: Seleccionar todo

dim Gratis as string
ahora lo del la encriptacion RC4 donde te marca que no haz definido "tmp" la verdad no se jamas he usado RC4 como encriptacion pero si continua el problema mandame el Source solo del cliente.

//Edit: lo del tmp pasa en que no declaraste Gratis como string cuando lo declares ya no te deberia tirara error el RC4

Re: Drag & Drop Crypter Crear Crypted.exe

Publicado: 06 Jul 2012, 02:07
por Janpr99
Muchas gracias eduardo, un paso mas :)
Aunque no entiendo que lo de Temp que continua dandome error :S la verdad que he echo crypters con rc4 y no me daban error :S
Ahora acabo de probar con 3 generadores de rc4 y todos 3 me dan el error en temp :S no lo entiendo.

Aqui dejo el cliente; [Enlace externo eliminado para invitados] tiene algunos bugs pero weno
la verdad no se k puede ser :S
Gracias :)

Re: Drag & Drop Crypter Crear Crypted.exe

Publicado: 06 Jul 2012, 04:30
por eDuArDo__xD
Mira que no le busco el error en ningun lado esperemos a que una maquina del foro nos responda.

Re: Drag & Drop Crypter Crear Crypted.exe

Publicado: 06 Jul 2012, 16:59
por Pink
Quita todos los temp de los rc4 :S no sirven pa nada :S comenta si funciona.

Re: Drag & Drop Crypter Crear Crypted.exe

Publicado: 06 Jul 2012, 17:54
por Janpr99
Ok, ya funciona :)
Muchas gracias a todos (vais en agradecimientos)