Cálculo / Validación del IBAN

[pacopenin]

Gracias por el aporte y la documentación.

[Angel.Matilla]

Ampliando el código anterior que puse, para validar cualquier IBAN que se introduzca o calcular el correspondiente a un número de cuenta. Este es el código:

AnsiString CalIban(AnsiString Cuenta, AnsiString Pais)
{
     AnsiString cAux;

     if (Cuenta.Trim().IsEmpty() || Cuenta.Length() > 34)
          return "";

     Cuenta = UpperCase(Cuenta);
     cAux = "";
     for (int nPos = 0; nPos < Cuenta.Length(); nPos ++)
          if (isalpha(Cuenta.c_str()[nPos]) || isdigit(Cuenta.c_str()[nPos]))
               cAux = cAux + AnsiString(Cuenta.c_str()[nPos]);

     Cuenta = cAux;
     if (isalpha(Cuenta.c_str()[0]) && isalpha(Cuenta.c_str()[1]))    // Es IBAN
     {
          if (isalpha(Cuenta.c_str()[2]) || isalpha(Cuenta.c_str()[3]))
               return "";

          Cuenta = Cuenta.SubString(5, Cuenta.Length()) + Cuenta.SubString(1, 2) + "00";
          Pais   = Cuenta.SubString(1, 2);
     }
     else
     {
          if (Pais.IsEmpty())
               Pais = "ES";

          Cuenta = Cuenta + Pais + "00";
     }

     cAux = "";
     for (int nPos = 1; nPos <= Cuenta.Length(); nPos ++)
     {
          if (isalpha(Cuenta.c_str()[nPos - 1]))
               cAux = cAux + FormatFloat("00", Cuenta.c_str()[nPos - 1] - 55);
          else
               cAux = cAux + Cuenta.SubString(nPos, 1);
     }
     Cuenta = cAux;

     cAux   = FormatFloat("0", StrToInt(Cuenta.SubString(1, 9)) % 97);
     Cuenta = Cuenta.SubString(10, Cuenta.Length());
     while (!Cuenta.IsEmpty())
     {
          if (StrToInt(cAux) < 10)
          {
               cAux   = cAux + Cuenta.SubString(1, 8);
               Cuenta = Cuenta.SubString(9, Cuenta.Length());
          }
          else
          {
               cAux   = cAux + Cuenta.SubString(1, 7);
               Cuenta = Cuenta.SubString(8, Cuenta.Length());
          }
          cAux = FormatFloat("0", StrToInt(cAux) % 97);
     }
     return Pais + FormatFloat("00", 98 - StrToInt(cAux));
}

Explico lo que hago.

1. A la función se le pasan dos parámetros: el número de cuenta y el país; este último puede estar vacío, en cuyo caso se toma por defecto España (ES), o contener el código internacional de país según la norma ISO 3166-1.
2. Se convierte la cadena a mayúsculas y se desprecia todo lo que no sean letras o dígitos.
3. Si la información que viene es ya un IBAN (para España sería ESXXEEEEOOOODDNNNNNNNNNN) se extrae el código de país y se monta la cadena para calcular los dígitos de control.
4. Si no es un IBAN (las 20 posiciones de un CCC español o, por ejemplo, las 21 de Francia) se prepara la cadena con el código de país.
5. Se convierten todas las letras a su equivalente numérico, según la tabla que podemos ver en Código Internacional de Cuenta Bancaria (IBAN): A = 10, B = 11, etc.
6. Calculamos los dígitos de control de acuerdo con el módulo 97.
7. Devolvemos la secuencia País + Dígitos.

Todo esto no impide que en el caso de cuentas españolas haya que validar los dígitos de control de los CCC. Espero que sea de utilidad.

[defcon1_es]

Muchas gracias por el aporte.

Para los que usamos Delphi en vez de C++ Builder, les dejo la "traducción" de la función a Pascal.

Código Delphi [-]
function TForm1.Generar_IBAN(Pais, Cuenta: string): string;

  function EsAlfanumerico(Caracter: Char): boolean;
  begin
    Result := (AnsiChar(Caracter) in ['A'..'Z', 'a'..'z']);
  end;

  function EsNumerico(Caracter: Char): boolean;
  begin
    Result := (AnsiChar(Caracter) in ['0'..'9']);
  end;

var cAux, AuxCuenta:string;
    i:Integer;
    auxTemp: Extended;
