BTCTypes.pas

unit BTCTypes;

interface

uses
  System.SysUtils;

const
  MESSAGE_TYPE_VERSION = 'version';
  MESSAGE_TYPE_VERACK = 'verack';

  BTC_MAIN_MAGIC_VALUE = $D9B4BEF9;
  BTC_HEADER_SIZE = 24;
type
  TCommandName = array [1 .. 12] of ansichar;

  TBTCHeader = record
    start_string: uint32;
    command_name: TCommandName;
    // char is two bytes, ansichar is a byte long...!
    payload_size: uint32;
    checksum: array [1 .. 4] of ansichar; // checksum: uint32;
    aPayload: TBytes;
  end;

  TVersionRawMessage = record
    protocol_version: uint32;
    node_services: array [1 .. 8] of byte;
    node_timestamp: array [1 .. 8] of byte;
    receiving_node_ip: array [1 .. 24] of byte;
    receiving_node_port: uint16;
    emmiting_node_ip: array [1 .. 24] of byte;
    emmiting_node_port: uint16;
    random_nonce: array [1 .. 8] of byte;
    user_agent: array [0 .. 16] of byte;
    body6: array [1 .. 4] of byte;
  end;

  TVersionMessage = record
    protocol_version: uint32;
    node_services: uint32;
    node_timestamp: TDateTime;
    receiving_node_ip: string;
    receiving_node_port: uint16;
    emmiting_node_ip: string;
    emmiting_node_port: uint16;
    user_agent: string;
  end;

function BuildHeaderAddr: TBTCHeader;
function StringToCommandName(const command: ansistring): TCommandName;

implementation

uses
  Classes,
  dialogs,
  SeSHA256;

function StringToCommandName(const command: ansistring): TCommandName;
var
  k: byte;
begin
  // Clear
  for k := 1 to 12 do
    result[k] := char(0);

  for k := 1 to Length(command) do
    result[k] := ansichar(command[k]);
end;

function BuildHeaderAddr: TBTCHeader;
var
  aHeader: TBTCHeader;
  k: byte;
  command: string;
begin
  // TODO refector y controlar que length < 13
  aHeader.start_string := $D9B4BEF9;

  // Clear
  for k := 1 to 12 do
    aHeader.command_name[k] := char(0);

  command := 'getaddr';

  for k := 1 to Length(command) do
    aHeader.command_name[k] := ansichar(command[k]);

  (*
    aHeader.command_name[1] := 'v';
    aHeader.command_name[2] := 'e';
    aHeader.command_name[3] := 'r';
    aHeader.command_name[4] := 's';
    aHeader.command_name[5] := 'i';
    aHeader.command_name[6] := 'o';
    aHeader.command_name[7] := 'n';
    aHeader.command_name[8] := char(0);
    aHeader.command_name[9] := char(0);
    aHeader.command_name[10] := char(0);
    aHeader.command_name[11] := char(0);
    aHeader.command_name[12] := char(0); *)

  aHeader.payload_size := $0;
  // aHeader.checksum := $E2E0F65D;
  result := aHeader;
end;

end.