Base64ToAscII ( String )

Convert text Base64 to AscII

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

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

Sample input:

TWlzdGVyaW91cyB0ZXh0IGluIG1haWwgYXR0YWNo

Sample output:

Misterious text in mail attach

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;
$c4=Mezzo ( string ; 4; 1 );
$r4=If (Posizione($Alfa;$c4;1;1)>0;If (Esatto(Proprio($c4);Mezzo ( 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=(Posizione ( $base64 ; $r1 ; 1 ; 1 )+1)/2-1;
$n2=(Posizione ( $base64 ; $r2 ; 1 ; 1 )+1)/2-1;
$n3=(Posizione ( $base64 ; $r3 ; 1 ; 1 )+1)/2-1;
$n4=(Posizione ( $base64 ; $r4 ; 1 ; 1 )+1)/2-1;
$Bin6_1=($n1>31) & (Modulo ( $n1 ; 32 )>15) & (Modulo ( $n1 ; 16 )>7) & (Modulo ( $n1 ; 8 )>3) & (Modulo ( $n1 ; 4 )>1) & (Modulo ( $n1 ; 2 )>0);
$Bin6_2=($n2>31) & (Modulo ( $n2 ; 32 )>15) & (Modulo ( $n2 ; 16 )>7) & (Modulo ( $n2 ; 8 )>3) & (Modulo ( $n2 ; 4 )>1) & (Modulo ( $n2 ; 2 )>0);
$Bin6_3=($n3>31) & (Modulo ( $n3 ; 32 )>15) & (Modulo ( $n3 ; 16 )>7) & (Modulo ( $n3 ; 8 )>3) & (Modulo ( $n3 ; 4 )>1) & (Modulo ( $n3 ; 2 )>0);
$Bin6_4=($n4>31) & (Modulo ( $n4 ; 32 )>15) & (Modulo ( $n4 ; 16 )>7) & (Modulo ( $n4 ; 8 )>3) & (Modulo ( $n4 ; 4 )>1) & (Modulo ( $n4 ; 2 )>0);
$bin8=Sinistra($Bin6_1 & $Bin6_2 & $Bin6_3 & $Bin6_4 & "000000000000000000000000";24); 
$a1=Mezzo($bin8;1;8);
$a2=Mezzo($bin8;9;8);
$a3=Mezzo($bin8;17;8);
$na1=Mezzo($a1;1;1)*128+Mezzo($a1;2;1)*64+Mezzo($a1;3;1)*32+Mezzo($a1;4;1)*16+Mezzo($a1;5;1)*8+Mezzo($a1;6;1)*4+Mezzo($a1;7;1)*2+Mezzo($a1;8;1);
$na2=Mezzo($a2;1;1)*128+Mezzo($a2;2;1)*64+Mezzo($a2;3;1)*32+Mezzo($a2;4;1)*16+Mezzo($a2;5;1)*8+Mezzo($a2;6;1)*4+Mezzo($a2;7;1)*2+Mezzo($a2;8;1);
$na3=Mezzo($a3;1;1)*128+Mezzo($a3;2;1)*64+Mezzo($a3;3;1)*32+Mezzo($a3;4;1)*16+Mezzo($a3;5;1)*8+Mezzo($a3;6;1)*4+Mezzo($a3;7;1)*2+Mezzo($a3;8;1);
$AscII=" !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~";
$ris=Mezzo($ascII;$na1-31;1)&Mezzo($ascII;$na2-31;1)&Mezzo($ascII;$na3-31;1)];
If (EVuoto(string);"";
$ris & If (Lunghezza(string)>4;Base64ToAscII(Destra(string;Lunghezza(String)-4));"")))

please find in google "convert base64"

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.