Codigo sin utilidad

[[seoane]]

Y me pregunto, esto tres "maestros" solo se van a acercar a este hilo para discutir sobe Linux, porque seguro que algún código interesante/curioso/inútil tienen por ahí

PD: Si alguien se anima a poner algo, por favor que por lo menos compile. Porque últimamente el tema esta yéndose al absurdo, y no es lo mismo absurdo que inútil

[Casimiro Noteví]

Bueno, aunque yo no sea ningún maestro (ojalá), aquí va un pequeño aporte.
Buscando en el baúl de los recuerdos encontré este programita que sirve para programar la hora de apagado de windows... y que se apague, obviamente.
Tiene un par de componentes de las RX y estaba hecho con Delphi 7.

[roman]

Empezado por seoane

Y me pregunto, esto tres "maestros" solo se van a acercar a este hilo para discutir sobe Linux

Es que, mientras algunos buscan su nombre en los hilos (ji, ji, disculpa, no me puede resistir ), otros buscan "linux" y otros buscamos "polémica".



// Saludos

[[seoane]]

Empezado por roman

Es que, mientras algunos buscan su nombre en los hilos

Si solo fuera eso, a veces hasta me busco en google

Empezado por Casimiro

Bueno, aunque yo no sea ningún maestro (ojalá), aquí va un pequeño aporte.

Excelente, alguien mas que se anima . Yo que ya daba este hilo por muerto.

Prometo que si se anima mas gente, yo también colocare algo.

[[seoane]]

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);

[[fer21unmsm]]

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

[[seoane]]

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?

[[fer21unmsm]]

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