各位兄弟：紧急求助，我的作业；一个加密问题，请问用DELPHI怎么去实现！ 在线等(100分)

A

ailong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-03

• #1

要加密这段字符：*2* H12345 R072 T01 H345635 R 220 T06 N1234 P

首位字符开始累加到P字前面的那个字符为止，将该结果保留，然后对该结果进行变
;换：用高4位异或低4位，结果保留在低4位，再将高4位强制=H'3x'

 

A

ailong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-03

• #2

不好意思，没说明！就说高4位强制等于＝3，x就是＝低4位的值，h不用管！谢谢

 

I

icc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-04

• #3

首位字符开始累加到P字前面的那个字符为止，以ASCII码累加？

 

Z

zhlfdm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-04

• #4

怎么加呀，以什么加呀。。。。？

 

A

ailong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-06

• #5

用AnsiChar，以一个字节一个字节加，用Ord换成int值

 

奔

奔向富裕

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-06

• #6

procedure TForm1.Button1Click(Sender: TObject);
var stchar; len,i:integer ; b,b1,b2:byte;
begin
st:='*2* H12345 R072 T01 H345635 R 220 T06 N1234 ';
b:=0;
len:=length(st);
for i:=0 to len-1 do
b:=b + ord(st);

b1:=b mod 16;
b2:=b div 16;
b1:=b2 xor b1 ;
b:=3*16+b1;
showmessage(inttostr(b));
end;

 

A

ailong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-15

• #7

谢谢，现在才有空上网！我接受答案，呵！

 

A

ailong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-15

• #8

谢谢，现在才有空上网！我接受答案，呵！