27 respuestas en este tema

[escafandra]

Felicidades JoAnCa y muchas gracias a escafandra, realmente son éstas las cosas que hacen que valga la pena seguir adelante con una comunidad.

En realidad son los pequeños gestos, como éste tuyo y otros muchos, los que animan a seguir participando activamente y con entusiasmo en DA.


Saludos.

[JoAnCa]

De nuevo aqui "asediando" a escafandra

Amigo estuve leyendo este hilo tuyo y se me ocurrio la idea de combinarlo con el bloqueador de videos, pero como necesita las DLL, tendria que copiarlas tambien en el equipo remoto.
Segun vi, solo puedo copiar un archivo que sera ejecutado como servicio al momento de copiarse

Seria posible copiar tambien esas DLL para que funcione el videolock?

Disculpa por molestarte tanto 

[escafandra]

...Amigo estuve leyendo este hilo tuyo y se me ocurrio la idea de combinarlo con el bloqueador de videos, pero como necesita las DLL, tendria que copiarlas tambien en el equipo remoto.
Segun vi, solo puedo copiar un archivo que sera ejecutado como servicio al momento de copiarse

Seria posible copiar tambien esas DLL para que funcione el videolock?...

Por supuesto que se puede. En ese hilo realizo la copia de dos archivos, el miniservicio y el ejecutable, pero puedes copiar cuantos quieras:

delphi

   if NO_ERROR <> WNetAddConnection2(NetResource, PCHAR(E_PassWord.Text), PCHAR(E_UserName.Text), CONNECT_UPDATE_PROFILE) then
   begin
      SHCopy(Path + 'MiniServicio.exe', '\\' + E_Remote.Text + '\' + ComboBox1.Text + '\MiniServicio.exe');
      SHCopy(E_File.Text, Target);
 
     // Sigue copiando archivos.....
 
      if ComboBox1.Text = 'C$' then Sv:= 'C:\'
      else if ComboBox1.Text = 'D$' then Sv:= 'D:\'
      else if ComboBox1.Text = 'ADMIN$' then
      begin
        GetEnvironmentVariable('WINDIR', Buffer,  MAX_PATH);
        Sv:= String(Buffer) + '\';
      end;
      Sv:= Sv + 'MiniServicio.exe ' + ExtractFileName(E_File.Text);
      LoadService('\\' + E_Remote.Text, Sv);
      DeleteFile('\\' + E_Remote.Text + '\' + ComboBox1.Text + '\MiniServicio.exe');
   end;
   WNetCancelConnection2('M:', CONNECT_UPDATE_PROFILE, true);

También puedes usar  psexec de sysinternals en línea de comandos.

Esto ya me suena a Hackear toda una red...



Saludos.

[JoAnCa]

Esto ya me suena a Hackear toda una red...   

No, no voy a llegar a tanto,  pues es mi propia red y no le voy a hacer daño 


Lo que estaba buscando era la comodidad de no tener que ir a instalar el videolock en cada PC de la red, si de esta forma lo puedo hacer sin levantarme de mi puesto es mucho mejor 


Lo estuve ensayando con mi primera idea, un reproductor que solo reproduce en su ubicacion y crea un log, y me funciono bien (lo de copiarlo y ejecutarlo)

Pero necesito que me expliques que es lo que sucede en el equipo remoto, no entiendo muy bien pues el tema es completamente nuevo para mi

se que se esta ejecutando porque lo escribio en el log, pero no lo veo en la lista de procesos (del usuario SYSTEM debe ser?)
Tampoco vi en los servicios alguno que se llamara miniservicio o el nombre mi aplicacion

El soft se ejecutara siempre que el usuario inicie sesion?

Si quiero detener el servicio como haria?

Disculpa tantas preguntas 

[escafandra]

MiniServicio se ejecuta sólo para lanzar el programa que quires ejecutar, luego muere y es eliminado del directorio Windows\System32\. El programa lanzado se ejecuta en modo SYSTEM. Esto no siempre es bueno. Desde ese modo, la interacción con el escritorio puede estar limitada y en este caso concreto la inyección de dll se producirá en los procesos system, pero no en el usuario.

La solución pasa por conficurar el registro de windows para que se ejecute VideoLock al inicio y reiniciar el sistema. Esta opción se debe hacer de todas formas, lo haces con un programa auxiliar si quieres o con parámetros en línea de comandos de VideoLock.

delphi

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

Otra solución sería usar "ejecutar como", tal como lo muestro aquí.


Saludos.

[JoAnCa]

Vaya, que cada vez esto se me pone mas interesante 

Seguiré experimentando a ver al final como me queda 

[escafandra]

Vaya, que cada vez esto se me pone mas interesante 

Seguiré experimentando a ver al final como me queda 

Los retos, cuando se salen de lo común, son verdaderos desafíos y eso es lo que los hace interesantes. En DA tienes muchas pinceladas, repartidas en varios hilos, capaces de darte muchas soluciones y sobre todo de estimular el apetito...




Saludos.

[escafandra]

Para los que quieran ejecutar esto en Win10 han de tener en cuenta lo publicado aquí: Hook a la API CreateProcessInternalW en Win10



Saludos.