1b58

[Casimiro Noteví]

Empezado por nlsgarcia

46 65 6C 69 63 69 64 61 64 65 73 20 65 63 66 69 73 61 2C 20 70 65 72 6F 20 74 65 20 63 6F 6D 65 6E 74 6F 20 71 75 65 20 6E 6F 20 74 65 6E 67 6F 20 6E 69 20 6C 61 20 6D E1 73 20 72 65 6D 6F 74 61 20 69 64 65 61 20 64 65 20 71 75 65 20 65 73 74 E1 6E 20 68 61 62 6C 61 6E 64 6F 20 74 61 6E 20 63 72 ED 70 74 69 63 61 6D 65 6E 74 65 20 3A 29 0D 0A 0D 0A 41 73 75 6D 6F 20 71 75 65 20 65 73 20 74 75 20 63 75 6D 70 6C 65 61 F1 6F 73 2C 20 70 6F 72 20 6C 6F 20 74 61 6E 74 6F 3A 20 46 65 6C 69 63 69 64 61 64 65 73 20 65 6E 20 74 75 20 64 ED 61 20 4D 61 65 73 74 72 6F 20 65 63 66 69 73 61 20 3A 29 0D 0A 0D 0A

1b58 = 7000 mensajes

[[Caral]]

Hola
Felicidades amigo y maestro.
7000 mensajes de lujo no los hace cualquiera.
Saludos

[[nlsgarcia]]

ecfisa,

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



Nelson.

[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.

[ecfisa]

ElKurgan, Ñuño, newtron, Nelson, Carlos: Muy alagado que hayan pasado por la taberna a compartir una ronda.

Muchas gracias.

[Ñuño Martínez]

Joé, qué frikis sois. Luego dicen de mi.

Ale, otros mil pa' la saca. XD