北
北狼
Unregistered / Unconfirmed
GUEST, unregistred user!
我看了别人的一个加密算法：
function addpassword(str:string):string;
//str加密或解密的字符串
var text,str1:string;
i,j:integer;
begin
if str='' then
begin
result:='';
exit;
end;
text:='tessst';//加密的密鑰，可自己設定
str1:='';
for i:=1 to length(str) do
begin
j:=i mod length(text)+1;
str1:=str1+chr(ord(str) xor ord(text[j]) mod 10);
end;
result:=str1;
end;
但加密出来后的密文有些前面有空格，比如密文： ·#￥·ASDF*&($
注意冒号后的空格，但我不希望这些空格出现，该怎么修改程序？
谢谢！
function addpassword(str:string):string;
//str加密或解密的字符串
var text,str1:string;
i,j:integer;
begin
if str='' then
begin
result:='';
exit;
end;
text:='tessst';//加密的密鑰，可自己設定
str1:='';
for i:=1 to length(str) do
begin
j:=i mod length(text)+1;
str1:=str1+chr(ord(str) xor ord(text[j]) mod 10);
end;
result:=str1;
end;
但加密出来后的密文有些前面有空格，比如密文： ·#￥·ASDF*&($
注意冒号后的空格，但我不希望这些空格出现，该怎么修改程序？
谢谢！