begin
  if (Trim(Cuenta) = '') or (Length(Cuenta) > 34)
  then Result := ''
  else begin
// Fase 1: Nos aseguramos que solo contiene Letras y Numeros
    Cuenta := UpperCase(Cuenta);
    AuxCuenta := Cuenta;
    cAux := '';
    for i := 1 to Length(Cuenta) do
     if (EsAlfanumerico(Cuenta[i]) or EsNumerico(Cuenta[i]))
     then cAux := cAux + AnsiString(Cuenta[i]);

    Cuenta := cAux;
// Fase 2: Se comprueba si ya es un codigo IBAN, y si no lo es, se añade el PAIS
    if (EsAlfanumerico(Cuenta[1]) and EsAlfanumerico(Cuenta[2]))    // Es IBAN
    then begin
     if (EsAlfanumerico(Cuenta[3]) or EsAlfanumerico(Cuenta[4]))
     then Result := '';
     Cuenta := Copy(Cuenta, 5, Length(Cuenta));//Cuenta.SubString(5, Length(Cuenta)) + Cuenta.SubString(1, 2) + '00';
     Pais   := Copy(Cuenta, 1, 2);//Cuenta.SubString(1, 2);
    end
    else begin
  //y si no lo es, se añade el PAIS
     if (Trim(Pais) = '') then Pais := 'ES';
     Cuenta := Cuenta + Pais + '00';
    end;

// Fase 3: Se convierten las letras del pais en sus numeros equivalentes:
  //A=10, B=11, C=12 ... Z=35
    cAux := '';
    for i := 1 to Length(Cuenta) do
    begin
     if (EsAlfanumerico(Cuenta[i]))
     then cAux := cAux + FormatFloat('00', Ord(Cuenta[i])-55)//Cuenta[i - 1] - 55)
     else cAux := cAux + Copy(Cuenta, i, 1);
    end;
    Cuenta := cAux;
// Fase 4: Dividimos por 97
    auxTemp := StrToInt(Copy(Cuenta, 1, 9)) mod 97;
    cAux   := FormatFloat('0', auxTemp);//FormatFloat("0", StrToInt(Cuenta.SubString(1, 9)) % 97);
    Cuenta := Copy(Cuenta, 10, Length(Cuenta));//Cuenta.SubString(10, Cuenta.Length());
      while (Trim(Cuenta) <> '') do
      begin
        if (StrToInt(cAux) < 10)
        then begin
          cAux   := cAux + Copy(Cuenta, 1, 8);//Cuenta.SubString(1, 8);
          Cuenta := Copy(Cuenta, 9, Length(Cuenta));//Cuenta.SubString(9, Cuenta.Length());
        end
        else begin
          cAux   := cAux + Copy(Cuenta, 1, 7);//Cuenta.SubString(1, 7);
          Cuenta := Copy(Cuenta, 8, Length(Cuenta));//Cuenta.SubString(8, Cuenta.Length());
        end;
        auxTemp := StrToInt(cAux) mod 97;
        cAux := FormatFloat('0', auxTemp);
      end;
// Fase 5: Devolvemos el IBAN completo con sus digitos de control.
// Se puede cambiar para devolver solo el digito de control, o lo que se quiera.
      Result := Pais + FormatFloat('00', 98 - StrToInt(cAux)) + AuxCuenta;
    end;
  end;
end;

[Garada]

Gracias por los aportes.

Si se le pasa un IBAN para comprobar sus dígitos de control la función fallaría (incluso la de C++), hay que revisar el paso 2 cuando ya es un IBAN.
Aquí les propongo mis modificaciones:

Código Delphi [-]
function GenerarIBAN(Pais, Cuenta: string): string;

  function EsAlfanumerico(Caracter: Char): boolean;
  begin
    Result := CharInSet(Caracter, ['A'..'Z', 'a'..'z']);
  end;

  function EsNumerico(Caracter: Char): boolean;
  begin
    Result := CharInSet(Caracter, ['0'..'9']);
  end;

var
  cAux,
  AuxCuenta: string;
  i: Integer;
  auxTemp: Extended;
begin
  Result := '';
  Cuenta := Trim(Cuenta);
  if (Cuenta = '') or (Length(Cuenta) > 34) then
    Exit
  else
  begin
