1b58

[Casimiro Noteví]

Empezado por nlsgarcia

47 72 61 63 69 61 73 20 43 61 73 69 6D 69 72 6F 20 3A 29 0D 0A 0D 0A 46 65 6C 69 63 69 64 61 64 65 73 20 44 61 6E 69 65 6C 20 70 6F 72 20 6C 6F 73 20 37 30 30 30 20 4D 65 6E 73 61 6A 65 73 2C 20 65 73 70 65 72 6F 20 71 75 65 20 73 65 20 63 75 6D 70 6C 61 6E 20 37 30 30 30 20 4D 61 73 20 3A 29 0D 0A 0D 0A 41 6C 20 66 69 6E 61 6C 20 73 69 20 65 72 61 20 75 6E 20 63 75 6D 70 6C 65 61 F1 6F 73 2C 20 62 75 65 6E 6F 20 6D 61 73 20 6F 20 6D 65 6E 6F 73 20 3A 29

Código Delphi [-]
unit Unit14;

interface

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

type
  TForm1 = class(TForm)
    bt1: TButton;
    procedure bt1Click(Sender: TObject);
    function HexToInt(Value: string): integer;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.bt1Click(Sender: TObject);
var
  iX : Integer;
  cSource, cTarget, cT : string;
begin
  cSource := '47 72 61 63 69 61 73 20 43 61 73 69 6D 69 72 6F 20 3A 29 0D 0A 0D 0A '+
             '46 65 6C 69 63 69 64 61 64 65 73 20 44 61 6E 69 65 6C 20 70 6F 72 20 '+
             '6C 6F 73 20 37 30 30 30 20 4D 65 6E 73 61 6A 65 73 2C 20 65 73 70 65 '+
             '72 6F 20 71 75 65 20 73 65 20 63 75 6D 70 6C 61 6E 20 37 30 30 30 20 '+
             '4D 61 73 20 3A 29 0D 0A 0D 0A 41 6C 20 66 69 6E 61 6C 20 73 69 20 65 '+
             '72 61 20 75 6E 20 63 75 6D 70 6C 65 61 F1 6F 73 2C 20 62 75 65 6E 6F '+
             '20 6D 61 73 20 6F 20 6D 65 6E 6F 73 20 3A 29';

  cT := '';
  for iX:=1 to Length(cSource) do
  begin
    if cSource[iX]<>' ' then
      cT := cT + cSource[ix]
    else
    begin
      cTarget := cTarget + Chr(HexToInt(cT));
      cT := '';
    end;
  end;

  ShowMessage(cTarget+Chr(HexToInt(cT)));

end;

function tform1.HexToInt(Value: string): integer;
const
  cHex = '0123456789ABCDEF';
begin
  Result := (16 * (Pos(Value[1], cHex) - 1)) + (Pos(Value[2], cHex) - 1);
end;

end.