Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-05-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 26
seoane Va por buen camino
Bueno, ahí va un código que NUNCA DEBES EJECUTAR.
Código Delphi [-]
 // ....
 TMatame = class(TThread)
  protected
    procedure Execute; override;
  end;

// ....
uses PsApi, ShellApi;

function CuantosSomos: Integer;
var
  Procesos: array[1..1024] of DWORD;
  Needed, i: DWORD;
  Process: THandle;
  ModName: array[0..MAX_PATH] of Char;
begin
  Result:= 0;
  if EnumProcesses(@Procesos,SizeOf(Procesos),Needed) then
  begin
    for i:= 1 to (Needed div Sizeof(DWORD)) do
    begin
      Process := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
        FALSE,Procesos[i]);
      if Process <> 0 then
      begin
        if GetModuleFileNameEx(Process,0,ModName,SizeOf(ModName)-1)>0  then
        begin
          if StrIComp(ModName,PChar(ParamStr(0))) = 0 then
            inc(Result);
        end;
        CloseHandle(Process);
      end;
    end;
  end;
end;

{ TMatame }
procedure TMatame.Execute;
begin
  FreeOnTerminate:= TRUE;
  while (TRUE) do
  begin
    if CuantosSomos < 4 then
      ShellExecute(0,nil,PChar(ParamStr(0)),nil,nil,sw_show);
    Sleep(10);
  end;
end;

Para activar la tontería, (NO LO HAGAS)
Código Delphi [-]
TMatame.Create(FALSE);
Responder Con Cita
  #2  
Antiguo 07-05-2007
[fer21unmsm] fer21unmsm is offline
Miembro Premium
 
Registrado: dic 2005
Ubicación: Lima
Posts: 627
Poder: 21
fer21unmsm Va por buen camino
Smile

Hola compañeros, al parecer el comando runas ha causado cierto debate jeje (lo hice a propósito), ya que sus comentarios son muy interesantes y practicamente ese era mi objetivo , bueno tal vez me salga del tema del hilo con esta pregunta pero ahí va: Que opinan del comando at, según tengo entendido, si estoy en una pc como usuario restringido, con este comando puedo escalar privilegios, y como evitar esto (¿sólo parando el servicio?, o que otra cosa se podría hacer?.

saludos cordiales
__________________
"La información tiene más valor cuando se comparte"
Responder Con Cita
  #3  
Antiguo 07-05-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 26
seoane Va por buen camino
Cita:
Empezado por fer21unmsm
si estoy en una pc como usuario restringido, con este comando puedo escalar privilegios
Caramba, eso me gustaría verlo. Sería un fallo de seguridad tremendo, ¿estas seguro de eso? ¿como se utilizaría? ¿en donde puedo encontrar información sobre ese bug?
Responder Con Cita
  #4  
Antiguo 08-05-2007
[fer21unmsm] fer21unmsm is offline
Miembro Premium
 
Registrado: dic 2005
Ubicación: Lima
Posts: 627
Poder: 21
fer21unmsm Va por buen camino
Cita:
Empezado por seoane
Caramba, eso me gustaría verlo. Sería un fallo de seguridad tremendo, ¿estas seguro de eso? ¿como se utilizaría? ¿en donde puedo encontrar información sobre ese bug?
Hola Seoane, tal vez esto lo conozcan( esto me lo enseñaron en mi curso de auditoría, y claro que puedes encontrar información en google, sólo pon "comando at"), pero igual lo comento, para dicho comando que te mencioné "at", lo primero es:

Caso de Prueba:

-Estamos en una PC con windows XP, 2K, (supongo que el vista tambien, no lo he probado)
-Hemos entrado como usuario restringido.
-La condición es que el servicio para at este active, que supuestamente en la mayoría de pcs que he encontrado lo está.
-Poder acceder al "cmd" en ejecutar

-cuando se abra la consola, matas el proceso "explorer.exe", osea pones "ctrl+shift+esc" y terminas el proceso "explorer.exe"
-luego presionas alt+tab para buscar la consola que abristes, y en dicha consola escribes el siguiente comando:

at <hora:minutos> /interactive "explorer.exe"

Ejemplo:

at 17:35 /interactive "explorer.exe"

En la hora y minutos, tienes que programar la tarea para que se active unos minutos despues (cosa que te da tiempo a escribir el comando)

Entonces cuando llega esa hora es decir 17:35, se levanta de nuevo el "explorer.exe", pero como administrador del sistema, y porqué sucede esto, yo pienso que el explorer contiene la parte del codigo que indica si que tipo de usuario es y de acuerdo a ello, te muestra sólo las cosas que puedes hacer, pero como el que levantó el explorer.exe, nuevamente fue el propio sistema(mediante la tarea), sin haberte logeado entonces supongo que te da permisos para todo, jeje

Espero os sirve (o mejor dicho espero no sirva)
Yo lo hice en mi pc para probar, y muy bueno para que.

Saludos cordiales
__________________
"La información tiene más valor cuando se comparte"
Responder Con Cita
  #5  
Antiguo 08-05-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 26
seoane Va por buen camino
El único problema que le veo es que un usuario limitado no puede usar el comand "at". No al menos con una configuración estándar de windows.

Para muestra:
Código:
C:\Documents and Settings\Usuario>at 0:13 /interactive explorer.exe
Acceso denegado.
Responder Con Cita
  #6  
Antiguo 08-05-2007
[fer21unmsm] fer21unmsm is offline
Miembro Premium
 
Registrado: dic 2005
Ubicación: Lima
Posts: 627
Poder: 21
fer21unmsm Va por buen camino
Cita:
Empezado por seoane
El único problema que le veo es que un usuario limitado no puede usar el comand "at". No al menos con una configuración estándar de windows.

Para muestra:
Código:
C:\Documents and Settings\Usuario>at 0:13 /interactive explorer.exe
Acceso denegado.

Bueno al menos sabemos que esta bien configurado el permiso para utilizar ese servicio, jeje, pero por ejemplo he probado en algunas pcs de aquí en la empresa donde trabajo , y no pasa lo mismo, ya que he podido apropiarme de las pcs con todos los privilegios del sistema, es decir, entonces de esto puedo deducir que las pcs aquí en mi empresa estan mal configuradas su seguridad, tendré que dar parte al staff que ve la seguridad.

PD: Las Pcs de mi empresa usan Windows XP, y su usuario es "Usuario restringido", que raro no?. Supongo que el administrador de la pc habrá configurado bien las politicas de seguridad, en el mio no
__________________
"La información tiene más valor cuando se comparte"

Última edición por fer21unmsm fecha: 08-05-2007 a las 01:32:37.
Responder Con Cita
  #7  
Antiguo 11-05-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
Bueno aqui esta mi codigo sin utilidad.
Es un boton, nunca he podido presionarlo.
Saludos

Última edición por Caral fecha: 26-09-2007 a las 15:48:52.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Utilidad para comparar dos bases de datos. avmm2004 Varios 1 16-11-2006 20:47:22
Utilidad para contar lineas de código Alexander Varios 10 18-10-2006 00:14:55
Utilidad para manejo de lista TODO ANG4L Varios 3 02-08-2006 09:36:39
Cual es la utilidad de la paleta Server Gelmin Servers 1 05-03-2004 22:20:36
utilidad del application.tag Giniromero OOP 8 17-10-2003 12:21:53


La franja horaria es GMT +2. Ahora son las 13:37:28.


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