Перевод строки в двоичный код и обратно

Posted by Chas under Delphi

s-andriano



function Str2Bin(aStr: string): string;

const bid : array[0..1]of char = ('0','1');

var

  iChar, iBit: Integer;

  s: string;

begin

  s := '';

  for iChar := 1 to Length(aStr) do

    for iBit := 7 downto 0 do

      s := s + bid[(Byte(aStr[iChar]) shr iBit) and 1];

  Str2Bin := s;

end;
function Bin2Str(aStr: string): string;

var

  s: string;

  i,j,k : longint;

  ich : integer;

begin

  s := '';

  k := 1;

  for i := 1 to length(aStr) div 8 do begin

    ich := 0;

    for j := 0 to 7 do begin

      ich := ich*2 + byte(aStr[k]) - byte('0');

      inc(k);

    end;

    s := s + char(ich);

  end;

  Bin2Str := s;

end;
var

  s0,s1,s2 : string;

begin

  s0 := 'Hello';

  s1 := Str2Bin(s0);

  s2 := Bin2Str(s1);

  writeln('[',s0,'][',s1,'][',s2,']');

end.