搞不懂,简单的加密也错(30分)

  • 主题发起人 主题发起人 土土
  • 开始时间 开始时间

土土

Unregistered / Unconfirmed
GUEST, unregistred user!

procedure TForm1.Button1Click(Sender: TObject);
begin
try edit2.Text :=encrypt(edit1.Text,1111) ;
except
on e:exception do
showmessage(e.Message );
end;
end;

function tform1.encrypt ( temp:string;key:word):string;
var I:integer;
s:string;
begin
for i:=1 to length(temp) do
begin
s:=char(ord(temp) xor key);
end;
result:=s;
end;
 
function tform1.encrypt ( temp:string;key:word):string;
var I:integer;
s:string;
begin
SetLength(s,100);
for i:=1 to length(temp) do
begin
s:=char(ord(temp) xor key);
end;
result:=s;
end;
 

begin
s := ''; {-----------------}
for i:=1 to length(temp) do
begin
s:=s+char(ord(temp) xor key); {---------}
end;
result:=s;
end;

另外,你最好声明key:byte; word高字节没有用
 

Similar threads

I
回复
0
查看
577
import
I
I
回复
0
查看
569
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
724
import
I
后退
顶部