delphi demo。
uses
DCPconst in '..\dcpcrypt2-2010\DCPconst.pas',
DCPsha256 in '..\dcpcrypt2-2010\Hashes\DCPsha256.pas',
DCPbase64 in '..\dcpcrypt2-2010\DCPbase64.pas',
DCPcrypt2 in '..\dcpcrypt2-2010\DCPcrypt2.pas',
https://rosettacode.org/wiki/Bitcoin/address_validation#Delphi
Topic: C to Delphi: validate Bitcoin wallet address (Read 309 times)
try reading the wiki documentation on how base58 encoding is done https://en.bitcoin.it/wiki/Base58Check_encoding
i also found this: https://github.com/Tinkerforge/generators/blob/master/delphi/Base58.pas
which seems to be Delphi but i am not familiar with this language.
i also found this: https://github.com/Tinkerforge/generators/blob/master/delphi/Base58.pas
which seems to be Delphi but i am not familiar with this language.
Hello,
i want know if someone here already made some validation of a wallet address in Delphi?
if not, then i'm trying convert a C code that is able to validate a Bitcoin wallet address and is be very hard because i not know much about C language.
Here:https://rosettacode.org/wiki/Bitcoin/address_validation#C, is C code used as reference and below is point until where i'm able to make.
So, someone could help me?
i want know if someone here already made some validation of a wallet address in Delphi?
if not, then i'm trying convert a C code that is able to validate a Bitcoin wallet address and is be very hard because i not know much about C language.
Here:https://rosettacode.org/wiki/Bitcoin/address_validation#C, is C code used as reference and below is point until where i'm able to make.
So, someone could help me?
Code:
{$APPTYPE CONSOLE}
{$R *.res}
uses
SysUtils;
const
TMPL = '123456789abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ';
SHA256_DIGEST_LENGTH = 32;
function UnBase58(S: PWideChar; Outter: Byte): Integer;
var
I, J: Integer;
C: Extended;
P: PWideChar;
begin
Result := 0;
FillChar(Outter, 0, 25);
for I := 0 to Length(S) do
begin
P := StrPos(PWideChar(TMPL), PWideChar(S[I]));
if P = nil then
Exit;
C := P - PWideChar(TMPL);
for J := 25 downto 0 do
begin
C := C + 58 * Outter[J];
Outter[J] := C mod 256;
C := C / 256;
end;
// if C then Exit;
end;
Result := 1;
end;
function Valid(S: PWideChar): Integer;
var
d, d1, d2: array[0..SHA256_DIGEST_LENGTH] of Byte;
begin
if UnBase58(S, d) = 0 then Exit;
...
end;
{$R *.res}
uses
SysUtils;
const
TMPL = '123456789abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ';
SHA256_DIGEST_LENGTH = 32;
function UnBase58(S: PWideChar; Outter: Byte): Integer;
var
I, J: Integer;
C: Extended;
P: PWideChar;
begin
Result := 0;
FillChar(Outter, 0, 25);
for I := 0 to Length(S) do
begin
P := StrPos(PWideChar(TMPL), PWideChar(S[I]));
if P = nil then
Exit;
C := P - PWideChar(TMPL);
for J := 25 downto 0 do
begin
C := C + 58 * Outter[J];
Outter[J] := C mod 256;
C := C / 256;
end;
// if C then Exit;
end;
Result := 1;
end;
function Valid(S: PWideChar): Integer;
var
d, d1, d2: array[0..SHA256_DIGEST_LENGTH] of Byte;
begin
if UnBase58(S, d) = 0 then Exit;
...
end;
Jump to: