Delphi如何比较出不同的字符串？(已解决，谢谢！

冥界3大法王 发表于 2020-2-13 09:08

本帖最后由冥界3大法王于 2020-2-13 09:55 编辑

有字符串1 ：48 83 EC 28 E8 07 0A 00 00 48 83 C4 28
有字符串2 ：48 84 EC 28 E8 07 0A 00 00 48 83 C4 28
有字符串3 ：48 85 EC 28 E8 07 0A 00 00 48 83 C4 28

要求：进行比较，把不同的那个地方，换成？？

JuncoJet 发表于 2020-2-13 09:12

和C语言一样吧，for然后三个指针。if比较不同处赋值??

冥界3大法王 发表于 2020-2-13 09:16

JuncoJet 发表于 2020-2-13 09:12
和C语言一样吧，for然后三个指针。if比较不同处赋值??

@JuncoJet
我去发个悬赏，能给俺编个delphi的实现？

JuncoJet 发表于 2020-2-13 09:23

冥界3大法王发表于 2020-2-13 09:16
@JuncoJet
我去发个悬赏，能给俺编个delphi的实现？

呃，我不写delphi的。如果要完整实现的话可以帮你问问写delphi的朋友。反正思路一样的。

zsky 发表于 2020-2-13 09:37

应该有专门比较字符串的工具吧。。

xuanle6 发表于 2020-2-13 09:41

Delphi7 code

procedure TfrmMain.Button1Click(Sender: TObject);
var a,b,c:string;
i:Integer;
begin
a:='48 83 EC 28 E8 07 0A 00 00 48 83 C4 28';
b:='48 84 EC 28 E8 07 0A 00 00 48 83 C4 28';
c:='48 85 EC 28 E8 07 0A 00 00 48 83 C4 28';
Memo1.Text := a;
Memo1.Lines.Add(b);
Memo1.Lines.Add(c);
for i:=1 to Length(a) do begin
   if a<>b then begin
         b:='?';
   end;
   if a<>c then begin
         c:='?';
   end;
end;

Memo1.Lines.Add('');
Memo1.Lines.Add('');
Memo1.Lines.Add(b);
Memo1.Lines.Add(c);
end;

cxj98 发表于 2020-2-13 22:02

怎么感觉像是在写破解补丁

冥界3大法王 发表于 2020-2-14 06:27

cxj98 发表于 2020-2-13 22:02
怎么感觉像是在写破解补丁

@cxj98
向你们学习，写通杀辅助啊。

页: [1]

吾爱破解 - 52pojie.cn's Archiver

Delphi如何比较出不同的字符串？(已解决，谢谢！