一个奇怪的问题须请教大家 ( 积分: 50 )

L

lotomer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #1

memo1 内容为（没行一个字母）：a,b,c,d
经过Encrypt加密后显示在listbox1中
再解密到listbox2中，部分源码：
procedure TForm1.btn_EncryptClick(Sender: TObject);
var
i,n:integer;
begin
n:=memo1.Lines.Count;
for i :=0 to n-1 do
begin
listbox1.Items.Add(Encrypt(memo1.Lines.Strings,'lotomer'));
end;

end;

procedure TForm1.btn_DecryptClick(Sender: TObject);
var
i,n:integer;
begin
n:=memo1.Lines.Count;
for i :=0 to n-1 do
begin
listbox2.Items.Add(Decrypt(listbox1.Items,'lotomer'));
end;
end;
结果是：a,ab,abc,abcd
请大家指点，谢谢

 

L

lotomer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #2

memo1 内容为（没行一个字母）：a,b,c,d
经过Encrypt加密后显示在listbox1中
再解密到listbox2中，部分源码：
procedure TForm1.btn_EncryptClick(Sender: TObject);
var
i,n:integer;
begin
n:=memo1.Lines.Count;
for i :=0 to n-1 do
begin
listbox1.Items.Add(Encrypt(memo1.Lines.Strings,'lotomer'));
end;

end;

procedure TForm1.btn_DecryptClick(Sender: TObject);
var
i,n:integer;
begin
n:=memo1.Lines.Count;
for i :=0 to n-1 do
begin
listbox2.Items.Add(Decrypt(listbox1.Items,'lotomer'));
end;
end;
结果是：a,ab,abc,abcd
请大家指点，谢谢

 

U

utop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-22

• #3

应该是 Encrypt 函数的问题

 

S

SparkV

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-23

• #4

procedure TForm1.btn_EncryptClick(Sender: TObject);
var
i,n:integer;
begin
n:=memo1.Lines.Count;
for i :=0 to n-1 do
begin
// listbox1.Items.Add(Encrypt(memo1.Lines.Strings,'lotomer'));把这句改一下看看：
listbox1.Items.Add(Encrypt(memo1.Lines.,'lotomer'));
end;

end;

procedure TForm1.btn_DecryptClick(Sender: TObject);
var
i,n:integer;
begin
n:=memo1.Lines.Count;
for i :=0 to n-1 do
begin
listbox2.Items.Add(Decrypt(listbox1.Items,'lotomer'));
end;
end;

 

L

lotomer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-25

• #5

确实是加密程序有问题，我换了个加密程序就没这个问题了
谢谢大家！

 

L

lotomer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-25

• #6

多人接受答案了。