Codigo sin utilidad

[Casimiro Noteví]

Empezado por roman

Siguiendo el hilo de otros argumentos tuyos al respecto de Linux, esto, programas mal hechos, ¿son culpa del SO?

// Saludos

Por supuesto que no.

[[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?