function GetKey(PlainStr: String; Pass: String): String;var StrChar, Keychar: Char; Pos: Integer; i: Integer; StrLeft, StrRight: String;begin Pos := 0; If Length(PlainStr) Mod 2 = 0 Then begin StrLeft := ReverseString(copy(PlainStr, 0, Round(Length(PlainStr) / 2))); StrRight := ReverseString(RightCopy(PlainStr, 1, Round(Length(PlainStr) / 2))); PlainStr := StrLeft + StrRight; end; for i := 0 to Length(PlainStr) - 1 do begin StrChar := Copy(PlainStr, i, 1)[1]; KeyChar := Copy(Pass, Pos, 1)[1]; If StrChar = KeyChar Then Result := Result + '*' else Result := Result + Char(ord(StrChar) Xor ord(KeyChar)); Pos := Pos + 1; end;end;