Como cambiar valores en la ventana "General" propiedades del sistema

[[seoane]]

Caramba, como estamos en un club de delphi, supuse que contabas con el delphi instalado en tu ordenador. Estas en lo cierto, si tienes 512 MB, te poner 1,00 Gb y si tienes un 1,00 Gb te pone 2,00 Gb. Por esa parte no tendrías que modificar nada entonces. El problema lo tendrías para volver oculta la aplicación Namaris.exe. Te mando por correo una versión ya compilada, porque no veo necesidad de utilizar espacio del Club para eso.

De todas formas, no se si estas interesado en la programación, pero ahora es un buen momento para iniciarse en Delphi. Ya que te puedes descargar TurboDelphi completamente gratis de internet.

http://www.turboexplorer.com/

[[seoane]]

Vaya, parece que tengo problemas para enviártelo a tu correo. Pues aquí te dejo un enlace en RapidShare, para que lo descargues. Tienes una versión del ejecutable que no se muestra, y un dll que cambia 504 MB por 1,00 GB. Espero que te sirva

http://rapidshare.com/files/8672820/Namaris2.zip.html

[Saindoft]

Empezado por seoane

Vaya, parece que tengo problemas para enviártelo a tu correo. Pues aquí te dejo un enlace en RapidShare, para que lo descargues. Tienes una versión del ejecutable que no se muestra, y un dll que cambia 504 MB por 1,00 GB. Espero que te sirva

http://rapidshare.com/files/8672820/Namaris2.zip.html

Hola seoane soy saindoft uno de tus
colegas y fanatico del foro, he encontrado muy interesante este truco
y quisiera probarlo pero del link.. que pusiste no puedo bajarlo, quisiera
si es posible que pusieras un link con el archivo .zip adjunto. gracias de antemano

[[seoane]]

Bien, el código de la dll es el siguiente:

Código Delphi [-]
library Injection;

uses
  Windows, Sysutils, Messages, Psapi, CommCtrl;

type
  TShared = record
    Hook: HHooK;
    AttachCount: Integer;
  end;
  PShared = ^TShared;

  PItem = ^TItem;
  TItem = record
    hWnd: HWND;
    WndProc: Pointer;
    Next: PItem;
  end;

var
  Mutex, Mem: THandle;
  Shared: PShared;
  Injected: Boolean;
  HandleList: PItem;

function FindWindowProc(hWnd: HWND; Item: PItem): Pointer;
begin
  if Item <> nil then
  begin
    if Item.hWnd = hWnd then
      Result:= Item.WndProc
    else
      Result:= FindWindowProc(hWnd,Item.Next);
  end else
    Result:= nil;
end;

function WindowProc(hWnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM):
  LRESULT; stdcall;
var
  Str: String;
begin
  if (Msg = WM_SETTEXT) then
  begin
    Str:= String(PChar(LParam));
    Str:= StringReplace(Str,'1,00 GB','2,00 GB',[rfReplaceAll,rfIgnoreCase]);
    Str:= StringReplace(Str,'512 MB','1,00 GB',[rfReplaceAll,rfIgnoreCase]);
    LParam:= Longint(PChar(Str));
  end;
  Result:= CallWindowProc(FindWindowProc(hWnd,HandleList),hWnd,Msg,WParam,lParam);
end;

procedure HookWindow(hWnd: HWND);
var
  Item: PItem;
begin
  if FindWindowProc(hWnd, HandleList) = nil then
  begin
    GetMem(Item,Sizeof(TItem));
    Item.hWnd:= hWnd;
    Item.Next:= HandleList;
    Item.WndProc:= Pointer(SetWindowLong(hWnd,GWL_WNDPROC,LongInt(@WindowProc)));
    HandleList:= Item;
  end;
end;

function CallWndProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;
  stdcall;
var
  ClassName: array[0..16] of Char;
begin
  if Code = HC_ACTION then
    if Injected then
    begin
      FillChar(ClassName,Sizeof(ClassName),0);
      if GetClassName(PCWPStruct(lParam).hwnd,@ClassName,Sizeof(ClassName)-1) > 0 then
        if StrIComp(ClassName,'Link Window') = 0 then
        begin
          HookWindow(PCWPStruct(lParam).hwnd);
        end;
    end;
  Result := CallNextHookEx(Shared^.Hook, Code, wParam, lParam);
