诚心请教字符串分解操作的问题！！！(100分)

A

Angel01

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-23

• #1

各位大虾，我现在有一字符串，如Str:='1234567abcdefgh',如何才能使得将str拆分成单
字节的形式如'1','2','3'......；并且将对每个字节其转换成ASIC2码后，进行相加或
异或处理。

 

S

Seoul_BJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-23

• #2

取字节用str[1],str[2]就行，异或处理命令语句记不起来了，你自己查吧

 

R

Reboot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-23

• #3

定义一个指针P指向str[1];
procedure EncryptString(var Str: String; code: Byte);
var
i: Integer;
p: ^Byte;
begin
p := @Str[1];
for i := 1 to Length(Str) do
begin
p^ := p^ xor code;
Inc(p,1);
end;
end;

 

J

JohnsonGuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-23

• #4

Sum := 0;
for i := 1 to Length(s) do
Inc(Sum, Ord(s));


Res := 0;
for i := 1 to Length(s) do
Res := Res xor Ord(s);

 

J

jiang_sheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-23

• #5

同意JOHNSONGUO的方法

 

B

BaKuBaKu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-23

• #6

字符串其实就可以看成数组：
Str:='1234567abcdefgh'
for I := 1 to Length(Str) do
Str := Str XOR SeedCode

 

A

Angel01

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-23

• #7

首先非常感谢各位大虾，尤其是Reboot、JohnsonGuo和BaKuBaKu，不过JohnsonGuo
的程序来得精练，我更易于接受。