Temas

muy buenas,estoy haciendo un proyecto,y me gustaria saber,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.

Código [Seleccionar] Expandir

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ódigo [Seleccionar] Expandir

c:\prueba\imagen1.jpg.

bamos lo + importante es la 2º.si le pongo asin:

Código [Seleccionar] Expandir

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

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.

Código [Seleccionar] Expandir



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]

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.

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

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

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

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.

hola como podia hacer un bat que copie un codigo binario en c:\windows\system32 con el nombre prueba.exe?

y que se inicie con windows?

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

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.

vi un enlace para descargarlo pero estaba roto,si alguien

buscaba el visual basic 6.0 aki lo tiene.

no se en que idioma esta pero creo que en ingles.


http://kania.evilgirls.net/programas.htm ya con su serial incluido.