end;

procedure StartHook; stdcall;
begin
  if Shared <> nil then
  begin
    WaitForSingleObject(Mutex, INFINITE);
    try
      with Shared^ do
      begin
        if Hook = 0 then
          Hook := SetWindowsHookEx(WH_CALLWNDPROC, @CallWndProc, HInstance, 0);
      end;
    finally
      ReleaseMutex(Mutex);
    end;
  end;
end;

procedure StopHook; stdcall;
begin
  if Shared <> nil then
  begin
    WaitForSingleObject(Mutex, INFINITE);
    try
      with Shared^ do
      begin
        if Hook <> 0 then
        begin
          UnhookWindowsHookEx(Hook);
          Hook := 0;
        end;
      end;
    finally
      ReleaseMutex(Mutex);
    end;
  end;
end;

procedure Inject;
var
  Process: THandle;
  ModName: array[0..MAX_PATH] of Char;
  Target: array[0..MAX_PATH] of Char;
begin
  Injected:= FALSE;
  Process := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE,
    GetCurrentProcessId);
  if Process <> 0 then
  begin
    if GetModuleFileNameEx(Process, 0, ModName,sizeof(ModName)-1) > 0  then
    begin
      FillChar(Target,Sizeof(Target),#0);
      GetSystemDirectory(@Target,Sizeof(Target)-1);
      StrLCat(Target,'\rundll32.exe',Sizeof(Target)-1);
      OutputDebugString(Target);
      if StrIComp(Target,ModName) = 0 then
      begin
        // Un pequeño pitido nos avisa de que no hemos infiltrado
        Windows.Beep(500,100);
        HandleList:= nil;
        Injected:= TRUE;
      end;
    end;
    CloseHandle(Process);
  end;
end;

procedure Attach; stdcall;
var
  isNew: boolean;
begin
  Mutex := CreateMutex(nil, True, '{92366DA1-4F66-472D-BE12-65F0993F62AC}');
  try
    Mem := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(TShared),
      '{D1A38D62-9FAB-4298-A358-579D2D286E40}');
    isNew := GetLastError() = 0;
    if Mem <> 0 then
      Shared := MapViewOfFile(Mem, FILE_MAP_WRITE, 0, 0, 0)
    else
      Shared := nil;
    if Shared <> nil then
      if isNew then
        with Shared^ do
        begin
          Hook := 0;
          AttachCount := 1;
        end
      else
        inc(Shared^.AttachCount);
  finally
    ReleaseMutex(Mutex);
  end;
  // Aqui viene la inyeccion
  Inject;
end;

procedure UnHookWindows(Item: PItem);
begin
  if Item <> nil then
  begin
    UnHookWindows(Item.Next);
    SetWindowLong(Item.hWnd,GWL_WNDPROC,LongInt(Item.WndProc));
    FreeMem(Item);
  end;
end;

procedure Detach; stdcall;
begin
  WaitForSingleObject(Mutex, INFINITE);
  try
    if (Shared <> nil) then
      dec(Shared^.AttachCount);
  finally
    ReleaseMutex(Mutex);
  end;
  if (Shared <> nil) then
    if Shared^.AttachCount <= 0 then
    begin
      StopHook;
      UnmapViewOfFile(Shared);
      CloseHandle(Mem);
      CloseHandle(Mutex);
    end;
  if Injected then
    UnHookWindows(HandleList);
end;

procedure DLLEntryPoint(Reason: integer);
begin
  case Reason of
    Dll_Process_Detach: Detach;
    Dll_Process_Attach: Attach;
  end;
end;

exports
  StartHook,
  StopHook;

begin
  Attach;
  DLLProc:= @DLLEntryPoint;
end.

Exporta dos funciones StartHook y StopHook llamar la primera para activar y la segunda para desactivar el Hook.

PD: Espero que esto sirva para que la gente deje de preguntar por el .zip con el programa. Creo que el código es suficiente para aquellos que quieren saber como funciona, y mantendrá alejados a los que solo quieren gastar una broma a un ¿amigo?

