(20分)用delphi编写用户名及密码校验

1 首先要作一个密码。
function TregisterForm.spacetozero(s : string):string;
var
i : integer;
t : string;
begin
t := '';
for i := 1 to length(s) do
begin
if s[i] = ' ' then s[i] := '0';
t := t + s[i];
end;
result := t;
end;
function TregisterForm.jiami(s:string):string;
var
key : string;
i : integer;
n : integer;
tmp : string;
begin
key := 'delphiisagoodtoolhey';
n := 20 - length(s);
for i := 1 to n do
s := s + ' ';
tmp := '';
for i := 1 to 20 do
tmp := tmp + spacetozero(format('%2x',[ord(key[i]) xor ord(s[i])]));
result := tmp;
end;
function TregisterForm.jiemi(s:string):string;
var
key, tmp : string;
i : integer;

begin
key := 'delphiisagoodtoolhey';
tmp := '';
for i := 1 to 20