Encrypting Values using Tranwrd function

[david27]

Team,

I am following this SAS Paper-- http://support.sas.com/resources/papers/proceedings17/0949-2017.pdf

I am trying to encrypt a variable using tranwrd function. Below is the code:

The problem is:
It gives me same value for Jane and Janet. How can I rectify this?

%let multi =3 ;
%let k =  359;
%let gap =  9;

data encrypt ;
set sashelp.class;
Encrypt_names = name;
i = input(&k., best.);
do old=     
           'a','b','c','d','e','f','g','h','i','j',
                'k','l','m','n','o','p','q','r','s','t',
                'u','v','w','x','y','z',
           'A','B','C','D','E','F','G','H','I','J',
                'K','L','M','N','O','P','Q','R','S','T',
                'U','V','W','X','Y','Z'
           ;
     new=put(i,&multi..);
     encrypt_names= tranwrd(encrypt_names,old,new);
     i+input(&gap.,best.);
end;
drop i new old;
run;

[david27]

So I resolved soon after I posted.

I have to increase length of the variable.

Added this piece---length encrypt_names $512.;

Any better ways to encrypt values are more than welcome. Thank You

The new code is:

%let multi =3 ;
%let k =  359;
%let gap =  9;

data encrypt ;
set sashelp.class;
length encrypt_names $512.;
Encrypt_names = name;
i = input(&k., best.);
do old=     
           'a','b','c','d','e','f','g','h','i','j',
                'k','l','m','n','o','p','q','r','s','t',
                'u','v','w','x','y','z',
           'A','B','C','D','E','F','G','H','I','J',
                'K','L','M','N','O','P','Q','R','S','T',
                'U','V','W','X','Y','Z'
           ;
     new=put(i,&multi..);
     encrypt_names= tranwrd(encrypt_names,old,new);
     i+input(&gap.,best.);
end;
drop i new old;
run;