[Saindoft]

gracias seoane por editar lo que todos esperabamos con tantas
ansias, ........... amigos es lo que sobra en este foro..............,
y espero que como bien tu dices este codigo no sea utilizado
maliciosamente abusando de las buenas intenciones de personas como tu.

[Namaris]

Hombre interesado estoy desde hace casi un año xDD

Pero como dicen que es tan complicada y hay que estudiar mucho y yo no tengo ni la mas minima idea las pocas veces que lo he intentado he acabado rindiendome ante las primeras dificultades


Lo de no tener el delphi es porque el encontre el post y foro atraves de google porque iba buscando una solucion a mi caso.

Y respecto a lo del link que me has dejago es de turboexpress que es para bajarme el editor gratis de delphi?? poruqe taba intentando bajar y como hay que registrasse es todo aleman y aparte la web va bastante lenta en respuesta


Y ya rula eso en el de mi hermano gracias al ultimo que me has pasado , muuuchas gracias

[[Héctor Randolph]]

Hola!

Solamente intervengo para comentar que me ha sorprendido la actuación de Domingo Seoane en este hilo . Me he permitido calificar este tema con cinco estrellas porque me parece muy bueno el truco, independientemente del uso que alguien pueda hacer de él.

Moraleja: "No hay que confiarnos de la memoria que reporta Windows"

La pregunta es ¿puedo confiar en lo que reporta el BIOS al arrancar?

[Namaris]

Sr. Hector Randolph, en este mundo de informatica lo que he aprendido es..."Nada es perfecto" y todo es manipulable

Y sí, "seoane ha estado magnifico

Saludos.

[[rcarrillom]]

Empezado por Héctor Randolph

Hola!
Moraleja: "No hay que confiarnos de la memoria que reporta Windows"

Que no sería más correcto "No hay que confiarnos de [...] Windows"?

[hirving]

Hola, necesito ayuda, tengo una ram de 256mb pero quiero que diga que tengo 1,024mb, abrí mi computadora para limpiarla y mi perro masticó dos memorias que tenía a un lado de mi, si mi papa se da cuenta me va a ragañar, ya estoy ahorrando para reponer las memorias, la verdad no se mucho de programacion y esas cosas y mi conexion es muy lenta como para bajar el turbodelphi y hacer lo que aquí decía. Por favor ayúdenme.

[Oscar_Net]

Hola podrian ayudarme en lo que estoy haciendo.He estado viendo el foro y ante todo soy nuevo y he hecho algunas modificaciones a mi sistema para que se pareciera mas a Windows Vista, y solo me faltaria cambiar el valor del sistema operativo para hacerlo.

http://photos1.hi5.com/0006/246/248/63TnW9246248-02.jpg

Haci como se muestra en el enlace queda mi sistema,pero lo malo es que no puedo cambiar el nombre de sistema operativo

[JHONYBLUU]

Hola Seaone Quisiera Q Me Ayudes Con El Mismo Problema De Namaris Quiero Hacer Exacatamente Lo Mismo Doblar La Memeoria Ram De 1g A 2g Pero Intente Entrar En Los Enlaces Y Ya No Funcionan Por Si Me Ayudaras Te Lo Agradeceria Mucho

[zorrollon]

Ayuda, por favor.. alguien podria poner el codigo fuente de la aplicacion.. porfavor. tengo horas... tratando y no puedo.. porfa porfa porfa

[Neftali [Germán.Estévez]]

Pues si nome equivoco lo tienes un par de post más arriba.

[emtec]

