Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ¿cómo desvanecer o renombrar el proceso de mi aplicacion? (https://www.clubdelphi.com/foros/showthread.php?t=60521)

jeremiselxi 10-10-2008 12:51:02

hola
 
[QUOTE veamos si asi ... EL CODIGO PARA RENOMBRAR UN PROCESO DENTRO DEL ADMINISTRADOR DE TAREAS YA ESTA EN EL FORO, SOLO TIENES QUE ENCONTRARLO :D[/quote] esto es increible, por mas que busco y busco esto de renombrar procesos no lo encuentro.:mad: he buscado en la parte de api de windows y no lo encuentro. he intentado poner la palabra clave Procesos y luego Administrador. me puedes decir por lo menos la palabra clave, para buscarlo?

jeremiselxi 10-10-2008 12:57:03

hola
 
Cita:

EL CODIGO PARA RENOMBRAR UN PROCESO DENTRO DEL ADMINISTRADOR DE TAREAS YA ESTA EN EL FORO, SOLO TIENES QUE ENCONTRARLO
he buscado en este foro en al api de windows, he buscado con la palabra clave proceso y tambien administrador y tambien con tarea para buscar eso de renombrar procesos, alguien me puede decir por lo menos la palabra clave para llegar a lo quiero de renombrar un proceso? ya que el problema esta en que soy nuevo en esto y ademas no se que hacen muchos codigos, por esto les pido que me den por lo menos una idea de un codigo que cuando lo vea pueda decir, "waw miralo aqui;)!"

seoane 10-10-2008 21:52:42

Hombre jeremiselxi, buscando lo que buscas yo buscas yo buscaría palabras como Hacker, Jaquer o puede que jacker ;)

Y cuando lo encuentres cambia la funcion WindowProc por esto otro:
Código Delphi [-]

function WindowProc(hWnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM):
  LRESULT; stdcall;
var
  Str: WideString;
  Text: PWideChar;
begin
  Result:= CallWindowProc(FindWindowProc(hWnd,HandleList),hWnd,Msg,WParam,lParam);
  if (Msg = LVM_INSERTITEMW) or (Msg = LVM_SETITEMTEXTW) or (Msg = LVM_SETITEMW) then
  begin
    Str:= WideString(PWChar(PLVItemW(lParam).pszText));
    if (Pos('Injector.exe',Str) = 1) then
    begin
      Text:= PLVItemW(lParam).pszText;
      PLVItemW(lParam).pszText:= 'No me mates !';
      SendMessage(hWnd,Msg,wParam,lParam);
      PLVItemW(lParam).pszText:= Text;
    end;
  end;
end;

Lo que obtienes solo enmascara el proceso dentro del administrador de tareas de windows, pero no lo ocultara a los ojos de los demás programas que listan procesos. Así que solo usalo para engañar a incautos :D , a un ojo experto no lo engañaras

jeremiselxi 11-10-2008 15:57:03

gracias por la ayuda
 
ese codigo se ve que me hace lo que quiero de como poder renombrar ese proceso, pero hay un problema y es que cuando ejecuto el programa me salen varios errores. creo que es porque en el uses le falta algo. bueno de todas formas aqui esta como lo puse yo.

Cita:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
// aqui pege el codigo que me pusiste
function WindowProc(hWnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM):
LRESULT; stdcall;
var
Str: WideString;
Text: PWideChar;
begin
Result:= CallWindowProc(FindWindowProc(hWnd,HandleList),hWnd,Msg,WParam,lParam);
if (Msg = LVM_INSERTITEMW) or (Msg = LVM_SETITEMTEXTW) or (Msg = LVM_SETITEMW) then
begin
Str:= WideString(PWChar(PLVItemW(lParam).pszText));
if (Pos('Injector.exe',Str) = 1) then
begin
Text:= PLVItemW(lParam).pszText;
PLVItemW(lParam).pszText:= 'No me mates !';
SendMessage(hWnd,Msg,wParam,lParam);
PLVItemW(lParam).pszText:= Text;
end;
end;
end;

end.
y ahi te puse en zip para que veas los erroes que me pone.
gracias por tratar de ayudarme

seoane 11-10-2008 21:56:05

Hay que leer mas detenidamente la respuestas. Yo dije:
Cita:

Empezado por yo mismo
Y cuando lo encuentres cambia la funcion WindowProc por esto otro:

Lo que claramente quiere decir que el codigo que ponia a continucaion solo era un pequeño pedazo del codigo.

¿Llegaste a buscar por Jacker como te sugeri? :confused:

cHackAll 12-10-2008 01:45:16

Cita:

Empezado por jeremiselxi (Mensaje 318216)
bueno te cuento:) lei por ahi k nadie k nadie es un programador hasta k ha hecho un virus o un juego...

Amigo jeremiselxi, he visto tu anterior intento y te puedo decir (aunque suene algo perverso), que necesitas aprender mucho! el pedir, copiar y pegar sin ni siquiera haber echo el intento de entender que rayos puso para ti seoane, es una clara muestra que desde el principio mi "olfato" no me falló.

Espero por tu futuro que puedas hacer un "Hello World", porque hasta ahora no mucho se puede decir de ti y de el que te dió "ese" concepto de programador. Bueno, claro será tu destino como programador luego de éste hilo, si decides seguir aqui y aprender con nosotros te pido utilices las etiquetas [delph¡] tu codigo aquí [/delphi] en futuras intervenciones.

