Delphi程序，已知机器码是:558BEC 要求反转为: EC8B55

冥界3大法王

解题分析：
已知机器码是:558BEC
要求反转为: EC8B55
经下面的的代码测试： MidStr函数能截取到，故此编出下面的代码来尝试输出效果，并分析得到以下数学公式（数学不好，脑袋不好使；不是专科）
//第1次 总长度-1-0
//第2次 总长度-1-2
//第3次 总长度-1-2-2
{
所以：
用了下面的自定义
uses
StrUtils;function cal(n: integer): integer;
begin
result := 2 * n;
end;
再弹框测试得到中间值是否正确，不断修改程序达到预期
}
//使用右面这个函数来截取: MidStr(字符串，开始位置，长度数量) 完整实现代码如下：

[Delphi] 纯文本查看 复制代码

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private    { Private declarations }
  public    { Public declarations }
  end;

var
  Form3: TForm3;


implementation

{$R *.dfm}

uses
  StrUtils;

function cal(n: integer): integer;
begin
  result := 2 * n;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  b: Integer;
  A1: string;
begin
  for b := 0 to ((Length(Edit1.Text)) div 2) do
  begin
    if b = ((Length(Edit1.Text)) div 2) then
      break;

    ShowMessage(IntToStr(cal(b)));
    ShowMessage(MidStr(Edit1.Text, Length(Edit1.Text) - 1 - cal(b), 2));
    A1 := MidStr(Edit1.Text, Length(Edit1.Text) - 1 - cal(b), 2);
    Edit2.Text := Edit2.Text + A1;
  end;
end;

｛菜鸟先编下面一小段，来局部测试输出效果是否达标？｝
procedure TForm3.Button2Click(Sender: TObject);
begin
  ShowMessage(MidStr(Edit1.Text, Length(Edit1.Text) - 1, 2));
  ShowMessage(MidStr(Edit1.Text, Length(Edit1.Text) - 1 - 2, 2));
  ShowMessage(MidStr(Edit1.Text, Length(Edit1.Text) - 1 - 2 - 2, 2));
end;

晨露流星

[Delphi] 纯文本查看 复制代码

unit UMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.ExtCtrls,StrUtils;

type
  TDcpMain = class(TForm)
    GroupBox1: TGroupBox;
    labtnStr: TLabeledEdit;
    BtnStar: TButton;
    GroupBox2: TGroupBox;
    MemoStr: TMemo;
    procedure BtnStarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DcpMain: TDcpMain;

implementation

{$R *.dfm}

function Dcpfz(Amstr:string):string;
var
  a,b,c,i:Integer;
begin
  a:=length(amstr);
  for i:=a downto 1 do
    begin
      if i mod 2=1 then
         begin
           Result:=Result+copy(amstr,i,2);
         end;
    end;
end;

procedure TDcpMain.BtnStarClick(Sender: TObject);
begin
   memostr.Lines.Add(dcpfz(labtnstr.Text));
end;

end.

DEATHTOUCH

[Delphi] 纯文本查看 复制代码

function rev_per_2char(const s: string): string;
var
  l: SizeInt;
  i: integer;
begin
  Result := '';
  l := length(s);
  if not odd(l) then
  begin
    setlength(Result, l);
    i := 1;
    while i<l do
    begin
      Result[i] := s[l-i];
      Result[i+1] := s[l-i+1];
      i := i+2;
    end;
  end;
end;

我来整一个

冥界3大法王

总之，楼主是饭桶，写出个过程总结下失败的经验。

lras

StrUtils单元中有很多字符串操作函数

s:=reversestring(edit1.txt);
       ShowMessage(s);

看错题意，原来是取两位反转。。。哈哈

冥界3大法王

lras 发表于 2022-1-12 12:06
StrUtils单元中有很多字符串操作函数

s:=reversestring(edit1.txt);

百度一下，调试瞪眼。
这是胡嫩的，我要反序成组的

揰掵佲

冥界3大法王

揰掵佲 发表于 2022-1-12 12:24

输出多了两个00

helloworld2022

大端小端。。。

kenxy

for i=length/2 downto 1 do
begin
    两位两位的地截取字符就反转过来了

end;

揰掵佲

冥界3大法王 发表于 2022-1-12 12:27
输出多了两个00

不要纠结2个0的问题,毕竟在内存中 这就是4个字节