Newest functions Upload a function Leave a tip My account

There are 2,521 functions in this library.

AscIIToBase64 ( string )

Convert text AscII To Base64

  Average rating: 4.1 (37 votes) Log in to vote

Roberto - Show more from this author Like http://www.gestionedati.net

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

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));""))) Click to copy

please find google "convert Ascii to base64"

 

Comments

		Theo Gantos, Burton, MI Jan 23, 2009
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.

		Peter Wagemans, Lesterius Apr 27, 2009
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.

		Stephane Bedon-Rouanet, Paris, France Oct 20, 2009
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

		Jerry Salem, Comcast Sep 21, 2012
if I take a string, and encode it to Base 64 using this function, and recode it to Ascii using the companion function, the resulting string has extra spaces on the end. :(

		Pasquale, Milano Apr 29, 2018
The code's keywords are all translatend in italian. This code is unusable without an italian version of Filemaker. I'm italian, but I use standard english language keywords.

Log in to post comments.

 

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

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 20 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: