楼主: zhou.wen
1910 1

[程序分享] SAS连接数据库避免明码解决方式-字符转ASCII [推广有奖]

教授

9%

还不是VIP/贵宾

-

TA的文库  其他...

SAS Technology

威望
0
论坛币
31987 个
通用积分
6.2141
学术水平
283 点
热心指数
262 点
信用等级
257 点
经验
55167 点
帖子
399
精华
4
在线时间
1328 小时
注册时间
2010-10-12
最后登录
2018-3-9

初级学术勋章 初级热心勋章 中级学术勋章 中级热心勋章

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
  1. %macro ConvertToASCII16(string);
  2. %local ASCII16;
  3. %do i=1 %to %sysfunc(length(&string));
  4. %let loopvar=%sysfunc(substr(&string,&i,1));
  5. %let ASCII16= &ASCII16%nrbquote(%)%sysfunc(putc(&loopvar,hex2.));
  6. %end;
  7. %put &ASCII16;
  8. %mend;
  9. %ConvertToASCII16(string=mypassword);

  10. %let pw=%sysfunc(urldecode(%6D%79%70%61%73%73%77%6F%72%64));
  11. %put &pw;
复制代码

这个主要是为了连接数据库的时候不会明码连接,日志如下
25   %macro ConvertToASCII16(string);
26   %local ASCII16;
27   %do i=1 %to %sysfunc(length(&string));
28   %let loopvar=%sysfunc(substr(&string,&i,1));
29   %let ASCII16= &ASCII16%nrbquote(%)%sysfunc(putc(&loopvar,hex2.));
30   %end;
31   %put &ASCII16;
32   %mend;
33   %ConvertToASCII16(string=mypassword);
%6D%79%70%61%73%73%77%6F%72%64
34
35   %let pw=%sysfunc(urldecode(%6D%79%70%61%73%73%77%6F%72%64));
36   %put &pw;
mypassword

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:连接数据库 AscII 数据库 SCI CII SAS Macro

已有 1 人评分学术水平 热心指数 信用等级 收起 理由
zll_zh + 1 + 1 + 1 观点有启发

总评分: 学术水平 + 1  热心指数 + 1  信用等级 + 1   查看全部评分

Practice Is The Best Teacher!
沙发
zhou.wen 发表于 2013-4-16 13:25:26 |只看作者 |坛友微信交流群
  1. %macro SQLServer_Connect;
  2. %let service=%sysfunc(urldecode(%31%39%32%2E%31%36%38%2E%31%2E%31%30%35));
  3. %let user=%sysfunc(urldecode(%75%73%65%72));
  4. %let password=%sysfunc(urldecode(%6D%79%70%61%73%73%77%6F%72%64'));
  5. %mend;
  6. /*生成数据库表*/
  7. %macro Extrapolate_SQLinitial;
  8. proc sql noprint;
  9. connect to sqlservr as server
  10. (server=&service
  11. database=Stock_SasTest
  12. user=&user
  13. password=&password);
  14. /*P_Extrapolate_SQLinitial存储过程固化在SQL Server*/
  15. execute (exec P_Extrapolate_SQLinitial) by server;
  16. disconnect from server;
  17. quit;
  18. %mend;
复制代码
应用如上
已有 1 人评分学术水平 热心指数 信用等级 收起 理由
zll_zh + 1 + 1 + 1 观点有启发

总评分: 学术水平 + 1  热心指数 + 1  信用等级 + 1   查看全部评分

Practice Is The Best Teacher!

使用道具

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-5-4 04:47