Base64ToAscII ( string )

Convert text Base64 to AscII

Average rating: 3.9 (44 votes) Log in to vote

Frank Seipel
Lilly's Media Logistics
http://www.lillysmedialogistics.com

Sample input:

TWlzdGVyaW91cyB0ZXh0IGluIG1haWwgYXR0YWNo

Sample output:

Misterious text in mail attach

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

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));"")))

NOTE: This is a translation from Italian into English of the function already posted by: Roberto Pellegrini, gestione dati
http://www.gestionedati.net

NOTE2: Can also achieve this functionality using Moo Plugin, or ScriptMaster plugin with Java.

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Base64ToAscII ( string )

Comments

Support this website.

Support this website.