****请帮忙解释是什么意思！！！！！！******

[sailorsofth]

function TForm_Login.jmPass(str: string): string;
var
m,str1: string;
asc,asc1: byte;
i: integer;
begin
m := '\iklop;lk,kjjhh\';
for i:=1 to length(str) do
begin
asc := ord(str[i]);
asc := asc and $F;
asc1 := ord(m[i]);
asc1 := asc1 and $F;
asc1 := asc xor asc1;
asc := ord(str[i]);
asc := asc and $F0;
asc := asc + asc1;
str1 := str1 + chr(asc);
end;
result := str1;
end;

[hongqi162]

自定义的一个加密算法

[luxuewei5214]

加密处理

[sailorsofth]

asc1 := asc1 and $F;
asc := asc and $F0;

主要是这两句是什么意思！！

[cuiyue4420]

按位与

[天行归来]

asc1 := asc1 and $F; ---asc1 的高四位设置成0，比如 11011000 and $F=00001000
asc := asc and $F0; ---asc 的低四位设置成0，比如 11011000 and $F0=11010000

[喝口水]

楼上正确