Hola soy nuevo en este foro y los felicito por los temas tan novedososy buenos que manejan aqui,
Me quiero dirigir especialente a seoane, comienzo enviandote mis felicitaciones por tus aportaciones tan interesantes lav erdad tienes un muy buen nivel de programacion por lo que veo. al abordar este tema entoiendo los proc y sobretodo loscontras ya que se puede malintepretar, ya que puede ser usado de mala manera, lo cual se que hay gente que es maliciosa y solo hackea l oque pueda, en mi caso Soy ing tambien, me interesa mucho lacreacion de software y hardware lo cual este tema en especifico ha coincidido con unos problemas que tengo al inyectar a windows unos datos, al ver com oresolviste el problema meimpresiono laverdad no meconsidero un master en delphi lo manejo pero no asi y me interesomuchisimo tu propuesta de tu exe y tu dll, este es mi primer post y quisiera que me pudieras auxiliar enviandome el dll y el exe para cotejarlos, estudiarlos y aplicarlos para un frame que estoy diseñando, lamentablemente el link que has puesto no sirve, seria de mucha ayuda que me pudieras auxiliar enviandomelo a mi correo que es [email protected] y te enviare mis avances para compartirlos con vos, me es muy interesante poder manipular las entrañas de windows por ello este tema me parecio el idel para mis propositos y sobretodo muy bueno, estamos encontacto espero tu respuesta

[zorrollon]

Empezado por emtec

Hola soy nuevo en este foro y los felicito por los temas tan novedososy buenos que manejan aqui,
Me quiero dirigir especialente a seoane, comienzo enviandote mis felicitaciones por tus aportaciones tan interesantes lav erdad tienes un muy buen nivel de programacion por lo que veo. al abordar este tema entoiendo los proc y sobretodo loscontras ya que se puede malintepretar, ya que puede ser usado de mala manera, lo cual se que hay gente que es maliciosa y solo hackea l oque pueda, en mi caso Soy ing tambien, me interesa mucho lacreacion de software y hardware lo cual este tema en especifico ha coincidido con unos problemas que tengo al inyectar a windows unos datos, al ver com oresolviste el problema meimpresiono laverdad no meconsidero un master en delphi lo manejo pero no asi y me interesomuchisimo tu propuesta de tu exe y tu dll, este es mi primer post y quisiera que me pudieras auxiliar enviandome el dll y el exe para cotejarlos, estudiarlos y aplicarlos para un frame que estoy diseñando, lamentablemente el link que has puesto no sirve, seria de mucha ayuda que me pudieras auxiliar enviandomelo a mi correo que es y te enviare mis avances para compartirlos con vos, me es muy interesante poder manipular las entrañas de windows por ello este tema me parecio el idel para mis propositos y sobretodo muy bueno, estamos encontacto espero tu respuesta

El codigo fuente del dll esta mas arriba ,del exe, nada.. y ayuda.. por aqui ni pidas... pues aunque los que saben, no hacen favor de compilar el exe, me parece que lo hacen mas por un asunto de exclusividad, que por seguridad, pero enfin... parece ser este post lo tienen olvidado., siguele buscando la respuesta esta cerca, el dll trabaja, simplemente falta el ejecutable que lo arranque de inicio.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por zorrollon

El codigo fuente del dll esta mas arriba ,del exe, nada.. y ayuda.. por aqui ni pidas... pues aunque los que saben, no hacen favor de compilar el exe, me parece que lo hacen mas por un asunto de exclusividad, que por seguridad, pero enfin...

Pues no van por ahí las cosas.

Lo que "molesta" un poco por aquí, es la gente que pregunta sin ni siquiera haberse molestado en buscar, los que piden sin ni siquiera haberse molestado en probar y un poco más, los que con 3 mensajes se permiten escribir cosas como las que has escrito tú.

El código de la DLL está más arriba. Para hacer un EXE que llame a las dos funciones, basta con un par de botones y 1 línea en cada uno. Si buscas en los foros hay muchos mensajes sobre DLL's y si buscas en internet muchos más. Posíblemente lo encontrarás en menos tiempo de lo que has tardado en escribir esa "sandez" de mensaje, pero supongo que es más fácil pedir que se lo den a uno todo hecho...

Pero nada, es más fácil que te demos el proyecto hecho, el código de la DLL, te lo compilamos y si quieres te hago un icono y te escribo la ayuda.
¿Quieres que te generemos el instalador, también?

[blackpete]

¿Seoane o Namaris donde estan?
Hola computines, he tratado de contactarlos para conseguir esos archivos para cambiar los valores de "general". los dos archivos que seoane mando a namaris ya no estan en rapidshare.
Por favor subanlos de nuevo o mandenmelo a mi correo por favor.

Soy un computin reparador y esta muy bueno para ponerle informacion relevante.

Blackpete