Encouvel and decryption of characters

zhaozj2021-02-08  234

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;

转载请注明原文地址:https://www.9cbs.com/read-2980.html

New Post(0)