FileMaker Pro Custom Functions

Let([ $Alfa="ABCDEFGHIJKLMNOPQRSTUVWXYZ"; $c1=Middle ( string; 1; 1 ); $r1=If (Position($Alfa;$c1;1;1)>0;If (Exact(Upper($c1);Middle ( string ; 1; 1 ));".";",");" ") & $c1; $c2=Middle ( string ; 2; 1 ); $r2=If (Position($Alfa;$c2;1;1)>0;If (Exact(Upper($c2);Middle ( string ; 2; 1 ));".";",");" ") & $c2; $c3=Middle ( string ; 3; 1 ); $r3=If (Position($Alfa;$c3;1;1)>0;If (Exact(Upper($c3);Middle ( string ; 3; 1 ));".";",");" ") & $c3; $c4=Middle ( string ; 4; 1 ); $r4=If (Position($Alfa;$c4;1;1)>0;If (Exact(Upper($c4);Middle ( string ; 4; 1 ));".";",");" ") & $c4; $base64=".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 0 1 2 3 4 5 6 7 8 9 + /"; $n1=(Position ( $base64 ; $r1 ; 1 ; 1 )+1)/2-1; $n2=(Position ( $base64 ; $r2 ; 1 ; 1 )+1)/2-1; $n3=(Position ( $base64 ; $r3 ; 1 ; 1 )+1)/2-1; $n4=(Position ( $base64 ; $r4 ; 1 ; 1 )+1)/2-1; $Bin6_1=($n1>31) & (Mod ( $n1 ; 32 )>15) & (Mod ( $n1 ; 16 )>7) & (Mod ( $n1 ; 8 )>3) & (Mod ( $n1 ; 4 )>1) & (Mod ( $n1 ; 2 )>0); $Bin6_2=($n2>31) & (Mod ( $n2 ; 32 )>15) & (Mod ( $n2 ; 16 )>7) & (Mod ( $n2 ; 8 )>3) & (Mod ( $n2 ; 4 )>1) & (Mod ( $n2 ; 2 )>0); $Bin6_3=($n3>31) & (Mod ( $n3 ; 32 )>15) & (Mod ( $n3 ; 16 )>7) & (Mod ( $n3 ; 8 )>3) & (Mod ( $n3 ; 4 )>1) & (Mod ( $n3 ; 2 )>0); $Bin6_4=($n4>31) & (Mod ( $n4 ; 32 )>15) & (Mod ( $n4 ; 16 )>7) & (Mod ( $n4 ; 8 )>3) & (Mod ( $n4 ; 4 )>1) & (Mod ( $n4 ; 2 )>0); $bin8=Left($Bin6_1 & $Bin6_2 & $Bin6_3 & $Bin6_4 & "000000000000000000000000";24); $a1=Middle($bin8;1;8); $a2=Middle($bin8;9;8); $a3=Middle($bin8;17;8); $na1=Middle($a1;1;1)*128+Middle($a1;2;1)*64+Middle($a1;3;1)*32+Middle($a1;4;1)*16+Middle($a1;5;1)*8+Middle($a1;6;1)*4+Middle($a1;7;1)*2+Middle($a1;8;1); $na2=Middle($a2;1;1)*128+Middle($a2;2;1)*64+Middle($a2;3;1)*32+Middle($a2;4;1)*16+Middle($a2;5;1)*8+Middle($a2;6;1)*4+Middle($a2;7;1)*2+Middle($a2;8;1); $na3=Middle($a3;1;1)*128+Middle($a3;2;1)*64+Middle($a3;3;1)*32+Middle($a3;4;1)*16+Middle($a3;5;1)*8+Middle($a3;6;1)*4+Middle($a3;7;1)*2+Middle($a3;8;1); $AscII=" !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"; $ris=Middle($ascII;$na1-31;1)&Middle($ascII;$na2-31;1)&Middle($ascII;$na3-31;1)]; If (IsEmpty(string);""; $ris & If (Length(string)>4;Base64ToAscII(Right(string;Length(String)-4));"")))
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.