program hellopiggy;

uses
  windows,
  clipbrd,
  sysutils;

{$apptype console}

var
  vcode:string;

const
  csymbs:array[0..9] of string=('0100110000', '0100110010',
                                '0101100000', '0101100010',
                                '0101100100', '0101100110',
                                '0101101000', '0101101010',
                                '0101101100', '0101101110' );

function checksymbol(c: string): string;
var
  i:integer;
begin
  result:='n';
  for i:=0 to 9 do
    if csymbs[i]=c then Result:=IntToStr(i);
end;

function decode(c: string):string;
var
  i:integer;
begin
  for i:=0 to 7 do
    result:=result+checksymbol(copy(c, i*10+1, 10));
end;

begin
  writeln('(c) crystalbit, http://parsers.info');
  vcode:=trim(clipboard.AsText);
  if length(vcode)<>80 then begin
    writeln('copy code into the clipboard and try again');
    readln;
    exit;
  end;
  writeln('your pass: ', decode(vcode));
  readln;
end.