Shopping Cart

Free Newsletter
Signup

Contact me | vCard

Brian on CNN

Brian on CBS Radio

FileMaker is a registered trademark of FileMaker, Inc. in the U.S. and other countries.

FileMaker Pro Custom Functions

List | Show Random | Upload | Add This to Your Site

AscIIToBase64 (string)

Rate this function:

Average rating: 3.9 (8 votes)
Discuss this Custom Function

Roberto Pellegrini, gestione datu
http://www.gestionedati.net

Convert text AscII To Base64

Sample Input:

Misterious text in mail attach

Sample Output:

TWlzdGVyaW91cyB0ZXh0IGluIG1haWwgYXR0YWNo

Consenti([ $Alfa="ABCDEFGHIJKLMNOPQRSTUVWXYZ"; $c1=Mezzo ( string; 1; 1 ); $r1=If (Posizione($Alfa;$c1;1;1)>0;If (Esatto(Proprio($c1);Mezzo ( string ; 1; 1 ));".";",");" ") & $c1; $c2=Mezzo ( string ; 2; 1 ); $r2=If (Posizione($Alfa;$c2;1;1)>0;If (Esatto(Proprio($c2);Mezzo ( string ; 2; 1 ));".";",");" ") & $c2; $c3=Mezzo ( string ; 3; 1 ); $r3=If (Posizione($Alfa;$c3;1;1)>0;If (Esatto(Proprio($c3);Mezzo ( 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=(Posizione ( $AscII ; $r1 ; 1 ; 1 )+1)/2+31; $n2=(Posizione ( $AscII ; $r2 ; 1 ; 1 )+1)/2+31; $n3=(Posizione ( $AscII ; $r3 ; 1 ; 1 )+1)/2+31; $Bin8_1=($sn1>127) & (Modulo ( $n1 ; 128 )>63) & (Modulo ( $n1 ; 64 )>31) & (Modulo ( $n1 ; 32 )>15) & (Modulo ( $n1 ; 16 )>7) & (Modulo ( $n1 ; 8 )>3) & (Modulo ( $n1 ; 4 )>1) & (Modulo ( $n1 ; 2 )>0); $Bin8_2=($sn2>127) & (Modulo ( $n2 ; 128 )>63) & (Modulo ( $n2 ; 64 )>31) & (Modulo ( $n2 ; 32 )>15) & (Modulo ( $n2 ; 16 )>7) & (Modulo ( $n2 ; 8 )>3) & (Modulo ( $n2 ; 4 )>1) & (Modulo ( $n2 ; 2 )>0); $Bin8_3=($sn3>127) & (Modulo ( $n3 ; 128 )>63) & (Modulo ( $n3 ; 64 )>31) & (Modulo ( $n3 ; 32 )>15) & (Modulo ( $n3 ; 16 )>7) & (Modulo ( $n3 ; 8 )>3) & (Modulo ( $n3 ; 4 )>1) & (Modulo ( $n3 ; 2 )>0); $bin6=Sinistra($Bin8_1 & $Bin8_2 & $Bin8_3 & "000000000000000000000000";24); $a1=Mezzo($bin6;1;6); $a2=Mezzo($bin6;7;6); $a3=Mezzo($bin6;13;6); $a4=Mezzo($bin6;19;6); $na1=Mezzo($a1;1;1)*32+Mezzo($a1;2;1)*16+Mezzo($a1;3;1)*8+Mezzo($a1;4;1)*4+Mezzo($a1;5;1)*2+Mezzo($a1;6;1); $na2=Mezzo($a2;1;1)*32+Mezzo($a2;2;1)*16+Mezzo($a2;3;1)*8+Mezzo($a2;4;1)*4+Mezzo($a2;5;1)*2+Mezzo($a2;6;1); $na3=Mezzo($a3;1;1)*32+Mezzo($a3;2;1)*16+Mezzo($a3;3;1)*8+Mezzo($a3;4;1)*4+Mezzo($a3;5;1)*2+Mezzo($a3;6;1); $na4=Mezzo($a4;1;1)*32+Mezzo($a4;2;1)*16+Mezzo($a4;3;1)*8+Mezzo($a4;4;1)*4+Mezzo($a4;5;1)*2+Mezzo($a4;6;1); $base64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; $ris=Mezzo($base64;$na1+1;1)&Mezzo($base64;$na2+1;1)&Mezzo($base64;$na3+1;1)&Mezzo($base64;$na4+1;1)]; If (EVuoto(string);""; If(Lunghezza(string)<3;Sinistra($ris;3)&"=";$ris) & If (Lunghezza(string)>3;AscIIToBase64(Destra(string;Lunghezza(String)-3));"")))
Then copy & paste into FileMaker Advanced's Edit Custom Function window.

Click here to copy To Clip Manager if you have myFMbutler's Clip Manager installed

Description:

please find google "convert Ascii to base64"

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

This is my Custom Function and I want to edit it

Discuss:

I think we need to transpose this from Italian into English, not that I am a language snob, but almost every algorithm I've seen shown in pseudocode by convention use an English grammar. It would be nice to have someone volunteer to test it. I wonder which Base64 algorithm this implements, looks like the basic MIME encoding, which has invalid characters for URL encoding (/). Finally, it would be great to do the same with the decode function, also posted in Italian.

Theo Gantos, Burton, MI
January 23, 2009 10:12pm

1. Change the config of your FileMaker to Italian
2. Copy and paste the custom function
3. Change the config of your FileMaker back to English

Sorry, cannot post the translation, this comment form is limited.

Peter Wagemans, Antwerp
April 27, 2009 7:50am

Great function!
But as it manages only ASCII, it doesn't encode properly accented characters, such as the ones used in French or German language (à â ë é è ê ï, and so on).

I couldn't manage to add those special characters, so I modified the code to convert them to plain ASCII before applying Base64 encoding.

I added 1 line after "Let([" :
$str = Replace2(string; ["à"; "a"]; ["â"; "a"]; ["ä"; "a"]; ["é"; "e"]; ["è"; "e"]; ["ê"; "e"]; ["ë"; "e"]; ["î"; "i"]; ["ï"; "i"]; ["o"; "o"]; ["ô"; "o"]; ["ö"; "o"]; ["ù"; "u"]; ["u"; "u"]; ["û"; "u"]; ["ü"; "u"]; ["ÿ"; "y"]);

Then I changed all other occurrences of "string" to "$str" in the code.

Not a perfect solution, but it works.
If someone coded a better one, I'll be glad to hear of it! ;-)
stephane (charat) ile (chardot) fr

Stephane Bedon-Rouanet, Paris, France
October 20, 2009 9:50am

Make a comment about this Custom Function (please try to keep it brief & to the point). Anyone can post:

Download the Custom Function Dashboard Widget for OS X
Keep all the latest Custom Functions right at your fingertips!

Newest Custom Functions:

1.	GroupRelationInfo ( FileTarget ; TableTarget ; Result )
	(Tue, Mar 16, 5:57am)
2.	GeoBox(latitude;longitude; radius)
	(Mon, Mar 15, 11:04am)
3.	MonthNameList ( start; number; short )
	(Sun, Mar 14, 11:45pm)
4.	matchListAB( ListA ; ListB; match_Value; match_operator ; getN )
	(Sun, Mar 14, 10:29pm)
5.	Bin2Hex ( binary )
	(Sat, Mar 13, 10:08pm)
6.	SlideView (text)
	(Sat, Mar 13, 8:40pm)
7.	HashFNV1a64 ( text ; empty )
	(Sat, Mar 13, 6:23pm)
8.	HashFNV1a32 ( text ; empty )
	(Sat, Mar 13, 5:55pm)


			[ Close Window ]
	The class that teaches you how to successfully sell your FileMaker Pro solution as a professional shrinkwrapped software application.
	Let's Meet in Person Sunday, August 13 2006, Orlando FL Courtyard Orlando International Drive
	Don't miss this most important day of the Developer Conference. Please click here for complete details and online registration.

FileMaker Pro Custom Functions

Description:

Discuss:

Let's Meet in Person