|
Mostrar Temas
|
Páginas: [1] 2
|
1
|
Programación / Programación Visual Basic / ayuda archivo .res
|
en: 2 Diciembre 2009, 00:33 am
|
muy buenas,estoy haciendo un proyecto,y me gustaria saver,como se guardan los datos de un archivo .res en el disco duro. bueno,lo que tengo es un front con un picturebox,para hacer las pruebas.y un modulo. lo que ago es intentar agregar como recurso una carpeta con 3 imajenes jpg,al no poder meterlo con carpeta,las meti una a una,quedaria algo asin. imagen1 ->(101, "CUSTOM") imagen2 ->(102, "CUSTOM") imagen3 ->(103, "CUSTOM") lo 1º alcompilar el av me dice que tiene virus,solo cuando le meto las fotos como recurso. lo 2º es que no se como estraer las 3 fotos que estan como recurso y guardarla en c:\prueba\imagen1.jpg. bamos lo + importante es la 2º.si le pongo asin: imagen1 = LoadResData(101, "CUSTOM") lo que ago es cargar la 1º foto en la variable imagen1,intento cojer los datos de imagen1 en binario con get y luego con put le agrego los datos,pero la foto no se ve. se crea el archivo con contenido pero la foto no se muestra y me salta error. que podria hacer para extraer las 3 fotos al disco duro? y ya que estamos,para no abri pos cada x tiempo,aparte de las fotos,si meto un exe o bat o txt y eso como puedo extraerlo al disco duro? un salu2 y mil gracias
|
|
|
2
|
Programación / Programación Visual Basic / ayuda creando mi propio cripter.
|
en: 6 Septiembre 2009, 01:52 am
|
muy wenas,como dice el post,estoy creando mi propio cripter o por lo menos lo intento. como base estoy siguiendo un tutorial programando-un-crypter-en-visual-basic-6 supongo que + de 1 lo abra visto,aun que sea de refilon. bueno he seguido el manual al pie de la letra y he probado y no funca,he intentado corregirlo y no doy pata con bolo,por lo visto o ago algo mal o el tuto no lo comprobaron antes de lanzarlo. el caso es que decidi pasarlo a limpio creando lo desde 0 y comprobando funcion por funcion y ya por ultimo terminar codeando el front_load y asin decir por que funcion empieza y por donde y tenerlo todo el codigo ordenado y como el stub es lo + importante empezare por hay. la 1º funcion que estoy comprobando es: 1. Copiar el archivo en el que se esta ejecutando el Stub a un archivo temporal con formato “dat”. lo he probado y ba estupendo,asin que pase a la 2º: 2. Abrimos de forma binaria el fichero .dat y buscamos el comienzo de bits cifrados. 3. Leemos desde el principio de bits cifrados hasta su final. 4. Almacenamos los bits cifrado en una variable 5. desciframos los bits de la variable, los bits descifrados se reemplazaran a los bits cifrados de dicha variable. Private Function LeerlosAlmacenarlos(ArchivoTemp As String) As Boolean 'Declaramos el array ContDividido Dim ContDividido() As String 'Si hya error saltamos a la etiquero "Fallo" On Error GoTo Fallo 'Abrimos el arcihvo DAT de forma binaria Open ArchivoTemp For Binary Access Read As #1 'Almacenamos en "Contenido" los bits del stub y del fichero original Get #1, , Contenido 'Cerramos el archivo Close #1 'Separamos la variable Contenido en dos, segun la marca |CodeMakers| 'y almacenamos cada parte en el array ContDividido ContDividido = Split(Contenido, "|CodeMakers|") 'Reeplazamos el actual dato de la variable Contenido por los bits del _ fichero original que se encuentran cifrados Contenido = ContDividido(1) 'Ahora desciframos los bits con la funcion t Contenido = t(Contenido) 'Ya tenemos en la variable global "conenido" los bits descifrados _ asique ahora devolvemos true a la funcion y temrinamos la funcion LeerlosAlmacenarlos = True 'Escribimos la etiqueta Fallo Fallo: LeerlosAlmacenarlos = False Exit Function Exit Function
End Function 'Ahora, como si fueran ramificaciones en una red conceptual estamos viendo otra funcion. La funcion "t" que lo que hace es descifrar y cifrar los bits. con la funcion Xor, pasandolos por el numero 9:
Function t(C) On Error Resume Next For i = 1 To Len(C) t = t & Chr(Asc(Mid(C, i, 1)) Xor 27) Next i End Function
[code]
bueno siguiendo lo que dice,abrimos el archivo binario que seria el stub con un nombre aleatorio 3892.dat por ejemplo.
y el dice: Almacenamos en "Contenido" los bits del stub y del fichero original
lo que almaceno en contenido es solo el stub no?
despues dice que parte contenido en 2,el estub lo parte en 2? y coje la 2º parte.?
el dice:y almacenamos cada parte en el array ContDividido
y como puedo saber si los datos se han guardado en una variable o no?
un salu2 y gracias
[/code]
|
|
|
3
|
Media / Multimedia / poner circulos o flechas a los videos caseros
|
en: 5 Mayo 2008, 00:25 am
|
bueno el titulo lo dice todo espero que este bien aqui. bueno estoy busccando algun programa programa, de retoque de video. asin como el moviemake,lo que quiero hacer es poner un circulo o flecha en cierta parte del video,y asin llamar la atencion acia ese punto. por ejemplo: yo estoy grabando con mi camara un avion que se incendia como en la tele y el avion explota. tonces en el video no nos damos cuenta del detalle de que el piloto salto 2 segundos antes. yo keria hacer un seguimiento con un circulo o flecha y captar la atencion en ese punto del video. da = que el programa sea muy complicado ya buscare un manual y tocando algo saldra. alguien sabe de alguno? muchas gracias.
|
|
|
4
|
Programación / Programación Visual Basic / timer + variable
|
en: 6 Marzo 2008, 01:01 am
|
hola amigos espero que el titulo este bien.
bueno escribo esto por que tengo problemas,para hacer que mi programa
realice cada x tiempo una funcion diferente.
he trabajado anterior mente con timers pero de 1 en uno y este proyecto lleba unos 6.
ayer hice pruebas he iban todos bien y guarde los canbios y me acoste.
y hoy ya no funcaba 2 timer y pude areglar 1.
asin llevo ya tiempo y ya no se como darle mas bueltas.
bueno os dire como lo ago,aver en que fallo.
--------------------------------------------------------------- este proyecto se supone que abriria NOTEPAD cada 5 minutos,regedit cada 7 y el explorer cada 4 minutos.
empezamos declarando la funcion ShellExecute y declarando la variable minuto.
Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim minito As Long
Private Sub Form_Load()----->cuando se inicie el programa Timer1.Interval = 60000-------->timer1 lo ponemos declarado con un intervalo de =milisegundo Timer2.Interval = 60000 Timer3.Interval = 60000 Timer1.Enabled = True-------->activamos el timer1 empieza la accion End Sub
Private Sub Timer1_Timer() If "5" Then----->cada 5 minutos Call ShellExecute(Me.hwnd, "Open", ("C:\WINDOWS\NOTEPAD.EXE"), "", "", 1)---- --->ejecutamos NOTEPAD.EXE minuto = 0------->ponemos el contador a 0 minuto = minuto + 1--------> se añade un contador End If Timer2.Enabled = True----->ejecutamos timer 2 End Sub
este sin comentarios------>
Private Sub Timer2_Timer() If "7" Then Call ShellExecute(Me.hwnd, "Open", ("C:\WINDOWS\regedit.exe"), "", "", 1) minuto = 0 minuto = minuto + 1 End If Timer3.Enabled = True End Sub
Private Sub Timer3_Timer() If "4" Then Call ShellExecute(Me.hwnd, "Open", ("C:\WINDOWS\explorer.exe"), "", "", 1) minuto = 0 minuto = minuto + 1 End If Call Form_Load ejecutamos de nuevo la parte del codigo que hay en el frond.
End Sub
le he dado mil bueltas al codigo.
a las 00:55 lo ejecute y a las 00:56 me ejecuto los 3 al mismo tiempo casi por milisegundos.
aver quien me puede giar gracias y salu2
|
|
|
5
|
Programación / Programación Visual Basic / ayuda vb problemas con autocopiarse e autoiniciarse con windows
|
en: 14 Enero 2008, 01:51 am
|
hola estuve buscando info para arreglar esto pero no doy con nada.
mi problema es que creo un programa x
se copia en c:\ y si no tengo el antispiware activado, se copia en el registro.
HKLM\Software\Microsoft\Windows\CurrentVersion\Run para autoiniciarse.
bueno mi problema:
creo el exe y se copia en c:\ y en el registro,pero si lo buelvo a abrir el exe.
me dice que la entrada del registro ya exixte y si la quiero sobre escribir.
y si reinicio me tira un error:
titulo programa:x
run-time error "70"
permission denied
bueno espero que alguien me pueda ayudar.
hay os dejo un proyecto para que lo veais mejor el problema.
hay lleba el codigo fuente que uso.
le hechais un vistazo al codigo y lo probais creando el prueba.exe
el proyecto os lo explicara mejor.
muchas gracias y salu2
link:http://rapidshare.com/files/83614864/prueba.rar.html
|
|
|
6
|
Programación / Programación Visual Basic / ayuda con notificacion para mi cliente
|
en: 26 Diciembre 2006, 21:55 pm
|
hola felices fiestas,cuanto tiempo sin benir por aki. bueno no entiendo mucho de vb,pero estoy haciendo mi propio p.d.a.r (comun mente llamado toryano). me quede atascado en las notificaciones: estoy intentando hacer que mi cliente me notifique cuando se conecte el servidor. 1º estoy buscando informacion de como hacer la notificacion estilo msn. (si ya sabeis, esa de la barra de tareas,que dice,alfredo se a conectado). 2º busco informacion de como hacer la notificacion pero por sonido. lo mas interesante es que no quiero un bip si no que suene un wav ejemplo: c:\notificacionwav\sonodo.wav. y eso cuando se conecte el servidor el cliente la reproduce,durante 5 segundos alguien me podria hechar una mano? salu2s
|
|
|
7
|
Programación / Ingeniería Inversa / crackeando, necesito una ayuda en un Call
|
en: 17 Junio 2006, 12:22 pm
|
hola soy nuevo en esto del cracking,hice lo del curso raton.
hace poco me expiro un programa y digo bamos a probar mis conocimientos.
bueno el crackme es mas facil.
aver abro el programa y pongo 15151515 doy aceptar y sale (lo siento serial invalido)
abro el olly debug,abro el programa,busco la sting mala (lo siento serial invalido)
en el tutorial decia que buscara la string call,cmp y je que estaba un poco mas arriba.
pones un breac point en el call das f9 y pones 15151515 y el programa para en el call.
luego dabas f7 y con f8 buscabas la parte del call que compara el serial.
y veias abajo a la derecha el serial falso y el verdadero.
yo sigo esos pasos,con el programa que me expiro,solo por probar mis conocimientos.
y no encuentro el call que compara el serial,encuentro arriba de la frase buena (serial correcto gracias ect)
la string call,cmp y jnz.pongo en el call un breac point,f9 y pongo 15151515 y me sale la frase mala al aceptar
asin que esa no es.
como podria saber que call es? algun truco o algo?
muchas gracias.
|
|
|
9
|
Programación / Programación Visual Basic / ayuda blinder en vb
|
en: 4 Marzo 2006, 21:49 pm
|
hola estoy intentando hacer en vb un hibrido entre blinder y gusano.
bueno como no se vb,me baje un codigo fuente de un blinder y luego agregarle la api de hotmail.
bueno el problema es que son 2 archivos.
1º el blinder y luego esta el 2º header.dat
cojo el blinder solo en una carpeta. junto 2 archivos y le doy a juntar.
me sale mezcla.exe y header.dat, el .data con 0 kb intento abrir mezcla.exe y no sale nada.
bueno si pongo el blinder y el header.dat que benia con el codigo vb en una carpeta funciona me crea una mezcal.exe que inicia los 2 archivos.
digo yo como puedo hacer que al abrir el blinder, me cree un exe (mezcla.exe) y si lo envio a alguien que no nesesite el header.dat para abrir el mezcla.exe?
lo explique bien? el problema que tengo es que junto 2 archivos y mecrea mezcla.exe pero si lo mando sin el header.dat no funciona. y nesesito hacer que el exe se abra sin nesesidad del header.dat.
que balla el header.dat y los 2 archivos a juntar dentro de mezcla.exe
una vez que el blinder me furule el exe solo,lo que he de hacer ya es meterle las apis aver si temino con el blinder y me pongo con el tema de la api de hotmail y se la incorporo.
espero averme explicado bien y aver si algun samaritano me hecha una manilla que estoy llegando mas lejos de lo que crei.
salu2s
|
|
|
10
|
Programación / Programación Visual Basic / blinde fusion run time error 53
|
en: 12 Enero 2006, 19:39 pm
|
hola es la primera vez que escribo en este apartado lo que intento hacer lo dice aki:http://foro.elhacker.net/index.php/topic,102653.0.html
para no estenderme mucho,baje el codigo de un blinde se llama fusion,abro el vb,abro el prollecto para ver si es funcional.
agrego 2 exe o dos jpg y a la hora de darle a bundle para hacer la fusion me tira este error:
run time error 53 file no found le doy a debug y me resalta esta linea en amarilla con su dicha flecha
lngFilesize = FileLen(App.Path & "\stub\stub.exe")
si lo recopilo osea creo el programa en exe me da el mismo error:run time error 53 file no found
alguien que me pueda hechar una mano?no se mucho de esto solo algo soy bastante lamerrr.
tengo el codigo entero ahora no lo pondre pero si ace falta mas info lo pego aki.
salu2s y muchas gracias ire haciendo pruebas aver si doy con el error de mientras.
|
|
|
|
|
|
|