I have commonly used character processing in some of the other passwords commonly used in the development of daily MIS.
Now please please please have more comments!
Function Cryptstr (sty: 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 fkey);
END;