Encriptar y decriptar Base58

[FideRosado]

Hola amigos, estoy buscando la forma de acceder a un componente de encriptación a base58 es que tengo un trabajo que hacer y no encuentro información útil en este caso uso Delphi 7 , he visto ciertos textos pero ninguno me funcionan, me pueden ayudar..

[Neftali [Germán.Estévez]]

Puedes probar estas funciones.
https://github.com/Tinkerforge/gener...phi/Base58.pas

Aunque si buscas es posible que encuentres más.

NOTA: No había oido hablar de esta codificación.

[FideRosado]

es que no se como empesar a usarla, ya la agregue al proyecto pero me da error en el tipo

Código Delphi [-]
function Base58Encode(const value: uint64): string;
function Base58Decode(const encoded: string; out decoded: uint64): boolean;

explicame como debo continuar, si puedes adelantame algo..

[Neftali [Germán.Estévez]]

Empezado por FideRosado

explicame como debo continuar, si puedes adelantame algo..

¿Puedes poner un ejemplo de cómo la estás utilizando y los valores de entreda y salida que debería dar?
Hay que saber cómo lo estás haciendo para saber porqué te da el error.

[Casimiro Notevi]

He hecho una prueba:

Código simple "chapuzero" :

Código Delphi [-]
unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm19 = class(TForm)
    ed1: TEdit;
    bt1: TButton;
    ed2: TEdit;
    ed3: TEdit;
    bt2: TButton;
    procedure bt1Click(Sender: TObject);
    procedure bt2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form19: TForm19;

implementation

uses
  uBase58;

{$R *.dfm}

procedure TForm19.bt1Click(Sender: TObject);
var
  cValor : UInt64;
begin
  cValor := StrToInt64(ed1.Text);
  ed2.Text := uBase58.Base58Encode( cValor );
end;

procedure TForm19.bt2Click(Sender: TObject);
var
  cValor : UInt64;
  i64 : Int64;
begin
  uBase58.Base58Decode(ed2.Text,cValor);
  i64 := cValor;   
  ed3.Text := IntToStr(i64);
end;

end.

[Neftali [Germán.Estévez]]

Empezado por Casimiro Notevi

Código simple "chapuzero" :

Funcionar, funciona...