Delphi程序，已知机器码是:558BEC 要求反转为: EC8B55
本帖最后由 冥界3大法王 于 2022-1-12 11:53 编辑解题分析：
已知机器码是:558BEC
要求反转为: EC8B55
经下面的的代码测试： MidStr函数能截取到，故此编出下面的代码来尝试输出效果，并分析得到以下数学公式（数学不好，脑袋不好使；不是专科{:301_972:}）
//第1次 总长度-1-0
//第2次 总长度-1-2
//第3次 总长度-1-2-2
{
所以：
用了下面的自定义
uses
StrUtils;function cal(n: integer): integer;
begin
result := 2 * n;
end;
再弹框测试得到中间值是否正确，不断修改程序达到预期
}
//使用右面这个函数来截取: MidStr(字符串，开始位置，长度数量) 完整实现代码如下：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; 本帖最后由 晨露流星 于 2022-1-20 10:25 编辑
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. 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 := s;
Result := s;
i := i+2;
end;
end;
end;
我来整一个{:301_992:} 总之，楼主是饭桶，写出个过程总结下失败的经验。{:301_999:} 本帖最后由 lras 于 2022-1-12 12:08 编辑
StrUtils单元中有很多字符串操作函数
s:=reversestring(edit1.txt);
ShowMessage(s);
看错题意，原来是取两位反转。。。哈哈 lras 发表于 2022-1-12 12:06
StrUtils单元中有很多字符串操作函数
s:=reversestring(edit1.txt);
百度一下，调试瞪眼。
这是胡嫩的，我要反序成组的 :lol 揰掵佲 发表于 2022-1-12 12:24
输出多了两个00 大端小端。。。 for i=length/2 downto 1 do
begin
两位两位的地截取字符就反转过来了
end; 冥界3大法王 发表于 2022-1-12 12:27
输出多了两个00
不要纠结2个0的问题,毕竟在内存中 这就是4个字节{:1_907:}