一个有意思的简单的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;