🚀 go-pugleaf

Serwusik!!!
(mam nadzieje, ze moje pytanko nie jest nie na temat...- jesli tak
przepraszam)

Ogolnie zegnam pascala, ale mam przez swieta do napisania calkiem ciekawy
program szyfrujacy za pomoca xor'a (cos podchodzacego po one-time-pad)

program ma odczytywac text jawny z pliku, generowac klucz( chcialbym to
zrobic przy pomocy przerwan miedzy kolejnymi wcisnieciami klawiszy - jeszcze
nie wiem jak ..:(( ale zostawie sobie to jako nastepny temat na liste ;-).
Pozniej program ma zamieniac kolejne znaki textu jawnego i kilucza na ascii,
a pozniej na dwojkowy i na koniec to wszystko xor'owac (chyba ;-)
ale utknalem ;-((

Gdy odczytuje text(jawny np.) z pliku i chce zamienic text ord'em na z ascii
na cyferki...odczytuje spoko, ale mi chodzi o to, by odczytywal po literce i
zapisywal do tablicy("buf") jak?!!?!?!?!?!?!??!?!?!?

fragment programu:

program one_time_pad;
uses crt;
var plik:file of char;
    c:char;
    a:string;
    i:integer;
    size:longint;
    buf:array[1..1024] of integer;
Procedure Odczyt;
 begin
  clrscr;
  write('podaj sciezke dostepu: ');
  readln(a);
  assign(plik,a);
  reset(plik);
  while not Eof(plik) do
  begin
  read(plik,c);          tu chcialbym zeby kolejne znaki z pliku zapisywal
jako asc                  jako liczby(ascii) do tablicy ("buf")
  writeln(ord(c));
  end;
  close(plik);
  end;

Z gory dzieki, Marcin
mailto:ofczar@kki.net.pl lub owczar@ksk-2.iie.ae.wroc.pl