Rutina de desencriptado presenta problemas en alejandría.

[cloayza]

Estimado JCapitan...aquí mi aporte

Código Delphi [-]
unit Mime;
...
{ALen=Largo de la cadena de texto}
  if (ADiscard > 0) then
  begin
    {Elimina ADiscard caracteres...}
    Delete(ACode,ALen - ADiscard + 1,ADiscard);
    //remove the padding indicators

   {Adiciona ADiscard caracteres
   El largo de la cadena no ha sido alterado...}
    ACode:=ACode + StringOfChar('A',ADiscard);
    //replace them with the 0 byte MIME code - always A
  end;
  {AQUI el problema
   Si el largo de la cadena no se altera, Porqué incrementa el largo en ALen en ADiscard...?
   Esto proboca el error
   - Sugerencia comente la línea
  }
  
  //inc(ALen,ADiscard);

Saludos cordiales

[Casimiro Notevi]

[jcapitan]

Funciona todo perfecto, gracias cloayza, efectivamente esa línea de código es la que estaba ocasionando el problema.

Muchas gracias por su gran apoyo, cloayza, casimiro, muy agradecido por su tiempo.

Queda resuelto el problema.

Gracias !!!