montowanieKonteneraPomocnik

program pomocniczek;
uses crt;
var
lista,kolekcja : array [1..3] of string;
c,c1 : byte;
haslo : string;
t : text;
procedure podwojProcent;
var
   a : byte;
   kopia : string;
begin
   kopia := '';
   for a := 1 to Length(haslo) do begin
      kopia := kopia + haslo[a];
      if haslo[a] = '%' then kopia := kopia + '%';
   end;
   haslo := kopia;
end;
begin clrscr;
write('Podaj sciezke dostepu do programu truecrypt: ');readln(lista[1]);
write('Podaj sciezke dostepu do kontenera: ');readln(lista[2]);
write('Podaj sciezke dostepu do pliku z haslem: ');readln(lista[3]);

for c:=1 to 3 do begin
    c1:=1;
    while(c1<=length(lista[c])) do begin
      if lista[c][c1]<>'"' then kolekcja[c]:=kolekcja[c]+lista[c][c1];
      c1:=c1+1;
    end;
end;


assign(t,kolekcja[3]);reset(t);
readln(t,haslo);
close(t);
podwojProcent; {w batchu trzeba quotowac % - zmienna srodowiskowa}
assign(t,'montuj.bat');rewrite(t);
writeln(t,'@echo off');
writeln(t,'echo Montowanie kontenera...');
writeln(t,'"',kolekcja[1],'" ','/h n /q background /l Z /e /m rm /m ts /p "',haslo,'" /v "',kolekcja[2],'"');
write(t,'exit');
close(t);
assign(t,'odmontuj.bat');rewrite(t);
writeln(t,'@echo off');
writeln(t,'echo Odmontowywanie kontenera...');
writeln(t,'"',kolekcja[1],'" ','/q /d Z');
write(t,'exit');
close(t);
end.