sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-08 01:50:05 +00:00
Code Issues Projects Releases Wiki Activity

fix: avoiding use of md5() in sysfunc(). Closes #239

Browse Source
This commit is contained in:
Allan Bowe
2022-05-12 10:14:19 +00:00
parent d587b44b34
commit ca7c332f20
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
all.sas
View File

@@ -8385,7 +8385,7 @@ run;
%if %mf_getattrn(&libds,NLOBS)=0 %then %do; %if %mf_getattrn(&libds,NLOBS)=0 %then %do;
data &outds; data &outds;
length hashkey $32; length hashkey $32;
retain hashkey "%sysfunc(md5(%str(&salt)),$hex32.)"; hashkey=md5("&salt",$hex32.);
output; output;
stop; stop;
run; run;
@@ -8402,7 +8402,8 @@ run;
%end; %end;
; ;
length &prevkeyvar &keyvar $32; length &prevkeyvar &keyvar $32;
retain &prevkeyvar "%sysfunc(md5(%str(&salt)),$hex32.)"; retain &prevkeyvar;
if _n_=1 then &prevkeyvar=md5("&salt",$hex32.);
set &libds end=&lastvar; set &libds end=&lastvar;
/* hash should include previous row */ /* hash should include previous row */
&keyvar=%mp_md5( &keyvar=%mp_md5(

5
base/mp_hashdataset.sas
View File

@@ -58,7 +58,7 @@
%if %mf_getattrn(&libds,NLOBS)=0 %then %do; %if %mf_getattrn(&libds,NLOBS)=0 %then %do;
data &outds; data &outds;
length hashkey $32; length hashkey $32;
retain hashkey "%sysfunc(md5(%str(&salt)),$hex32.)"; hashkey=md5("&salt",$hex32.);
output; output;
stop; stop;
run; run;
@@ -75,7 +75,8 @@
%end; %end;
; ;
length &prevkeyvar &keyvar $32; length &prevkeyvar &keyvar $32;
retain &prevkeyvar "%sysfunc(md5(%str(&salt)),$hex32.)"; retain &prevkeyvar;
if _n_=1 then &prevkeyvar=md5("&salt",$hex32.);
set &libds end=&lastvar; set &libds end=&lastvar;
/* hash should include previous row */ /* hash should include previous row */
&keyvar=%mp_md5( &keyvar=%mp_md5(