一个有意思的简单的SAS加密算法

一个有意思的简单的SAS加密算法,希望对大家喜欢

 

data name;

    input name $ 1-25;

    string=collate(0,255); 

    high4=reverse(string);

    cards;

JOHN DOE

张 三

李 四

;

run;

 

data mono;

    set name;

    encrypt=translate(name,high4,string); /*加密*/

    decrypt=translate(encrypt,string,high4); /*解密*/

run;

 

proc print data=mono;

    var name encrypt decrypt;

run;