AscIIToBase64 ( string )

Converts an arbitrary text string to BASE64. English functnion name version.

Average rating: 3.8 (41 votes) Log in to vote

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

Sample input:

Misterious text in mail attach

Sample output:

TWlzdGVyaW91cyB0ZXh0IGluIG1haWwgYXR0YWNo

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;
$AscII="   ! \" # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @.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 { | } ~ ";
$n1=(Position ( $AscII ; $r1 ; 1 ; 1 )+1)/2+31;
$n2=(Position ( $AscII ; $r2 ; 1 ; 1 )+1)/2+31;
$n3=(Position ( $AscII ; $r3 ; 1 ; 1 )+1)/2+31;
$Bin8_1=($sn1>127)  & (Mod ( $n1 ; 128 )>63) & (Mod ( $n1 ; 64 )>31) & (Mod ( $n1 ; 32 )>15) & (Mod ( $n1 ; 16 )>7) & (Mod ( $n1 ; 8 )>3) & (Mod ( $n1 ; 4 )>1) & (Mod ( $n1 ; 2 )>0);
$Bin8_2=($sn2>127)  & (Mod ( $n2 ; 128 )>63) & (Mod ( $n2 ; 64 )>31) & (Mod ( $n2 ; 32 )>15) & (Mod ( $n2 ; 16 )>7) & (Mod ( $n2 ; 8 )>3) & (Mod ( $n2 ; 4 )>1) & (Mod ( $n2 ; 2 )>0);
$Bin8_3=($sn3>127)  & (Mod ( $n3 ; 128 )>63) & (Mod ( $n3 ; 64 )>31) & (Mod ( $n3 ; 32 )>15) & (Mod ( $n3 ; 16 )>7) & (Mod ( $n3 ; 8 )>3) & (Mod ( $n3 ; 4 )>1) & (Mod ( $n3 ; 2 )>0);
$bin6=Left($Bin8_1 & $Bin8_2 & $Bin8_3 & "000000000000000000000000";24); 
$a1=Middle($bin6;1;6);
$a2=Middle($bin6;7;6);
$a3=Middle($bin6;13;6);
$a4=Middle($bin6;19;6);
$na1=Middle($a1;1;1)*32+Middle($a1;2;1)*16+Middle($a1;3;1)*8+Middle($a1;4;1)*4+Middle($a1;5;1)*2+Middle($a1;6;1);
$na2=Middle($a2;1;1)*32+Middle($a2;2;1)*16+Middle($a2;3;1)*8+Middle($a2;4;1)*4+Middle($a2;5;1)*2+Middle($a2;6;1);
$na3=Middle($a3;1;1)*32+Middle($a3;2;1)*16+Middle($a3;3;1)*8+Middle($a3;4;1)*4+Middle($a3;5;1)*2+Middle($a3;6;1);
$na4=Middle($a4;1;1)*32+Middle($a4;2;1)*16+Middle($a4;3;1)*8+Middle($a4;4;1)*4+Middle($a4;5;1)*2+Middle($a4;6;1);
$base64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
$ris=Middle($base64;$na1+1;1)&Middle($base64;$na2+1;1)&Middle($base64;$na3+1;1)&Middle($base64;$na4+1;1)];
If (IsEmpty(string);"";  If(Length(string)<3;Left($ris;3)&"=";$ris) & If (Length(string)>3;AscIIToBase64(Right(string;Length(String)-3));"")))

NOTE: This is an English translation of the function already posted under same name by Roberto Pellegrini, gestione datu
http://www.gestionedati.net. I didn't write this, only translated it to English language.

Comments

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

AscIIToBase64 ( string )

Comments

Support this website.

Support this website.