Autor
|
Tema: sumarle bytes a un exe (Leído 3,906 veces)
|
Tengu
Desconectado
Mensajes: 330
2+1 = 1 , despues de todo , tdo es relativo
|
Lo posteo aquie por q pense q era donde mejor se veria aceptado.(por favor no lo borren) este es un pequeño codigo para sumarle bytes a tus exe. DESCARGA:este link es de la aplicacion,pruebenla si les interesa posteamos el code para poder mejorarlo. http://www.uploadfilego.com/download.php?file=29cfe51ed29a221787063e8c8c947c0f
|
|
|
En línea
|
Encuentros por Video y Chat !!
|
|
|
Freeze.
|
Gracias por el Aporte!! Ya c como se hace... Es muy lento el programa.. eso si..(en la parte de "Acerca de..")
|
|
« Última modificación: 28 Julio 2007, 00:52 am por -Freeze- »
|
En línea
|
|
|
|
Red Mx
Rojito
Colaborador
Desconectado
Mensajes: 3.649
Viva México Cabrones...
|
que bytes le suma exactamente???
|
|
|
En línea
|
Desarrollar Malware Es Causa De Cancer...
|
|
|
Freeze.
|
A que te refieres?...
No estoy seguro de que quieres decirme pero creo q te entendi de 2 maneras ¿Que caracteres le suma? R 1- Le suma espacios ¿Que cantidad le suma? R 2- Le suma la cantidad q quieras...
|
|
|
En línea
|
|
|
|
Tengu
Desconectado
Mensajes: 330
2+1 = 1 , despues de todo , tdo es relativo
|
voy a asumir qpor el codigo se imaginan los controles a usar..... saludos Private Sub Command1_Click() CD1.ShowOpen Text1.Text = CD1.FileName End Sub
Private Sub Command2_Click() If Text1.Text <> "" And Text2.Text > 0 Then fsiz = ShowFileSize(Text1.Text) PB1.Value = 0 PB1.Max = Text2.Text PB1.Visible = True Open Text1.Text For Binary As #1 For a = 1 To Text2.Text Put #1, fsiz - 1 + a, 0 PB1.Value = a Next Close End If PB1.Visible = False PB1.Value = 0 End Sub Function ShowFileSize(file) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(file) ShowFileSize = f.Size 's = UCase(f.Name) & " uses " & f.Size & " bytes." 'MsgBox s, 0, "Folder Size Info" End Function '94208
Private Sub Command3_Click() Timer1.Enabled = True End Sub
Private Sub Form_Load() Text1.Text = App.Path & "\" End Sub
Private Sub Text3_Change() pb2.Max = Text3.Text End Sub
Private Sub Timer1_Timer() Form1.Hide pb2.Value = pb2.Value + 1 If pb2.Value = Text3.Text Then Form1.Show pb2.Value = 0 Timer1.Enabled = False End If End Sub
|
|
|
En línea
|
Encuentros por Video y Chat !!
|
|
|
ActiveSheet
Desconectado
Mensajes: 389
Feeling Jazz
|
y el intervalo del time y el valor de los textbox?
|
|
|
En línea
|
|
|
|
Tengu
Desconectado
Mensajes: 330
2+1 = 1 , despues de todo , tdo es relativo
|
timer1.interval=1000 'debe ir por defecto declarado en el codigo o en el objeto test2.text="1000"(pueden modificarse con la aplicacion ejecutada) text3.text="80"(pueden modificarse con la aplicacion ejecutada)
el text1 sera la reta del archivo sobre el cual se va a trabajar. el text2 la cantidad de bytes a sumar. el text3 simplemente la cantidad de segundos q deseas q la aplicacion desaparezca. Command1 es el boton delexplorador de archivos (para elegir el nuestro) command2 es el q da la orden de sumar los bytes. Command3 es el q hace desaparecer el form por la cantidad de segundos indicados.
|
|
« Última modificación: 28 Julio 2007, 05:49 am por tengu..::Fireb0y::.. »
|
En línea
|
Encuentros por Video y Chat !!
|
|
|
ActiveSheet
Desconectado
Mensajes: 389
Feeling Jazz
|
Y PB1 y pb2 ?
|
|
|
En línea
|
|
|
|
Tengu
Desconectado
Mensajes: 330
2+1 = 1 , despues de todo , tdo es relativo
|
pb1 min=0 max=100 pb2 min=0 max=100 igualmente los valores sobre si es visible o no o el color de el progress bar pueden hacerlos variar uds. eso no afecta a la efectividad de la aplicacion
|
|
« Última modificación: 28 Julio 2007, 18:57 pm por tengu..::Fireb0y::.. »
|
En línea
|
Encuentros por Video y Chat !!
|
|
|
ActiveSheet
Desconectado
Mensajes: 389
Feeling Jazz
|
pero si a la depuracion xD no savia que era un progress bar no lo mencionaste pero ya todo esta aclarado gracias por tu tiempo
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Add PE bytes v0.1.1
« 1 2 »
Programación General
|
karmany
|
11
|
14,158
|
21 Enero 2014, 12:04 pm
por magicboiz
|
|
|
Contraseñas WEP 5 bytes JAZZTEL?
Hacking Wireless
|
TwixZ
|
5
|
4,749
|
26 Julio 2012, 18:33 pm
por TwixZ
|
|
|
hexadecimal de 2 bytes
Programación C/C++
|
m@o_614
|
1
|
2,749
|
10 Abril 2014, 01:21 am
por rir3760
|
|
|
Almacenar cadenas en arreglos de bytes
Java
|
m@o_614
|
1
|
4,685
|
13 Enero 2015, 02:09 am
por madara1412
|
|
|
Operacion con bytes -> KBDLLHOOKSTRUCT flags
Programación C/C++
|
patilanz
|
5
|
3,200
|
17 Enero 2015, 23:16 pm
por xv0
|
|