搞不懂,简单的加密也错(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高字节没有用
 
顶部