关于两个等长字符串异或求助

2010-05-31 11:59:50 160 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Fixed XOR （将两个等长的十六进制字符串进行异或）。一、题目描述编程实现两个等长的十六进制字符串的异或，如果你的程序能正确运行，就可以将如下的前面两个字符串异或成第三个字符串： 1c0111001f010100061a024b53535009181c … after hex decoding, and when XOR’d against: 686974207468652062756c6c277320657965 … should produce... 阅读详情

var
i: Integer;
Str, Str1, Str2: String;
begin
Str1 := '00100101';
Str2 := 'A42B1234';

for i := 1 to 8 do
Str[i] := Chr(Ord(Str1 [i]) XOR Ord(Str2 [i]));

.....

end;

这种方法我是网上找,但是发现不行,F8跟踪,Str[i] := Chr(Ord(Str1 [i]) XOR Ord(Str2 [i]));执行一次直接就跳到下面的语句.

想请教怎么样可以把两个等长8位的字符串异或后成一个新的8位字符串?

...全文

十六进制字符串异或怎么写？十六进制字符串如何进行高效异或？阅读详情

icegirl914

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

无语孩童 2010-05-31

打赏
举报

或者定义

var str : string[8];

无语孩童 2010-05-31

打赏
举报

SetLength(str, 8);

你缺少这句话

haitao 2010-05-31

打赏
举报

for i := 1 to 8 do

begin

  if (Str1[i]>='0') and (Str1[i]<='9') then

    a:=Ord(Str1[i])-ord('0')

  else if (Str1[i]>='a') and (Str1[i]<='f') then

    a:=Ord(Str1[i])-ord('a')+10

  else if (Str1[i]>='A') and (Str1[i]<='F') then

    a:=Ord(Str1[i])-ord('A')+10;

  if (Str2[i]>='0') and (Str2[i]<='9') then

    b:=Ord(Str2[i])-ord('0')

  else if (Str2[i]>='a') and (Str2[i]<='f') then

    b:=Ord(Str2[i])-ord('a')+10

  else if (Str2[i]>='A') and (Str2[i]<='F') then

    b:=Ord(Str2[i])-ord('A')+10;



  a:=a xor b;

  if a>9 then

    Str[i] := Chr(Ord('0')+a)

  else

    Str[i] := Chr(Ord('A')+a-10);

end;

liuchyx2007 2010-05-31

打赏
举报

Str2 := 'A42B1234';
要变成2进制，才能异或

icegirl914 2010-05-31

打赏
举报

问题解决了,我用了SuperTitan002的方法,结果是对的.

谢谢各位的回帖,谢谢!

SuperTitan002 2010-05-31

打赏
举报

function strxorstr(str1,str2:string):string;

var

  i,a,b:integer;

begin

  result:='';

  for i:=1 to 4 do

  begin

    a:=strtoint('$'+copy(str1,2*i-1,2));

    b:=strtoint('$'+copy(str2,2*i-1,2));

    result:=result+inttohex(a xor b,2);

  end;

end;

icegirl914 2010-05-31

打赏
举报

to #2楼的朋友,
我把你的代码写成一个函数:
function CaleValue(Str1: String; Str2: String): String;
var
Str: String;
i: Integer;
a, b: ShortInt;
begin
for i := 1 to 8 do
begin
if (Str1[i]>='0') and (Str1[i]<='9') then
a:=Ord(Str1[i])-ord('0')
else if (Str1[i]>='a') and (Str1[i]<='f') then
a:=Ord(Str1[i])-ord('a')+10
else if (Str1[i]>='A') and (Str1[i]<='F') then
a:=Ord(Str1[i])-ord('A')+10;

if (Str2[i]>='0') and (Str2[i]<='9') then
b:=Ord(Str2[i])-ord('0')
else if (Str2[i]>='a') and (Str2[i]<='f') then
b:=Ord(Str2[i])-ord('a')+10
else if (Str2[i]>='A') and (Str2[i]<='F') then
b:=Ord(Str2[i])-ord('A')+10;

a:=a xor b;
if a>9 then
Str[i] := Chr(Ord('0')+a)
else
Str[i] := Chr(Ord('A')+a-10);
end;

Result := Str;
end;

但是执行到Str[i] := Chr(Ord('0')+a)这句就异常.

to #3楼的朋友:

我后来加了,但是还是不行.

关于两个等长字符串异或求助

相关推荐