Hola,
Muchas gracias como siempre Seoane.
Código Delphi
[-]
/* Itento de comprensión del código fuente */
program Matrix;
uses Windows;
function SwallowRedpill: Boolean;
var
RedPill: array[0..7] of byte; m: array[0..5] of byte; p: procedure; stdcall; begin
RedPill[0]:= $0f; RedPill[1]:= $01; RedPill[2]:= $0d; RedPill[3]:= $00;
RedPill[4]:= $00; RedPill[5]:= $00; RedPill[6]:= $00; RedPill[7]:= $c3;
PPointer(@RedPill[3])^:= @m;
p:= @RedPill;
p();
Result:= m[5] > $d0;
end;
begin
if SwallowRedpill then
MessageBox(0,'Estas dentro de Matrix','Matrix',MB_OK)
else
MessageBox(0,'Estas fuera de Matrix','Matrix',MB_OK);
end.
/* Fin del intento de comprensión del código fuente */
/* Resultados sobre 10: 2 */
/* ¡Ouch! ^_* */