ShellCode

[AX302]

السلام عليكم 
ربما تساعد بعض الاخوة بالتوفيق.

PHP كود :

procedure TMainForm.Button1Click(Sender: TObject);
var
  i: integer;
  MyHex, MyByte: string;
begin
  MyHex := Memo1.Text;
  if MyHex <> '' then
  begin
    for i := 1 to Length(MyHex) do
    begin
      if i mod 2 = 0 then
      begin
        MyByte := MyByte + MyHex[i - 1] + MyHex[i] + ',$';
      end;
    end;
    insert('$', MyByte, 1);
    SetLength(MyByte, Length(MyByte) - 2);
    Memo2.Text := MyByte;
  end;
end;