pascal kodowanie

[robcioo16 0]

Witam

Mam na zadanie napisać program w pascalu który koduje plik w za pomocą szyfru base64

 

Mam takie coś

program absd;
uses crt;
var
	i:integer;
	x:char;
	s:real;
	f:file of char;
	d:text;
begin
clrscr;
assign(f,'C:\auto.jpg');
reset(f);
assign(d,'C:\taxt.txt');
rewrite(d);
s:=filesize(f);
writeln(s:0:0);
for i:=1 to 20 do
  begin
		read(f,x);
		write(d,x);
  end;
close(f);
close(d);
readln;
end.

Tłumaczę

program wczytuje plik jpg i zapisuje go do notatnika, ponieważ miałem zamiar kodować tresc z tego

czy jet jakas inna mozliwosc mam wczytać jpg >> zakodować >> txt

główne kodowanie mogę sam sobie napisać chodzi mi tyko jak mam odczytać te bity z tego

 

z góry dzięki;

[__LOS__ 1]

JAk? Rozkodowac JPEG'a, ale to bedzie hardcore w Pascalu. Wpisz w google "JPEG File Format" czy cos w tym stylu powinienes znalezc jakis opis pliku, ile ma naglowek jakie sa pola itd. Kiedys znalem fajna stronke z masa formatow, ale dzis sobie jej nie moge przypomniec. Zamiast JPEG proponuje jakis prosty format... np. BMP, z tego co pamietam to jest duzo, duzo latwiejszy.

 

Znalazlem http://www.wotsit.org/list.asp?page=3&fc=1&search=&al=

Edytowane 20 Stycznia 2012 przez __LOS__

[robcioo16 0]

przykład jest taki: pascal.jpg >> koduje >>> pascal.txt

dokladniej program na przepisać zawartośc pliku pascal.jpg do pliku pascal.txt kodujęc jego zawartosć w systemie Base64