// Fase 1: Nos aseguramos que solo contiene Letras y Numeros
    Cuenta := UpperCase(Cuenta);
    cAux := '';
    for i := 1 to Length(Cuenta) do
    if (EsAlfanumerico(Cuenta[i]) or EsNumerico(Cuenta[i])) then
      cAux := cAux + AnsiString(Cuenta[i]);
    Cuenta := cAux;
    AuxCuenta := Cuenta;

// Fase 2: Se comprueba si ya es un codigo IBAN, y si no lo es, se añade el PAIS
    if (EsAlfanumerico(Cuenta[1]) and EsAlfanumerico(Cuenta[2])) then // Es IBAN
    begin
      if (EsAlfanumerico(Cuenta[3]) or EsAlfanumerico(Cuenta[4])) then
        Exit;

      Pais   := Copy(Cuenta, 1, 2);//Cuenta.SubString(1, 2);
      Cuenta := Copy(Cuenta, 5, Length(Cuenta));//Cuenta.SubString(5, Length(Cuenta)) + Cuenta.SubString(1, 2) + '00';
      AuxCuenta := Cuenta;
    end
    else
    begin
  //y si no lo es, se añade el PAIS
      if (Trim(Pais) = '') then
        Pais := 'ES';
    end;
    Cuenta := Cuenta + Pais + '00';

// Fase 3: Se convierten las letras del pais en sus numeros equivalentes:
  //A=10, B=11, C=12 ... Z=35
    cAux := '';
    for i := 1 to Length(Cuenta) do
    begin
      if (EsAlfanumerico(Cuenta[i])) then
        cAux := cAux + FormatFloat('00', Ord(Cuenta[i]) - 55)//Cuenta[i - 1] - 55)
      else
        cAux := cAux + Copy(Cuenta, i, 1);
    end;
    Cuenta := cAux;

// Fase 4: Dividimos por 97
    auxTemp := StrToInt(Copy(Cuenta, 1, 9)) mod 97;
    cAux   := FormatFloat('0', auxTemp);//FormatFloat("0", StrToInt(Cuenta.SubString(1, 9)) % 97);
    Cuenta := Copy(Cuenta, 10, Length(Cuenta));//Cuenta.SubString(10, Cuenta.Length());
    while (Trim(Cuenta) <> '') do
    begin
      if (StrToInt(cAux) < 10) then
      begin
        cAux   := cAux + Copy(Cuenta, 1, 8);//Cuenta.SubString(1, 8);
        Cuenta := Copy(Cuenta, 9, Length(Cuenta));//Cuenta.SubString(9, Cuenta.Length());
      end
      else
      begin
        cAux   := cAux + Copy(Cuenta, 1, 7);//Cuenta.SubString(1, 7);
        Cuenta := Copy(Cuenta, 8, Length(Cuenta));//Cuenta.SubString(8, Cuenta.Length());
      end;
      auxTemp := StrToInt(cAux) mod 97;
      cAux := FormatFloat('0', auxTemp);
    end;
// Fase 5: Devolvemos el IBAN completo con sus digitos de control.
// Se puede cambiar para devolver solo el digito de control, o lo que se quiera.

    Result := Pais + FormatFloat('00', 98 - StrToInt(cAux)) + AuxCuenta;
  end;
end;

[jorgecurro]

Muchas gracias por el aporte, me viene de perlas.

Saludos

[ramato79]

Gracias por la aportación.
Solo una cosilla, el codigo del pais en el caso de ser una cuenta IBAN debe tomarse antes de la modificacion de la cuenta

[quote=Angel.Matilla;469275]Ampliando el código anterior que puse, para validar cualquier IBAN que se introduzca o calcular el correspondiente a un número de cuenta. Este es el código:

     Cuenta = cAux;
     if (isalpha(Cuenta.c_str()[0]) && isalpha(Cuenta.c_str()[1]))    // Es IBAN
     {
          if (isalpha(Cuenta.c_str()[2]) || isalpha(Cuenta.c_str()[3]))
               return "";
 
          Pais   = Cuenta.SubString(1, 2);
          Cuenta = Cuenta.SubString(5, Cuenta.Length()) + Cuenta.SubString(1, 2) + "00";
     }
     else
     {
          if (Pais.IsEmpty())
               Pais = "ES";
 
          Cuenta = Cuenta + Pais + "00";
     }

[Angel.Matilla]

Tienes razón en tu puntualización. No osbtante, y es culpa mía, el código de país es uno de los parámetros que se pasan a la función.