Bitcoin Forum

Hi all,

I have registered to try to talk about pascal bitcoin developnent.

I will need some help to try to start developing a library that will be used in a bitcoin pascal client.

If you can help, please.

Starting with basic class:

  TBase58 = class(TObject)
  public
    function CharSet: WideString; //valid chars
    function Encode: WideString; //encode Text to base 58
    function Decode: WideString; // decode Text from base 58
    property Text: WideString read FText write FText; // text to be encoded decoded
  end;

converted from php code.

function CharSet: WideString;
begin
  Result := '123456789abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ';
end;

function TBase58.Encode: WideString;
var
  ADiv: Extended;
  ANum, AMod: Int64;
begin
  Result := '';

  ANum := StrToInt64(Text);
  while (ANum >= Count) do
  begin
    ADiv := ANum / Count;
    AMod := Trunc(ANum - (Count * Int(ADiv)));
    Result := CharSet[succ(AMod)] + Result;
    ANum := Trunc(Int(ADiv));
  end;

  if (ANum > 0) then
    Result := CharSet[succ(ANum)] + Result;
end;

Do you have any progress with Delphi client?

*sings out loud* An Ada client, BASIC code pointerless and cross-compiled, why?⁽¹⁾

Notes:
(1) Line supposed to be sung to the melody of System of a Down/I-E-A-I-A-I-O  ;D

How is different than the one now?