如何检测字符串是否为Base64Encoded？ [英] How to detect if a string is Base64Encoded or not?

问题描述

这是检测字符串是否为Base64Encoded或使用Delphi的最佳方法？

Which is the best method to detect if a string is Base64Encoded or not (using Delphi)?

推荐答案

您可以检查字符串是否只包含

You can check if the string only contains Base64 valids chars

function StringIsBase64(const InputString : String ) : Boolean;
const
  Base64Chars: Set of AnsiChar = ['A'..'Z','a'..'z','0'..'9','+','/','='];
var
  i : integer;
begin
  Result:=True;
   for i:=1 to Length(InputString) do
   {$IFDEF UNICODE}
   if not CharInSet(InputString[i],Base64Chars) then
   {$ELSE}
   if not (InputString[i] in Base64Chars) then
   {$ENDIF}
   begin
     Result:=False;
     break;
   end;
end;

= char用于填充您可以为填充的base64字符串的函数添加一个附加的valiation，检查字符串的长度是否为mod 4

The = char is used for padding so you can add an aditional valiation to the function for padded base64 strings checking if the length of the string is mod 4

这篇关于如何检测字符串是否为Base64Encoded？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！