PD; Cambiando un poco de tema, seoane; he conseguido matar un par de bichos con tus cañonazos... los cuales ya no pudieron volar y al caer gritaban: "maldito jacker" :rolleyes::eek::D

Oye... con esto ya tienes el proyecto "virus" resuelto !!! :rolleyes:

Saludos cordiales :)

jeremiselxi 12-10-2008 03:46:50

hola
 
Cita:

Empezado por seoane (Mensaje 319606)
Hay que leer mas detenidamente la respuestas. Yo dije:

Lo que claramente quiere decir que el codigo que ponia a continucaion solo era un pequeño pedazo del codigo.

¿Llegaste a buscar por Jacker como te sugeri? :confused:

si lo llegue a buscar, y baje el injector y esta jevi jevi,

Cita:

Espero por tu futuro que puedas hacer un "Hello World", porque hasta ahora no mucho se puede decir de ti y de el que te dió "ese" concepto de programador. Bueno, claro será tu destino como programador luego de éste hilo, si decides seguir aqui y aprender con nosotros te pido utilices las etiquetas [delph¡] tu codigo aquí [/delphi] en futuras intervenciones.
¿saben algo:mad:? me siento mal, yo no quiero hacer virus, ya lo he dicho muchas veces, he pedido disculpas hasta el cansancio, y lo lamento, solo un dia estaba aburrido y me puse a hacer el bendito virus ese, pero solo era para ver si lo podia hacer. Otra cosa es que un dia se me instalo un espia en mi pc, y me habria muchas paginas de internet explorer y buscando y buscando me encontre un programa que me borro el virus y me daño el internet explorer, solo funciona el opera aqui, y por tal razon no encontraba cual era la forma de poner el codigo. Yo me inscribi en este foro fue para aprender y tambien poder ayudar a los que pueda, como dije antes tambien, los seres humanos fallamos, ahora no me sigan por decirlo asi, acribillando, al cantrario siganme ayudando a crecer en este mundo infinito de la programacion en delphi. Por ultimo digo que el que escribio eso de que el verdadero programador tiene que hacer un virus o un juego es un bruto y no sabe lo que dice, pero Lamento a los que ofendi.

Saindoft 28-11-2008 07:29:04

hola amigo del foro he encontrado muy interesante este link sin embargo
me surge una pregunta y si estoy equivocado por favor respondanme, la
cuestion es la siguiente .... en las demas respuestas a este link pusieron
una funcion que se supone que es lo que hace la aplicacion cuando intentas
matar el proceso pero donde puedo encontrar el resto del codigo es decir
la dll Injector mencionada por jeremiselxi:confused:

Kipow 28-11-2008 14:43:03

No perdas el tiempo en cosas que a la larga no sirven para nada a menos que, hicieras un bicho que desinstalara el VS de m$ y luego descargue e instale automaticamente el Delphi , creo que seria bueno para hacer crecer un poco la comunidad jaja.

jeremiselxi 28-11-2008 15:28:07

hola
 
Cita:

Empezado por Saindoft (Mensaje 328531)
hola amigo del foro he encontrado muy interesante este link sin embargo
me surge una pregunta y si estoy equivocado por favor respondanme, la
cuestion es la siguiente .... en las demas respuestas a este link pusieron
una funcion que se supone que es lo que hace la aplicacion cuando intentas
matar el proceso pero donde puedo encontrar el resto del codigo es decir
la dll Injector mencionada por jeremiselxi:confused:


si te fijas en este comentario que hizo saone
Cita:

Hombre jeremiselxi, buscando lo que buscas yo buscaría palabras como Hacker, Jaquer o puede que jacker ;)
ahi esta la respuesta

piXelicidio 28-11-2008 15:58:18

jajaj... como han atacado al "inofensivo" muchachito.
Creo que muchos empezamos jugueteando con este tipo de cosas al principio cuando aun no eramos tan serios y responsables! ;)

Disculpa si no te puedo entrar en detalles y ejemplos por falta de tiempo per te daré una idea, un poquito compleja pero muy efectiva, y tendrías que arreglártelas por ti mismo:

Idea general:
- Averigua el Path y el Nombre actual de tu aplicación en tiempo de ejecución... creo que es Application.exename.
- Haz una copia de tu propia aplicación con otro nombre.
- Ejecuta la la nueva copia de la aplicación creo que con ShellExec... por ahí.
- Cierra la actual, con form.close.

Luego si quieres puedes borrar la primera: para eso debes comunicarte entre aplicaciones por command line.
O sea:
ap1 application.exename: c:\cositasmalas\nombreoriginal.exe
creo una copia: c:\cositasmalas\newbadname.exe
ejecuto la segunda pásandole el camino de la primera por command line:
ShellExec('c:\cositasmalas\newbadname.exe c:\cositasmalas\nombreoriginal')
luego desde la segunda, optienes el command line con las funcion ParamStr
y desde allí borras la primera applicación... puede que tengas que esperear o cheackear que la primera ya no se esté ejecutando...
:D

Candela!! si no entendiste mucho.. pues nada... vuélvelo a leer!
Saludos

cHackAll 28-11-2008 18:05:55

Cita:

Empezado por piXelicidio (Mensaje 328592)
...Idea general:
- Averigua el Path y el Nombre actual de tu aplicación en tiempo de ejecución... creo que es Application.exename.
- Haz una copia de tu propia aplicación con otro nombre.
- Ejecuta la la nueva copia de la aplicación creo que con ShellExec... por ahí.
- Cierra la actual, con form.close...

Aquí tu método "simplificado"


La franja horaria es GMT +2. Ahora son las 12:31:37.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi