有关字符的加密与解密

本人在日常的MIS的开发中常用到的些口令处理中常用的个字符处理过程

现在帖在这里请大家多提意见！

function CryptStr(const S:String; sType: DWord):String;
var
i: Integer;
FKey: Integer;
begin
result:='''''''';
case sType of
0: SetPass;
begin
Randomize;
FKey := Random($FF);
for i:=1 to Length(s) do
Result := Result Chr( Ord(s[i]) xor i xor FKey);
Result := Result Char(FKey);
end;
1: GetPass
Begin
FKey := Ord(S[Length(s)]);
for i:=1 to Length(s) - 1 do
Result := Result Chr( Ord(s[i]) xor i xor FKey);

end;
end;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有